asp_Êý¾Ý¿â²Ù×÷·â×°
Ò»¡¢conn.asp
<%
'@Language="VBSCRIPT" CODEPAGE=65001
'meta http-equiv="Content-Type" content="text/html; charset=gb2312"
' 936 utf-8
class TDB
function qry(byval sqlquery)
dim adoConn,adoRS
set adoConn=server.createobject("ADODB.connection")
adoConn.open "provider=microsoft.jet.oledb.4.0;data source=" & Server.MapPath(".") & "/sys.mdb"
set adoRS=server.createobject("ADODB.RecordSet")
adoRS.open sqlquery,adoConn,1,3 'support movelast (adOpenKeySet,adLockOptimistic)
'set adoRS=adoConn.execute(sqlquery) 'don't support movelast
'
dim rtnstr
rtnstr="<?xml version='1.0' encoding='gb2312' standalone='yes' ?>" & chr(13)& chr(10)
rtnstr=rtnstr & "<rs>" & chr(13)& chr(10)
irow=0
adoRS.movefirst
do while not adoRS.Eof
rtnstr=rtnstr & " <r" & cstr(irow) & ">" & chr(13)& chr(10)
for i=0 to adoRS.Fields.Count-1
rtnstr=rtnstr & " <" & adoRS.Fields(i).name & ">" & chr(13)& chr(10)
rtnstr=rtnstr & "<![CDATA[ " & adoRS.Fields(i) & " ]]>
Ïà¹ØÎĵµ£º
Ò»¡¢asp.netÖе¼³öExeclµÄ·½·¨£º
ÔÚasp.netÖе¼³öExeclÓÐÁ½ÖÖ·½·¨£¬Ò»ÖÖÊǽ«µ¼³öµÄÎļþ´æ·ÅÔÚ·þÎñÆ÷ij¸öÎļþ¼ÐÏÂÃ棬Ȼºó½«ÎļþµØÖ·Êä³öÔÚä¯ÀÀÆ÷ÉÏ£»Ò»ÖÖÊǽ«ÎļþÖ±½Ó½«ÎļþÊä³öÁ÷д¸øä¯ÀÀÆ÷¡£ÔÚResponseÊä³öʱ£¬t·Ö¸ôµÄÊý¾Ý£¬µ¼³öexeclʱ£¬µÈ¼ÛÓÚ·ÖÁУ¬nµÈ¼ÛÓÚ»»ÐС£
1¡¢½«Õû¸öhtmlÈ«²¿Êä³öexecl
´Ë·¨½«htmlÖÐËùÓеÄÄÚ ......
¿Í»§¶Ë½Å±¾£º<script language="scriptlanguage"></script>
·þÎñÆ÷¶Ë½Å±¾£º<% ......%>
VbscriptÊÇvisual basicµÄÒ»¸ö×Ó¼¯£¬ËäÈ»ÏÞÖÆÁË¿ÉÒÔʹÓõÄÄÚÖú¯ÊýµÄÊýÁ¿£¬µ«ÊÇҲʹµÃËû·Ç³£Ð¡ÇÉ£¬´Ó¶øÌá¸ßÁË¿ÉÒÆÖ²ÐÔ
VariantÊÇvbscriptµÄΨһÊý¾ÝÀàÐÍ£¬ÓÐ13ÖÖ×ÓÀàÐÍ£º
Empty,Null,Boolean,Byte,Integer,Curre ......
<%
Set fso = CreateObject("Scripting.FileSystemObject")
Set fldr = fso.GetFolder("c:\Program Files")
Response.Write "¸¸Îļþ¼ÐÃû×ÖÊÇ£º" & fldr & "<br>"
If fldr.IsRootFolder = True Then
Response.Write "¸ÃÎļþ¼ÐÊÇÒ»¸ùÎļþ¼Ð" & "<br>"
Else
Resp ......
ASPÀà
£½£½£½£½£½£½£½£½£½
ʹÓÃVBSµÄASPÒ²Äܶ¨ÒåÀàµÄ£¡±¾ÎĽ«½éÉܶ¨Ò塢ʹÓÃÀàµÄ»ù±¾·½·¨¡£
ÔÚASP£¨ÌØָʹÓÃVBSµÄASP£¬ÏÂͬ£©ÀʹÓÃClassÓï¾äÀ´ÉùÃ÷Ò»¸öÀà¡£Óï·¨ÈçÏ£º
Class ˈ̞
End Class
ÀàµÄ¶¨Òå¡¢±äÁ¿¡¢ÊôÐԺͷ½·¨µÈ¶¼°üº¬ÔÚClass...End Class¿éÖС£
ÏÂÃæ¾Í¿ÉÒÔ¶¨ÒåÀàµÄÊôÐԺͷ½·¨ÁË¡£Õýʽ½²ÊôÐÔ¡¢·½·¨µ ......
Ê×ÏÈ£¬ËûÃǵÄÔËÐлúÖƲ»Í¬¡£aspÊÇÊôÓÚÒ»ÖÖ½âÊÍÐ͵Ŀò¼Ü£¡ÊǽâÊÍÖ´Ðеģ¬Êǽű¾¡£asp.netÊDZàÒëÐ͵ģ¡×îÖÕ»á±à³Ì¶þ½øÖƵĻúÆ÷´úÂë¡£´ÓÕâÒ»µãÀ´Ëµ£¬asp.netÖ´ÐÐЧÂÊÉÏÒª±Èasp¸ß£¡
Æä´Î£¬aspÖ»ÔÊÐíʹÓÃjs»òÕßvbs¡£¶øasp.netÔò²»Ò»Ñù£¬Ö»Òª·ûºÏ¹«¹²ÓïÑÔÔËÐпâ¹æ·¶µÄÓïÑÔ£¬¶¼¿ÉÒÔʹÓã¡´ÓÕâÒ»µãÉÏÀ´Ëµ£¬aspÔڵײã²Ù×÷ÉϽÏasp.ne ......