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
Ïà¹ØÎĵµ£º
Ö÷Ŀ¼,ÅäÖÃϱðÍüÁËÆôÓø¸Ä¿Â¼
ÎÊÌâÖ¢×´£º
ADODB.Connection ´íÎó '800a0ea9' δָ¶¨Ìṩ³ÌÐò£¬Ò²Ã»ÓÐÖ¸ÅɵÄĬÈÏÌṩ³ÌÐò¡£
ÎÊÌâ·ÖÎö£º
Windows 64λµÄϵͳÉÏ£¬ÔËÐÐÏÂÁÐ32bit(λ)Ó¦ÓóÌÐò£¬²»Äܹ»ÍêÈ«¼æÈÝ£¬ÐèÒª¶ÀÁ¢²Ù×÷½â¾ö¡£³ÌÐòÁбíÈçÏ£º
Internet·þÎñAPIÀ©Õ¹
ISAPI¹ýÂËÆ÷
ASPÓ¦ÓóÌÐò
ASP.NETÓ¦ÓóÌÐò
½ ......
ÒªÓÃASPÀ´²Ù×÷SQLiteÊý¾Ý¿â£¬Ç°ÌáÌõ¼þÊÇÔÚ·þÎñÆ÷Éϵð²×°SQLiteµÄODBCÇý¶¯³ÌÐò£¬¿Éµ½Õâ¸öÕ¾µãÉÏÏÂÔØ°²×°£ºhttp://www.ch-werner.de/sqliteodbc/£¬°²×°ºÃºó¾Í¿ÉÒÔÏñʹÓÃAccessÒ»ÑùÀ´Ê¹ÓÃSQLiteÁË£¡Ï±ßÊÇÒ»¸öSQLiteÊý¾Ý¿â½á¹¹£º
ÒýÓÃÄÚÈÝ
Create TABLE admin(username text,age integer);
ÎÒÃÇÔÙÀ´ÓÃASPÑÝʾÏÂÈçºÎ¶ÔSQLi ......
ÔÚasp¿ª·¢Öо³£ÐèÒªÓõ½µ±Ç°Ò³ÃæµÄ·¾¶£¬Ïà¶ÔµÄ£¬¾ø¶ÔµÄ£¬ÓвÎÊýµÄ£¬Ã»ÓвÎÊýµÄ£¬ÕâÀïÕûÀíһϣ¬¸öÈ˸оõºÜÈ«µÄasp»ñÈ¡Ò³ÃæÂ·¾¶Óï¾ä´óÈ«£¬ÀýÈ磺request.servervariables script_name SERVER_SOFTWARE
Îļþip·¾¶£º<%="http://" & request.servervariables("server_name")& request.servervariables("script_ ......
±¾ÎÄÁ´½Ó£ºhttp://www.oversteper.com/wprogram/asp/828.html
Ìõ¼þÓï¾äÖ® select case Óï¾ä
1¡¢¶àÌõ¼þ·ÖÖ§µÄʱºòÓÅÏÈʹÓÃselect case½á¹¹£»
2¡¢Êý×ֵĴóÁ¿ÁоÙʱ×îºÃʹÓÃselect case
3¡¢±ØÐëʹÓà end select À´½áÊø·ÖÖ§½á¹¹
ʾÀý£º
ÒÔÏÂΪ ......
<%
'==================================================
'º¯ÊýÃû£ºGetHttpPage
'×÷ Ó㺻ñÈ¡ÍøÒ³Ô´Âë
'²Î Êý£ºHttpUrl ------ÍøÒ³µØÖ·
'==================================================
Function GetHttpPage(HttpUrl)
If IsNull(HttpUrl)=True or Len(HttpUrl)<18 or HttpUrl="$False$" Then
GetHttp ......