ASP不使用模板生成HTML

熊海
熊海

    刚刚写过一篇利用模板生成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
%>


支付宝打赏支付宝 微信
微信扫一扫
0 条评论

评论:

发送