ASPµ÷Óô洢¹ý³Ì£º·µ»Ø¶à¸ö¼Ç¼¼¯µÄ´æ´¢¹ý³Ì
¡¡¡¡7. ·µ»Ø¶à¸ö¼Ç¼¼¯µÄ´æ´¢¹ý³Ì
¡¡¡¡±¾ÎÄ×îÏȽéÉܵÄÊÇ·µ»Ø¼Ç¼¼¯µÄ´æ´¢¹ý³Ì¡£ÓÐʱºò£¬ÐèÒªÒ»¸ö´æ´¢¹ý³Ì·µ»Ø¶à¸ö¼Ç¼¼¯£¬ÔÚASPÖУ¬ÈçºÎͬʱȡµÃÕâЩ¼Ç¼¼¯ÄØ£¿ÎªÁË˵Ã÷ÕâÒ»ÎÊÌ⣬ÔÚuserinfo±íÖÐÔö¼ÓÁ½¸ö×ֶΣºusertel¼°usermail£¬²¢É趨ֻÓеǼÓû§¿ÉÒԲ鿴ÕâÁ½ÏîÄÚÈÝ¡£
/*SP7*/
CREATE PROCEDURE dbo.getUserInfo
@userid int,
@checklogin bit
as
set nocount on
begin
if @userid is null or @checklogin is null return
select username
from dbo.[usrinfo]
where userid=@userid
--ÈôΪµÇ¼Óû§£¬È¡usertel¼°usermail
if @checklogin=1
select usertel,usermail
from dbo.[userinfo]
where userid=@userid
return
end
go
¡¡¡¡ÒÔÏÂÊÇASP´úÂ룺
'**µ÷Ó÷µ»Ø¶à¸ö¼Ç¼¼¯µÄ´æ´¢¹ý³Ì**
DIM checklg,UserID,UserName,UserTel,UserMail
DIM MyComm,MyRst
UserID = 1
'checklogin()Ϊ×Ô¶¨Ò庯Êý£¬ÅжϷÃÎÊÕßÊÇ·ñµÇ¼
checklg = checklogin()
Set MyComm = Server.CreateObject("ADODB.Command")
with MyComm
¡¡.ActiveConnection = MyConStr 'MyConStrÊÇÊý¾Ý¿âÁ¬½Ó×Ö´®
¡¡.CommandText = "getUserInfo" 'Ö¸¶¨´æ´¢¹ý³ÌÃû
¡¡.CommandType = 4 '±íÃ÷ÕâÊÇÒ»¸ö´æ´¢¹ý³Ì
¡¡.Prepared = true 'ÒªÇó½«SQLÃüÁîÏÈÐбàÒë
¡¡.Parameters.append .CreateParameter("@userid",3,1,4,UserID)
¡¡.Parameters.append .CreateParameter("@checklogin",11,1,1,checklg)
¡¡Set MyRst = .Execute
end with
Set MyComm = Nothing
'´ÓµÚÒ»¸ö¼Ç¼¼¯ÖÐȡֵ
UserName = MyRst(0)
'´ÓµÚ¶þ¸ö¼Ç¼¼¯ÖÐȡֵ
if not MyRst is Nothing then
¡¡Set MyRst = MyRst.NextRecordset()
¡¡UserTel = MyRst(0)
¡¡UserMail = MyRst(1)
end if
Set MyRst = Nothing
¡¡¡¡ÒÔÉÏ´úÂëÖУ¬ÀûÓÃRecordset¶ÔÏóµÄNextRecordset·½·¨£¬È¡µÃÁË´æ´¢¹ý³Ì·µ»ØµÄ¶à¸ö¼Ç¼¼¯¡£
¡¡¡¡ÖÁ´Ë£¬Õë¶ÔASPµ÷Óô洢¹ý³ÌµÄ¸÷ÖÖÇé¿ö£¬±¾ÎÄÒÑ×öÁ˽ÏÎªÈ«ÃæµÄ˵Ã÷¡£×îºó˵һÏÂÔÚÒ»¸öASP³ÌÐòÖУ¬µ÷Óöà¸ö´æ´¢¹ý³ÌµÄ²»Í¬·½·¨¡£
¡¡¡¡ÔÚÒ»¸öASP³ÌÐòÖУ¬µ÷Óöà¸ö´æ´¢¹ý³ÌÖÁÉÙÓÐÒÔÏÂÈýÖÖ·½·¨ÊÇ¿ÉÐеģº
¡¡¡¡1. ´´½¨¶à¸öCommand¶ÔÏó
DIM MyComm
Set MyComm = Server.CreateObject("ADODB.Command")
'µ÷Óô洢¹ý³ÌÒ»
......
Set MyComm = Nothing
Set MyComm = Server.CreateObject("ADODB.Command")
'µ÷Óô洢¹ý³Ì¶þ
......
Set MyComm = Nothing
......
¡¡¡¡2. Ö»´´½¨Ò»¸
Ïà¹ØÎĵµ£º
ÀûÓÃASP´òÔìÍøÕ¾ÂÛ̳DIY(3)
¡¡¡¡2¡¢¹¹½¨ÎÄÕÂÏÔʾģ¿é
¡¡¡¡Ç°ÃæËµ¹ý£¬Ò»Æ¬¾ßÌåµÄÎÄÕÂÊÇ·ÖÊôÔÚ¿´°åºÍÖ÷Ìå֮ϵġ£Òò´ËÏÔʾÎÄÕÂÒ²Òª¾¹ý¿´°åÁбíºÍÖ÷ÌåÁбíÕâÁ½Ò³Ãæºó£¬²ÅÄܵõ½Ìض¨Ö÷ÌâÏÂÎÄÕµÄÁÐ±í¡£
¡¡¡¡£¨1£©°åÁбíµÄÏÔÊ¾Ò³Ãæ£º
£¼ html£¾
£¼ head£¾
£¼ title£¾¿´°åÁÐ±í£¼ /title£¾
£¼ meta htt ......
ÓÃASPʵÏÖÖ§³Ö¸½¼þµÄEMailϵͳ(1)
¡¡¡¡´ó¼Ò¾³£Ì½ÌÖʹÓÃasp£¬¶ø²»Ê¹ÓÃÆäËû×齨ÄÜ·ñʵÏÖÎļþµÄÉÏ´«£¬´Ó¶ø¿ª·¢³öÖ§³ÖÓʼþ¸½¼þµÄÓʼþϵͳ£¬´ð°¸ÊÇ¿ÉÒԵġ£
¡¡¡¡ÒÔÏÂÊÇ·¢ËÍÓʼþµÄÒ³Ãæ£¬ÓʼþµÄÕʺÅÊÇÔ±¹¤ºÅ£¬¼ÙÉèÊÇ5λµÄÊý×Ö£¬sendmail.aspµ±È»ÊÇÔںϷ¨µÇ½ºó²ÅÄܹ»¿´µ½µÄ
£¼html£¾
£¼head£¾
£¼meta http-eq ......
ÓÃASP½¨Á¢Õ¾ÄÚÐÅÏ¢ËÑË÷ϵͳ
¡¡¡¡¼ÙÈçÄãÓµÓÐÒ»¸öÅÓ´óµÄÍøÕ¾£¬ÄÚÈÝÓֶ࣬ÄÇôÀ´·ÃÕßÍùÍùºÜÄÑÕÒµ½×Ô¼ºËùÐèÒªµÄ¶«¶«£¬ÕâʱºòÄã¾ÍÐèÒªÒ»¸öÕ¾ÄÚËÑË÷À´°ïÖúÀ´·ÃÕ߸ü¿ìµÄÕÒµ½Ë÷ÒªµÄ×ÊÁÏÁË£¡ÏÖÔÚÄã¾Í¿ÉÒÔÓÃaspÇáÒ×µÄʵÏÖÕâÖÖ¹¦ÄÜ£¬ºÎ¿öÏÖÔÚÖ§³ÖaspµÄÕ¾µãÕâô¶à£¬ÀûÓÃÕâ¸öËÑË÷ÒýÇæ¿ÉÒÔËÑË÷µ½ÄãµÄÖ÷Ò³ÀïÃæÈκÎÒ»¸öÎļþ ......
ÔÎĵØÖ·£ºhttp://bbs.bccn.net/thread-225295-1-1.html
¡¡¡¡Èç¹û»ú·¿ÂíÉÏÒª¹ØÃÅÁË£¬»òÕßÄã¼±×ÅÒªºÍMMÔ¼»á£¬ÇëÖ±½ÓÌøµ½µÚËĸö×ÔÈ»¶Î¡£
¡¡¡¡ÒÔÏÂÐðÊöµÄ½Å±¾°üÀ¨·þÎñÆ÷¶Ë½Å±¾ºÍ¿Í»§¶ËµÄ½Å±¾£¬·þÎñÆ÷¶Ë½Å±¾Ö¸ÔÚ·þÎñÆ÷ÉÏÔËÐеÄÄDz¿·Ö½Å±¾£¬±ÈÈç³£¼ûµÄResponse.WriteÏÔÈ»ÊÇÔÚ·þÎñÆ÷ÉÏÔËÐе쬷þÎñÆ÷¶Ë½Å±¾¿ÉÒÔʹÓÃVBScriptºÍJS ......
¡¡¡¡×î½üÓкܶàµÄÅóÓÑÎʵ½µ÷Óô洢¹ý³ÌµÄÎÊÌ⣬ÕâÀï¼òµ¥½éÉܼ¸ÖÖASPµ÷Óôø²ÎÊý´æ´¢¹ý³ÌµÄ·½·¨¡£
¡¡¡¡1. ÕâÒ²ÊÇ×î¼òµ¥µÄ·½·¨,Á½¸öÊäÈë²ÎÊý£¬ÎÞ·µ»ØÖµ£º
¡¡¡¡set connection = server.createobject("adodb.connection")
¡¡¡¡connection.open someDSN
¡¡¡¡Connection.Execute "procname varvalue1, varvalue2"
¡¡¡¡'½«Ëù ......