asp的mircrosoft.xmlhttp问题

来源：百度知道 编辑：UC知道 时间：2024/06/30 20:04:38
<Dim objXMLHTTP, xml
Set xml = Server.CreateObject("Microsoft.XMLHTTP")

xml.Open "GET", "http://wysy1990.46mf.cn/index.asp", False
xml.Send

ok=bytes2BSTR(xml.responseBody)
%>

<%
set fileobject=server.CreateObject("scripting.filesystemobject")
set textfile=fileobject.opentextfile("d:/cao/index.html",8,true)
textfile.write(ok)
response.Write("ok!")
%>

我要把获取的html代码写到一个网页文件里面..
但是我把这些代码复制到站点里面保存预揽以后,文件就不见了。 .被自动删除了。 .
昨天晚上的没删除,但是就是写不进去..提示 无效的什么的....大概就是获取的内容不能写进去.. .
谁能告诉我这是为什么啊?
谢谢.谢谢..谢谢..

QQ 165368576

<%
Class GetHtmlContentObject
Private Gbasc,Bit,GetHttp
Private HtmlStr
'◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆
'作用：初始化类；
Private Sub Class_Initialize
Set GetHttp=Server.CreateObject("Microsoft.XMLHTTP")
End Sub
'◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆
'作用：同XML对象以二进制数据格式返回远程页面的内容；
'参数：要获取的页面地址；
Private Function GetHtmlBinary(Url)
With GetHttp
.Open "GET", Url, False
.Send
GetHtmlBinary = .ResponseBody
'对取得信息进行验证，如果信息长度小于100则说明截取失败
If LenB(.ResponseBody)<100 then
Response.Write "获取远程文件不存在。<br>"
End If
End With
End Function
'◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆
'作用：数据转