Ô¶³Ì»ñÈ¡Àà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
¡¡'' ==========
Ïà¹ØÎĵµ£º
±¾ÎÄÁ´½Ó£ºhttp://www.oversteper.com/wprogram/asp/830.html
do ... loop Óï¾äÁ½ÖÖ¸ñʽµÄʾÀý
do whil ... loop £º
ÒÔÏÂΪÒýÓÃÄÚÈÝ£º
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dt ......
<%
'1¡¢´´½¨EXCEL¶ÔÏñ
set objExcelApp = CreateObject("Excel.Application")
objExcelApp.DisplayAlerts = false '²»ÏÔʾ¾¯¸æ
objExcelApp.Application.Visible = false '²»ÏÔʾ½çÃæ
'2¡¢ н¨ExcelÎļþ
objExcelApp.WorkBooks.add
set objExcelBook = ob ......
ÏàÐÅÎÒµÄ,Ö»ÓÐÎÒ²ÅÕæÕýµØÕÒ¹ý´ð°¸,ÆäËü¶¼ÊÇÂÒ³µÄ,ʵÄܽâ¾öµ½ÄãµÄÎÊÌâ,Ç°¸öÔÂÎÒ»¹ÔÚ¿àÕÒ´ð°¸,Ò²ÒÑÊÔÑé¹ýN´Î,×îºó³É¹¦ÁË,ÍøÉÏÒ²ÓиÄÄǸöʲôÕÊ»§µÄ,ÄǸöʵÔÚÌ«ÄÑÁË.
°´Îҵķ½·¨,Ç°ÌáÊÇÒ»,ϵͳÊÇXP,ÆäËüϵͳ²»¸Ò°ü.¶þ,ÄãûÓÐ×ö¹ýÆäËüÉèÖÃ.
Ö÷ÒªÊÇÕÊ»§È¨ÏÞÎÊÌâ.
´ò¿ª“¹ÜÀí¹¤¾ß”->“×é¼þ·þÎñ”- ......
asp Http_Referer,Server_NameºÍHttp_Host
ÒÔÇ°¸Ð¾õRequest.ServerVariablesÀïµÄÖµºÜ¶à£¬ÏÖÔÚ¿´¿´»¹ÊÇÄÇô¶à£¬²»¹ý½ñÌì̸ÆäÖеÄÒ»¸öÖµ----HTTP_RefererÒÔ¼°Request.ServerVariablesÀïServer_NameÓëHttp_HostÖ®¼äÓÐʲôÇø±ðÄØ£¿
¸Õ²ÅÔËÐÐÁËÒ»¶Î´úÂ룬À´²é¿´Request.ServerVariablesÀïÃæÓжàÉÙÖµ£¬¿´ÁËһϣ¬¹²50¸ö£¡
´úÂ ......