Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

ASPµ÷Óô洢¹ý³Ì£ºÓÐÊäÈë²ÎÊýºÍÊä³ö²ÎÊýµÄ´æ´¢¹ý³Ì


¡¡¡¡4. ÓÐÊäÈë²ÎÊýºÍÊä³ö²ÎÊýµÄ´æ´¢¹ý³Ì
¡¡¡¡·µ»ØÖµÆäʵÊÇÒ»ÖÖÌØÊâµÄÊä³ö²ÎÊý¡£ÔÚ´ó¶àÊýÇé¿öÏ£¬ÎÒÃÇÓõ½µÄÊÇͬʱÓÐÊäÈë¼°Êä³ö²ÎÊýµÄ´æ´¢¹ý³Ì£¬±ÈÈçÎÒÃÇÏëÈ¡µÃÓû§ÐÅÏ¢±íÖУ¬Ä³IDÓû§µÄÓû§Ãû£¬Õâʱºò£¬ÓÐÒ»¸öÊäÈë²ÎÊý----Óû§ID£¬ºÍÒ»¸öÊä³ö²ÎÊý----Óû§Ãû¡£ÊµÏÖÕâÒ»¹¦ÄܵĴ洢¹ý³ÌÈçÏ£º
/*SP4*/
CREATE PROCEDURE dbo.getUserName
@UserID int,
@UserName varchar(40) output
as
set nocount on
begin
if @UserID is null return
select @UserName=username
from dbo.[userinfo]
where userid=@UserID
return
end
go
¡¡¡¡µ÷Óøô洢¹ý³ÌµÄASP´úÂëÈçÏ£º
'**µ÷ÓôøÓÐÊäÈëÊä³ö²ÎÊýµÄ´æ´¢¹ý³Ì**
DIM MyComm,UserID,UserName
UserID = 1
Set MyComm = Server.CreateObject("ADODB.Command")
MyComm.ActiveConnection = MyConStr 'MyConStrÊÇÊý¾Ý¿âÁ¬½Ó×Ö´®
MyComm.CommandText = "getUserName" 'Ö¸¶¨´æ´¢¹ý³ÌÃû
MyComm.CommandType = 4 '±íÃ÷ÕâÊÇÒ»¸ö´æ´¢¹ý³Ì
MyComm.Prepared = true 'ÒªÇó½«SQLÃüÁîÏÈÐбàÒë
'ÉùÃ÷²ÎÊý
MyComm.Parameters.append MyComm.CreateParameter("@UserID",3,1,4,UserID)
MyComm.Parameters.append MyComm.CreateParameter("@UserName",200,2,40)
MyComm.Execute
'È¡µÃ³ö²Î
UserName = MyComm(1)
Set MyComm = Nothing
¡¡¡¡ÔÚÒÔÉÏ´úÂëÖУ¬¿ÉÒÔ¿´µ½£¬ÓëÉùÃ÷·µ»ØÖµ²»Í¬£¬ÉùÃ÷ÊäÈë²ÎÊýʱÐèÒª5¸ö²ÎÊý£¬ÉùÃ÷Êä³ö²ÎÊýʱÐèÒª4¸ö²ÎÊý¡£ÉùÃ÷ÊäÈë²ÎÊýʱ5¸ö²ÎÊý·Ö±ðΪ£º²ÎÊýÃû¡¢²ÎÊýÊý¾ÝÀàÐÍ¡¢²ÎÊýÀàÐÍ¡¢Êý¾Ý³¤¶È¡¢²ÎÊýÖµ¡£ÉùÃ÷Êä³ö²ÎÊýʱ£¬Ã»ÓÐ×îºóÒ»¸ö²ÎÊý£º²ÎÊýÖµ¡£
¡¡¡¡ÐèÒªÌØ±ð×¢ÒâµÄÊÇ£ºÔÚÉùÃ÷²ÎÊýʱ£¬Ë³ÐòÒ»¶¨ÒªÓë´æ´¢¹ý³ÌÖж¨ÒåµÄ˳ÐòÏàͬ£¬¶øÇÒ¸÷²ÎÊýµÄÊý¾ÝÀàÐÍ¡¢³¤¶ÈÒ²ÒªÓë´æ´¢¹ý³ÌÖж¨ÒåµÄÏàͬ¡£
¡¡¡¡Èç¹û´æ´¢¹ý³ÌÓжà¸ö²ÎÊý£¬ASP´úÂë»áÏԵ÷±Ëö£¬¿ÉÒÔʹÓÃwithÃüÁî¼ò»¯´úÂ룺
'**µ÷ÓôøÓÐÊäÈëÊä³ö²ÎÊýµÄ´æ´¢¹ý³Ì(¼ò»¯´úÂë)**
DIM MyComm,UserID,UserName
UserID = 1
Set MyComm = Server.CreateObject("ADODB.Command")
with MyComm
¡¡.ActiveConnection = MyConStr 'MyConStrÊÇÊý¾Ý¿âÁ¬½Ó×Ö´®
¡¡.CommandText = "getUserName" 'Ö¸¶¨´æ´¢¹ý³ÌÃû
¡¡.CommandType = 4 '±íÃ÷ÕâÊÇÒ»¸ö´æ´¢¹ý³Ì
¡¡.Prepared = true 'ÒªÇó½«SQLÃüÁîÏÈÐбàÒë
¡¡.Parameters.append .CreateParameter("@UserID",3,1,4,UserID)
¡¡.Parameters.append .CreateParameter("@UserName",200,2,40)
¡¡.Exec


Ïà¹ØÎĵµ£º

ASPÖÐÊ®´ó³£ÓóÌÐò´úÂë.£ºµÚÈý½Ú¡´ÎÒµÄÐĵáµ

ÔÚInterDevÖÐʵÏÖÍøÉϹºÎïÍÆ³µ(1)
  
¡¡±¾ÎĽ«½éÉÜÔÚInterDevÖÐʵÏÖÍøÉÏÉ̵깺Îï³µ¹¦Äܵķ½·¨£¬¾ßÌå²½ÖèÈçÏ£º
¡¡¡¡Ò»¡¢ Êý¾Ý¿â½á¹¹£º
¡¡¡¡²úÆ·Êý¾Ý±í(Products): ´æ·Å²úÆ·ÐÅÏ¢
²úÆ·Ãû  ProductName
²úÆ·±àºÅ ProductID
µ¥¼Û Price
·ÖÀà±àºÅ CategoryID
¡¡¡¡ Cart£º¹ºÎï³µÊý¾Ý±í£¬ÁÙʱ´æ·Å¿Í»§µÄ¶ ......

ASPÖÐÊ®´ó³£ÓóÌÐò´úÂë.£ºµÚÆß½Ú¡´ÎÒµÄÐĵáµ

ÓÃASPʵÏÖÖ§³Ö¸½¼þµÄEMailϵͳ(1)
  
¡¡¡¡´ó¼Ò¾­³£Ì½ÌÖʹÓÃasp£¬¶ø²»Ê¹ÓÃÆäËû×齨ÄÜ·ñʵÏÖÎļþµÄÉÏ´«£¬´Ó¶ø¿ª·¢³öÖ§³ÖÓʼþ¸½¼þµÄÓʼþϵͳ£¬´ð°¸ÊÇ¿ÉÒԵġ£
¡¡¡¡ÒÔÏÂÊÇ·¢ËÍÓʼþµÄÒ³Ãæ£¬ÓʼþµÄÕʺÅÊÇÔ±¹¤ºÅ£¬¼ÙÉèÊÇ5λµÄÊý×Ö£¬sendmail.aspµ±È»ÊÇÔںϷ¨µÇ½ºó²ÅÄܹ»¿´µ½µÄ
£¼html£¾
£¼head£¾
£¼meta http-eq ......

ASPÖÐÊ®´ó³£ÓóÌÐò´úÂë.£ºµÚ°Ë½Ú¡´ÎÒµÄÐĵáµ

ÓÃASPʵÏÖÖ§³Ö¸½¼þµÄEMailϵͳ(2)
  
¡¡¡¡²»¹ýÕâ½ö½öÖ»Êǵõ½ÁË·¢ËÍÕßµÄipµØÖ·ºÍmacµØÖ·£¬¶øÇÒ½ûÖ¹Óû§×Ô¼º¸ü¸Ä×Ô¼ºipµØÖ·µÄ´úÂ룬ÒòΪÎÒÃǵÄϵͳÊÇÐèÒª¶Ô¸öÈËÐÞ¸ÄipµÄÐÐΪ½øÐнûÖ¹µÄ¡£
£¼%
strIP = Request.ServerVariables("REMOTE_ADDR")
Set net = Server.CreateObject("wscript.network")
Set sh = S ......

AccessÓëSql ServerÖ®ASP´úÂë±È½Ï

ºǫ́Êý¾Ý¿â£º
[Microsoft Access]
Óë
[Microsoft Sql Server]
¸ü»»Ö®ºó£¬ASP´úÂëӦעÒâÒªÐ޸ĵÄһЩµØ·½£º
[Ò»]Á¬½ÓÎÊÌ⣨¾ÙÀý)
[Microsoft Access]
constr = "DBQ=c:\data\clwz.mdb; DRIVER={Microsoft Access Driver (*.mdb)}"
[Microsoft Sql Server]
constr = "DRIVER={SQL Server};SERVER=host;DATA ......

asp ÖÐÊý¾Ýµ¼³öΪ word £¬excl £¬text £¬µÈ¸ñʽÎļþ

ÕâÊÇ´Ó·½·¨Ö±½Ó¸´ÖƵģ¬
 ²ÎÊý fileTypeÊÇÎļþ¸ñʽ
²ÎÊýfiledNameÊÇд³öºóÎļþµÄÎļþÃû¡£
²ÎÊýsuffixÊÇд³öºóÎļþµÄÎļþºó׺Ãû¡£
 Response.Clear(); //Çå¿Õ »º³åÇøµÄËùÓÐÊä³öÊý¾Ý
        Response.Charset = "utf-8";//ÉèÖÃÊä³öÊä³öÁ÷×Ö·ûÀàÐÍ
   &nb ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ