📄 liuyan.asp
字号:
<!--#include file="top.asp"-->
<!--#include file="UBB.asp"-->
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td background="images/topb.gif"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="5%"><img src="images/cent_01.gif" width="37" height="20"></td>
<td width="93%" background="images/cent_02.gif"> </td>
<td width="2%"><img src="images/cent_03.gif" width="51" height="20"></td>
</tr>
</table></td>
</tr>
<tr>
<td background="images/topb.gif">
<div align="center">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><div align="center"><a href="L_write.asp">签写留言</a></div></td>
</tr>
</table>
<TABLE borderColor=#ffffff cellSpacing=1 cellPadding=2 width="98%" bgColor=ff9900 border=1>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from liuyan order by id desc"
rs.open sql,conn,1
rs.pagesize=5 '每页显示多少条
pagecount=rs.pagecount '总页数
if rs.bof and rs.eof then
response.write ""
else
page=clng(request.querystring("page"))
if page<1 then page=1
if page>rs.pagecount then page=rs.pagecount
rs.absolutepage=page '跳到多少页
for i=1 to rs.pagesize
%>
<TR borderColor=#ffffff bgColor=#ffffff>
<TD><TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TR>
<TD align=middle> <table width="98%" border="1" cellpadding="2" cellspacing="1" bordercolor="#ffffff" bgcolor="ff9900">
<tr>
<td bordercolor="#ff9900" bgcolor="#FFCC66"> <b><font class=end>No.
<% =rs("id") %>
主题：
<% =rs("title") %>
</font></b></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"><table width="100%" border="0">
<tr>
<td width="21%" valign="top"><TABLE width="100%" border=0>
<TR>
<TD align=middle>来自：
<% =rs("fbr") %>
</TD>
</TR>
<TR>
<TD align=middle>
<% if rs("xb")="1" then%>
<IMG title="<% =rs("fbr") %> 是 男孩" src="<% =rs("pic") %>" border=0>
<% elseif rs("xb")="2" then %>
<IMG title="<% =rs("fbr") %> 是 女孩" src="<% =rs("pic") %>" border=0>
<% end if %>
</TD>
</TR>
</TABLE></td>
<TD width=1 bgColor=#FFC671></TD>
<td width="79%"><TABLE height="100%" width="100%" border=0>
<TR>
<TD width="59%" colSpan=2 vAlign=top> <TABLE class=tf cellSpacing=4 cellPadding=2 width="100%" border=0>
<TR>
<TD class=bw><IMG
src="images\L01.gif"
border=0><br>
<% zhengwen = rs("nr")
zhengwen = replace(zhengwen,chr(13),"<br>")
zhengwen = replace(zhengwen,chr(32)," ")
response.write zhengwen
%>
</TD>
</TR>
</TABLE>
<TABLE borderColor=#ffffff cellSpacing=1 cellPadding=2 width="100%" bgColor=ff9900 border=1>
<% if rs("huifu")<>"" then %>
<TR borderColor=#ededed bgColor=#ededed>
<TD class=bw> <font color="#999999"><IMG
src="images/L02.gif" width="16" height="16" border=0><font color="#999999"></font><br>
管理员回复: <br>
<% hf = rs("huifu")
hf = replace(hf,chr(13),"<br>")
hf = replace(hf,chr(32)," ")
response.write hf
%>
</font></TD>
</TR>
<% else
response.Write""
end if %>
</TABLE>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<TR>
<TD height=5 colspan="2"></TD>
</TR>
<TR bgcolor="ff9900">
<TD colSpan=3 height=1></TD>
</TR> <TR>
<TD height=5 colspan="2"></TD>
</TR>
<tr>
<td width="41%"><img src="images/L03.gif" width="16" height="16" border=0 align=absMiddle title=签写时间>
<% =rs("date") %>
</td>
<td width="59%"><div align="right"><a
href="http://search.tencent.com/cgi-bin/friend/user_show_info?ln=<% =rs("qq")%>"
target=_blank><img
src="images/L04.gif" alt="<%=rs("fbr")%>的QQ是:<% =rs("qq") %>"
border=0 ></a> <a
href="mailto:<% =rs("email") %>"><img
src="images/L05.gif" alt="给 <% =rs("fbr") %> 发送邮件" width="16" height="16"
border=0 ></a>
<% if rs("homepage")<>"http://" then %>
<a href="<% =rs("homepage") %>" target="_blank"><img src="images/L06.gif" width="16" height="16" border="0"></a>
<% else
response.Write""
end if %>
<% if session("VIP")=999 then %>
<img
src="images/L07.gif" width="13" height="15"
border=0 align=absMiddle
title="<% =rs("ip") %>"> <a
href="L_huifu.asp?id=<% =rs("id") %>"><img src="images/L08.gif"
alt=回复这条留言 width="16" height="16"
border=0></a> <a
href="liuyan.asp?del=<% =rs("id") %>"><img src="images/L09.gif"
alt=删除这条留言 width="16" height="16"
border=0></a>
<% else
response.Write""
end if %>
</div></td>
</tr>
</table></TD>
</TR>
</TABLE></td>
</tr>
</table></td>
</tr>
</table></TD>
</TR></TBODY>
</TABLE></TD>
</TR>
<%
rs.movenext
if rs.eof then exit for
next
end if
%>
</TABLE>
<TABLE borderColor=#ffffff cellSpacing=1 cellPadding=2 width="98%" bgColor=ff9900 border=1>
<TR borderColor=#ededed bgColor=#ededed>
<TD align=middle height=25><div align="center">
<% set tj=conn.execute("Select count(*) as tj1 From liuyan ") %>
共有〖
<% =tj("tj1") %>
〗条留言
<%
r=7
'总页数
zys=round(clng(rs.pagecount)/r+0.5)
'当前页数
dqys=request.QueryString("dqys")
'开始页
ksy=request.QueryString("ksy")
if dqys="" then dqys=1
if ksy="" then ksy=1
js=clng(dqys) * r '一个FOR语句结束
if js > clng(rs.pagecount) then js=clng(rs.pagecount)
newksy= clng(dqys)*r-(r-1) '一个FOR语句开始
if clng(dqys) >1 then response.write "<a href=?dqys="& dqys-1 &">" &"上一页" &"</a>"
for t=newksy to js
response.write "<a href=?page=" &t&"&dqys="&dqys&">" &t& "</a> "
next
if cdbl(dqys)< zys then response.write "<a href=?dqys="& dqys+1 &">" &"下一页" &"</a>"
%>
</div></TD>
</TR>
</TABLE>
</div></td>
</tr>
</table>
<% if request("del")<>"" then
del=request.QueryString("del")
conn.execute ("delete from liuyan where id="&del)
response.Redirect"liuyan.asp"
else
response.Write""
end if
%>
<!--#include file="let.asp"-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -