+ -
当前位置:首页 → 问答吧 → 为什么生成静态页的ASP程序中通常会使用adodb.stream对象

为什么生成静态页的ASP程序中通常会使用adodb.stream对象

时间:2011-12-13

来源:互联网

我觉得生成静态html文件,用Textstream对象的writeline方法将html代码写入到生成的文件中即可实现。可为什么一般的生成静态页的ASP程序,它要用adodb.stream对象的write方法写入呢,用这个方法写有什么好处呢。

Function createhtml(url,filename,path) 
Set MyFileObject=Server.CreateObject("Scripting.FileSystemObject")
path1=server.mappath(path)&"\"&filename
Set MyTextFile=MyFileObject.CreateTextFile(path1)
strurl=url  
strTmp = GetHTTPPage(trim(strurl))
MyTextFile.WriteLine(strTmp)
MytextFile.Close
response.write "生成"&filename&"成功<br>"
Set MyFileObject=nothing
End function

Function getHTTPPage(url) 
 On Error Resume Next
 dim http 
 set http=Server.createobject("Microsoft.XMLHTTP") 
 Http.open "GET",url,false 
 Http.send() 
 if Http.readystate<>4 then
  exit function 
 end if 
 getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")
 set http=nothing
 If Err.number<>0 then 
  Response.Write "<p align='center'><font color='red'><b>服务器获取文件内容出错</b></font></p>" 
  Err.Clear
 End If  
End Function

Function BytesToBstr(body,Cset)
 dim objstream
 set objstream = Server.CreateObject("adodb.stream")
 objstream.Type = 1
 objstream.Mode =3
 objstream.Open
 objstream.Write body
 objstream.Position = 0
 objstream.Type = 2
 objstream.Charset = Cset
 BytesToBstr = objstream.ReadText 
 objstream.Close
 set objstream = nothing
End Function

还有,Microsoft.XMLHTTP是Ajax中的XMLhttprequest对象吗,应该不是吧,否则怎么可以这样创建,它这里为什么要用这个方法呢。

作者: wuxia2118   发布时间: 2011-12-13

没有人知道啊

作者: wuxia2118   发布时间: 2011-12-14