复制代码 代码如下:
<%
Function Bytes2bStr(vin,cSet)
Dim BytesStream,StringReturn
Set BytesStream = Server.CreateObject("ADODB.Stream")
BytesStream.Type = 2
BytesStream.Open
BytesStream.WriteText vin
BytesStream.Position = 0
BytesStream.CharSet = cSet
BytesStream.Position = 2
StringReturn =BytesStream.ReadText
BytesStream.close
Set BytesStream = Nothing
Bytes2bStr = StringReturn
End Function
Set xmlhttp = server.CreateObject("Msxml2.XMLHTTP")
m_queryURL = "http://")
set fso = server.CreateObject("scripting.filesystemobject")
set f = fso.OpenTextFile(server.mappath("Microsoft.html"),2,true)
f.write(tmp)
f.close
set fso = nothing
response.Redirect "Microsoft.html"
%>