📄 search.asp
字号:
<%@ language=VBScript %>
<!--#include file="setup.asp"-->
<!--#include file="online.asp"-->
<%
on error resume next '找不到留言资料时忽略错误
dim keyword
keyword = trim(Request("keyword"))
if keyword = "" then
message = "请输入查询条件!\n"
call error(""&message&"")
response.end
end if
sql="select * from gbook where body like '%"& keyword &"%' order by id desc"
set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open sql,conn,1,1
Rs.pagesize=pagesize
page=Request("page")
if (page-Rs.pagecount) > 0 then
page=Rs.pagecount
elseif page = "" or page < 1 then
page = 1
end if
Rs.absolutepage=page
%>
<html>
<head>
<%
sql = "select * from news order by id desc"
set srs = Server.CreateObject("ADODB.Recordset")
srs.open sql,conn,1,1
do while not srs.eof
news=news&""""&srs("news")&" ["&srs("date")&"]"","""","
srs.movenext
loop
srs.close
set srs = nothing
%>
<script language="JavaScript1.2" type="text/javascript">
NS4 = (document.layers);
IE4 = (document.all);
FDRboxWid = 450;
FDRboxHgt = 18;
FDRborWid = 2;
FDRborCol = "#EFEFEF";
FDRborSty = "solid";
FDRbackCol = "#EFEFEF";
FDRboxPad = 2;
FDRtxtAln = "center";
FDRlinHgt = "9pt";
FDRfntFam = "宋体";
FDRfntCol = "#4F4F4F";
FDRfntSiz = "9pt";
FDRfntWgh = "";
FDRfntSty = "normal";
FDRlnkCol = "#4F4F4F";
FDRlnkDec = "none";
FDRhovCol = "#000000";
FDRgifSrc = "";
FDRgifInt = 60;
FDRblendInt = 5;
FDRblendDur = 1;
FDRmaxLoops = 100;
FDRendWithFirst = true;
FDRreplayOnClick = true;
FDRjustFlip = false;
FDRhdlineCount = 0;
</script>
<script language='JavaScript1.2' type='text/javascript'>
prefix="";
arNews = [
<%=news%>
"<%=gbook_name%> 公告栏",""
]
</script>
<script language='JavaScript1.2' src='fader.js' type='text/javascript'></script>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=gbook_name%></title>
<link rel="stylesheet" href="style.css">
</head>
<body bgcolor="#C8C8C8">
<div align="center">
<center>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#4F4F4F" width="500">
<tr>
<td width="100%" bgcolor="#EFEFEF">
<table border="0" cellpadding="5" cellspacing="0" style="border-collapse: collapse" bordercolor="#4F4F4F" width="100%">
<tr>
<td width="100%" align="center" background="images/table.gif"><b><font color=ffffff><%=gbook_name%></font></b></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100%" bgcolor="#FFFFFF">
<table border="0" cellpadding="2" cellspacing="0" style="border-collapse: collapse" bordercolor="#4F4F4F" width="100%">
<tr>
<td width="75%" class="shadow">当前位置:<a href=<%=url%>><%=name%></a> - <a href=index.asp?userid=<%=userid%>>留言首页</a>
- 浏览留言</td>
<td width="25%" class="shadow" align="right">进入时间:<%=time%></td>
</tr>
</table>
</td>
</tr>
</table>
</center>
</div>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#4F4F4F" width="500" id="AutoNumber2">
<tr>
<td width="100%" bgcolor="#FFFFFF" style="border-left-style: solid; border-left-width: 1; border-right-style: solid; border-right-width: 1">
<table border="0" cellpadding="3" cellspacing="0" style="border-collapse: collapse" bordercolor="#4F4F4F" width="100%" id="AutoNumber3">
<tr>
<td width="15%" align="center"><a href="add.asp?userid=<%=userid%>"><img border="0" src="images/new.jpg"></a></td>
<td width="15%" align="center"><a href="index.asp?userid=<%=userid%>"><img border="0" src="images/read.jpg"></a></td>
<td width="55%">
<table border="0" cellpadding="2" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber4">
<form action="search.asp?userid=<%=userid%>" method="post">
<tr>
<td width="100%" class="shadow" align="center">共<%=Rs.recordcount%>条留言 其中<%=today_count%>条是今天的</td>
</tr>
<tr>
<td width="80%" align="center">
<input type="text" size="20" name="keyword" style="width: 100; height: 18" onmouseover="this.style.backgroundColor='#FFFFFF'" onmouseout="this.style.backgroundColor=''">
<input type="submit" value="搜索" name="ok" style="width: 50; height: 18" onmouseover="this.style.backgroundColor='#FFFFFF'" onmouseout="this.style.backgroundColor=''"></td>
</tr>
</form>
</table>
</td>
<td width="15%" align="center"><a href="login.asp?userid=<%=userid%>"><img border="0" src="images/admin.jpg"></a></td>
</tr>
</table>
</td>
</tr>
</table>
</center>
</div>
<div align="center">
<center>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#4F4F4F" width="500" id="AutoNumber10" height="20">
<tr>
<td width="100%" bgcolor="#EFEFEF" align="center" valign="top" height="20"><div id="elFader" style="position:relative;visibility:hidden;width:100%"></div></td>
</tr>
</table>
</center>
</div>
<%
do while not Rs.eof
i = i + 1
if i > Rs.pagesize then
exit do
end if
ips=split(rs("ip"),".")
ip=""&ips(0)&"."&ips(1)&".*.*"
%>
<table cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#4F4F4F" width="100%" height="3">
<tr>
<td width="100%"></td>
</tr>
</table>
<div align="center">
<center>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#4F4F4F" width="500">
<tr>
<td width="30%" bgcolor="#EFEFEF" valign="top">
<table border="0" cellpadding="2" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" style="table-layout: fixed">
<tr>
<td width="100%" align="center" class="shadow">
<img border="0" src="<%=Rs("face")%>"></td>
</tr>
<tr>
<td width="100%" class="shadow"> 网友大名:<%=Rs("username")%></td>
</tr>
<tr>
<td width="100%" class="shadow"> 腾讯OICQ:<%if Rs("qq") <> "" then%><%=Rs("qq")%><%else%>没有OICQ<%end if%></td>
</tr>
</table>
</td>
<td width="70%" bgcolor="#FFFFFF">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber6">
<tr>
<td width="100%" bgcolor="#EFEFEF">
<table border="0" cellpadding="3" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber7">
<tr>
<td width="100%" class="shadow">第 <%=Rs.recordcount-Rs.pagesize*(page-1)-i+1%> 条留言 是 <%=Rs("username")%> 在 <%=Rs("addtime")%> 发表的</td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100%" style="border-left-width: 1; border-right-width: 1; border-top-style: solid; border-top-width: 1; border-bottom-style: solid; border-bottom-width: 1">
<table border="0" cellpadding="3" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber8" height="40" style="table-layout: fixed">
<tr>
<td width="8%" class="shadow" valign="top" align="center">
<img border="0" src="<%=Rs("brow")%>"></td>
<td width="92%" class="shadow" valign="top"><%=Rs("body")%>
<%
sql = "select * from reply where replyid="& Rs("id") &" order by id desc"
set Rss = Server.CreateObject("ADODB.Recordset")
Rss.open sql,conn,1,1
do while not Rss.eof
%>
<br><font color=#999999>站长回复:<%=Rss("reply")%><br>回复时间:(<%=Rss("replytime")%>)</font><br>
<%
Rss.movenext
loop
Rss.close
set Rss = nothing
%></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100%" bgcolor="#EFEFEF">
<table border="0" cellpadding="3" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%">
<tr>
<td width="18%" align="center" class="shadow"><%if Rs("email") <> "" then%><a href='mailto:<%=Rs("email")%>'>电子邮件</a><%else%>没有信箱<%end if%></td>
<td width="18%" align="center" class="shadow"><a href='<%=Rs("homeurl")%>' target=_blank>个人主页</a></td>
<td width="18%" align="center" class="shadow"><%if Rs("qq") <> "" then%><a href='http://search.tencent.com/cgi-bin/friend/user_show_info?ln=<%=Rs("qq")%>'>腾讯OICQ<%else%>没有OICQ<%end if%></a></td>
<td width="16%" align="center"> </td>
<td width="10%" align="center" class="shadow"><a href=viewip.asp?id=<%=Rs("id")%>&userid=<%=userid%>>查IP</a></td>
<td width="10%" align="center" class="shadow"><a href=reply.asp?replyid=<%=Rs("id")%>&userid=<%=userid%>>回复</td>
<td width="10%" align="center" class="shadow"><a href=del.asp?id=<%=Rs("id")%>&userid=<%=userid%>>删除</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</center>
</div>
<%
Rs.movenext
loop
for i=1 to count
if i<>1 and (i-1)/6=int((i-1)/6) then
guest=guest&"</tr><tr>"
end if
guest=guest&"<td width=100><img border=0 src=images/guest.gif> 留言客"&i&"号</td>"
next
if count/6<>int(i/6) then
for j=1 to (int(count/6)+1)*6-count
guest=guest&"<td width=100> </td>"
next
end if
%>
<table cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#4F4F4F" width="100%" height="3">
<tr>
<td width="100%"></td>
</tr>
</table>
<div align="center">
<center>
<table border="1" cellpadding="2" cellspacing="0" style="border-collapse: collapse" bordercolor="#4F4F4F" width="500">
<tr>
<td width="100%" bgcolor="#EFEFEF" class="shadow">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber11">
<tr>
<td width="100%" class="shadow">目前留言本共有<%=count%>人在线</td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100%" bgcolor="#FFFFFF" align="center">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber11">
<tr>
<%=guest%>
</tr>
</table></td>
</tr>
</table>
</center>
</div>
<div align="center">
<center>
<table border="0" cellpadding="3" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="500" id="AutoNumber9">
<tr>
<td width="100%" class="white">共有<%=Rs.pagecount%>页 你正在浏览第<%=page%>页 跳到第<%for go=1 to Rs.pagecount%> <a href=index.asp?page=<%=go%>&userid=<%=userid%>><%=go%></a> <%next%>页<% if page<>1 then %> <a href=index.asp?page=<%=page-1%>&userid=<%=userid%>>上一页</a><%end if%><% if Rs.pagecount-page <> 0 then %> <a href=index.asp?page=<%=page+1%>&userid=<%=userid%>>下一页</a><%end if%></td>
</tr>
</table>
</center>
</div>
<%
call htmlend()
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -