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µÄ°ì·¨¼°³£¼ûµÄ²î´í
//µÚÒ»ÖÖд·¨£º
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 ......
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 · ......
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 Öд¦ÀíÎļþÉÏ´«ÒÔ¼°É¾³ýʱ³£ÓõÄ×Ô¶¨Ò庯Êý
<%
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'ËùÓÐ×Ô¶¨ÒåµÄ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µÄÈëÃųÌÐò
µ±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µÄÈëÃųÌÐò
µ±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 ......
<% '--------------------------------------------------------------------------------------------------
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
......