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") 传入过来的值。


在一个页面中,首先发送请求:

<%

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 的值呢

急救!急救!急救!急救!急救!
posted on 2006-10-18 10:06  罗明超  阅读(1010)  评论(0)    收藏  举报