📄 searchatcact.asp
字号:
<%
'response.write datevalue(now)&"mjjjjjjjjjjjjjjjjjjjjj"
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")
conn.open application("dbcon_connectionstring")
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 m.whattime>'"&whattime&"' "
elseif t1="1" then
sql=sql&" and m.whattime between '"&whattime&" 00:00:00' and '"&whattime&" 23:59:59'"
else
sql=sql&" and m.whattime<'"&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
'response.write sql
rs.open sql,conn,3
if rs.bof and rs.eof then
response.write "??óD?òμ??à1?D??￠￡?<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>
<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">
<!--
.12{font-size:14px;font-family:宋体,sans-serif}
-->
</style>
<title>贴子查询结果</title>
<link rel="stylesheet" href="club.css">
<script language="javascript">
function check(yjpage)
{
if(document.forms[0].page.value > yjpage)
{
alert("请在有效页次内跳转！")
document.forms[0].page.focus();
return false;
}
if(document.forms[1].page.value > yjpage)
{
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 + -