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 ......
ÕâÊÇ´Ó·½·¨Ö±½Ó¸´ÖƵģ¬
²ÎÊý fileTypeÊÇÎļþ¸ñʽ
²ÎÊýfiledNameÊÇд³öºóÎļþµÄÎļþÃû¡£
²ÎÊýsuffixÊÇд³öºóÎļþµÄÎļþºó׺Ãû¡£
Response.Clear(); //Çå¿Õ »º³åÇøµÄËùÓÐÊä³öÊý¾Ý
Response.Charset = "utf-8";//ÉèÖÃÊä³öÊä³öÁ÷×Ö·ûÀàÐÍ
&nb ......
Êé½ÓÉÏÎÄ£¬Ö±½Ó´Ó×Ö·û´®·µ»Ø¶ÔÏ󣬴˴θüУ¬ÊµÏÖÁË·µ»Ø¶ÔÏóµÄ×Ô¶¯»¯£¬ÎÞÐèÔÚÉùÃ÷ʵÌåÀà¡£µ«Õâ¸öº¯ÊýÖ»ÊʺÏÒ³ÃæÉùÃ÷¼¸¸ö¶ÔÏó£¬ÅúÁ¿¶ÔÏ󣬱ÈÈ缸°Ù¸ö£¬ÍƼöʹÓÃÏÂÒ»ÎÄËùʹÓú¯Êý¡£
º¯ÊýºÜ¼òµ¥£¬²»½âÊÍ£¬Ö±½ÓÌù´úÂë¡£
option explicit
'·µ»Ø¶ÔÏóµÄº¯Êý
function getObj(byval str)
dim classname,itemlist,i
cl ......
´ËÎÄÖ»ÊÇÈëÃÅ£¬ÑÝʾÁËÈçºÎÓÃʵÌåÀà´æ´¢Êý¾Ý£¬ÎÞʵ¼ÊÒâÒå¡£ºóÃæÓÐÂ½Ðø¸üÐÂÓÅ»¯¡££¨ÒÔºóµÄÎÄÕÂÖн«Â½ÐøÊµÏÖÎÞÐèÉùÃ÷¾ßÌåÀà×Ô¶¯´æ´¢Êý¾Ý£¬ºÍ¼òµ¥µÄÐÔÄÜÓÅ»¯£©
ÔÚasp³ÌÐò¿ª·¢¹ý³ÌÖУ¬½á¹¹Êý¾ÝµÄ´æ´¢Ò»Ö±ÊǸöÎÊÌ⣬aspµÄÊý×éÒ»Ö±ºÜÈõ£¬¶øÇÒ²»ÄÜ×Ô½âÊÍ£¬ ......