📄 admlookly.asp
字号:
<!--#include file="mdb.asp"-->
<%
exec="select * from book order by id desc"
set rs=server.createobject("adodb.recordset")
'##检查cookies中的密码,错误侧自动返回
set rsadm=server.createobject("adodb.recordset")
sqladm="select * from admin"
rsadm.open sqladm,conn,1,1
if request.cookies("adminok")<>rsadm("pwd") or request.cookies("adminok")="" or request.cookies("user")<>rsadm("user") or request.cookies("user")="" then
response.redirect "glydl.asp"
end if
'###检查结束
%>
<%rs.open exec,conn,1,1
if not isempty(request("page")) then
pagecount=cint(request("page"))
else
pagecount=1
end if
rs.pagesize=10
rs.AbsolutePage=pagecount
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>在线留言</title>
<style fprolloverstyle>A:hover {color: #000000; font-weight: bold}</style>
</head>
<body topmargin="0" leftmargin="0" rightmargin="0" bottommargin="0" marginwidth="0" marginheight="0" background="pic/line.gif" style="text-align: center" link="#000000" vlink="#000000" alink="#000000">
<table border="0" width="100%" id="table1" bordercolor="#6595D6" style="border-collapse: collapse" height="100%">
<tr>
<td width="21" background="newpic/a9.gif"> </td>
<td background="newpic/a3.gif" height="24" colspan="2"> </td>
</tr>
<tr>
<td width="21" rowspan="5" background="newpic/a21.gif"> </td>
<td width="207" height="68" align="center" bgcolor="#000000">
<p align="left">
<img border="0" src="newpic/9988.gif" width="100%" height="100%"></td>
<td width="764" height="68" align="center" bgcolor="#000000">
<img border="0" src="pic/no1.gif" width="100%" height="100%"></td>
</tr>
<tr>
<td width="98%" height="17" colspan="2" align="center">
<table border="0" width="95%" id="table7" style="border-collapse: collapse">
<tr>
<td>
<p align="center"><font color="#008000">
<a style="text-decoration: none" href="index.asp">
<img border="0" src="newpic/BD21299_.gif" width="15" height="11"></a></font><a style="text-decoration: none" href="index.asp">首页</a></a><a style="text-decoration: none" href="index.asp">
</a></td>
<td>
<p align="center"> <a style="text-decoration: none" href="new.asp"><img border="0" src="newpic/BD21299_.gif" width="15" height="11">旅游新闻</a>
</td>
<td>
<p align="center">
<a style="text-decoration: none" href="binguan.htm">
<img border="0" src="newpic/BD21299_.gif" width="15" height="11">宾馆饭店</a>
</td>
<td>
<p align="center">
<a style="text-decoration: none" href="luyoujingdian.htm">
<img border="0" src="newpic/BD21299_.gif" width="15" height="11">旅游景区</a></td>
<td>
<p align="center">
<a style="text-decoration: none" href="teseluxian.htm">
<img border="0" src="newpic/BD21299_.gif" width="15" height="11">特色路线</a></td>
<td>
<p align="center">
<a style="text-decoration: none" href="lyzs.asp">
<img border="0" src="newpic/BD21299_.gif" width="15" height="11">旅游常识</a></td>
<td>
<p align="center">
<a style="text-decoration: none" href="liuyan.asp">
<img border="0" src="newpic/BD21299_.gif" width="15" height="11">在线留言</a></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="98%" height="25" colspan="2">
<p align="center">
<marquee scrollamount="5" style="color: #008000" height="100%" width="100%" scrolldelay="50">欢迎您光临河源旅游网</marquee></td>
</tr>
<tr>
<td width="100%" height="418" colspan="2" valign="top" align="center">
<div align="center">
<table border="0" width="96%" id="table6">
<tr>
<td>
<p align="right">
<a href="#ly">
<img border="0" src="pic/ly1.gif" width="72" height="21"></a>
<a href="liuyan.asp">
<img border="0" src="pic/tcdl.gif" width="72" height="21"></a>
</table>
</div>
<%do while not rs.eof%>
<div align="center">
<table border="0" width="95%" id="table2" style="border-collapse: collapse" bordercolor="#6595D6" height="147">
<tr>
<td colspan="2" background="pic/bg1.gif" height="16"></td>
</tr>
<tr>
<td width="20%" height="105">
<div align="center">
<table border="0" width="128" id="table3" height="65">
<tr>
<td width="93">
<p align="center"><font size="2"> <%=rs("name")%></font></td>
<td width="27"><img src =pic/<%=rs("sex")%>.gif></td>
</tr>
<tr>
<td width="122" colspan="2">
<p align="center"><img src =pic/<%=rs("face")%>.gif></td>
</tr>
</table>
</div>
</td>
<td width="100%" valign="top" height="105" style="border-left-style: solid; border-left-width: 1px; border-right-width: 1px; border-top-width: 1px; border-bottom-width: 1px">
<div align="center">
<table border="0" width="95%" id="table4" style="border-left-width: 1px; border-right-width: 1px; border-top-width: 1px; border-bottom-style: solid; border-bottom-width: 1px; border-collapse:collapse" bordercolor="#6595D6">
<tr>
<td width="99"><font size="2">
<img border="0" src="pic/lwcontent.gif" width="21" height="19">留言内容：</font></td>
<td width="60" valign="middle" align="center">
<a title="<%=rs("name")%>的伊妹子：<%=rs("email")%>" href="mailto:<%=rs("email")%>">
<img border="0" src="pic/email.gif" width="45" height="18"></a> </td>
<td width="61" valign="middle" align="center">
<a title="<%=rs("name")%>主页：<%=rs("url")%>" href="<%=rs("url")%>">
<img border="0" src="pic/url.gif" width="45" height="18"></a> </td>
<td width="61" valign="middle" align="center">
<p align="center">
</a>
<a title="<%=rs("name")%>的OICQ：<%=rs("OICQ")%>" href="http://search.tencent.com/cgi-bin/friend/user_show_info?ln=<%=rs("OICQ")%>"><img border="0" src="pic/oicq.gif" width="45" height="18"></a></td>
<td width="61" valign="middle" align="center">
<a title="回复<%=rs("ID")%>条留言" href="liuyanff.asp?ID=<%=rs("ID")%>">
<img border="0" src="pic/reply.gif" width="45" height="18"></a></td>
<td width="61" valign="middle">
<p align="center">
<a title="删除<%=rs("ID")%>的留言" href="del.asp?ID=<%=rs("ID")%>">
<img border="0" src="pic/delete.gif" width="44" height="18"></a></td>
<td width="61" valign="top"> </td>
<td width="98" valign="top">
<p align="right"> <font size="2">NO.<font color= #FF0000><%=rs("ID")%></font></font></td>
</tr>
</table>
</div>
<%
Dim sContent
sContent=RS("ly")
sContent=Replace(sContent,"<","<")
sContent=Replace(sContent,">",">")
sContent=Replace(sContent,Chr(13) & Chr(10),"<Br>")
sContent=Replace(sContent,chr(32)," ")
Response.Write(sContent)
%></td>
</tr>
<tr>
<td width="20%" height="22" style="border-left-width: 1px; border-right-style: solid; border-right-width: 1px; border-top-style: solid; border-top-width: 1px; border-bottom-width: 1px"><font size="2"><%=rs("time")%></font></td>
<td width="80%" bgcolor="#E4E8EF" height="22">版主回复：<%if rs("lyff")="" then %><% ="暂无回复" %><%else%><%=rs("lyff")%><%end if%></td>
</tr>
</table>
</div>
<% c=c+1
rs.movenext
if c>=8 then exit do
loop%>
<p align="center" style="word-spacing: -1px; line-height: 150%; margin-top: 0px; margin-bottom: 0">
此页共有<%=c%>条留言</p>
<p align="center" style="word-spacing: 0px; line-height: 150%; margin-top: 0px; margin-bottom: 0"><%if pagecount=1 and rs.pagecount<>pagecount then%><a href="admlookly.asp?page=<%=cstr(pagecount+1)%>">
<font color="#000000">下一页</font><a>
<% end if %><% if rs.pagecount>1 and rs.pagecount=pagecount then %><a href="admlookly.asp?page=<%=cstr(pagecount-1)%>">
<font color="#000000">上一页</font><a><%end if%>
<%if pagecount<>1 and rs.pagecount<>pagecount then%><a href="admlookly.asp?page=<%=cstr(pagecount-1)%>">
<font color="#000000">上一页</font><a> <a href="admlookly.asp?page=<%=cstr(pagecount+1)%>">
<font color="#000000">下一页</font><a>
<%end if%><%conn.close
set cnn=nothing
%>
</p>
</td>
</tr>
<tr>
<td width="98%" height="23" background="newpic/a2.gif" colspan="2">
<p align="center"><font color="#7272C7" size="2">欢迎您的光临！</font></td>
</tr>
<tr>
<td width="21" background="newpic/a5.gif"> </td>
<td width="98%" height="32" background="newpic/a5.gif" colspan="2">
<p align="center"><font size="2">曾庆添版权所有</font><br>
<font size="2">建议使用IE4.0以上版本进行浏览，最佳显示模式为800×600</font></td>
</tr>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -