asp分列问题,求解.请把改好的代码贴出,加分

来源：百度知道 编辑：UC知道 时间：2024/06/25 07:55:52
Dim Infolist,mpage,allshu,TL,PageList,rs_type
Set Rs=Conn.Execute("select id,tid,Html,title,Hits,Inputdate from "&Table_Pre&"_info where tid in("&sid&") order by inputdate desc,id desc")
if rs.eof then
infolist=infolist&"<tr><td width=""100%"" colspan=""3"">对不起! 暂时没有相关文章 @_@</td></tr>"
mpage=1
allshu=0
else
'rs.pagesize=Display '得到每页数
'mpage=rs.pagecount '得到总页数
rs.move (currentPage-1)*Display
'allshu=rs.recordcount
allshu=total

mpage=clng(allshu/Display)

h=0
infolist="<tr><td><table>"
do while not rs.eof
h=h+1
TL=Split(rs("Html"),"/")
infolist=infolist&"<tr height=""22""><td width=""77%""><nobr>"&Navpic&"&

Dim Infolist,mpage,allshu,TL,PageList,rs_type
Set Rs=Conn.Execute("select id,tid,Html,title,Hits,Inputdate from "&Table_Pre&"_info where tid in("&sid&") order by inputdate desc,id desc")
if rs.eof then
response.write "<td width=""100%"" colspan=""3"">对不起! 暂时没有相关文章 @_@</td>" '去掉<tr>从<td>循环
mpage=1
allshu=0
else
'rs.pagesize=Display '得到每页数
'mpage=rs.pagecount '得到总页数
rs.move (currentPage-1)*Display
'allshu=rs.recordcount
allshu=total

mpage=clng(allshu/Display)

h=0
do while not rs.eof
h=h+1
TL=Split(rs("Html"),"/") '这个不知道什么意思，建议不要
response.write "<td width=""77%"">"'单无格开始
'显示内容开始（如果想让显示内容表格化，可以再这里开始个新<table>）
response.write "<nobr>"&Navpic&""