为什么循环不循环的问题

dengyi0204 dengyi0204 墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年,写一次发全网 我也要 + 加入社区
我用如下代码,只显示符合条件的第一条记录。这哪里有问题?谢谢!
<!--#include file="conn.asp"-->
<%
HAHA=trim(request("xuexiao"))
set rs=server.CreateObject("adodb.recordset")
sql="SELECT * FROM pbqk_old_xx WHERE xxdm='"&HAHA&"' and sxs>0"
rs.open sql,conn,1,1

set pbqk=server.CreateObject("adodb.recordset")
sql="SELECT * FROM xuexiaomd WHERE xxdm='"&HAHA&"' "
pbqk.open sql,conn,1,1
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />

<title><%=pbqk("xxmc")%>的尚需数量分布</title>
<link href="cssadmin.css" rel="stylesheet" type="text/css" />
</head>
<body>
<p class="STYLE2" align="center">代码:<b><font color="#FF0000"><%=pbqk("xxdm")%></font></b>   名称:<b><font color="#FF0000"><%=pbqk("xxmc")%></font></b>   类别:<b><font color="#FF0000"><%=pbqk("xxlb")%></font></b> </p>
<br />

<table width="100%" cellspacing="1" bgcolor="#0066FF">
<tr>
<td width="3%" height="19" bgcolor="#FFCC99" class="STYLE2"><div align="center">编号</div></td>
<td width="10%" bgcolor="#FFCC99" class="STYLE2"><div align="center">名称</div></td>
<td width="11%" bgcolor="#FFCC99" class="STYLE2"><div align="center">规格型号</div></td>
<td width="6%" bgcolor="#FFCC99" class="STYLE2"><div align="center">单位</div></td>
<td width="6%" bgcolor="#FFCC99" class="STYLE2"><div align="center">参考单价</div></td>
<td width="9%" bgcolor="#FFCC99" class="STYLE2"><div align="center">配备标准</div></td>
<td width="11%" bgcolor="#FFCC99" class="STYLE2"><div align="center">已配数</div></td>
<td width="6%" bgcolor="#FFCC99" class="STYLE2"><div align="center">尚需数</div></td>
<td width="15%" bgcolor="#FFCC99" class="STYLE2"><div align="center">备注</div></td>
<td width="7%" bgcolor="#FFCC99" class="STYLE2"><div align="center">科目</div></td>
<td width="16%" bgcolor="#FFCC99" class="STYLE2"><div align="center">类别</div></td>
</tr>
<%
yqidi=rs("idi")


set rss=server.CreateObject("adodb.recordset")
sql="SELECT * FROM xxml2000 WHERE id="&yqidi&" "
rss.open sql,conn,1,1
i=30
rss.pagesize=i
pu=request("pu")
if pu="" then pu=1
if cint(pu)<="0" then pu=1
if cint(pu)>rss.pagecount then pu=rss.pagecount
if not rss.eof then rss.absolutepage=cint(pu)
if not rss.eof then

lbdm=pbqk("lbdm")
if lbdm=11 then
bp=rss("yibi")
xp=rss("yixuan")

elseif lbdm=21 then
bp=rss("erbi")
xp=rss("erxuan")

elseif lbdm=31 then
bp=rss("sanbi")
xp=rss("sanxuan")

end if
do while not rss.eof and i=>1

%>
<tr class="STYLE1" bgcolor="#EFEFEF" onMouseOut="this.bgColor='#efefef';this.borderColor='#efefef'"
onMouseOver="this.bgColor='#cccccc'; this.borderColor='#000033'" >
<td ><%=rss("yqbh")%></td>

<td title="<%=rss("mingcheng")%>">
<%if len(rss("mingcheng"))>8 then
response.write left(rss("mingcheng"),8)
else
response.write rss("mingcheng")
end if
%> </td>


<td >
<span title=<%=rss("guigxh")%>>
<%if len(rss("guigxh"))>8 then
response.write left(rss("guigxh"),8)
else
response.write rss("guigxh")
end if
%>
</span></td>
<td ><div align="center" ><%=rss("danwei")%></div></td>
<td ><div align="center" ><%=rss("cankaodj")%></div></td>
<td ><div align="center" >
<%response.write(bp)%>
</div></td>
<td ><div align="center" >
<%=rs("yps")%>
</div></td>
<td ><div align="center" >

<%=rs("sxs")%>
</div></td>

<td ><span title=<%=rss("beizhu")%>>
<%if len(rss("beizhu"))>8 then
response.write left(rss("beizhu"),8)
else
response.write rss("beizhu")
end if
%></td>
<td><div align="center" >
<%=rss("kemu")%>
</div></td>
<td ><span title=<%=rss("yiqifenlei")%>>
<%if len(rss("yiqifenlei"))>8 then
response.write left(rss("yiqifenlei"),8)
else
response.write rss("yiqifenlei")
end if
%></td>
</tr>
<%

rss.movenext
i=i-1
loop
end if
%>
</table>
<span class="STYLE5">当前第 <%=pu%> 页;分
<%=rss.pagecount%> 页;
共 <%=rss.recordcount%> 条记录;
每页30条记录
<a href="?pu=1">首 页</a>
<a href="?pu=<%=cint(PU)-1%>">上一页</a>
<a href="?pu=<%=cint(PU)+1%>">下一页</a>
<a href="?pu=<%=rss.pagecount%>">末 页</a>

</span>
</body>
</html>
...全文

相关推荐

评论 8
收藏 已收藏
分享
返回顶部
dengyi0204
ASP 28,401 成员 356,940 内容