📄 glly.asp
字号:
<%Response.Expires =0%>
<!--#include file="function.asp"-->
<!--#include file="conn1.asp"-->
<%
if session("yhm")="" or session("id")="" or isempty(session("yhm")) or isempty(session("id")) then
conn1.close
call disp_error("对不起，您的页面已经过期，请重新登录！","")
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="Content-Language" content="zh-cn">
<title>：：：：：快狗：：：：：</title>
<link rel="stylesheet" type="text/css" href="../style/style_b.css">
<META
content="free,freeworld,homepage,website,cgi,guestbook,免费主页,免费服务,免费联络,免费注册,免费评选,免费记数器,免费广告交换,统计,计数器,免费社区,免费"
name=keywords>
<META content=快狗为各位站长送上真正免费的好东西，记得推荐给您的朋友吧！ name=description>
<script language="javascript">
function check_form()
{
if (form.T2.value=="")
{
alert("请输入用户名！");
form.T2.focus();
return(false);
}
if (form.T1.value=="")
{
alert("请输入密码！");
form.T1.focus();
return(false);
}
return(true);
}
</script>
</head>
<body bgcolor="#ffffff" topmargin="0" leftmargin="0">
<table border="0" cellpadding="0" cellspacing="0" width="778">
<tr>
<td><img src="../image/spacer.gif" width="18" height="1" border="0"></td>
<td><img src="../image/spacer.gif" width="84" height="1" border="0"></td>
<td><img src="../image/spacer.gif" width="13" height="1" border="0"></td>
<td><img src="../image/spacer.gif" width="19" height="1" border="0"></td>
<td><img src="../image/spacer.gif" width="68" height="1" border="0"></td>
<td><img src="../image/spacer.gif" width="468" height="1" border="0"></td>
<td><img src="../image/spacer.gif" width="108" height="1" border="0"></td>
<td><img src="../image/spacer.gif" width="1" height="1" border="0"></td>
</tr>
<tr>
<td colspan="7"><img name="index_r1_c1" src="../image/index_r1_c1.gif" width="778" height="8" border="0"></td>
<td><img src="../image/spacer.gif" width="1" height="8" border="0"></td>
</tr>
<tr>
<td colspan="5"><img name="index_r2_c1" src="../image/index_r2_c1.gif" width="202" height="49" border="0"></td>
<td rowspan="2"><img name="index_r2_c6" src="../image/dogb.gif" width="468" height="60" border="0"></td>
<td rowspan="4"><img name="index_r2_c7" src="../image/index_r2_c7.gif" width="108" height="79" border="0"></td>
<td><img src="../image/spacer.gif" width="1" height="49" border="0"></td>
</tr>
<tr>
<td rowspan="3"><img name="index_r3_c1" src="../image/index_r3_c1.gif" width="18" height="30" border="0"></td>
<td rowspan="2" background="../image/index_r3_c2.gif"> </td>
<td rowspan="3" colspan="3"><img name="index_r3_c3" src="../image/index_r3_c3.gif" width="100" height="30" border="0"></td>
<td><img src="../image/spacer.gif" width="1" height="11" border="0"></td>
</tr>
<tr>
<td rowspan="2"><img name="index_r4_c6" src="../image/index_r4_c6.gif" width="468" height="19" border="0"></td>
<td><img src="../image/spacer.gif" width="1" height="7" border="0"></td>
</tr>
<tr>
<td><img name="index_r5_c2" src="../image/index_r5_c2.gif" width="84" height="12" border="0"></td>
<td><img src="../image/spacer.gif" width="1" height="12" border="0"></td>
</tr>
<tr>
<td rowspan="4" colspan="4" height="54" valign="top">
<table border="0" cellspacing="0" cellpadding="0">
<tr>
<td >
<form method="post" action="userdl.asp" onsubmit="return check_form()" name="form">
<table cellspacing="0" cellpadding="0">
<tr>
<td colspan="2"><img border="0" name="index_r6_c1" src="../image/index_r6_c1.gif" width="134" height="24"></td>
</tr>
<tr>
<td width="115" background="../image/index_r8_c1.gif" height="318" valign="top" align="center">用户登陆<br>
用户名<input type="text" name="T2" size="8"><br>
密 码<input type="password" name="T1" size="8"><br>
<input type="submit" value="提交" name="B1"><input type="reset" value="重填" name="B2"><br>
<br>
<table border="1" width="85%" bordercolordark="#FFFFFF" bordercolorlight="#000000">
<tr>
<td width="100%" background="../image/line1.jpg" valign="middle" align="center"><a href="../qqprg/register.htm">注册快狗</a></td>
</tr>
<tr>
<td width="100%" background="../image/line1.jpg" valign="middle" align="center"><a href="getcode.asp?id=<%=id%>" title="如果您丢失了代码，请先登录再点击此连接">取回代码</a></td>
</tr>
<tr>
<td width="100%" background="../image/line1.jpg" valign="middle" align="center"><a href="../text/help.htm">使用帮助</a></td>
</tr>
<tr>
<td width="100%" background="../image/line1.jpg" valign="middle" align="center"><a href="../text/faq.htm">常见问题</a></td>
</tr>
<tr>
<td width="100%" background="../image/line1.jpg" valign="middle" align="center"><a href="glly.asp?page=1">留言管理</a></td>
</tr>
<tr>
<td width="100%" background="../image/line1.jpg" valign="middle" align="center"><a href="../text/about.htm">关于我们</a></td>
</tr>
</table></form>
</td>
<td><img src="../image/index_r8_c4.gif" width="19" height="318"></td>
</tr>
<tr>
<td colspan="2">
<p><img border="0" name="index_r9_c1" src="../image/index_r9_c1.gif" width="134" height="30"></p>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
<td colspan="3"><img name="index_r6_c5" src="../image/index_r6_c5.gif" width="644" height="10" border="0"></td>
<td><img src="../image/spacer.gif" width="1" height="10" border="0"></td>
</tr>
<tr>
<td colspan="3"><img name="index_r7_c5" src="../image/index_r7_c5.gif" width="644" height="14" border="0"></td>
<td><img src="../image/spacer.gif" width="1" height="14" border="0"></td>
</tr>
<tr>
<td rowspan="3" colspan="3" valign="top" align="center">
<%
id=request("id")
If Id="" or Not IsNumeric(id) Then
id=0
End If
set rs=server.CreateObject("adodb.recordset")
if id>0 then
rs.open "select * from user_letter_table where siteid="&session("siteid")&" and id="&id,conn1,3,2
if not rs.eof and not rs.bof then
rs.delete
end if
rs.close
conn1.close
response.redirect "glly.asp?id=0&page="&request("page")
end if
rs.Open "select * from user_letter_table where siteid="&session("siteid")&" order by rq desc,sj desc",conn1,1,1
if rs.recordcount<=0 then
rs.close
conn1.close
response.write("<font color=#ff0000 size=+1><center>现在还没有留言！</center></font>")
response.end
end if
%>
<table width="600" border="0" cellspacing="0" cellpadding="0">
<td width="562"><br>
<p align="center"><img src="../qqpic/ly.gif" WIDTH="36" HEIGHT="36"> <font size="3" color="#ff0000"><b>管理留言</b></font></p>
</td>
<tr>
<td width="562" valign="top" align="right">
<table width="562" border="0" cellspacing="0" cellpadding="0" height="1">
<tr>
<td width="622" colspan="3" height="16">
<table border="0" cellpadding="0" cellspacing="0" width="560">
<tr>
<%
pagenum=cint(request("page"))
if rs.RecordCount <=10 then
pagesums=1
elseif (rs.recordcount mod 10)=0 then
pagesums=rs.recordcount/10
else
pagesums=int(rs.RecordCount/10)+1
end if
if pagenum<1 then
pagenum=1
end if
if pagenum>pagesums then
pagenum=pagesums
end if
if pagenum>1 then
rs.movefirst
num=(pagenum-1)*10
rs.move num
end if
if (rs.recordcount-(pagenum-1)*10)>=10 then
movenum=10
else
movenum=rs.recordcount-(pagenum-1)*10
end if
%>
<td width="556">--第<font color="#0000ff"><%=pagenum%></font>页，共<font color="#0000ff"><%=rs.RecordCount%></font>条留言，共<font color="#0000ff"><%=pagesums%></font>页，每页10条--
<%
if pagesums>1 then
if pagenum>1 then
%>
<a href="glly.asp?id=0&page=1">首 页</a>
<a href="glly.asp?id=0&page=<%=pagenum-1%>">上一页</a>
<%
end if
if pagenum>=1 and pagenum+1<=pagesums then
%>
<a href="glly.asp?id=0&page=<%=pagenum+1%>">下一页</a>
<a href="glly.asp?id=0&page=<%=pagesums%>">尾 页</a>
<%
end if
end if
%>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="22" height="1">
<img height="16" src="../qqpic/td_left_top.gif"></td>
<td width="576" background="../qqpic/td_bg_top.gif" height="1"> </td>
<td width="21" height="1">
<img height="16" src="../qqpic/td_right_top.gif"></td>
</tr>
<tr>
<td width="22" background="../qqpic/td_bg_left.gif" height="58"> </td>
<td width="576" valign="top" height="58">
<table border="0" cellpadding="2" cellspacing="2" width="600">
<%
i=1
do while i<=movenum
if i mod 2=0 then
color="#eeeeee"
else
color="#f0f0f0"
end if
%>
<tr>
<td width="50" bgcolor="<%=color%>"><%=i%>
<%if rs("rq")=date() then%>
<img src="../qqpic/newm.gif" WIDTH="28" HEIGHT="11">
<%end if%>
</td>
<td width="174" bgcolor="<%=color%>">姓名：<%=server.HTMLEncode(rs("xm"))%><img src="<%="../qqpic/bq/bq"&rs("bq")&".gif"%>">
<td width="148" bgcolor="<%=color%>">日期：<%=rs("rq")&" "&rs("sj")%></td>
<td width="56" bgcolor="<%=color%>">
<p align="center"><a href="glly.asp?id=<%=rs("id")%>&page=<%=request("page")%>"><font color="#0000ff">删除留言</font></a></td>
</tr>
<tr>
<td width="70" bgcolor="<%=color%>">标题：</td>
<td width="442" colspan="3" bgcolor="<%=color%>"><%=server.HTMLEncode(rs("bt"))%></td>
</tr>
<tr>
<td width="70" bgcolor="<%=color%>">内容：</td>
<%if trim(rs("lr"))<>"" then%>
<td width="442" colspan="3" bgcolor="<%=color%>"><%=server.htmlencode(rs("lr"))%></td>
<%else%>
<td width="442" colspan="3" bgcolor="<%=color%>">无</td>
<%end if%>
</tr>
<tr>
<td width="576" colspan="5" height="20" background="../qqpic/td_bg_top.gif"></td>
</tr>
<%
rs.movenext
i=i+1
loop
rs.close
conn1.close
%>
</table>
</td>
<td width="21" background="../qqpic/td_bg_right.gif" height="58"> </td>
</tr>
<tr>
<td width="22" height="1">
<img height="21" src="../qqpic/td_left_bottom.gif" width="20"></td>
<td width="576" background="../qqpic/td_bg_bottom.gif" height="1"> </td>
<td width="21" height="1">
<img height="21" src="../qqpic/td_right_bottom.gif" width="18"></td>
</tr>
<tr>
<td width="625" colspan="3" height="14">
<p align="right"><%
if pagesums>1 then
if pagenum>1 then
%>
<a href="glly.asp?id=0&page=1">首 页</a>
<a href="glly.asp?id=0&page=<%=pagenum-1%>">上一页</a>
<%
end if
if pagenum>=1 and pagenum+1<=pagesums then
%>
<a href="glly.asp?id=0&page=<%=pagenum+1%>">下一页</a>
<a href="glly.asp?id=0&page=<%=pagesums%>">尾 页</a>
<%
end if
end if
%>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
<td><img src="../image/spacer.gif" width="1" height="318" border="0"></td>
</tr>
<tr>
<td><img src="../image/spacer.gif" width="1" height="30" border="0"></td>
</tr>
<tr>
<td colspan="4"><img name="index_r10_c1" src="../image/index_r10_c1.gif" width="134" height="141" border="0"></td>
<td><img src="../image/spacer.gif" width="1" height="141" border="0"></td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -