searchatcact.asp
来自「大家好」· ASP 代码 · 共 193 行
ASP
193 行
<% dim guestname,whattime,title,boardid,t1,page,i
if isempty(request("page")) then
page=1
else
page=request("page")
end if
guestname=request("guestname")
whattime=request("whattime")
title=request("title")
boardid=request("boardid")
t1=request("t1")
DbPath = SERVER.MapPath("db1.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DbPath
set rs=server.createobject("ADODB.RecordSet")
sql="select m.id,m.guestname,m.title,m.whattime,m.textsize,m.clicknum,m.renum,m.feeling,m.boardid,b.boardname from mainboard m,board_info b where m.fatherid=0 and m.boardid=b.boardid "
if session("sql")="" then
if guestname<>"" then
sql=sql&"and m.guestname='"&guestname&"' "
end if
if whattime<>"" then
if t1="0" then
sql=sql&" and datevalue(m.whattime)>'"&datevalue(whattime)&"' "
elseif t1="1" then
sql=sql&" and datevalue(m.whattime)='"&datevalue(whattime)&"' "
else
sql=sql&" and datevalue(m.whattime)<'"&datevalue(whattime)&"' "
end if
end if
if title<>"" then
sql=sql&"and m.title like '%"&title&"%' "
end if
if boardid<>"" then
sql=sql&"and m.boardid="&cint(boardid)
end if
sql=sql&" order by m.whattime desc"
session("sql")=sql
else
sql=session("sql")
end if
rs.open sql,conn,3,3
if rs.bof and rs.eof then
response.write "??§??2?|¨???¨o??????¨¤?2?§|??￡¤?§???t?¨o?<a href='searchatc.asp'>??è|¨???2?§|??￡¤?§??3</a>"
rs.close
conn.close
set rs=nothing
set conn=nothing
response.end
else
rs.PageSize=30
rs.absolutepage=page
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<style type="text/css">
<!--
p,a,td{font-size:14px;font-family:宋体,sans-serif;line-height:1.4}
.12{font-size:14px;font-family:宋体,sans-serif}
A:link {text-decoration: none}
A:visited {text-decoration: none}
A:active { text-decoration: underline}
A:hover {text-decoration: underline}
-->
</style>
<title>贴子查询结果</title>
</head>
<body bgcolor="#FFEBBD">
<p align="center">贴子查询结果</p>
<form method="POST" action="searchatcact.asp" id="form1" name="form1">
<input type="hidden" name="boardid" value="<% =boardid %>">
<table border="1" borderColorDark="#FFFFFF" borderColorLight="#000000" cellspacing="0" height="22" width="100%" align="center">
<tr bgcolor="#FFEBAD">
<td height="34" width="691">
<div align="center"><a href="searchatc.asp">返回查询页 </a> <%if rs.pagecount=0 then
Response.Write "首页 前页 后页 末页 页次0/0页"
elseif rs.Pagecount=1 then
Response.Write "首页 前页 后页 末页 页次1/1页"
elseif page=1 then
Response.Write "首页 前页 <a href='searchatcact.asp?page="&page+1&"'>后页</a> <a href='searchatcact.asp?page="&rs.PageCount &"'>末页</a> 页次"&Page&"/"&rs.pagecount&"页"
elseif rs.PageCount=cint(Page) then
Response.Write "<a href='searchatcact.asp?page=1'>首页</a> <a href='searchatcact.asp?page="&page-1&"'>前页</a> 后页 末页 页次"&Page&"/"&rs.pagecount&"页"
else
Response.Write "<a href='searchatcact.asp?page=1'>首页</a> <a href='searchatcact.asp?page="&page-1&"'>前页</a> <a href='searchatcact.asp?page="&page+1&"'>后页</a> <a href='searchatcact.asp?page="&rs.PageCount&"'>末页</a> 页次"&Page&"/"&rs.pagecount&"页"
end if
%> <font color="#FF0000"><%=rs.RecordCount %></font>条记录 第
<input type="text" name="page" size="3" value="<%=page%>" tabindex="1">
页
<input type="submit" value="go" name="B1" tabindex="2">
</div>
</td>
</tr>
</table>
</form>
<table border="1" width="100%" cellspacing="0" bordercolorlight="#000000" bordercolordark="#FFFFFF" bgcolor="#FFEBA5">
<tr bgcolor="#FEDFA7">
<td width="10%">
<div align="center">版 面</div>
</td>
<td width="48%">
<div align="left">主题</div>
</td>
<td width="7%">
<p align="center">发言
</td>
<td width="5%">
<p align="center">回复
</td>
<td width="25%">
<p align="center">发表时间
</td>
<td width="5%">
<p align="center">人气
</td>
</tr>
<%
for j=1 to 30
if len(trim(rs("title")))>16 then
title=left(rs("title"),16)&"..."
else
title=rs("title")
end if %>
<tr bgcolor="#FFEAA2">
<td width="10%">
<div align="center"><%=rs("boardname")%></div>
</td>
<td width="48%">
<div align="left"><img src="browimage\<%=trim(rs("feeling"))%>.gif"><a href="comment.asp?id=<%=rs("id")%>&boardname=<%=rs("boardname")%>"><%=title%></a>(<%=rs("textsize")%>)</div>
</td>
<td width="7%">
<div align="center"><a href="userdet.asp?username=<%=rs("guestname")%>"><font color="#000000"><%=rs("guestname")%></font></a></div>
</td>
<td width="5%">
<div align="center"><font color="#3300CC"><%=rs("renum")%> </font></div>
</td>
<td width="25%">
<div align="center"><font color="#FF6666"><%=rs("whattime")%> </font></div>
</td>
<td width="5%">
<div align="center"><font color="#0000CC"><%=rs("clicknum")%> </font></div>
</td>
</tr>
<% rs.MoveNext
if rs.eof then
exit for
end if
next %>
</table>
<form method="POST" action="searchatcact.asp" id="form1" name="form1">
<input type="hidden" name="boardid" value="<% =boardid %>">
<table border="1" borderColorDark="#FFFFFF" borderColorLight="#000000" cellspacing="0" height="22" width="100%" align="center">
<tr bgcolor="#FFEBAD">
<td height="34" width="691">
<div align="center"><a href="searchatc.asp">返回查询页 </a> <%if rs.pagecount=0 then
Response.Write "首页 前页 后页 末页 页次0/0页"
elseif rs.Pagecount=1 then
Response.Write "首页 前页 后页 末页 页次1/1页"
elseif page=1 then
Response.Write "首页 前页 <a href='searchatcact.asp?page="&page+1&"'>后页</a> <a href='searchatcact.asp?page="&rs.PageCount &"'>末页</a> 页次"&Page&"/"&rs.pagecount&"页"
elseif rs.PageCount=cint(Page) then
Response.Write "<a href='searchatcact.asp?page=1'>首页</a> <a href='searchatcact.asp?page="&page-1&"'>前页</a> 后页 末页 页次"&Page&"/"&rs.pagecount&"页"
else
Response.Write "<a href='searchatcact.asp?page=1'>首页</a> <a href='searchatcact.asp?page="&page-1&"'>前页</a> <a href='searchatcact.asp?page="&page+1&"'>后页</a> <a href='searchatcact.asp?page="&rs.PageCount&"'>末页</a> 页次"&Page&"/"&rs.pagecount&"页"
end if
%> <font color="#FF0000"><%=rs.RecordCount %></font>条记录 第
<input type="text" name="page" size="3" value="<%=page%>" tabindex="1">
页
<input type="submit" value="go" name="B1" tabindex="2">
</div>
</td>
</tr>
</table>
</form>
</body>
</html>
<%rs.close
set rs=nothing
conn.close
set conn=nothing
end if
%> ⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?