- 帖子
- 6
- 积分
- 9
- 威望
- 12
- 金钱
- 12
- 在线时间
- 0 小时
|
9楼
发表于 2008-7-20 18:02
| 只看该作者
复制内容到剪贴板
代码:
<%
Str="id="&escape(request("FK"))
Url="http://localhost/test.asp"
response.write PostData(Url,Str)
Function PostData(PostUrl,PostCok)
Dim Http
Set Http = Server.CreateObject("msxml2.serverXMLHTTP")
With Http
.Open "GET",PostUrl,False
.SetRequestHeader "Cookie",PostCok
.Send
PostData = .ResponseBody
End With
Set Http = Nothing
PostData =bytes2BSTR(PostData)
End Function
Function bytes2BSTR(vIn)
Dim strReturn
Dim I, ThisCharCode, NextCharCode
strReturn = ""
For I = 1 To LenB(vIn)
ThisCharCode = AscB(MidB(vIn, I, 1))
If ThisCharCode < &H80 Then
strReturn = strReturn & Chr(ThisCharCode)
Else
NextCharCode = AscB(MidB(vIn, I + 1, 1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
I = I + 1
End If
Next
bytes2BSTR = strReturn
End Function
%>
不知道是不是LZ要的
帖子9 精华0 积分29 阅读权限40 在线时间5 小时 注册时间2006-10-14 最后登录2008-7-9 查看详细资料引用 报告 回复 TOP
落叶纷飞
荣誉会员
|
|