📄 index.asp
字号:
<!--#include file="top.asp"-->
<!--#include file="ubbcode.asp"-->
<%
set rs=server.createobject("adodb.recordset")
sql="select * from guestbook order by id desc"
rs.open sql,db,3,2
dim pagenum
dim e_page
e_page=6 '每页显示留言数
rs.pagesize=e_page
if request.querystring("pagenum")="" or request.querystring("pagenum")=0 then
pagenum=1
else
pagenum=request.querystring("pagenum")
rs.absolutepage=trim(request.querystring("pagenum"))
end if
%>
<link href="style.css" rel="stylesheet" type="text/css">
<BODY>
<CENTER>
<a name="top"></a>
<a name="add"></a>
<table width="760" border="0" cellspacing="0" cellpadding="0" bgcolor="#FFFFFF">
<tr>
<td>
<table width="760" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><img src="images/bgtop.gif" width="760" height="15"></td>
</tr>
</table>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" background="images/bgpic.gif" height="806">
<tr>
<td width="200" valign="top"><table width="96%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="15"> </td>
</tr>
<tr>
<td height="15"> <div align="center"><strong><font color="#333333">..::
留 言 操 作 ::..</font></strong></div></td>
</tr>
<tr>
<td><div align="center"><br>
<img border="0" src="images/n22.gif" width="60" height="54"></div></td>
</tr>
<tr>
<td><div align="center"><a href="add.asp"><img src="images/add.gif" border="0"></a></div></td>
</tr>
<tr>
<td height="20"><div align="center"></div></td>
</tr>
<tr>
<td height="20"> <div align="center">
<img border="0" src="images/n11.gif" width="60" height="54"></div></td>
</tr>
<tr>
<td><div align="center"><a href="login.asp" ><img src="images/admin.gif" width="100" height="30" border="0"></a></div></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> </td>
</tr>
<tr>
<td><div align="center">
<%if session("admin")<>"smallstick" then%>
<p><a href="logout.asp">
<%else%>
</a>
<img border="0" src="images/n14.gif" width="60" height="54"><br>
<a href="adminqollar.asp"><font color=#FFFFFF>Qollar在线客服管理</font></a><br>
<br>
<img border="0" src="images/n14.gif" width="60" height="54"><br>
<a href="qollarsm.htm"><font color=#FFFFFF>Qollar设置方法</font></a><br>
<br>
<img border="0" src="images/n14.gif" width="60" height="54"><br>
<a href="notice.asp"><img src="images/new.gif" border="0"></a><br>
<br>
<img border="0" src="images/n7.gif" width="60" height="54"><br>
<a href="change.asp">
<img border="0" src="images/password.jpg" width="100" height="30"></a><br>
<br>
<img border="0" src="images/n22.gif" width="60" height="54"><br>
<a href="ad.asp">
<img border="0" src="images/001.gif" width="100" height="30"></a></p>
<img border="0" src="images/n24.gif" width="60" height="54"><br>
<a href="logout.asp"><img src="images/logout.gif" border="0"><strong>
<%end if%>
</strong></a> </div></td>
</tr>
<tr>
<td height="50"> </td>
</tr>
<tr>
<td><div align="center"><strong><font color="#333333">..:: 留 言 说 明
::..</font></strong></div></td>
</tr>
<tr>
<td><div align="center">
<table width="70%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td> </td>
</tr>
<tr>
<td><font color="#666666">1.本留言板为访客发表对本站的意见想法，并非灌水区！</font></td>
</tr>
<tr>
<td><font color="#666666"> </font></td>
</tr>
<tr>
<td><font color="#666666">2.由于<a href="justs.asp"><font color="#808080">留言</font></a>过多，站长只对部分留言进行回复！</font></td>
</tr>
<tr>
<td><font color="#666666"> </font></td>
</tr>
<tr>
<td><font color="#666666">3.本留言板中留言内容为留言者个人意思，不代表本站立场，未经同意不得转贴贴！</font></td>
</tr>
<tr>
<td><p> </p></td>
</tr>
</table>
</div></td>
</tr>
<tr>
<td><div align="center"></div></td>
</tr>
</table></td>
<td width="30"> </td>
<td width="530" valign="top">
<TABLE
width="94%" border=0 align="center" cellPadding=0 cellSpacing=0>
<TBODY>
<TR>
<TD width="549" align="center">
<%
if rs.eof and rs.bof then
%>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="17%" valign="bottom"> <div align="center"><strong><font color="#333333">留言公告：</font></strong>
</div></td>
<td valign="bottom">
<%
set rsn=server.createobject("adodb.recordset")
sql="select * from notice"
rsn.open sql,db,1,1
if rsn("notice")<>"" then
%>
<marquee border="0" align="top" scrollamount="2" scrolldelay="60" behavior="scroll" onmouseover="this.stop()" onmouseout="this.start()" width="100%">
<%=rsn("notice")%> </marquee>
<%else%>
<marquee border="0" align="top" scrollamount="2" scrolldelay="60" behavior="scroll" width="100%">
还没有任何公告！ </marquee>
<%
end if
rsn.close
set rsn=nothing
%>
</td>
</tr>
</table>
<table width="75%" border="0" align="center" cellpadding="6" >
<tr>
<td height="48" align="center"> <p>还没有任何留言！</p></td>
</tr>
</table>
<%else%>
<div align="center">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td align="right"><table width="100%" border="0">
<tr>
<td width="17%" valign="bottom"> <div align="center"><strong><font color="#333333">留言公告：</font></strong>
</div></td>
<td>
<%
set rsn=server.createobject("adodb.recordset") '声明一个记录集
sql="select * from notice"
rsn.open sql,db,1,1
if rsn("notice")<>"" then
%>
<marquee border="0" align="top" scrollamount="2" scrolldelay="60" behavior="scroll" onmouseover="this.stop()" onmouseout="this.start()" width="100%">
<%=rsn("notice")%> </marquee>
<%else%>
<marquee border="0" align="top" scrollamount="2" scrolldelay="60" behavior="scroll" width="100%">
还没有任何公告！ </marquee>
<%
end if
rsn.close
set rsn=nothing
%>
</td>
</tr>
</table></td>
</tr>
<tr>
<td align="center"><font color="#000000"> </font></td>
</tr>
<tr>
<td align="center">
<%
do while not rs.eof and e_page>0
%>
<TABLE class=log_td_table cellSpacing=0 cellPadding=0
width="100%" border=0>
<TBODY>
<TR> </TR>
<TR>
<TD class=log_text_box
style="TABLE-LAYOUT: fixed; WORD-BREAK: break-all"
vAlign=top> <table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="center" valign="bottom">第<%=rs("id")%>位
</td>
<td></td>
<td width="459" align="left" valign="middle"> <font color="#666666">TIME：<%=rs("time")%></font> <a title=<%=rs("name")%>来自<%=rs("where")%>><img src="images/friend.gif" width="18" height="18" border="0"></a>
<a title=QQ:<%=rs("qq")%>><img src="images/qq.gif" width="18" height="18" border="0"></a> <a href="mailto:<%=rs("email")%>" target="_blank" title=Email：<%=rs("email")%>><img src="images/MAIL.GIF" width="18" height="18" border="0"></a> <a title=IP：<%=rs("ip")%>><img src="images/ip.gif" width="18" height="18" border="0"></a> <a href="<%=rs("homepage")%>" target="_blank" title=主页：<%=rs("homepage")%>><img src="images/url.gif" width="18" height="18" border="0"></a></td>
<td width="1" align="right" valign="middle"></td>
</tr>
<tr>
<td width="70" rowspan="2" align="center" valign="top">
<p><br>
<br>
<img src="<%=rs("select")%>" alt="<%=rs("name")%>"><br>
</p>
<p> <strong><b><%=rs("name")%></b></strong>
<br>
<br>
<%if session("admin")="smallstick" then%>
[<a href="reply.asp?id=<%=rs("id")%>">回复</a>]<br>
[<a href="del.asp?id=<%=rs("id")%>" onClick="return confirm('您确定进行删除操作吗？')">删除</a>]
<%end if%>
</p></td>
<td width="1" rowspan="2" background="/img/bg_1.gif"></td>
</tr>
<tr>
<td align="center" valign="middle" bgcolor="#F5F5F5">
<table width="95%" height="100%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#F5F5F5" style="table-layout:fixed;word-break:break-all">
<tr>
<td><img src="icons/<%=rs("face")%>.gif" width="20" height="20" alt="<%=rs("name")%>">
<%if rs("show")=1 then%>：<%=rs("title")%><br><br> <font color="#333333">
<%=ubbcode(rs("content"))%> </font>
<%else if session("admin")="smallstick" then%>：<%=rs("title")%><br><br>
<font color="#333333"> 悄悄话：</font><%=ubbcode(rs("content"))%>
<font color="#333333">
<%else response.write "此留言内容为悄悄话，只有管理员才可查看!"
end if%>
<%end if%>
</font></td>
</tr>
<tr>
<td><font color="#999999">--------------------------------------------------------</font></td>
</tr>
<tr>
<td> <table width="100%" height="25" border="0" style="word-break:break-all">
<tr>
<td valign="top"><font color="#999999">站长回复：<%=ubbcode(rs("reply"))%></font></td>
</tr>
</table></td>
</tr>
</table></td>
<td width="1" background="/img/bg_1.gif"></td>
</tr>
</table></TD>
</TR>
</TBODY>
</TABLE>
<br>
<%
e_page=e_page-1
rs.movenext
loop
%>
</td>
</tr>
<tr>
<td><div align="right"><font color="#000000"> </font>第<font color=#ff0000><%=pagenum%></font>页 <font color="#000000">
<%
for p=1 to rs.pagecount
response.write ("[")
response.write "<a href=index.asp?pagenum="&p&">"&p&"</a>"
response.write ("] ")
next
%>
</font>共<%=rs.pagecount%>页</div></td>
</tr>
<tr>
<td align="center"> </td>
</tr>
<tr>
<td align="center"> </td>
</tr>
<tr>
<td align="center"> </td>
</tr>
</table>
</div></TD>
</TR>
</TBODY>
</TABLE>
<%
rs.close
set rs=nothing
end if
%>
</td>
</tr>
</table>
<table width="760" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><img src="images/bgbottom.gif" width="760" height="15"></td>
</tr>
</table></td>
</tr>
</table>
</CENTER>
<!--#include file="copyright.asp"-->
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -