请教下大神们.. 关于ASP生成HTML

2013 年 1 月 23 日4010

代码我贴下..


<%
function makeindex(FileNameA,FileNameB)
FilePath = Server.MapPath("/")&"\"&FileNameA
strUrl = "http://"&Request.ServerVariables("SERVER_NAME")&"/"&FileNameB
dim objXmlHttp
set objXmlHttp = Server.CreateObject("Micro"&"soft"&".XML"&"HT"&"TP")
objXmlHttp.open "GET",strUrl,false
objXmlHttp.send()
Dim binFileData
binFileData = objXmlHttp.responseBody
Dim objAdoStream
set objAdoStream = Server.CreateObject("AD"&"ODB"&".Str"&"eam")
objAdoStream.Type = 1
objAdoStream.Open()
objAdoStream.Write(binFileData)
objAdoStream.SaveToFile FilePath,2
objAdoStream.Close()
end function

sub Page_Html()
dim mpage,i,rs,sql
set rs=server.createobject("adodb.recordset")
sql="select * from Vie_About"
rs.open sql,conn,1,3
mpage=rs.recordcount
i=1
do while not rs.eof
mdate=rs("addtime")
thistime=year(mdate)&month(mdate)&day(mdate)
call makeindex("cn/page_"&rs("id")&".html","cn/page.asp?id="&rs("id")) '执行生成函数
rs("htmlurl")="page_"&rs("id")&".html"
rs.update '提示这一行报错的
rs.movenext
i=i+1
loop
rs.close
set rs = nothing
Response.Write("------共生成了"&mpage&"个文件------")
end sub