Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB
ÈÈÃűêÇ©£º c c# c++ asp asp.net linux php jsp java vb Python Ruby mysql sql access Sqlite sqlserver delphi javascript Oracle ajax wap mssql html css flash flex dreamweaver xml
 ×îÐÂÎÄÕ : asp

aspÁ¬½ÓMssqlµÄ·½·¨¼°³£¼ûµÄ´íÎó

aspÏνÓMssqlµÄ°ì·¨¼°³£¼ûµÄ²î´í
//µÚÒ»ÖÖд·¨£º
MM_conn_STRING = "Driver={SQL Server};server=(local);uid=sa;pwd=;database=infs;"
Set conn = Server.Createobject("ADODB.Connection")
conn.open MM_conn_STRING
SET RS=SERVER.CreateObject("ADOBD.recordset")
SQL="SELECT * from TABLE ORDER BY ID DESC"
RS.open SQL,CONN,3,3 
//µÚ¶þÖÖд·¨£º£¨DSNÏνӣ©
MM_conn_STRING="DSN=BBS;UID=SA;PWD=12345"
Set conn = Server.Createobject("ADODB.Connection")
conn.open MM_conn_STRING
SET RS=SERVER.CreateObject("ADOBD.recordset")
SQL="SELECT * from TABLE ORDER BY ID DESC"
RS.open SQL,CONN,3,3   // 3,3ÊǸ͝¡¢É¾³ý¡¢ÔöÌí¿ª¹Ø£¡
//µÚÈýÖÖд·¨£º
MM_conn_STRING_own = "Driver={SQL Server};server=(local);uid=sa;pwd=11111;database=infs;"
Set conn = Server.Createobject("ADODB.Connection")
conn.open MM_conn_STRING_own
//µÚËÄÖÖ - ÕâÖÖ·½Ê½ÓÃÔÚACCESSÖÐ
strconn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" _
& Server.MapPath("asp.mdb")
set conn = server.createobject("adodb.connection")
co ......

aspÁ¬½ÓMssqlµÄ·½·¨¼°³£¼ûµÄ´íÎó

aspÏνÓMssqlµÄ°ì·¨¼°³£¼ûµÄ²î´í
//µÚÒ»ÖÖд·¨£º
MM_conn_STRING = "Driver={SQL Server};server=(local);uid=sa;pwd=;database=infs;"
Set conn = Server.Createobject("ADODB.Connection")
conn.open MM_conn_STRING
SET RS=SERVER.CreateObject("ADOBD.recordset")
SQL="SELECT * from TABLE ORDER BY ID DESC"
RS.open SQL,CONN,3,3 
//µÚ¶þÖÖд·¨£º£¨DSNÏνӣ©
MM_conn_STRING="DSN=BBS;UID=SA;PWD=12345"
Set conn = Server.Createobject("ADODB.Connection")
conn.open MM_conn_STRING
SET RS=SERVER.CreateObject("ADOBD.recordset")
SQL="SELECT * from TABLE ORDER BY ID DESC"
RS.open SQL,CONN,3,3   // 3,3ÊǸ͝¡¢É¾³ý¡¢ÔöÌí¿ª¹Ø£¡
//µÚÈýÖÖд·¨£º
MM_conn_STRING_own = "Driver={SQL Server};server=(local);uid=sa;pwd=11111;database=infs;"
Set conn = Server.Createobject("ADODB.Connection")
conn.open MM_conn_STRING_own
//µÚËÄÖÖ - ÕâÖÖ·½Ê½ÓÃÔÚACCESSÖÐ
strconn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" _
& Server.MapPath("asp.mdb")
set conn = server.createobject("adodb.connection")
co ......

ASP ÄÚ½¨¶ÔÏó

 
Active Server Pages ÌṩÄÚ½¨¶ÔÏó£¬ÕâЩ¶ÔÏóʹÓû§¸üÈÝÒ×ÊÕ¼¯Í¨¹ýä¯ÀÀÆ÷ÇëÇó·¢Ë͵ÄÐÅÏ¢¡¢ÏìÓ¦ä¯ÀÀÆ÷ÒÔ¼°´æ´¢Óû§ÐÅÏ¢£¨ÈçÓû§Ê×Ñ¡Ï¡£±¾ÎļòҪ˵Ã÷ÿһ¸ö¶ÔÏó¡£
Application ¶ÔÏó
¿ÉÒÔʹÓà Application ¶ÔÏóʹ¸ø¶¨Ó¦ÓóÌÐòµÄËùÓÐÓû§¹²ÏíÐÅÏ¢¡£
Request ¶ÔÏó
¿ÉÒÔʹÓà Request ¶ÔÏó·ÃÎÊÈκÎÓà HTTP ÇëÇ󴫵ݵÄÐÅÏ¢£¬°üÀ¨´Ó HTML ±í¸ñÓà POST ·½·¨»ò GET ·½·¨´«µÝµÄ²ÎÊý¡¢cookie ºÍÓû§ÈÏÖ¤¡£Request ¶ÔÏóʹÄúÄܹ»·ÃÎÊ·¢Ë͸ø·þÎñÆ÷µÄ¶þ½øÖÆÊý¾Ý£¬ÈçÉÏÔØµÄÎļþ¡£
Response ¶ÔÏó
¿ÉÒÔʹÓà Response ¶ÔÏó¿ØÖÆ·¢Ë͸øÓû§µÄÐÅÏ¢¡£°üÀ¨Ö±½Ó·¢ËÍÐÅÏ¢¸øä¯ÀÀÆ÷¡¢Öض¨Ïòä¯ÀÀÆ÷µ½ÁíÒ»¸ö URL »òÉèÖà cookie µÄÖµ¡£
Server ¶ÔÏó
Server ¶ÔÏóÌṩ¶Ô·þÎñÆ÷Éϵķ½·¨ºÍÊôÐÔ½øÐеķÃÎÊ¡£×î³£Óõķ½·¨ÊÇ´´½¨ ActiveX ×é¼þµÄʵÀý (Server.CreateObject)¡£ÆäËû·½·¨ÓÃÓÚ½« URL »ò HTML ±àÂë³É×Ö·û´®£¬½«ÐéÄâ·¾¶Ó³Éäµ½ÎïÀí·¾¶ÒÔ¼°ÉèÖýű¾µÄ³¬Ê±ÆÚÏÞ¡£
Session ¶ÔÏó
¿ÉÒÔʹÓà Session ¶ÔÏó´æ´¢Ìض¨µÄÓû§»á»°ËùÐèµÄÐÅÏ¢¡£µ±Óû§ÔÚÓ¦ÓóÌÐòµÄÒ³Ö®¼äÌø×ªÊ±£¬´æ´¢ÔÚ Session ¶ÔÏóÖеıäÁ¿²»»áÇå³ý£»¶øÓû§ÔÚÓ¦ÓóÌÐòÖзÃÎÊҳʱ£¬ÕâЩ±äÁ¿Ê¼ÖÕ´æÔÚ¡£Ò²¿ÉÒÔʹÓà Session · ......

ASP ÄÚ½¨¶ÔÏó

 
Active Server Pages ÌṩÄÚ½¨¶ÔÏó£¬ÕâЩ¶ÔÏóʹÓû§¸üÈÝÒ×ÊÕ¼¯Í¨¹ýä¯ÀÀÆ÷ÇëÇó·¢Ë͵ÄÐÅÏ¢¡¢ÏìÓ¦ä¯ÀÀÆ÷ÒÔ¼°´æ´¢Óû§ÐÅÏ¢£¨ÈçÓû§Ê×Ñ¡Ï¡£±¾ÎļòҪ˵Ã÷ÿһ¸ö¶ÔÏó¡£
Application ¶ÔÏó
¿ÉÒÔʹÓà Application ¶ÔÏóʹ¸ø¶¨Ó¦ÓóÌÐòµÄËùÓÐÓû§¹²ÏíÐÅÏ¢¡£
Request ¶ÔÏó
¿ÉÒÔʹÓà Request ¶ÔÏó·ÃÎÊÈκÎÓà HTTP ÇëÇ󴫵ݵÄÐÅÏ¢£¬°üÀ¨´Ó HTML ±í¸ñÓà POST ·½·¨»ò GET ·½·¨´«µÝµÄ²ÎÊý¡¢cookie ºÍÓû§ÈÏÖ¤¡£Request ¶ÔÏóʹÄúÄܹ»·ÃÎÊ·¢Ë͸ø·þÎñÆ÷µÄ¶þ½øÖÆÊý¾Ý£¬ÈçÉÏÔØµÄÎļþ¡£
Response ¶ÔÏó
¿ÉÒÔʹÓà Response ¶ÔÏó¿ØÖÆ·¢Ë͸øÓû§µÄÐÅÏ¢¡£°üÀ¨Ö±½Ó·¢ËÍÐÅÏ¢¸øä¯ÀÀÆ÷¡¢Öض¨Ïòä¯ÀÀÆ÷µ½ÁíÒ»¸ö URL »òÉèÖà cookie µÄÖµ¡£
Server ¶ÔÏó
Server ¶ÔÏóÌṩ¶Ô·þÎñÆ÷Éϵķ½·¨ºÍÊôÐÔ½øÐеķÃÎÊ¡£×î³£Óõķ½·¨ÊÇ´´½¨ ActiveX ×é¼þµÄʵÀý (Server.CreateObject)¡£ÆäËû·½·¨ÓÃÓÚ½« URL »ò HTML ±àÂë³É×Ö·û´®£¬½«ÐéÄâ·¾¶Ó³Éäµ½ÎïÀí·¾¶ÒÔ¼°ÉèÖýű¾µÄ³¬Ê±ÆÚÏÞ¡£
Session ¶ÔÏó
¿ÉÒÔʹÓà Session ¶ÔÏó´æ´¢Ìض¨µÄÓû§»á»°ËùÐèµÄÐÅÏ¢¡£µ±Óû§ÔÚÓ¦ÓóÌÐòµÄÒ³Ö®¼äÌø×ªÊ±£¬´æ´¢ÔÚ Session ¶ÔÏóÖеıäÁ¿²»»áÇå³ý£»¶øÓû§ÔÚÓ¦ÓóÌÐòÖзÃÎÊҳʱ£¬ÕâЩ±äÁ¿Ê¼ÖÕ´æÔÚ¡£Ò²¿ÉÒÔʹÓà Session · ......

asp Öг£ÓõÄÎļþ´¦Àíº¯Êý

asp Öг£ÓõÄÎļþ´¦Àíº¯Êý ÊÕ²Ø
asp Öд¦ÀíÎļþÉÏ´«ÒÔ¼°É¾³ýʱ³£ÓõÄ×Ô¶¨Ò庯Êý
<%
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'ËùÓÐ×Ô¶¨ÒåµÄVBSº¯Êý
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
function DeleteFile(Filename) 'ɾ³ýÎļþ
 if Filename<>"" then
  Set fso = server.CreateObject("Scripting.FileSystemObject")
  if fso.FileExists(Filename) then
   fso.DeleteFile Filename
  end if
  set fso = nothing
 end if
end function
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
function CreateDIR(byval LocalPath) '½¨Á¢Ä¿Â¼µÄ³ÌÐò£¬Èç¹ûÓж༶Ŀ¼£¬ÔòÒ»¼¶Ò»¼¶µÄ´´½¨
 on error resume next
 LocalPath = replace(LocalPath,"\","/")
 set FileObject = server.createobject("Scripting.FileSystemObject")
 patharr = split(LocalPath,"/")
 path_level = ubound(patharr)
 for i = 0 to path_level
  if i=0 then pathtmp=patharr(0) &a ......

ÓÃVB°Ñasp·â×°³Édll


×î¼òµ¥ÓÃVB°Ñasp·â×°³ÉdllµÄÈëÃųÌÐò
µ±IIS±»ÇëÇóÖ´ÐÐÒ»¸öASP³ÌÐò,ËüÊ×ÏÈ»áÔÚASPÎļþÖÐÕÒµ½<%%>±êǩ֮¼äµÄ´úÂë,²¢ÇÒÖ´ÐÐËü(Ò²¿ÉÒÔÊÇ<scri ptrunat=server></script....>Ö®¼äµÄ´úÂë).Èç¹ûÕâ¸öASP³ÌÐòÔÚÏÈǰ±»µ÷Óùý,ÄÇôËü¾Í»áÓÃÄÚ´æÖеıàÒë¹ýµÄ³ÌÐòÀ´ÏòÓû§·µ»ØHTML´úÂë,Èç¹ûûÓÐ,ÄÇôËü¾ÍÖØÐ±àÒë.ÕâÀïASP¾Í±ÈCGI¶àÒ»µãËÙ¶ÈÓÅÊÆ,ÒòΪCGI ÊÇÿһ¸öÇëÇó¶¼Ê¹ÓÃÒ»¸öÏß³Ì.ÕâÑù¾Í´ó´óÏûºÄÁË·þÎñÆ÷µÄ×ÊÔ´.
Æô¶¯ÄãµÄVB,Ñ¡ÔñActiveXͼ±ê.Õâ¸öͼ±ê¿ÉÒÔÔÚн¨¹¤³ÌÕÒµ½!VB»áÌṩһ¸öĬÈϵŤ³ÌÃû(project1)ºÍÀàÃû( class1).ÎÒÃǻὫÕâÁ½¸öÃû×Ö¶¼¸Äµô.ÔÚ¸ÄÃû֮ǰ,ÇëÊ×ÏÈÈ·ÈÏÎÒÃÇÓµÓÐMicrosoftActiveServerPag esObjectLibrary,ËüÔÚÎÒÃǵijÌÐò·Ç³£ÓÐÓÃ.´Ó²Ëµ¥ÖÐÑ¡Ôñ"¹¤³Ì",È»ºóÔÚÆäÖÐÑ¡Ôñ"ÒýÓÃ",¾Í»á³öÏÖ"ÒýÓÃ"´°¿Ú´ÓÖÐÑ¡ÔñMicrosoftActiveServerPagesObjectLibrary.
¸ø¹¤³ÌºÍÀàÃüÃû
ÏÖÔÚÎÒÃÇÀ´¸ù¾Ý×Ô¼ºµÄ°®ºÃÀ´Îªproject1ºÍclass1À´ÃüÃû°É!¸øËüÃÇÃüÃûÒ²ÊǺÜÖØÒªµÄ,ÎÒÃÇÒÔºó»áÓÃÕâ¸ö¹¤³ÌÃûºÍÀàÃûÀ´´´½¨Õâ¸ö×é¼þµÄʵÀý!ºóÃæÏêϸ½éÉÜ.
ÈçºÎ¸ÄÃû,ÎҾͲ»Ïë¶à˵ÁË!
ÎÒÃǵŤ³ÌÃû¸ÄΪExmaple,ÀàÃûΪHelloword
ÔõÑùʹÓù¤³ÌºÍÀà
ÏÖÔÚÎÒÃÇÓÐÁËÎÒÃÇ×Ô¼ºµÄ¹¤³Ì(Example1 ......

ÓÃVB°Ñasp·â×°³Édll


×î¼òµ¥ÓÃVB°Ñasp·â×°³ÉdllµÄÈëÃųÌÐò
µ±IIS±»ÇëÇóÖ´ÐÐÒ»¸öASP³ÌÐò,ËüÊ×ÏÈ»áÔÚASPÎļþÖÐÕÒµ½<%%>±êǩ֮¼äµÄ´úÂë,²¢ÇÒÖ´ÐÐËü(Ò²¿ÉÒÔÊÇ<scri ptrunat=server></script....>Ö®¼äµÄ´úÂë).Èç¹ûÕâ¸öASP³ÌÐòÔÚÏÈǰ±»µ÷Óùý,ÄÇôËü¾Í»áÓÃÄÚ´æÖеıàÒë¹ýµÄ³ÌÐòÀ´ÏòÓû§·µ»ØHTML´úÂë,Èç¹ûûÓÐ,ÄÇôËü¾ÍÖØÐ±àÒë.ÕâÀïASP¾Í±ÈCGI¶àÒ»µãËÙ¶ÈÓÅÊÆ,ÒòΪCGI ÊÇÿһ¸öÇëÇó¶¼Ê¹ÓÃÒ»¸öÏß³Ì.ÕâÑù¾Í´ó´óÏûºÄÁË·þÎñÆ÷µÄ×ÊÔ´.
Æô¶¯ÄãµÄVB,Ñ¡ÔñActiveXͼ±ê.Õâ¸öͼ±ê¿ÉÒÔÔÚн¨¹¤³ÌÕÒµ½!VB»áÌṩһ¸öĬÈϵŤ³ÌÃû(project1)ºÍÀàÃû( class1).ÎÒÃǻὫÕâÁ½¸öÃû×Ö¶¼¸Äµô.ÔÚ¸ÄÃû֮ǰ,ÇëÊ×ÏÈÈ·ÈÏÎÒÃÇÓµÓÐMicrosoftActiveServerPag esObjectLibrary,ËüÔÚÎÒÃǵijÌÐò·Ç³£ÓÐÓÃ.´Ó²Ëµ¥ÖÐÑ¡Ôñ"¹¤³Ì",È»ºóÔÚÆäÖÐÑ¡Ôñ"ÒýÓÃ",¾Í»á³öÏÖ"ÒýÓÃ"´°¿Ú´ÓÖÐÑ¡ÔñMicrosoftActiveServerPagesObjectLibrary.
¸ø¹¤³ÌºÍÀàÃüÃû
ÏÖÔÚÎÒÃÇÀ´¸ù¾Ý×Ô¼ºµÄ°®ºÃÀ´Îªproject1ºÍclass1À´ÃüÃû°É!¸øËüÃÇÃüÃûÒ²ÊǺÜÖØÒªµÄ,ÎÒÃÇÒÔºó»áÓÃÕâ¸ö¹¤³ÌÃûºÍÀàÃûÀ´´´½¨Õâ¸ö×é¼þµÄʵÀý!ºóÃæÏêϸ½éÉÜ.
ÈçºÎ¸ÄÃû,ÎҾͲ»Ïë¶à˵ÁË!
ÎÒÃǵŤ³ÌÃû¸ÄΪExmaple,ÀàÃûΪHelloword
ÔõÑùʹÓù¤³ÌºÍÀà
ÏÖÔÚÎÒÃÇÓÐÁËÎÒÃÇ×Ô¼ºµÄ¹¤³Ì(Example1 ......

asp½«Êý¾Ý¿âµÄÊý¾Ýת»»³Éexcelµ¼³ö

<% '--------------------------------------------------------------------------------------------------
Set rs9 = Server.CreateObject("ADODB.RecordSet")
sqlstr="select * from ¿Í»§×ÊÁÏ¿â order by id desc"
rs9.open sqlstr,conn,1,3
%>
<%Set fs = server.CreateObject("scripting.filesystemobject")
'--Éú³ÉµÄEXCELÎļþ×öÈçϵĴæ·Å
filename="¿Í»§×ÊÁÏ.xls"
temp=filename
filename=Request.ServerVariables("APPL_PHYSICAL_PATH")&"\"+filename
'--Èç¹ûÔ­À´µÄEXCELÎļþ´æÔڵϰɾ³ýËü
if fs.FileExists(filename) then
fs.DeleteFile(filename)
end if
'--´´½¨EXCELÎļþ
set myfile = fs.CreateTextFile(filename,true)
dim strLine,responsestr
strLine=""
For each x in rs9.fields
strLine= strLine & x.name & chr(9)
Next
'--½«±íµÄÁÐÃûÏÈдÈëEXCEL
myfile.writeline strLine
while not rs9.eof
strLine=""
for each x in rs9.Fields
strLine= strLine & x.value & chr(9)
next ......
×ܼǼÊý:617; ×ÜÒ³Êý:103; ÿҳ6 Ìõ; Ê×Ò³ ÉÏÒ»Ò³ [45] [46] [47] [48] 49 [50] [51] [52] [53] [54]  ÏÂÒ»Ò³ βҳ
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ