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

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.NET½²×ù(1) ASP.NET¼ò½é

¡¡¡¡1.1 ʲôÊÇASP.net
¡¡¡¡ASP.net ÊÇÒ»ÖÖ½¨Á¢ÔÚͨÓÃÓïÑÔÉϵijÌÐò¹¹¼Ü£¬Äܱ»ÓÃÓÚһ̨Web·þÎñÆ÷À´½¨Á¢Ç¿´óµÄWebÓ¦ÓóÌÐò¡£ASP.netÌṩÐí¶à±ÈÏÖÔÚµÄWeb¿ª·¢Ä£Ê½Ç¿´óµÄµÄÓÅÊÆ¡£
¡¡¡¡Ö´ÐÐЧÂʵĴó·ùÌá¸ß
¡¡¡¡ASP.netÊǰѻùÓÚͨÓÃÓïÑԵijÌÐòÔÚ·þÎñÆ÷ÉÏÔËÐС£²»ÏñÒÔǰµÄASP¼´Ê±½âÊͳÌÐò£¬¶øÊǽ«³ÌÐòÔÚ·þÎñÆ÷¶ËÊ×´ÎÔËÐÐʱ½øÐ ......

ASP³£¼ûµÄ°²È«Â©¶´

¡¡¡¡ASPµÄ©¶´ÒѾ­ËãºÜÉÙµÄÁË£¬ÏëÒªÕÒµ½Êý¾Ý¿âµÄʵ¼ÊλÖÃÒ²²»¼òµ¥£¬µ«Õâ²»±íÃ÷ºÚ¿ÍÎ޿׿ÉÈ룬ҲÕýÊÇÕâ¸ö¹Ûµã£¬Ò»°ãµÄ³ÌÐòÉè¼ÆÔ±³£³£Íü¼Ç×ÐϸµÄ¼ì²éÊÇ·ñÓЩ¶´£¬ËùÒÔ²ÅÓпÉÄܵ¼ÖÂÍøÕ¾×ÊÁϱ»ÇÔÈ¡µÄʼþ·¢Éú¡£½ñÌìÎÒÔÚÕâÀïºÍ´ó¼Ò̸̸ASP³£¼ûµÄ°²È«Â©¶´£¬ÒÔÒýÆð´ó¼ÒµÄÖØÊÓ¼°²ÉÈ¡ÓÐЧµÄ·À·¶´ëÊ©¡£(×¢Ò⣬ÔÚ±¾ÎÄÖÐËù½éÉܵķ½·¨Çë´ ......

asp̽Õë

<%@ Language="VBScript" %>
<%' Option Explicit %>
<%
'²»Ê¹ÓÃÊä³ö»º³åÇø£¬Ö±½Ó½«ÔËÐнá¹ûÏÔʾÔÚ¿Í»§¶Ë
Response.Buffer = False
'ÉùÃ÷´ý¼ì²âÊý×é
Dim ObjTotest(26,4)
ObjTotest(0,0) = "MSWC.AdRotator"
ObjTotest(1,0) = "MSWC.BrowserType"
ObjTotest(2,0) = ......

asp¾²Ì¬Éú³É£¬Î±¾²Ì¬

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%Session.CodePage=65001%>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<!-- #include file="../configinc/conndb.asp"-->
<!--#include file="../configi ......

Asp»ù±¾ÖªÊ¶

1£®AspÊÇActive Server PagesµÄ¼ò³Æ£¬ÊǽâÊÍÐ͵Ľű¾ÓïÑÔ»·¾³£»
2£®AspµÄÔËÐÐÐèÒªWindows²Ù×÷ϵͳ£¬9xÏÂÐèÒª°²×°PWS£»¶øNT/2000/XPÔòÐèÒª°²×°Internet Information Server£¨¼ò³ÆIIS£©£»
3£®AspºÍJSPµÄ½Å±¾±êÇ©ÊÇ“<%%£¾”£¬PHPµÄÔò¿ÉÒÔÉ趨Ϊ¶àÖÖ£»
4£®AspµÄ×¢ÊÍ·ûºÅÊÇ“'”£»
5.ʹÓø½¼Ó×é ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ