asp读取数据库内容并生成静态页面

'连接数据库文件
conn.asp
< %
DB="database/database.mdb"
path=Server.MapPath(DB)
set conn=server.createobject("adodb.Connection")
connstr="provider=Microsoft.Jet.OLEDB.4.0;Data Source="&path
conn.Open connstr
Set rs=server.CreateObject("adodb.recordset")
% >

'动态页面
news.asp

< !-- #include file="conn.asp" -- >
< %
    id=request("id")
 sql="select * from news where id="&id
 rs.open sql,conn,1,1
 If rs.eof Then
 Else
     title=rs("title")
  content=rs("content")
 End If
 rs.close
% >
<style>
body td {font-size:12px;}
</style>
  <TITLE> < %=title% > </TITLE>
     <TABLE border="0" cellpadding="0" cellspacing="0" width="500">
    <TR>
  <TD style="border-bottom:1px #cccccc solid; height:40px; font-weight:bold; text-align:center;">< %=title% ></TD>
    </TR>
    <TR>
  <TD align="center"><div style="margin-top:20px; width:95%">< %=content% ></div></TD>
    </TR>
 </TABLE>

'生成静态页面代码
createhtml.asp

< !-- #include file="conn.asp" -- >
< %
  sql="select * from news"
  rs.open sql,conn,1,1
  If rs.eof Then
  Else  
    path5="./html/" '这个为生成后文件路径
    Do While Not rs.eof
      filename=Replace(Replace(Replace(rs("addtime"),":",""),"-","")," ","")&".html" '这个为生成后的文件名
   url="http://localhost/netfriend/news.asp?id="&rs("id")   '这个为动态页面地址,必须是http://****.asp格式的
   Call createhtml(url,filename,path5)
 rs.movenext
 loop
  End If
  rs.close
  Set rs=Nothing
  Set conn=nothing

  '功能：读取数据库内容，生成静态页面
  '来自：www.aspprogram.cn
  '作者：wangsdong
  '参数说明：
  ' url是动态页面的地址,必须是http://*****/**.asp格式
  ' filename为生成后的文件名
  ' path为存储生成后文件的文件夹名
  '备注：支持原创程序，请保留此信息，谢谢

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
% >
已经搞定，现在就可以运行这个createhtml.asp文件了，如果不成功，注意一下动态页面的地址，根据IIS进行更换

源码下载地址：http://www.aspprogram.cn/soft.asp?id=69