Ô¶³Ì»ñÈ¡ÀàAsp xmlHttp
±àÕß×¢£ºÕâ¸öclassÖ÷ÒªÓÃÓÚ²Ù×÷aspÖеÄxmlhttp¡£
¡¡¡¡
Ê×ÏÈÊÇÀඨÒå Cls_AspHttp.asp£º
<%
''=================================================================
''·ÉÑïÔ¶³Ì»ñÈ¡Àà(AspHttp) 1.0.1 Bate1
''¡¡¡¡ By ±¼ÌÚµÄÐÄ
''¡¡¡¡ 2006-04-19
''=================================================================
Class FlyCms_AspHttp
¡¡Public oForm,oXml,Ados
¡¡Public strHeaders
¡¡Public sMethod
¡¡Public sUrl
¡¡Public sReferer
¡¡Public sSetCookie
¡¡Public sLanguage
¡¡Public sCONTENT
¡¡Public sAgent
¡¡Public sEncoding
¡¡Public sAccept
¡¡Public sData
¡¡Public sCodeBase
¡¡Private slresolveTimeout,slconnectTimeout,slsendTimeout,slreceiveTimeout
¡¡'' ============================================
¡¡'' ÀàÄ£¿é³õʼ»¯
¡¡'' ============================================
¡¡Private Sub Class_Initialize()
¡¡ oForm = ""
¡¡ Set oXml = Server.CreateObject("MSXML2.ServerXMLHTTP")
¡¡ set Ados = Server.CreateObject("Adodb.Stream")
¡¡¡¡¡¡¡¡ slresolveTimeout = 20000¡¡¡¡ '' ½âÎöDNSÃû×ֵij¬Ê±Ê±¼ä,20Ãë
¡¡¡¡¡¡¡¡ slconnectTimeout = 20000¡¡¡¡ '' ½¨Á¢WinsockÁ¬½ÓµÄ³¬Ê±Ê±¼ä,20Ãë
¡¡¡¡¡¡¡¡ slsendTimeout¡¡¡¡ = 30000¡¡¡¡ '' ·¢ËÍÊý¾ÝµÄ³¬Ê±Ê±¼ä,30Ãë
¡¡¡¡¡¡¡¡ slreceiveTimeout = 30000¡¡¡¡ '' ½ÓÊÕresponseµÄ³¬Ê±Ê±¼ä,30Ãë
¡¡End Sub
¡¡'' ============================================
¡¡'' ·µ»Ø°æ±¾ÐÅÏ¢
¡¡'' ============================================
¡¡Public Property Get Version
¡¡ Version = "·ÉÑïasphttpÀà1.0.0"
¡¡End Property
¡¡'' ============================================
¡¡'' ½âÎöDNSÃû×ֵij¬Ê±Ê±¼ä
¡¡'' ============================================
¡¡Public Property Let lresolveTimeout(LngSize)
¡¡ If IsNumeric(LngSize) Then
¡¡¡¡ slresolveTimeout = Clng(LngSize)
¡¡ End If
¡¡End Property
¡¡'' ============================================
¡¡'' ½¨Á¢WinsockÁ¬½ÓµÄ³¬Ê±Ê±¼ä
¡¡'' ============================================
¡¡Public Property Let lconnectTimeout(LngSize)
¡¡ If IsNumeric(LngSize) Then
¡¡¡¡ slconnectTimeout = Clng(LngSize)
¡¡ End If
¡¡End Property
¡¡'' ==========
Ïà¹ØÎĵµ£º
1¡¢¿ØÖÆ"×Ý´ò"¡¢ ºá´ò”ºÍ“Ò³ÃæµÄ±ß¾à¡£
£¨1£©<script defer>
function SetPrintSettings() {
// -- advanced features
factory.printing.SetMarginMeasure(2) // measure margins in inches
factory.SetPageRange(false, 1, 3) // need pages from 1 to 3
factory.printing.printer = "HP De ......
ÕâÀàÎÊÌâͨ³£ÔÚÕûºÏ»ò¶þ´Î¿ª·¢ASPÍøÕ¾Ê±Óöµ½¡£°´³£ÀíÀ´Ëµ£¬ä¯ÀÀÆ÷µÄCookie´æ·ÅÔÚ¿Í»§¶Ë£¬Êµ¼ÊÉÏÓë·þÎñ¶ËʹÓÃʲôÓïÑÔÎ޹أ¬µ«ÎÒÃÇÔÚʵ¼Ê²Ù×÷¹ý³ÌÖУ¬×Ü»áÓöµ½Ò»Ð©ÒâÏë²»µ½µÄÎÊÌâ¡£
1. µ±ASPдµÄCookieµÄKeyÖдøÓÐÏ»®Ïߣ¬ÀýÈçÎÒÃÇÔÚASPÖÐÕâÑùÉèÖÃCookie:
......
ASP²É¼¯-ASP²É¼¯³ÌÐòÔÀí
²É¼¯³ÌÐòµÄÖ÷Òª²½ÖèÈçÏ£º
Ò»¡¢»ñÈ¡±»²É¼¯µÄÒ³ÃæµÄÄÚÈÝ
¶þ¡¢´Ó»ñÈ¡´úÂëÖÐÌáÈ¡ËùÓÐÓõÄÊý¾Ý
Ò»¡¢»ñÈ¡±»²É¼¯µÄÒ³ÃæµÄÄÚÈÝ
ÎÒĿǰËùÕÆÎÕµÄASP³£ÓûñÈ¡±»²É¼¯µÄÒ³ÃæµÄÄÚÈÝ·½·¨£º
1¡¢ÓÃserverXMLHTTP×é¼þ»ñÈ¡Êý¾Ý
ÒÔÏÂÄÚÈÝΪ³ÌÐò´úÂë:
ÒÔÏÂΪÒýÓõÄÄÚÈÝ£º
Function GetBody(weburl)
&n ......
¡ï1. ʹÓÃQueryString±äÁ¿
¡¡¡¡¡¡QueryStringÊÇÒ»Öַdz£¼òµ¥µÄ´«Öµ·½Ê½£¬Ëû¿ÉÒÔ½«´«Ë͵ÄÖµÏÔʾÔÚä¯ÀÀÆ÷µÄµØÖ·À¸ÖС£Èç¹ûÊÇ´«µÝÒ»¸ö»ò¶à¸ö°²È«ÐÔÒªÇ󲻸߻òÊǽṹ¼òµ¥µÄÊýֵʱ£¬¿ÉÒÔʹÓÃÕâ¸ö·½·¨¡£µ«ÊǶÔÓÚ´«µÝÊý×é»ò¶ÔÏóµÄ»°£¬¾Í²»ÄÜÓÃÕâ¸ö·½·¨ÁË¡£ÏÂÃæÊÇÒ»¸öÀý×Ó£º
a.aspxµÄC#´úÂë
private void B ......
asp Http_Referer,Server_NameºÍHttp_Host
ÒÔǰ¸Ð¾õRequest.ServerVariablesÀïµÄÖµºÜ¶à£¬ÏÖÔÚ¿´¿´»¹ÊÇÄÇô¶à£¬²»¹ý½ñÌì̸ÆäÖеÄÒ»¸öÖµ----HTTP_RefererÒÔ¼°Request.ServerVariablesÀïServer_NameÓëHttp_HostÖ®¼äÓÐÊ²Ã´Çø±ðÄØ£¿
¸Õ²ÅÔËÐÐÁËÒ»¶Î´úÂ룬À´²é¿´Request.ServerVariablesÀïÃæÓжàÉÙÖµ£¬¿´ÁËһϣ¬¹²50¸ö£¡
´úÂ ......