func.asp

获取远程接口程序

<%   
Function SendToSp(PostUrl)
       		Server.ScriptTimeOut=72000
       
	    	Set oXMLHttp = createObject("Microsoft.XMLHTTP")
		Call oXMLHttp.Open("get", PostUrl, false)
		Call oXMLHttp.Send("")
		sHtmlStr =  oXMLHttp.responseBody 
		Set oXMLHttp = nothing 
		
		SendToSp=sHtmlStr
End Function 

Function Bytes2bStr(p_sHtmlStr)
	dim sReturnStr
	dim i,n
	sReturnStr = ""
	n = LenB(p_sHtmlStr)
	
	For i = 1 To n
		dim sCharCode
		dim sNextCharCode
		sCharCode = AscB( MidB(p_sHtmlStr, i, 1) )
		
		If (sCharCode < &H80) Then
			sReturnStr = sReturnStr & Chr(sCharCode)
		Else
			sNextCharCode = AscB( MidB(p_sHtmlStr, i+1, 1) )
			sReturnStr = sReturnStr & Chr(CLng(sCharCode) * &H100 + CInt(sNextCharCode))
			i = i + 1
		End If
	Next
	
	Bytes2bStr = sReturnStr
End Function
%>