Question

asp的高手 显露一下吧

代码如下：
<%
rst.open "select tname from type where sortid="&clng(tid),conn,1,3
tname=rst("tname")
rst.close
i=0
rst.open "select * from lycs where tid="&clng(tid),conn,1,3
'///////////////////////////////////////////////////////////////
page=0
urlstr="suppermarket.asp?tparentid="&tparentid&"&"
if not rst.eof then
rst.pagesize=8
mypagesize=rst.pagesize
mypagecount=rst.pagecount
call perpage1(mypagecount)
rst.absolutepage=page
end if
'///////////////////////////////////////////////////////////////
while not rst.eof and (i<rst.pagesize)
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr align="left" valign="top">
<td width="100" height="105" align="right" valign="middle"><table width="84" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="93" align="center" valign="middle" background="images/market_r4_c5.gif"><table width="92%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="80" align="center" valign="middle"><img src="<%=rst("prdpics")%>" width="68" height="79"></td>
</tr>
</table></td>
</tr>
</table></td>
<td valign="middle"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr align="left" valign="middle">
<td width="143" align="right">类别：</td>
<td width="729" height="25"><%=tname%></td>
</tr>
<tr align="left" valign="middle">
<td align="right">名称：</td>
<td height="25"><a href="suppermarket_con.asp?tid=<%=tid%>&id=<%=rst("id")%>"><%=rst("prd_name")%></a></td>
</tr>
<tr align="left" valign="middle">
<td align="right">价格：</td>
<td height="25"><%=rst("prd_jg")%></td>
</tr>
</table></td>
</tr>
</table>

<% i=i+1
rst.movenext
wend
if rst.state=1 then
rst.close
end if
%>

<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr align="center" valign="middle">
<td width="53" height="30" align="right"><img src="images/l.gif" width="20" height="21"></td>
<td width="880" height="30"><%call perpage2(urlstr,mypagecount,mypagesize)%></td>
<td width="39" height="30" align="left"><img src="images/r.gif" width="20" height="21"></td>
</tr></table>
让它两列显示
当前只显示一列
写出代码就太谢谢了
幸巴达谢谢你了 我是个菜鸟 能不能说的具体一点啊
谢谢了

caiman_82你好，按你的代码复制过了以后提示出错了阿，能不能麻烦你检查一下
Microsoft VBScript 编译器错误 错误 '800a03ea'

语法错误

/suppermarket_prdlist.asp，行 37

Sub listShow()
^

Answer 1

将记录集分页
分两页
就是将查询记录集平均分成两部分
一部分显示在左列，另一部分显示在右列

Answer 2

由于我没有你的具体代码，没法帮你调试，我只能说提供一个思路给你，代码很简单，你应该能看懂。
<%
rst.open "select tname from type where sortid="&clng(tid),conn,1,3
tname=rst("tname")
rst.close
i=0
rst.open "select * from lycs where tid="&clng(tid),conn,1,3
'///////////////////////////////////////////////////////////////
page=0
urlstr="suppermarket.asp?tparentid="&tparentid&"&"
if not rst.eof then
rst.pagesize=8
mypagesize=rst.pagesize
mypagecount=rst.pagecount
call perpage1(mypagecount)
rst.absolutepage=page
end if
'///////////////////////////////////////////////////////////////
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<%
while not rst.eof and (i<rst.pagesize)
%>
<tr><%Call listshow()%></tr>
<tr><%Call listshow()%></tr>
<%
i=i+2
wend
%>
</table>
<%
if rst.state=1 then
rst.close
end if
%>
<%
Sub ListShow()
If Not rst.eof then
%><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr align="left" valign="top">
<td width="100" height="105" align="right" valign="middle"><table width="84" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="93" align="center" valign="middle" background="images/market_r4_c5.gif"><table width="92%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="80" align="center" valign="middle"><img src="<%=rst("prdpics")%>" width="68" height="79"></td>
</tr>
</table></td>
</tr>
</table></td>
<td valign="middle"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr align="left" valign="middle">
<td width="143" align="right">类别：</td>
<td width="729" height="25"><%=tname%></td>
</tr>
<tr align="left" valign="middle">
<td align="right">名称：</td>
<td height="25"><a href="suppermarket_con.asp?tid=<%=tid%>&id=<%=rst("id")%>"><%=rst("prd_name")%></a></td>
</tr>
<tr align="left" valign="middle">
<td align="right">价格：</td>
<td height="25"><%=rst("prd_jg")%></td>
</tr>
</table></td>
</tr>
</table>
<%
rst.movenext
Else
Response.write(" ");
End if
End sub
if rst.state=1 then
rst.close
end if
%>

<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr align="center" valign="middle">
<td width="53" height="30" align="right"><img src="images/l.gif" width="20" height="21"></td>
<td width="880" height="30"><%call perpage2(urlstr,mypagecount,mypagesize)%></td>
<td width="39" height="30" align="left"><img src="images/r.gif" width="20" height="21"></td>
</tr></table>