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

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 µ¼Èëµ¼³öEXCEL

Ò»¡¢asp.netÖе¼³öExeclµÄ·½·¨£º
ÔÚasp.netÖе¼³öExeclÓÐÁ½ÖÖ·½·¨£¬Ò»ÖÖÊǽ«µ¼³öµÄÎļþ´æ·ÅÔÚ·þÎñÆ÷ij¸öÎļþ¼ÐÏÂÃæ£¬È»ºó½«ÎļþµØÖ·Êä³öÔÚä¯ÀÀÆ÷ÉÏ£»Ò»ÖÖÊǽ«ÎļþÖ±½Ó½«ÎļþÊä³öÁ÷д¸øä¯ÀÀÆ÷¡£ÔÚResponseÊä³öʱ£¬t·Ö¸ôµÄÊý¾Ý£¬µ¼³öexeclʱ£¬µÈ¼ÛÓÚ·ÖÁУ¬nµÈ¼ÛÓÚ»»ÐС£
1¡¢½«Õû¸öhtmlÈ«²¿Êä³öexecl
´Ë·¨½«htmlÖÐËùÓеÄÄÚ ......

aspÎļþ¶Áд

<%
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²ÉÓÃODBCÊý¾ÝÔ´Á¬½ÓMSSQLÊý¾Ý¿âÏêϸ˵Ã÷¡¾ÊµÓá¿

ODBCÊý¾ÝÔ´¿É·ÖΪ“ϵͳÐÍ”ºÍ“ÎļþÐÍ”£¬ËûÃǵÄÇø±ðÔÚÓړϵͳÐÍ”ÊÇÁ¬½ÓÊý¾Ý¿âµÄÐÅÏ¢½¨Á¢Ôړϵͳע²á±í”À“ÎļþÐÍ”ÔòÊÇÒÔdsnÎļþÐÎʽ´æ´¢ÔÚODBCÔ´µÄĿ¼ÏÂÃæ
Ò»¡¢½¨Á¢ODBCÊý¾ÝÔ´µÄ·½·¨£º
¿ØÖÆÃæ°å - ¹ÜÀí¹¤¾ß - Êý¾ÝÔ´£¨ODBC£©
´ò¿ªODBCÊý¾ÝÔ´¹ÜÀíÆ÷£¬È»ºóÒ ......

ASP.Net ºÍ ASPÓÐÊ²Ã´Çø±ð£¿

Ê×ÏÈ£¬ËûÃǵÄÔËÐлúÖÆ²»Í¬¡£aspÊÇÊôÓÚÒ»ÖÖ½âÊÍÐ͵Ŀò¼Ü£¡ÊǽâÊÍÖ´Ðеģ¬Êǽű¾¡£asp.netÊDZàÒëÐ͵ģ¡×îÖÕ»á±à³Ì¶þ½øÖƵĻúÆ÷´úÂë¡£´ÓÕâÒ»µãÀ´Ëµ£¬asp.netÖ´ÐÐЧÂÊÉÏÒª±Èasp¸ß£¡
Æä´Î£¬aspÖ»ÔÊÐíʹÓÃjs»òÕßvbs¡£¶øasp.netÔò²»Ò»Ñù£¬Ö»Òª·ûºÏ¹«¹²ÓïÑÔÔËÐÐ¿â¹æ·¶µÄÓïÑÔ£¬¶¼¿ÉÒÔʹÓã¡´ÓÕâÒ»µãÉÏÀ´Ëµ£¬aspÔڵײã²Ù×÷ÉϽÏasp.ne ......

ASPÁ¬½ÓÊý¾Ý¿âµÄÈ«ÄÜ´úÂë

aspÁ¬½ÓaccessºÍmssqlµÄÍòÄÜ´úÂ룺
'½â¾öÁËACCESSÊý¾Ý¿â·¾¶µÄÎÊÌ⣡
'²ÉÓÃDBType=0»òDBType=1À´Çø·ÖAC¿â»¹ÊÇMSSQL¿â
'¾ßÌå²ÉÓÃAC¿âʱӦעÒâµÄÊÂÏÇë¿´³ÌÐò˵Ã÷
-----------------------------------------------
Dim DBType,Conn,StrConn
DBType=0 '0ΪAccessÊý¾Ý¿â£¬1ΪMSSQLÊý¾Ý¿â
If(DBType=0) Then
......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ