ajax ÇëÇóÓòÃû²»Í¬sessionÎÊÌâ

s.com ÓòÃûÏÂÓÐÒ»Îļþprocess.asp
VBScript code:

Response.Buffer = True
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
Response.AddHeader "Pragma", "No-Cache"
Response.charset="gb2312"
response.Write Session("UserID")




ÏëÒªÔÚh.comÏÂÓÃajaxÀ´·ÃÎÊ
VBScript code:

response.Write getHTTPPage("http://s.com/process.asp")


Function getHTTPPage(url)
dim http
set http=Server.createobject("Msxml2.ServerXMLHTTP")
Http.open "get",url,false
Http.send()
if Http.readystate<>4 then
getHTTPPage = "error"
exit function
end if
getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")
set http=nothing
if err.number<>0 then Response.write(err.number)
End function

Function BytesToBstr(body,Cset)
dim objstream
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End F