📄 index.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="ubb/ubb.asp"-->
<%Set rs= Server.CreateObject("ADODB.Recordset")
sql="select * from pz where id=1"
rs.open sql,conn,1,1
htsh=rs("sh")
%>
<%
'#################################################################
'# 程序名称：随缘网络留言本 V1.0
'# 授权方式：免费软件
'# 作者：随缘网络 QQ:84723090
'# 演示及技术支持：http://www.115cn.cn/book
'# 发布时间：2007-8-8
'# 声明：本程序由随缘网络独立自主开发，保留所有版权。
'# 各种用途均可免费使用、自由传播，但必须保留程序代码中的版权信息。
'#################################################################
%>
<% Set rs2=Server.CreateObject("ADODB.RecordSet")
sql2="select top 1 * from book where sh=1 and gg=1"
rs2.Open sql2,conn,1,1 %>
<html>
<head>
<LINK href="css.css" type=text/css rel=stylesheet>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>随缘网络带审核置顶功能留言簿V1.0--首页</title>
<style type="text/css">
<!--
.style1 {color: #FFFFFF}
-->
</style>
</head>
<body topmargin="0" >
<%
key=request("key")
fl=request("fl")
%>
<div align="center">
<table width="760" border="1" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF" height="163" style="border-collapse: collapse" bordercolor="#3399FF">
<tr>
<td width="760" height="163" align="center">
<img border="0" src="logo.jpg" width="758" height="159"></td>
</tr>
</table>
</div>
<div align="center">
<table width="760" border="0" cellpadding="0" bgcolor="#FFFFFF" height="61" style="border-collapse: collapse" bordercolor="#3399FF" id="table9">
<tr>
<td width="764" height="32" align="center" bgcolor="#3399FF" colspan="2">
<a href="add.asp"><font color="#FFFFFF">签写留言</font></a><font color="#FFFFFF">
</font>
<a href="index.asp"><font color="#FFFFFF">浏览留言</font></a></td>
</tr>
<tr>
<td width="43" height="29" align="center">
<p align="left"><font color="#FF0000"><b>公告：</b></font></td>
<td width="717" height="29" align="center">
<marquee><%=rs2("nr")%></marquee></td>
</tr>
</table>
<%
page=clng(request("page"))
Set rs=Server.CreateObject("ADODB.RecordSet")
if htsh=1 then
if key="" and fl="" then
sql="select * from book where sh=1 order by gg desc, top desc,sj desc"
else
if fl=1 then
sql="select * from book where bt Like '%"& key &"%'and sh=1 order by gg desc, top desc,sj desc"
else
sql="select * from book where nr Like '%"& key &"%'and sh=1 order by gg desc, top desc,sj desc"
end if
end if
else
if key="" and fl="" then
sql="select * from book order by gg desc, top desc,sj desc"
else
if fl=1 then
sql="select * from book where bt Like '%"& key &"%'order by gg desc, top desc,sj desc"
else
sql="select * from book where nr Like '%"& key &"%' order by gg desc, top desc,sj desc"
end if
end if
end if
rs.Open sql,conn,1,1
i=1
if rs.eof and rs.bof then
response.Write("没有留言")
else
rs.PageSize=5
if page=0 then page=1
pages=rs.pagecount
if page > pages then page=pages
rs.AbsolutePage=page
for j=1 to rs.PageSize
%>
<table width="760" border="1" cellpadding="0" cellspacing="1" bgcolor="#FFFFFF" height="204" style="border-collapse: collapse" bordercolor="#3399FF" id="table5">
<tr>
<td width="23%" height="202" align="center" valign="top">
<table border="0" width="80%" cellspacing="0" cellpadding="0" id="table6">
<tr>
<td height="110">
<p align="center"><img src="<%=rs("tx")%>" ></td>
</tr>
<tr>
<td height="24">称呼：<%=rs("user")%></td>
</tr>
<tr>
<td height="26">来自：<%=rs("ip")%></td>
</tr>
<tr>
<td height="27">邮件：<a href="mailto:<%=rs("email")%>"><img border="0" src="img/mail.gif" width="16" height="16">邮件</a></td>
</tr>
<tr>
<td height="30">主页：<a target="_blank" href="<%=rs("web")%>"><img border="0" src="img/home.gif" width="16" height="16">主页</a></td>
</tr>
</table></td>
<td width="76%" align="center" valign="top">
<table border="0" width="100%" cellspacing="0" cellpadding="0" id="table7" height="67">
<tr>
<td height="27" bgcolor="#99CCFF" colspan="2">
<p align="left"> <% if rs("top")=1 then %><b><font color="#FF0000">置顶</font></b> <%end if%><% if rs("gg")=1 then %><b><font color="#FF0000">公告：</font></b><%else%>主题：<%end if%><%=rs("bt")%>
发表于：<%=rs("sj")%>
<img border="0" src="img/qq.gif" width="16" height="16">：<%=rs("qq")%></td>
</tr>
<tr>
<td width="1%">
<p align="left" style="line-height: 150%"></td>
<td width="99%"><%=Ubbcode(server.htmlencode(rs("nr")))%></td>
</tr>
</table><%if rs("hf")<>"" then%>
<table border="0" width="96%" cellspacing="0" cellpadding="0" id="table8" height="29" style="border:1px dotted #800000; padding:1px; ">
<tr>
<td align="right"></td>
</tr>
<tr>
<td align="right">
<p align="left"><font color="#FF0000">管理员回复：<%=rs("hf")%></font></td>
</tr>
</table>
<%end if%>
</a></td>
</tr>
</table>
<TABLE cellSpacing=0 cellPadding=0 width=750 border=0 id="table11">
<TBODY>
<TR>
<TD height=6></TD></TR></TBODY></TABLE> <%
i=i+1
rs.movenext
if rs.eof then exit for
next
%>
<table width="760" cellpadding="0" border="0" cellspacing="0" height="31">
<tr bgcolor="#FFFFFF">
<td align="left" width="538"><form method=Post action="index.asp">
<%if Page<2 then
response.write "首页 上一页 "
else
response.write "<a href=index.asp?key="&key&"&fl="&fl&"&page=1>首页</a> "
response.write "<a href=index.asp?key="&key&"&fl="&fl&"&page=" & Page-1 & ">上一页</a> "
end if
if rs.pagecount-page<1 then
response.write "下一页 尾页"
else
response.write "<a href=index.asp?key="&key&"&fl="&fl&"&page=" & (page+1) & ">"
response.write "下一页</a> <a href=index.asp?key="&key&"&fl="&fl&"&page="&rs.pagecount&">尾页</a>"
end if
response.write " 页次：<strong><font color=red>"&Page&"</font>/"&rs.pagecount&"</strong>页 "
response.write " 共<b><font color='#FF0000'>"&rs.recordcount&"</font></b>条记录 <b>"&rs.pagesize&"</b>条记录/页"
response.write " 转到：<input type='text' name='page' size=4 maxlength=10 class=input value="&page&">"
response.write " <input class=input type='submit' value=' Goto ' name='cndok'></span>"
%></form></td>
<td align="center" width="222"><form name="form1" method=post action="index.asp">
<input name="key" type="text" class="input" size="12">
<select size="1" name="fl">
<option selected value="1">主题搜索</option>
<option value="2">内容搜索</option>
</select> <input type="submit" value="搜索" name="B1"></form></td>
</tr>
</table>
<table border="0" width="760" cellspacing="0" cellpadding="0" id="table4">
<tr>
<td height="77" align="center" background="bo.jpg">
<font color="#FFFFFF">随缘网络带审核置顶功能留言簿V1.0 版权所有：<a target="_blank" href="http://www.115cn.cn/"><font color="#FFFFFF">厦门随缘网络科技</font></a>
制作：<a href="mailto:wuguihua2001@163.com"><font color="#FFFFFF">随缘</font></a> <script language="javascript" type="text/javascript" src="http://js.users.51.la/473792.js"></script> </font></td>
</tr>
</table>
</div>
<%
end if
rs.close
set rs=nothing
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -