Function getHTTPPage(Url)
Dim Http
'Set Http = Server.CreateObject("MSXML2.XMLHTTP")
Set Http = Server.CreateObject("Microsoft.XMLHTTP")
Http.Open "GET", Url, False
Http.send
If Http.readystate <> 4 Then
Exit Function
End If
getHTTPPage = BytesToBstr(Http.responseBody, "GB2312")
Set Http = Nothing
If Err.Number <> 0 Then Err.Clear
End Function
怎样取得 Server.CreateObject("Microsoft.XMLHTTP") 传入过来的值。
Dim Http
'Set Http = Server.CreateObject("MSXML2.XMLHTTP")
Set Http = Server.CreateObject("Microsoft.XMLHTTP")
Http.Open "GET", Url, False
Http.send
If Http.readystate <> 4 Then
Exit Function
End If
getHTTPPage = BytesToBstr(Http.responseBody, "GB2312")
Set Http = Nothing
If Err.Number <> 0 Then Err.Clear
End Function
怎样取得 Server.CreateObject("Microsoft.XMLHTTP") 传入过来的值。
在一个页面中,首先发送请求:
<%
Function GetURL(url,Str)
Set Retrieval=Server.CreateObject("Microsoft.XMLHTTP")
Retrieval.Open "post",url,False,"",""
Retrieval.Send(Str)
Set Retrieval=Nothing
End Function
urlStr="index=中国&Enindex=China"
TakenHTML = GetURL("http://chi-idc5:8847/TFIDC/agent/",urlStr)
%>
那么在 http://chi-idc5:8847/TFIDC/agent/index.asp 这个页面中怎么取得 index=中国&Enindex=China 的值呢
急救!急救!急救!急救!急救!
<%
Function GetURL(url,Str)
Set Retrieval=Server.CreateObject("Microsoft.XMLHTTP")
Retrieval.Open "post",url,False,"",""
Retrieval.Send(Str)
Set Retrieval=Nothing
End Function
urlStr="index=中国&Enindex=China"
TakenHTML = GetURL("http://chi-idc5:8847/TFIDC/agent/",urlStr)
%>
那么在 http://chi-idc5:8847/TFIDC/agent/index.asp 这个页面中怎么取得 index=中国&Enindex=China 的值呢
急救!急救!急救!急救!急救!
浙公网安备 33010602011771号