ASPÍøÕ¾Êý¾Ý²É¼¯µÄ¹¥¡¢·ÀÔÀíºÍ²ßÂÔ
±êÌâ: ASPÍøÕ¾Êý¾Ý²É¼¯µÄ¹¥¡¢·ÀÔÀíºÍ²ßÂÔ
- Óëʱ¾ã½ø 2009-09-17 09:01 ÔĶÁ:18
- ÆÀÂÛ:0 | Ìí¼ÓÆÀÂÛ | ·µ»Ø ↓
˵һÏÂÎÒ¶ÔHTML·À²É¼¯È´²»·ÀËÑË÷ÒýÇæÖ©ÖëµÄһЩ¾Ñ飺
ÎÒ¿ª·¢¹ý¼¸¸ö²É¼¯³ÌÐò£¬Ò²Ñо¿¹ýºÜ¶à²É¼¯³ÌÐò´úÂ룬ËùÒԶԲɼ¯³ÌÐòµÄÔÀí»¹ËãÊÇÉÔ΢ÓÐЩÁ˽⡣
ÏÈ˵һϲɼ¯ÔÀí£º
²É¼¯³ÌÐòµÄÖ÷Òª²½ÖèÈçÏ£º
Ò»¡¢»ñÈ¡±»²É¼¯µÄÒ³ÃæµÄÄÚÈÝ
¶þ¡¢´Ó»ñÈ¡´úÂëÖÐÌáÈ¡ËùÓÐÓõÄÊý¾Ý
Ò»¡¢»ñÈ¡±»²É¼¯µÄÒ³ÃæµÄÄÚÈÝ
ÎÒĿǰËùÕÆÎÕµÄ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
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function
µ÷Ó÷½·¨£ºBytesToBstr(Ҫת»»µÄÊý¾Ý,±àÂë)'±àÂë³£ÓÃΪGB2312ºÍUTF-8
¶þ¡¢´Ó»ñÈ¡´úÂëÖÐÌáÈ¡ËùÓÐÓõÄÊý¾Ý
ĿǰÎÒÕÆÎյķ½·¨ÓУº
1¡¢ÓÃASPÄÚÖõÄMIDº¯Êý½ØÈ¡ÐèÒªµÄÊý¾Ý
Function body(wstr,start,over)
start=Newstring(wstr,start)
'ÉèÖÃÐèÒª´¦ÀíµÄÊý¾ÝµÄΨһµÄ¿ªÊ¼±ê¼Ç
over=Newstring(wstr,over)
'ºÍstartÏà¶ÔÓ¦µÄ¾ÍÊÇÐèÒª´¦ÀíµÄÊý¾ÝµÄΨһµÄ½áÊø±ê¼Ç
body=mid(wstr,start,over-start)
'ÉèÖÃÏÔÊ¾Ò³ÃæµÄ·
Ïà¹ØÎĵµ£º
¡¡¡¡ASPµÄ©¶´ÒѾËãºÜÉÙµÄÁË£¬ÏëÒªÕÒµ½Êý¾Ý¿âµÄʵ¼ÊλÖÃÒ²²»¼òµ¥£¬µ«Õâ²»±íÃ÷ºÚ¿ÍÎ޿׿ÉÈ룬ҲÕýÊÇÕâ¸ö¹Ûµã£¬Ò»°ãµÄ³ÌÐòÉè¼ÆÔ±³£³£Íü¼Ç×ÐϸµÄ¼ì²éÊÇ·ñÓЩ¶´£¬ËùÒÔ²ÅÓпÉÄܵ¼ÖÂÍøÕ¾×ÊÁϱ»ÇÔÈ¡µÄʼþ·¢Éú¡£½ñÌìÎÒÔÚÕâÀïºÍ´ó¼Ò̸̸ASP³£¼ûµÄ°²È«Â©¶´£¬ÒÔÒýÆð´ó¼ÒµÄÖØÊÓ¼°²ÉÈ¡ÓÐЧµÄ·À·¶´ëÊ©¡£(×¢Ò⣬ÔÚ±¾ÎÄÖÐËù½éÉܵķ½·¨Çë´ ......
¡¡1.¼Ç¼¼¯¹Ø±Õ֮ǰÔٴδò¿ª:
¡¡¡¡------------------------------------
¡¡¡¡sql="select * from test"
¡¡¡¡rs.open sql,conn,1,1
¡¡¡¡if not rs.eof then
¡¡¡¡dim myName
¡¡¡¡myName=rs("name")
¡¡¡¡end if
¡¡¡¡sql="select * from myBook"
¡¡¡¡rs.open sql,conn,1,1
¡¡¡¡------------------------------------ ......
×¢£º±¾È˰²×°µÄÊÇWindows 7 RC 7100 32λÖÐÎÄÆì½¢°æ ¡£
ÔÚWindows 7ÏÂÃæIIS7µÄ°²×°·½·¨£º
Ò»¡¢½øÈëWindows 7µÄ ¿ØÖÆÃæ°å
£¬Ñ¡Ôñ×ó²àµÄ ´ò¿ª»ò¹Ø±ÕWindows¹¦ÄÜ
¡£
¶þ¡¢ÏÖÔÚ³öÏÖÁ˰²×°Windows¹¦ÄܵÄÑ¡Ïî²Ëµ¥
£¬×¢ÒâÑ¡ÔñµÄÏîÄ¿£¬ÎÒÃÇÐèÒªÊÖ¶¯Ñ¡Ôñ
ÐèÒªµÄ¹¦ÄÜ£¬ÏÂÃæÕâÕÅͼƬ°ÑÐèÒª°²×°µÄ·þÎñ¶¼ÒѾѡÔñÁË£¬´ó¼Ò¿ÉÒÔ°´ÕÕ ......
¿Í»§¶Ë´úÂ룺
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>Ê ......
Á©º¯Êý¸ã¶¨aspµÄormÓ³Éä
orm±ØÐëÓõ½ÊµÌåÀ࣬ÏñC#ÕâÑùµÄÓïÑÔ Ð´ÊµÌåÀàͦʹ¿àµÄ£¬³ý·ÇÓù¤¾ß
¶øaspÓиöºÃ´¦£¬ÒòΪËû¿ÉÒÔ¶¯Ì¬¹¹½¨Ò»¸ö×Ö·û´®²¢°Ñ´Ë×Ö·û´®¶¯Ì¬½âÎöΪ´úÂ룬Ҳ¾ÍÊÇËûµÄ execute ºÍ ExecuteGlobal Á©º¯Êý
ÏÂÃæÕâ¸öº¯ÊýÊÇ ÊµÌåÀàÉú³ÉÆ÷ Ö»Òª´«ÈëÁÐÃû×Ö·û´®¾ÍÄÜÉú³É Ò»¸öÈ«¾Ö¿ÉÓõÄÀà
'¶¨ÒåÒ»¸öʵÌåÀà
' ......