📄 searchatcact.asp
字号:
<%
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("year")&"-"&request("month")&"-"&request("day")
title=request("title")
boardid=request("boardid")
t1=request("t1")
set conn=server.createObject("ADODB.Connection")
dbpath=server.mappath("club.mdb")
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 cdate(m.whattime)>cdate('"&cdate(whattime)&"')"
elseif t1="1" then
sql=sql&" and m.whattime between cdate('"&whattime&" 00:00:00') and cdate('"&whattime&" 23:59:59')"
else
sql=sql&" and cdate(m.whattime)<cdate('"&cdate(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
if rs.eof then
response.write "<a href='searchatc.asp'>没有找到按此返回！</a>"
rs.close
conn.close
set rs=nothing
set conn=nothing
response.end
else
rs.PageSize=30
rs.absolutepage=page
%>
<html>
<head>
<title></title>
<script language=javascript>
function check(yjpage)
{
if ((document.forms[0].page.value > yjpage)||(document.forms[0].page.value <=0))
{
alert("请在有效页次内跳转！");
document.forms[0].page.focus();
return false;
}
if ((document.forms[1].page.value > yjpage)||(document.forms[0].page.value <=0))
{
alert("请在有效页次内跳转！");
document.forms[1].page.focus();
return false;
}
return true;
}
</script>
</head>
<body bgcolor="#FFFFF0">
贴子查询结果
<form method="POST" action="searchatcact.asp" onsubmit="return check(<%=rs.pagecount%>)">
<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"> <a href="searchatc.asp">返回查询页</a>
<%
if rs.pagecount>1 then
if page<rs.Pagecount and page>1 then
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>"
end if
if page=rs.pagecount then
Response.Write "<a href='searchatcact.asp?page=1'>首页</a> <a href='searchatcact.asp?page="&page-1&"'>前页</a>"
end if
if Page=1 then
Response.Write "<a href='searchatcact.asp?page="&page+1&"'>后页</a> <a href='searchatcact.asp?page="&rs.PageCount&"'>末页</a>"
end if
end if
%>
页次：〖<%=page%>/<%=rs.pagecount%>〗页共〖<%=rs.RecordCount%>〗条记录！ 第
<input type="text" name="page" size="3" value="<%=page%>">
页<input type="submit" value="go" name="B1">
</td>
</tr>
</table>
</form>
<table border="1" width="100%" cellspacing="0" bordercolorlight="#000000" bordercolordark="#FFFFFF" bgcolor="#FFEBA5">
<tr bgcolor="#FEDFA7">
<td width="10%"> 版面</td>
<td width="48%"> 主题</td>
<td width="7%"> 发言 </td>
<td width="5%"> 回复 </td>
<td width="25%"> 发表时间 </td>
<td width="5%"> 人气 </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" onsubmit="return check(<%=rs.pagecount%>)">
<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">
<a href="searchatc.asp">返回查询页 </a>
<%
if rs.pagecount>1 then
if page<rs.Pagecount and page>1 then
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>"
end if
if page=rs.pagecount then
Response.Write "<a href='searchatcact.asp?page=1'>首页</a> <a href='searchatcact.asp?page="&page-1&"'>前页</a>"
end if
if Page=1 then
Response.Write "<a href='searchatcact.asp?page="&page+1&"'>后页</a> <a href='searchatcact.asp?page="&rs.PageCount&"'>末页</a>"
end if
end if
%>
页次：〖<%=page%>/<%=rs.pagecount%>〗页共〖<%=rs.RecordCount%>〗条记录！ 第
<input type="text" name="page" size="3" value="<%=page%>">
页<input type="submit" value="go" name="B1">
</td>
</tr>
</table>
</form>
</body>
</html>
<%rs.close
set rs=nothing
conn.close
set conn=nothing
end if
%> ⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -