北京 | 上海 | 天津 | 重庆 | 广州 | 深圳 | 珠海 | 汕头 | 佛山 | 中山 | 东莞 | 南京 | 苏州 | 无锡 | 常州 | 南通 | 扬州 | 徐州 | 杭州 | 温州 | 宁波 | 台州 | 福州 | 厦门 | 泉州 | 龙岩 | 合肥 | 芜湖 | 成都 | 遂宁 | 长沙 | 株洲 | 湘潭 | 武汉 | 南昌 | 济南 | 青岛 | 烟台 | 潍坊 | 淄博 | 济宁 | 太原 | 郑州 | 石家庄 | 保定 | 唐山 | 西安 | 大连 | 沈阳 | 长春 | 昆明 | 兰州 | 哈尔滨 | 佳木斯 | 南宁 | 桂林 | 海口 | 贵阳 | 西宁 | 乌鲁木齐 | 包头 |
我有一个asp查询页面对询内容进行分页时，点击"下页"显示空白询页，望高手指点如何修改
代码如下
<body>
<table align="center" border="0">
<tr>
<td><!--#include file="top.asp"--></td>
</tr>
</table>
<table align="center" border="0">
<form method="post" action="ckcx.asp"name="form1">
<tr>
<td colspan="8" align="center" bgcolor="#609B95"><strong>出 库 信 息 查 询</strong></td>
</tr>
<tr>
<td width="100"><div align="center">编号</div></td>
<td width="100"><div align="center">出库编号</div></td>
<td width="100"><div align="center">材料名称</div></td>
<td width="100"><div align="center">开始日期</div></td>
<td width="100"><div align="center">结束日期</div></td>
<td width="100"><div align="center">出库单位</div></td>
<td width="100"><div align="center">入库单位</div></td>
</tr>
<tr>
<td><input name="bh" class="wzjz" type="text" size="12" onFocus="this.value=''"></td>
<td><input name="ckbh" class="wzjz" type="text" size="12" onFocus="this.value=''"></td>
<td><input name="clmc" class="wzjz" type="text" size="12" onFocus="this.value=''"></td>
<td><input name="ksrq" class="wzjz "type="text" size="12" onFocus="this.value=''"></td>
<td><input name="jsrq" class="wzjz" type="text" size="12" onFocus="this.value=''"></td>
<td><input name="dcdw" class="wzjz" type="text" size="12" onFocus="this.value=''"></td>
<td><input name="drdw" class="wzjz" type="text" size="12" onFocus="this.value=''"></td>
<td><input type="submit" name="ckc" value="查"></td>
</tr>
</form>
</table>
<%
if request("ckc")="查" then
if request("bh")<>""then
if cond="" then
cond="编号 like '%" & trim(request("bh")) & "%'"
else
cond = cond & " AND 编号 like '%" & trim(request("bh")) & "%'"
end if
end if
if request("ckbh")<>""then
if cond="" then
cond="出库编号 like '%" & trim(request("ckbh")) & "%'"
else
cond = cond & " AND 出库编号 like '%" & trim(request("ckbh")) & "%'"
end if
end if
if request("clmc")<>"" then
If cond="" Then
cond="材料名称 like '%" & trim(request("clmc")) & "%'"
else
cond = cond & "and 材料名称 like '%" & trim(request("clmc")) & "%'"
end if
end if
if request("ksrq")<>"" then
if cond="" then
cond="日期>=# " & trim(request("ksrq")) & "#"
else
cond=cond & "and 日期>=# " & trim(request("ksrq")) & "#"
end if
end if
if request("jsrq")<>"" then
if cond="" then
cond="日期<=# " & trim(request("jsrq")) & "#"
else
cond=cond &"and 日期<=# " & trim(request("jsrq")) & "#"
end if
end if
if request("dcdw")<>""then
if cond="" then
cond="调出单位 like '%" & trim(request("dcdw")) & "%'"
else
cond = cond & " AND 调出单位 like '%" & trim(request("dcdw")) & "%'"
end if
end if
if request("drdw")<>""then
if cond="" then
cond="调入单位 like '%" & trim(request("drdw")) & "%'"
else
cond = cond & " AND 调入单位 like '%" & trim(request("drdw")) & "%'"
end if
end if
if cond<>""then
sql="select * from 出库表 where " & cond & "order by 日期"
else
sql="select * from 出库表 order by 日期"
end if
session("sql")=(sql)
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
response.write "<table border='1' align='center' cellpadding='1' cellspacing='1'>"
response.write "<tr>"
response.write "<th>编号</th> <th>出库编号</th> <th>日期</th> <th>材料名称</th> <th>型号规格</th> <th>出库数量</th> <th>计量单位</th> <th>调出单位</th> <th>备注</th> <th colspan='2'><a href='dc1.asp'>导出查询数据</a></th>"
response.write "</tr>"
%>
<tr><td colspan="12" class="wzjz">共有记录<%=rs.recordcount%>条</td></tr>
<%
page="1"
rs.PageSize="10"
if Not IsEmpty(Request("Page")) then
Page = CInt(Request("Page"))
if Page > rs.PageCount then
rs.AbsolutePage = rs.PageCount
elseif Page <= 0 then
Page = 1
end if
End if
Page = rs.AbsolutePage
%>
<%
For i = 1 to rs.PageSize
if rs.EOF then
Exit For
end if
%>
中间html表格代码因放不下，所以省略
<%
rs.MoveNext
next
%>
<td>
<%if request("page")>1 then%>
<a Href="ckcx.asp?Page=<% = 1%>">首页</a>
<a Href="ckcx.asp?Page=<% =request("page") -1 %>">上一页</a>
<%end if %>
<%if request("page")<>rs.pagecount then %>
<a Href="ckcx.asp?Page=<% =request("page") + 1%>&jj=<%=sql%>">下一页</a>
<a Href="ckcx.asp?Page=<% = rs.PageCount%>">尾页</a>
<% end if %>
</td>
</table>
<%rs.Close%>
<% end if %>
<body>
