xmlhttp的问题

来源：百度知道 编辑：UC知道 时间：2024/05/17 22:24:49
以下是文件代码。怎么对这个页面进行裁减？能解读每一行的意思最好

<%@ LANGUAGE = VBScript %>
<% dim Mid,Uid
Mid=request("Mid")
Uid=request("Uid")

Cookies = "cnzz02=1; rtime=2; ltime=1175045225646; cnzz_eid=60980091-; DefAultMessage=Read; UserName=usee; UserID=302644;

PassWord=sdfds31b04de153469d"
response.write(GetSourceInfo("http://www.xxx.com/Look.aspx?Mid="&Mid&"&Uid="&Uid&"",pages,Cookies))

Function bin2str(binstr)
Const adTypeBinary = 1
Const adTypeText = 2
Dim BytesStream,StringReturn
Set BytesStream = Server.CreateObject("ADODB.Stream") '?
With BytesStream
.Type = adTypeText
.Open
.WriteText binstr
.Position = 0
.Charset = "utf-8"
.Position = 2
StringReturn = .Re

<%@ LANGUAGE = VBScript %> //定义脚本语言
<% dim Mid,Uid
Mid=request("Mid")
Uid=request("Uid") //定义变量

Cookies = "cnzz02=1; rtime=2; ltime=1175045225646; cnzz_eid=60980091-; DefAultMessage=Read; UserName=usee; UserID=302644; //cookies变量

PassWord=sdfds31b04de153469d" //密码
response.write(GetSourceInfo("http://www.xxx.com/Look.aspx?Mid="&Mid&"&Uid="&Uid&"",pages,Cookies)) //转入 http://www.xxx.com/Look.aspx页面

Function bin2str(binstr) //定义bin2str函数
Const adTypeBinary = 1
Const adTypeText = 2
Dim BytesStream,StringReturn
Set BytesStream = Server.CreateObject("ADODB.Stream") '?
With BytesStream
.Type = adTypeText
.Open
.WriteText binstr
.Pos