📄 pagequary.asp
字号:
<%@ Language=VBScript %>
<!--#include FILE="adovbs.inc"-->
<%
set con=server.createObject("ADODB.Connection")
dbpath=server.mappath("market.mdb")
con.open "driver={Microsoft Access Driver (*.mdb)};dbq="&dbpath
' set rs=server.createobject("ADODB.Recordset")
'set con=server.createobject("adodb.connection")
' con.open application("DBCon_ConnectionString")
currentPage=cint(Request.QueryString("currentPage"))
sqlstr=Request.QueryString("sqlstr")
set rs = Server.CreateObject("ADODB.Recordset")
rs.CursorType = adOpenStatic
rs.PageSize= mPAGESIZE
rs.Open sqlstr,con
pagenum=int(rs.RecordCount/mPAGESIZE)
if rs.EOF then
%>
<script language=javascript>
<!--
window.location.href="quaryfail.htm";
//-->
</script>
<%
end if
%>
<html>
<head>
<title>二手信息</title></head>
<body>
<table width="740" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#FFCCFF">
<tr>
<td height="19" width="398">【本站导航】 二手信息</td>
<td height="19" width="120" nowrap><a href="default.asp">查询登录信息</a></td>
<td width="115" nowrap> <a href="selcat.asp?itype=%C7%F3" >登记购买信息</a></td>
<td width="107" nowrap><a href="selcat.asp?itype=%B9%A9" >登记销售信息</a></td>
</tr>
</table>
<br>
<table width="640" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td colspan="2"> <span class="green">共有</span><span class="red">【<%=rs.recordcount%>】</span><span class="green">条记录满足查询条件！</span> <span class="green">计</span><span class="red">【<%=pagenum+1%>】<span class="green">页，当前为第</span>【<%=currentpage%>】</span><span class="green">页！</span></td>
</tr>
<tr>
<td colspan="2" height="1" bgcolor="006600"></td>
</tr>
<%
rs.AbsolutePage= currentPage
rowCount = 1
'response.write(sqlstr)
While not rs.EOF and rowCount <=mPAGESIZE
%>
<tr>
<td width="288" nowrap><span class="green">【 品名 】</span><%=rs("pname")%></td>
<td width="352" nowrap><span class="green">【供求类型】</span><%=rs("itype")%></td>
</tr>
<tr>
<td width="288" nowrap><span class="green">【 价格 】</span><%=rs("price")%></td>
<td width="352" nowrap><span class="green">【所在城市】</span><%=rs("city")%></td>
</tr>
<tr>
<td colspan="2">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="12%" valign="middle" class="green" nowrap>【联系地址】</td>
<td width="88%"><%=rs("contact")%></td>
</tr>
<tr>
<td width="12%" valign="middle" class="green" nowrap>【物品描述】</td>
<td width="88%" bgcolor="#F4F4FF"><span class="red"><%=rs("des")%></span></td>
</tr>
</table>
</td>
</tr>
<tr> <%
if rtrim(rs("email"))="" then
response.write "<td colspan="&"2"&">发布时间："&rs("stime")&"</td>"
else
%>
<td width="288" nowrap><span class="green">【E_mail 】</span><a href="mailto:<%=rs("email")%>"><%=rs("email")%></a></td>
<td width="352" nowrap><span class="green">【发布时间】</span><%=formatdatetime(rs("stime"),1)%><%=formatdatetime(rs("stime"),3)%></td>
<%end if%> </tr>
<tr>
<td colspan="2" height="1" bgcolor="006600"></td>
</tr>
<tr>
<td colspan="2" align="center"> <%rowCount = rowCount + 1
RS.MoveNext
Wend%> <%sqlstr=server.URLEncode(sqlstr)
for i = 1 to RS.PageCount%> <a href="pagequary.asp?currentPage=<%=i%>&sqlstr=<%=sqlstr%>"><%=i%></a>
<%next
pagenum=rs.PageCount%> </td>
</tr>
<tr>
<td colspan="2" align="right"> <%if pagenum<>0 then
if currentPage<pagenum then%> <a href="pagequary.asp?currentpage=<%=(currentPage+1)%>&sqlstr=<%=sqlstr%>">下一页</a>
<%
end if
if currentPage>1 then
%> <a href="pagequary.asp?currentpage=<%=(currentPage-1)%>&sqlstr=<%=sqlstr%>">上一页</a>
<%
end if
end if
%> <a href="default.asp">返回</a> </td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -