ASP生成HTML页面问题求救，急啊

2004-12-27 03:13:03 261 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

STM32+EC800M-CN 4G模块数据透传踩坑实录：从AT指令调试到花生壳内网穿透本文详细介绍了STM32与移远EC800M-CN 4G模块的数据透传实现过程，包括硬件连接、AT指令调试、TCP连接建立以及花生壳内网穿透配置。通过实战案例和代码示例，帮助开发者快速解决4G通信模块在物联网应用中的常见问题，提升数据传输稳定性。阅读详情

下面的是ASP生成HTML静态页面的代码。现在生成遇到了一点问题，如下：
无法把数据库中所有信息读取出来后按照每页显示8个文件分页生成。现在生成的所有页都是第一页，请大家帮忙看看错在哪里了啊？谢谢。

源代码如下：
--------------------------------------------
<%
'定义ceil函数，用于输出非整数的结果为整数部分+1
function ceil(num)
dim t
t=fix(num)
if num=t then
ceil=t
else
ceil=t+1
end if
end function
'ceil函数结束

dim rs
dim sql
'搜索模板表中的模板
sql="select ListTmp from template where id=1"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
ListTmp=rs("ListTmp")
rs.close

sql_count="select * from teleplay order by ID desc"
end if
rs_count.open sql_tvcount,conn,1,1
if rs_count.eof then
response.Write("还没有任何要生成的页面")
end if

dim TotalFile
dim MaxPerPage
dim TotalPages
dim CurrentPage
'要生成的总文件数
TotalFile=rs_count.recordcount
'设置每列表页显示的文件数
MaxPerPage=8
'自定义函数ceil计算列表页总页数
TotalPages=ceil(TotalFile/MaxPerPage)

for CurrentPage=1 to TotalPages
'每页显示的文件
dim i
i=0
do while not rs_count.eof
i=i+1
PageTitle=PageTitle&" "&rs_count("Title")
TopHits=TopHits&rs_count("Title")&" "
if i>=MaxPerPage then exit do
rs_count.movenext
loop
'替换模板模块中的内容
ListTmp=replace(ListTmp,"{body}",PageBody)

'创建FSO对象
Set fso = Server.CreateObject("Scripting.FileSystemObject")
'设置FOS写入文件的路径和名称
Set fout = fso.CreateTextFile(server.mappath("../list/"¤tPage&".htm"))
fout.Write ListTmp
fout.close
next
%>

...全文

汇川PLC和PLC之间ModebusTCP通讯然后在全局变量中创建相应的变量关联IW和QW的寄存器创建全部变量//AM402作为主站——读H3U(D12-D21)//AM402作为主站——写给H3U(D200-D209)或者使用数组的方式。阅读详情

BH520_com

ASP 28,401 成员 356,940 内容

+ 关注 + 加入社区

ASP生成HTML页面问题求救，急啊

相关推荐