7,759
社区成员
发帖
与我相关
我的任务
分享
<%
Response.Addheader "Content-Type","text/html; charset=utf-8"
Response.write Request("ID")
%>
VB部分的代码
Public Function GetPage(ByVal URL As String, Optional ByVal Data As String = "") As String
Dim XML As Object, T As Double
Set XML = CreateObject("WinHttp.WinHttpRequest.5.1")
XML.Option(6) = False
XML.Option(4) = 13056
If Len(Data) = 0 Then
XML.Open "GET", URL
XML.Send
Else
XML.Open "POST", URL
XML.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"
XML.SetRequestHeader "Content-Length", LenB(StrConv(Data, vbFromUnicode))
XML.Send Data
End If
GetPage = XML.ResponseText
Set XML = Nothing
End Function
'测试时可以调用
'debug.print GetPage("http://localhost/my.asp?id=测试")'GET方式
'或者
'debug.print GetPage("http://localhost/my.asp","id=测试")'POST方式