📄 disp_ly.asp
字号:
<%Response.Expires =0%>
<!--#include file="conn.asp"-->
<!--#include file="function.asp"-->
<%
siteid=request("siteid")
if siteid="" then
conn.close
call disp_error("数据传送出错，请返回重试！","")
end if
If Not IsNumeric(siteid) Then siteid=187
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from user_letter_table where siteid="&siteid&" and (hfid=0 or hfid is null) order by rq desc,sj desc",conn,1,1
if rs.recordcount<=0 then
rs.close
conn.close
response.write("<font color=#ff0000 size=+1><center>现在还没有留言！〖<a href=# onclick=window.open('guest.asp?siteid="&siteid&"','guestwin','toolbar=no,scrollbars=0,resizable=0,menubar=no,width=570,height=455')>给我们留言</a>〗</center></font>")
response.end
end if
%>
<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><a href="#" onclick="window.open('gllydl.asp?id=<%=siteid%>','lygldl','toolbar=no,scrollbars=no,resizable=0,menubar=no,width=199,height=98');">(留言本管理)</a></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="disp_ly.asp?siteid=<%=siteid%>&page=1">首 页</a>
<a href="disp_ly.asp?siteid=<%=siteid%>&page=<%=pagenum-1%>">上一页</a>
<%
end if
if pagenum>=1 and pagenum+1<=pagesums then
%>
<a href="disp_ly.asp?siteid=<%=siteid%>&page=<%=pagenum+1%>">下一页</a>
<a href="disp_ly.asp?siteid=<%=siteid%>&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="#" onclick="window.open('guest.asp?siteid=<%=siteid%>','guestwin','toolbar=no,scrollbars=0,resizable=0,menubar=no,width=570,height=455');"><font color="#0000ff">我要留言</font></a></td>
</tr>
<tr>
<td width="70" bgcolor="<%=color%>">标题：</td>
<td width="442" colspan="2" bgcolor="<%=color%>"><a href="#" onclick="window.open('hfly.asp?siteid=<%=siteid%>&id=<%=rs("id")%>','guestwin','toolbar=no,scrollbars=1,resizable=1,menubar=no,width=670,height=455');"><font color="#0000ff"><%=server.HTMLEncode(rs("bt"))%></font></a></td>
<td bgcolor="<%=color%>"><center><a href="#" onclick="window.open('hfly.asp?siteid=<%=siteid%>&id=<%=rs("id")%>','guestwin','toolbar=no,scrollbars=1,resizable=1,menubar=no,width=670,height=455');"><font color="#0000ff">回复留言</font></a></center></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>
<%
set rs1=server.createobject("adodb.recordset")
rs1.open "select * from user_letter_table where siteid="&siteid&" and hfid="&rs("id")&" order by rq desc,sj desc",conn,1,1
if not rs1.eof and not rs1.bof then
do while not rs1.eof
%>
<tr>
<td colspan="5" bgcolor="#f0f0f0"><img src="<%="../qqpic/bq/bq"&rs1("bq")&".gif"%>"><%=server.HTMLEncode(rs1("bt"))%>(回复人：<b><%=server.HTMLEncode(rs1("xm"))%></b> <%=rs1("rq")&" "&rs1("sj")%>)
<%if rs1("rq")=date() then%>
<img src="../qqpic/newm.gif" WIDTH="28" HEIGHT="11">
<%end if%>
</td>
</tr>
<tr>
<%if trim(rs1("lr"))<>"" then%>
<td colspan="5" width="442" bgcolor="#ffffff"><%=server.htmlencode(rs1("lr"))%></td>
<%else%>
<td colspan="5" width="442" bgcolor="#ffffff">无</td>
<%end if%>
</tr>
<%
rs1.movenext
loop
end if
%>
<tr>
<td width="576" colspan="5" height="20" background="../qqpic/td_bg_top.gif"></td>
</tr>
<%
rs1.close
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="disp_ly.asp?siteid=<%=siteid%>&page=1">首 页</a>
<a href="disp_ly.asp?siteid=<%=siteid%>&page=<%=pagenum-1%>">上一页</a>
<%
end if
if pagenum>=1 and pagenum+1<=pagesums then
%>
<a href="disp_ly.asp?siteid=<%=siteid%>&page=<%=pagenum+1%>">下一页</a>
<a href="disp_ly.asp?siteid=<%=siteid%>&page=<%=pagesums%>">尾 页</a>
<%
end if
end if
%>
</td>
</tr>
</table>
</td>
</tr>
</table>
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -