?? pagequary.asp
字號:
<%@ Language=VBScript %>
<!--#include FILE="adovbs.inc"-->
<%
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
Response.Redirect("./quaryfail.htm")
end if
%>
<html>
<head>
<link rel="stylesheet" href="../html/3508.css">
<style type="text/css">
<!--
.green { color: #006600}
.red { color: #FF0000}
-->
</style>
<title>二手信息</title></head>
<body background="../images/bg1.gif">
<table width="740" border="0" cellspacing="0" cellpadding="0" align="center" height="40">
<tr>
<td width="162" height="39" align="center"><img src="../images/newzhao1zhao.gif" width="140" height="50"></td>
<td width="578" valign="bottom" height="39" align="right">
<table width="480" border="1" bordercolordark="#FFFFFF" bordercolorlight="#FFFFFF" bgcolor="#CCCCFF" cellpadding="0" cellspacing="0" height="22">
<tr align="center">
<td width="75" bordercolorlight="#FFFFFF" bordercolordark="#000000" align="center" height="18"><a href="../html/navigator.asp">本站導航</a></td>
<td width="75" bordercolorlight="#FFFFFF" bordercolordark="#000000" align="center" height="18">
<a href="search.asp">二手市場</a></td>
<td width="75" bordercolorlight="#FFFFFF" bordercolordark="#000000" align="center" height="18"><a href="../chat/default.asp">供求信息</a></td>
<td width="75" bordercolorlight="#FFFFFF" bordercolordark="#000000" align="center" height="18"><a href="../news/index.asp">精品生活</a></td>
<td width="75" bordercolorlight="#FFFFFF" bordercolordark="#000000" align="center" height="18">
<a href="../lovelife/default.asp">我愛生活</a></td>
<td width="75" bordercolorlight="#FFFFFF" bordercolordark="#000000" align="center" height="18"><a href="../xhtj/index.asp">笑話天地</a></td>
<td width="75" bordercolorlight="#FFFFFF" bordercolordark="#000000" align="center" height="18"><a href="../diaocha1/diaocha1.asp">調查生活</a></td>
<td width="75" bordercolorlight="#FFFFFF" bordercolordark="#000000" align="center" height="18"><a href="../club/Default.asp">生活社區</a></td>
</tr>
</table>
</td>
</tr>
<tr>
<td colspan="2" height="1" bgcolor="006600"></td>
</tr>
</table>
<table width="740" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#FFCCFF">
<tr>
<td height="19" width="483">【本站導航】<a href="../default.asp">首頁</a> >>
二手信息</td>
<td height="19" width="93"><a href="search.asp">查詢登錄信息</a></td>
<td width="83"> <a href="selcat.asp?itype=求" >登記購買信息</a></td>
<td width="81"><a href="selcat.asp?itype=供" >登記銷售信息</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"><span class="green">【 品名 】</span><%=rs("pname")%></td>
<td width="352"><span class="green">【供求類型】</span><%=rs("itype")%></td>
</tr>
<tr>
<td width="288"><span class="green">【 價格 】</span><%=rs("price")%></td>
<td width="352"><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">【聯系地址】</td>
<td width="88%"><%=rs("contact")%></td>
</tr>
<tr>
<td width="12%" valign="middle" class="green">【物品描述】</td>
<td width="88%" bgcolor="#F4F4FF"><span class="red"><%=rs("desc")%></span></td>
</tr>
</table>
</td>
</tr>
<tr> <%
if rtrim(rs("email"))="" then
response.write "<td colspan="&"2"&">發布時間："&rs("stime")&"</td>"
else
%>
<td width="288"><span class="green">【E_mail 】</span><a href="mailto:<%=rs("email")%>"><%=rs("email")%></a></td>
<td width="352"><span class="green">【發布時間】</span><%=rs("stime")%></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="./main.asp">返回</a> </td>
</tr>
</table>
<!-- #include file="../include/end.htm" -->
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -