wahfen

复制内容到剪贴板
代码:
<%
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

落叶纷飞
荣誉会员