Ô¶³Ì»ñÈ¡Àà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¡¢´´½¨EXCEL¶ÔÏñ
set objExcelApp = CreateObject("Excel.Application")
objExcelApp.DisplayAlerts = false '²»ÏÔʾ¾¯¸æ
objExcelApp.Application.Visible = false '²»ÏÔʾ½çÃæ
'2¡¢ н¨ExcelÎļþ
objExcelApp.WorkBooks.add
set objExcelBook = ob ......
·þÎñÆ÷¶Ë×é¼þ
Ê×ÏÈ,·þÎñÆ÷¶ËµÄ×é¼þÒªÓбðÓÚ¿Í»§¶ËµÄ×é¼þ.¿Í»§¶ËµÄ×é¼þÊÇͨ¹ýÍøÂç´«Êä,ÒÀ*HTMLÀ´Æð×÷ÓÃ.¶øÇÒÖ»ÄÜÔÚIEÉÏÓÐÓÃ.µ«ÊÇ·þ ÎñÆ÷¶ËµÄ×é¼þÊÇÔËÐÐÔÚ·þÎñÆ÷¶Ë,ËüÔÚ·þÎñÆ÷ÉÏÖ´Ðи÷ÖÖ²Ù×÷.Òò´Ë,ËùÓеÄä¯ÀÀÆ÷¶¼ÄÜÏíÓÃ,ËüÒÀ*µÄÊÇ·þÎñÆ÷¶ø²»ÊÇä¯ÀÀÆ÷.
µ±IIS±»ÇëÇóÖ´ÐÐÒ»¸öASP³ÌÐò,ËüÊ×ÏÈ»áÔÚASPÎļþÖÐÕÒµ½¡´%%>±êǩ֮¼ä ......
Asp Split
ÃèÊö£º
·µ»Ø»ùÓÚ 0 µÄһάÊý×飬ÆäÖаüº¬Ö¸¶¨ÊýÄ¿µÄ×Ó×Ö·û´®¡£
Óï·¨£º
Split(expression[, delimiter[, count[, start]]])
Split º¯ÊýµÄÓï·¨ÓÐÒÔϲÎÊý£º
²ÎÊý ÃèÊö
expression ±ØÑ¡¡£×Ö·û´®±í´ïʽ£¬°üº¬×Ó×Ö·û´®ºÍ·Ö¸ô·û¡£Èç¹û expression ΪÁ㳤¶È×Ö·û´®£¬Split ·µ»Ø¿ÕÊý×飬¼´²»°üº¬ÔªËغÍÊý¾ÝµÄÊý×é¡ ......
----INDEX----
1. soapÇëÇó·½Ê½
2. postÇëÇó·½Ê½
3. SHOWALLNODEº¯Êý(¹ØÓÚ½Úµã¸÷ÊôÐÔºÍÊý¾ÝÏÔʾ)
---------------------
Ò»£®SOAPÇëÇóʾÀý
ÏÂÃæÊÇÒ»¸ö SOAP ÇëÇóʾÀý¡£ËùÏÔʾµÄռλ·ûÐèÒªÓÉʵ¼ÊÖµÌæ»»¡£
POST /WebService1/UserSignOn.asmx HTTP/1.1
Host: 192.100.100.81
Content-Type: text/xml; chars ......
ÒÔÏÂΪÒýÓõÄÄÚÈÝ£º
<!--ÕâÊÇÒ»¸öÖ÷Ò³Îļþ-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>»ÃµÆÆ¬ÐÂÎÅ</title>
</head>
<body>
<!--#Include file="diaoyong.asp"-->
</body>
</html>
& ......