UC知道救命！ASP生成HTML的问题！
来源：百度知道 编辑：UC知道 时间：2024/06/24 11:14:50
我想循环生成13-57ID的新闻内容生成HTML
为什么执行起来是错误的呢？
GoodShow=GoodShow&"<li>"&rs("name")&"</li>"
这句错误
换成
GoodShow="<li></li>"
可以执行，可是我想读数据，应该怎么改？谢谢！
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("mdbb.mdb")
for i=13 to 57
set fso=createobject("scripting.filesystemobject")
set fr=fso.opentextfile(server.mappath("index3.html"))
pencat=fr.readall
fr.close
set rs=server.createobject("adodb.recordset")
sql="select * from news where id="&i
rs.open sql,conn,1,1
GoodShow=GoodShow&"<li>"&rs("name")&"</li>"
pencat=replace(pencat,"{GoodShow}",GoodShow)
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.Creat
为什么执行起来是错误的呢？
GoodShow=GoodShow&"<li>"&rs("name")&"</li>"
这句错误
换成
GoodShow="<li></li>"
可以执行，可是我想读数据，应该怎么改？谢谢！
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("mdbb.mdb")
for i=13 to 57
set fso=createobject("scripting.filesystemobject")
set fr=fso.opentextfile(server.mappath("index3.html"))
pencat=fr.readall
fr.close
set rs=server.createobject("adodb.recordset")
sql="select * from news where id="&i
rs.open sql,conn,1,1
GoodShow=GoodShow&"<li>"&rs("name")&"</li>"
pencat=replace(pencat,"{GoodShow}",GoodShow)
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.Creat
你的问题是对象重复打开，还有rs用后没有close
解决方法
把for i=13 to 57移动到fr.close后面
在pencat=re…… 这句的前面加上rs.close
用while循环吧，配合指针rs.movenext