dim TempContent
set rs2=Conn.Execute("Select * From c_moban Where m_id=1")
TempContent=replace(rs2("m_html"),"$cntop$",strList)
TempContent=replace(TempContent,"$cnright$",PageNav)
------模板，记录21条，10条1页

Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set Fout = FSO.CreateTextFile(Server.MapPath("Article/Index_"&page&".html"))
Fout.Write TempContent
Fout.Close
----应该生成3页，可只有一页，这是什么原因啊，大家帮帮忙啊~~~~
下面是源码
[attach]18675[/attach]

[此贴子已经被作者于2007-4-3 11:12:07编辑过]

没的人帮忙啊~~~