?? glly.asp
字號:
<%Response.Expires =0%>
<%
'on error resume next
if session("lymanager")="" or isempty(session("lymanager")) or session("lymanager")=0 then
response.write("<script language=""javascript"">")
response.write("alert(""對不起請先登錄！"");")
response.write("history.go(-1);")
response.write("</script>")
response.end
end if
%>
<!--#include file="conn.asp"-->
<%
Dim id,siteid,Flag
id=request("id")
siteid=request("siteid")
Flag=Request.QueryString("flag")
If Not IsNumeric(siteid) Then sizeid=187
if siteid<>session("siteid") then
Response.Write("對不起，你不能管理本站留言！")
Response.End
end if
set rs=server.CreateObject("adodb.recordset")
if IsNumeric(id) and "del"=Flag then
'rs.open "select * from user_letter_table where id="&id,conn,3,2
'if not rs.eof and not rs.bof then
conn.execute("delete from user_letter_table where siteid=" & siteid & " and hfid="&id)
' rs.delete
'end if
'rs.close
'conn.close
response.redirect "glly.asp?siteid="&siteid&"&id=0&page="&request("page")
Response.End
end if
rs.Open "select * from user_letter_table where siteid="&siteid&" order by rq desc,sj desc",conn,1,1
if rs.eof then
rs.close
conn.close
set rs=nothing
set conn=nothing
response.write("<font color=#ff0000 size=+1><center>現在還沒有留言！</center></font>")
response.end
%>
<html>
<head>
<title>管理留言</title>
<meta http-equiv="expires" content="no-cache">
<meta http-equiv="expires" content="wed,26 feb 1997 08:21:57 gmt">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="style.css">
</head>
<body bgcolor="#ffffff" leftmargin="2" topmargin="2" marginwidth="2" marginheight="2">
<div align="center">
<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?siteid=<%=siteid%>&id=0&page=1">首 頁</a>
<a href="glly.asp?siteid=<%=siteid%>&id=0&page=<%=pagenum-1%>">上一頁</a>
<%
end if
if pagenum>=1 and pagenum+1<=pagesums then
%>
<a href="glly.asp?siteid=<%=siteid%>&id=0&page=<%=pagenum+1%>">下一頁</a>
<a href="glly.asp?siteid=<%=siteid%>&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?flag=del&siteid=<%=siteid%>&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
conn.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?siteid=<%=siteid%>&id=0&page=1">首 頁</a>
<a href="glly.asp?siteid=<%=siteid%>&id=0&page=<%=pagenum-1%>">上一頁</a>
<%
end if
if pagenum>=1 and pagenum+1<=pagesums then
%>
<a href="glly.asp?siteid=<%=siteid%>&id=0&page=<%=pagenum+1%>">下一頁</a>
<a href="glly.asp?siteid=<%=siteid%>&id=0&page=<%=pagesums%>">尾 頁</a>
<%
end if
end if
if conn.state<>0 then conn.close
set conn=nothing
%>
</td>
</tr>
</table>
</td>
</tr>
</table>
</div>
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -