Question

如何读取ASP输出的html源代码

先说我想达到的目的：我要读取一个asp的新闻列表，然后赋值给一个函数，然后用这个函数代替html模板里的一个值，读取的时候一定要读取asp新闻列表输出的HTML，简单来说就是实现ASP生成静态的功能。
看下代码：
生成代码：
<%
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set templates = fso.OpenTextFile(server.MapPath("template.html"))
str=templates.readall()'读出结果，赋值给str
set fso=nothing
set templates=nothing
%>
<%
str=replace(str,"$newlist$","读到的新闻列表HTML值")
%>
<%
fileName="28ke.html"
Set createHtml = Server.CreateObject("Scripting.FileSystemObject")
Set htmlFile = createHtml.CreateTextFile(server.MapPath(fileName))
htmlFile.write(str)
set htmlFile=nothing
set createHtml=nothing
%>
ASP列表代码：
<%
On Error Resume Next
dim conn
dim connstr
dim webdb
webdb="xqloginback/xqjtDatabase/xqjtdb.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&webdb&"")
conn.Open connstr
%>
<%
set rs=server.CreateObject("adodb.recordset")
sql="select id,name,addtime from new order by id desc"
rs.open sql,conn,1,1
%>
<%
pagesum=10
topage=clng(request("topage"))
if topage<1 then topage=1
rs.pagesize=pagesum
if not rs.eof then
rs.absolutepage=topage
end if
no=1
%>
<% do while not rs.eof and not rs.bof and pagesum>0 %>
<table width="90%" height="25" border="0" align="center" cellspacing="0">
<tr>
<td width="539"><a href="new_view.asp?id=<%=rs("id")%>" target="_blank"> <%=rs("name")%> </a></td>
</tr>
</table>
<% rs.movenext %>
<% pagesum=pagesum-1 %>
<% no=no+1 %>
<% loop %>

Answer 1

<%
On Error Resume Next
dim conn
dim connstr
dim webdb
webdb="xqloginback/xqjtDatabase/xqjtdb.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&webdb&"")
conn.Open connstr
newlist=""
set rs=server.CreateObject("adodb.recordset")
sql="select id,name,addtime from new order by id desc"
rs.open sql,conn,1,1
pagesum=10
topage=clng(request("topage"))
if topage<1 then topage=1
rs.pagesize=pagesum
if not rs.eof then
rs.absolutepage=topage
end if
no=1
do while not rs.eof and not rs.bof and pagesum>0
newlist=newlis&"<table width='90%' height='25' border='0' align='center' cellspacing='0'>"
newlist=newlis&"<tr>"
newlist=newlis&"<td width='539'><a href='new_view.asp?id="&rs("id")&"' target='_blank'>"&rs("name")&" </a></td>"
newlist=newlis&"</tr></table>"
<%
rs.movenext
pagesum=pagesum-1
no=no+1
loop

Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set templates = fso.OpenTextFile(server.MapPath("template.html"))
str=templates.readall()'读出结果，赋值给str
set fso=nothing
set templates=nothing

str=replace(str,"$newlist$",newlist)

fileName="28ke.html"
Set createHtml = Server.CreateObject("Scripting.FileSystemObject")
Set htmlFile = createHtml.CreateTextFile(server.MapPath(fileName))
htmlFile.write(str)
set htmlFile=nothing
set createHtml=nothing
%>

Answer 2

两个办法，伪静态或者直接生成静态
分别的实现都相对比较复杂，可以自己搜索些教程