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

ASP²É¼¯ ASP²É¼¯³ÌÐòÔ­Àí

ASP²É¼¯-ASP²É¼¯³ÌÐòÔ­Àí
²É¼¯³ÌÐòµÄÖ÷Òª²½ÖèÈçÏ£º
Ò»¡¢»ñÈ¡±»²É¼¯µÄÒ³ÃæµÄÄÚÈÝ
¶þ¡¢´Ó»ñÈ¡´úÂëÖÐÌáÈ¡ËùÓÐÓõÄÊý¾Ý
Ò»¡¢»ñÈ¡±»²É¼¯µÄÒ³ÃæµÄÄÚÈÝ
ÎÒĿǰËùÕÆÎÕµÄASP³£ÓûñÈ¡±»²É¼¯µÄÒ³ÃæµÄÄÚÈÝ·½·¨£º
1¡¢ÓÃserverXMLHTTP×é¼þ»ñÈ¡Êý¾Ý
ÒÔÏÂÄÚÈÝΪ³ÌÐò´úÂë:
ÒÔÏÂΪÒýÓõÄÄÚÈÝ£º
Function GetBody(weburl) 
    '´´½¨¶ÔÏó
    Dim ObjXMLHTTP
    Set ObjXMLHTTP=Server.CreateObject("MSXML2.serverXMLHTTP")
    'ÇëÇóÎļþ,ÒÔÒì²½ÐÎʽ
    ObjXMLHTTP.Open "GET",weburl,False
    ObjXMLHTTP.send
    While ObjXMLHTTP.readyState <> 4
        ObjXMLHTTP.waitForResponse 1000
    Wend
    'µÃµ½½á¹û
     GetBody=ObjXMLHTTP.responseBody
    'ÊͷŶÔÏó
     Set ObjXMLHTTP=Nothing
End Function
µ÷Ó÷½·¨£º
GetBody(ÎļþµÄURLfµØÖ·)
2¡¢»òXMLHTTP×é¼þ»ñÈ¡Êý¾Ý
ÒÔÏÂÄÚÈÝΪ³ÌÐò´úÂë:
ÒÔÏÂΪÒýÓõÄÄÚÈÝ£º
Function GetBody(weburl)  
    '´´½¨¶ÔÏó
    Set Retrieval = CreateObject("Microsoft.XMLHTTP")
    With Retrieval
     .Open "Get", weburl, False, "", ""
     .Send
     GetBody = .ResponseBody
     End With
    'ÊͷŶÔÏó
    Set Retrieval = Nothing
End Function
µ÷Ó÷½·¨£º
GetBody(ÎļþµÄURLfµØÖ·)
ÕâÑù»ñÈ¡µÄÊý¾ÝÄÚÈÝ»¹ÐèÒª½øÐбàÂëת»»²Å¿ÉÒÔʹÓÃ
ÒÔÏÂÄÚÈÝΪ³ÌÐò´úÂë:
ÒÔÏÂΪÒýÓõÄÄÚÈÝ£º
Function BytesToBstr(body,Cset)
        dim objstream
        set objstream = Server.CreateObject("adodb.stream")
        objstream.Type = 1
        objstream.Mode =3
        objstream.Open
     &nb


Ïà¹ØÎĵµ£º

64λ»úÆ÷Ö§³ÖASPÔËÐÐ,ÒªÉèÖòÎÊý

Ö÷Ŀ¼,ÅäÖÃϱðÍüÁËÆôÓø¸Ä¿Â¼
ÎÊÌâÖ¢×´£º
ADODB.Connection ´íÎó '800a0ea9' δָ¶¨Ìṩ³ÌÐò£¬Ò²Ã»ÓÐÖ¸ÅɵÄĬÈÏÌṩ³ÌÐò¡£
ÎÊÌâ·ÖÎö£º
Windows 64λµÄϵͳÉÏ£¬ÔËÐÐÏÂÁÐ32bit(λ)Ó¦ÓóÌÐò£¬²»Äܹ»ÍêÈ«¼æÈÝ£¬ÐèÒª¶ÀÁ¢²Ù×÷½â¾ö¡£³ÌÐòÁбíÈçÏ£º
Internet·þÎñAPIÀ©Õ¹
ISAPI¹ýÂËÆ÷
ASPÓ¦ÓóÌÐò
ASP.NETÓ¦ÓóÌÐò
½ ......

ASPÁ¬½ÓSQLiteÊý¾Ý¿âÒ»Àý

ÒªÓÃASPÀ´²Ù×÷SQLiteÊý¾Ý¿â£¬Ç°ÌáÌõ¼þÊÇÔÚ·þÎñÆ÷Éϵð²×°SQLiteµÄODBCÇý¶¯³ÌÐò£¬¿Éµ½Õâ¸öÕ¾µãÉÏÏÂÔØ°²×°£ºhttp://www.ch-werner.de/sqliteodbc/£¬°²×°ºÃºó¾Í¿ÉÒÔÏñʹÓÃAccessÒ»ÑùÀ´Ê¹ÓÃSQLiteÁË£¡Ï±ßÊÇÒ»¸öSQLiteÊý¾Ý¿â½á¹¹£º
ÒýÓÃÄÚÈÝ
Create TABLE admin(username text,age integer);
ÎÒÃÇÔÙÀ´ÓÃASPÑÝʾÏÂÈçºÎ¶ÔSQLi ......

asp»ñÈ¡µ±Ç°Â·¾¶Óï¾ä´óÈ«

ÔÚasp¿ª·¢Öо­³£ÐèÒªÓõ½µ±Ç°Ò³ÃæµÄ·¾¶£¬Ïà¶ÔµÄ£¬¾ø¶ÔµÄ£¬ÓвÎÊýµÄ£¬Ã»ÓвÎÊýµÄ£¬ÕâÀïÕûÀíһϣ¬¸öÈ˸оõºÜÈ«µÄasp»ñÈ¡Ò³ÃæÂ·¾¶Óï¾ä´óÈ«£¬ÀýÈ磺request.servervariables script_name SERVER_SOFTWARE
Îļþip·¾¶£º<%="http://" & request.servervariables("server_name")& request.servervariables("script_ ......

ASPÌõ¼þÓï¾äÖ®select caseÓï¾ä

±¾ÎÄÁ´½Ó£ºhttp://www.oversteper.com/wprogram/asp/828.html
Ìõ¼þÓï¾äÖ® select case  Óï¾ä
1¡¢¶àÌõ¼þ·ÖÖ§µÄʱºòÓÅÏÈʹÓÃselect case½á¹¹£»
      2¡¢Êý×ֵĴóÁ¿ÁоÙʱ×îºÃʹÓÃselect case
      3¡¢±ØÐëʹÓà end select À´½áÊø·ÖÖ§½á¹¹
ʾÀý£º
ÒÔÏÂΪ ......

asp С͵ ²É¼¯ Àà º¯Êý ³£Óà ±ØÐë ½ØÈ¡ ±àÂëת»»

<%
'==================================================
'º¯ÊýÃû£ºGetHttpPage
'×÷ Ó㺻ñÈ¡ÍøÒ³Ô´Âë
'²Î Êý£ºHttpUrl ------ÍøÒ³µØÖ·
'==================================================
Function GetHttpPage(HttpUrl)
If IsNull(HttpUrl)=True or Len(HttpUrl)<18 or HttpUrl="$False$" Then
GetHttp ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ