熊海博客

    刚刚写过一篇利用模板生成HTML的方法，还有个方法是不使用模板生成HTML，不太推荐大家使用这个方法，因为在网速慢的时候容易造成超时，当然，在数据较少的情况下，还是可以使用的，我在实际使用中，全部生成500篇的时候出现超时，当然，在本地测试没有网速的影响，则没有任何问题。

<%
'生成目录
Dim objfso,path,SourceFolder
Set objfso=Server.CreateObject("Scripting.FileSystemObject") 
SourceFolder =server.MapPath("\html") 
'判断文件夹是否存在,如果不存在则创建文件夹
If Not objfso.FolderExists(SourceFolder) Then
 objfso.CreateFolder SourceFolder    
End If
Set objfso=Nothing

set rs=server.createobject("adodb.recordset")
sql="select * from web_Article where view_yes=1"
rs.open(sql),conn,1,1
do while not rs.eof
id=rs("id")
'生成Html
dim objXmlHttp,binFileData,objAdoStream 
set objXmlHttp = Server.CreateObject("Microsoft.XMLHTTP") 
objXmlHttp.open "GET","http://"&request.ServerVariables("HTTP_HOST")&"/Article/?"&id&".html",false 
objXmlHttp.send() 
binFileData = objXmlHttp.responseBody 
set objAdoStream = Server.CreateObject("ADODB.Stream") 
objAdoStream.Type = 1 
objAdoStream.Open() 
objAdoStream.Write(binFileData) 
objAdoStream.SaveToFile server.MapPath("html/"&id&".html"),2 
objAdoStream.Close() 
set objAdoStream=nothing 
set objXmlHttp=nothing 

rs.movenext
loop 
Response.write"文章生成完成"
rs.close
set rs=nothing
%>