guestbook_body.asp

情缘天空美化版 v3.68 强大的公告

<%
sub showgb_body()
dim totalgb,Currentpage,totalpages,i
opengb
sql="SELECT * FROM gb ORDER BY gb_id DESC"
if request("key")<>"" and request("colname")<>"" then
sql="select * from gb where "& request("colname") &" like '%"& request("key") &"%' order by gb_id desc"
end if
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%>
<table width="774" border="0" align="center" cellspacing="1" style="TABLE-LAYOUT: fixed; BORDER-COLLAPSE: collapse" background=images/web_bg.gif>
<tr>
<td width="560" valign="top">
<table cellspacing="0" cellpadding="0" style="border-collapse: collapse" bordercolor="#111111"><tr><td><img src=images/book1.jpg border=0></td><td><a href=New_gb.asp?action=gb><img src=images/book3.jpg border=0></a></td><td><a href="guestbook.asp"><img src=images/book4.jpg border=0></a></td><td><img src=images/book5.jpg border=0></td></tr></table>
<!--tbody>
<tr>
<td colspan="2" align=center></td>
</tr--><TABLE width="98%" height=140 border=0 align="center" cellPadding=3 cellSpacing=0 borderColor=#111111 id=AutoNumber8 style="TABLE-LAYOUT: fixed; BORDER-COLLAPSE: collapse">
<TBODY>
<TR>
<td valign=center colspan=2 id="zoom">
<%if not rs.eof then
rs.movefirst
rs.pagesize=gbperpage
if trim(request("page"))<>"" then
currentpage=clng(request("page"))
if currentpage>rs.pagecount then
currentpage=rs.pagecount
end if
else
currentpage=1
end if
totalgb=rs.recordcount
if currentpage<>1 then
if (currentpage-1)*gbperpage<totalgb then
rs.move(currentpage-1)*gbperpage
dim bookmark
bookmark=rs.bookmark
end if
end if
if (totalgb mod gbperpage)=0 then
totalpages=totalgb\gbperpage
else
totalpages=totalgb\gbperpage+1
end if
i=0
do while not rs.eof and i<gbperpage
sql="select * from reply where gb_id="&rs("gb_id")
set rsrep=server.createobject("adodb.recordset")
rsrep.open sql,conn,1,1%>
<span class="line">
<a name="reply<%=i%>">
<table border="0" cellpadding="5" cellspacing="0"  width="100%" align=center bgcolor=#fefefe style="border:1px solid #888888; border-collapse: collapse" >
    <tr>
      <td width="90" height=40 align=center background=images/anbg.gif style="border-left-width: 1; border-right-style: dotted; border-right-width: 1; border-top-width: 1; border-bottom-style: dotted; border-bottom-width: 1"><strong><%=keys(rs("gb_poster"))%></strong></td>
      <td width="84%" background=images/anbg.gif style="border-left-width: 1; border-right-style: dotted; border-right-width: 1; border-top-width: 1; border-bottom-style: dotted; border-bottom-width: 1"><%if rs("gb_posteremail")<>"" then%>
<a href="mailto:<%=rs("gb_posteremail")%>" target="_blank">
      <img src="images/email.gif"  alt="<%=rs("gb_posteremail")%>" border="0" width="45" height="18"></a>
<%end if%>
<%if rs("gb_posterhome")<>"" then%>
<a href="<%=rs("gb_posterhome")%>" target="_blank">
      <img src="images/homepage.gif"  alt="<%=rs("gb_posterhome")%>" border="0" width="47" height="18"></a>
<%end if%>
<%if rs("gb_posterqq")<>"" then%>
<a href="http://search.tencent.com/cgi-bin/friend/user_show_info?ln=<%=rs("gb_posterqq")%>" target="_blank">
      <img src="images/profile.gif" alt="qq:<%=rs("gb_posterqq")%>" border="0" width="45" height="18"></a><%end if%></td>
    </tr>
    <tr>
      <td width="90" rowspan="2" align=center style="border-left-width: 1; border-right-style: dotted; border-right-width: 1; border-top-width: 1; border-bottom-style: dotted; border-bottom-width: 1"><%if rs("gb_postersex")=0 then%>
<img src="images/male.gif" alt="帅哥" border="0" width="64" height="64">
<%else%>
<img src="images/fmale.gif" alt="美女" border="0" width="64" height="64">
<%end if%></td>
      <td width="84%"><p style="line-height: 150%"><strong><%=keys(rs("gb_poster"))%></strong>&nbsp;[<%=rs("gb_date")%><%if rs("gb_posterfrom")<>"" then%>&nbsp;<%=rs("gb_posterfrom")%><%end if%>]<br><%=keys(ubb2html(formatStr(autourl(rs("gb_content"))), true, true))%><br></td>
    </tr>
    <tr>
      <td width="84%" style="border-left-width: 0; border-right-style: dotted; border-right-width: 0; border-top-width: 0; border-bottom-style: dotted; border-bottom-width: 1">
<%if not rsrep.eof then
dim totalrep,Currentreppage,totalreppages,j
rsrep.movefirst
rsrep.pagesize=gbrepperpage
reppage="reppage"&i
if trim(request(reppage))<>"" then
currentreppage=clng(request(reppage))
if currentreppage>rsrep.pagecount then
currentreppage=rsrep.pagecount
end if
else
currentreppage=1
end if
totalrep=rsrep.recordcount
if currentreppage<>1 then
if (currentreppage-1)*gbrepperpage<totalrep then
rsrep.move(currentreppage-1)*gbrepperpage
dim repbookmark
repbookmark=rsrep.bookmark
end if
end if
if (totalrep mod gbrepperpage)=0 then
totalreppages=totalrep\gbrepperpage
else
totalreppages=totalrep\gbrepperpage+1
end if
j=0
do while not rsrep.eof and j<gbrepperpage
k=j+1%><p style="line-height: 150%">
<img src=images/huifu.gif width="420" height="12"><br><b><%=rsrep("rep_poster")%></b>&nbsp;[<%=rsrep("rep_date")%>]<br>
<%=ubb2html(formatStr(autourl(rsrep("rep_content"))), true, true)%>
<%j=j+1
rsrep.movenext
loop
end if%>
</td>
    </tr>
    <tr>
      <td width="90" background=images/anbg1.gif style="border-left-width: 1; border-right-style: dotted; border-right-width: 1; border-top-width: 1; border-bottom-style: dotted; border-bottom-width: 1">　</td>
      <td width="84%" height=40 background=images/anbg1.gif>[共有<%=rsrep.recordcount%>条回复
<%if rsrep.recordcount<>0 then
j=1
for j=1 to totalreppages%>
<%
if j=currentreppage then
%>
<%=j%>
<%else
if request("page")<>"" then
%>
<a href="guestbook.asp?page=<%=request("page")%>&<%=reppage%>=<%=j%>#reply<%=i%>"><font color=red>[<%=j%>]</font></a>
<%else%>
<a href="guestbook.asp?<%=reppage%>=<%=j%>#reply<%=i%>"><font color=red>[<%=j%>]</font></a>
<%end if
end if
next
end if%>]</font><%if session("adminlogin")=sessionvar then%><font color=#ff0000>【留言管理】</font>&nbsp;|&nbsp;<a href="New_gb.asp?action=rep&gb_id=<%=rs("gb_id")%>">回复</a>&nbsp;|
<a href="delgb.asp?id=<%=rs("gb_id")%>">删除</a>&nbsp;|&nbsp;IP: <%=rs("gb_posterip")%>&nbsp;|<%end if%></td>
    </tr>
  </table>
<%
rsrep.close
set rsrep=nothing
i=i+1
rs.movenext
loop
%>
</TD>
</TR>
</TBODY>
</TABLE>
<%
else
if rs.eof and rs.bof then
%> <table cellspacing=0 width="92%" align=center border=0 style="TABLE-LAYOUT: fixed; BORDER-COLLAPSE: collapse">
<tr>
<td valign=center colspan=2 align="center" height="30"> <p
class=entry2text>系统找不到您所要查询的记录！</p></td>
</tr>
</table>
<%
end if
end if
rs.close
set rs=nothing
%> <table cellspacing=0 width="98%" align=center border=0 style="TABLE-LAYOUT: fixed; BORDER-COLLAPSE: collapse">
<tr>
<td colspan=2 align=right><hr color="#ffffff" size="1" style="border: 1px dotted #000000">
目前共有<strong><%if totalgb<>"" then response.write totalgb else response.write "0" end if%></strong>条留言/<strong><%if totalpages<>"" then response.write totalpages else response.write "0" end if%></strong>页<strong>
<%
i=1
for i=1 to totalpages
if i=currentpage then
%>
[<b><font color=#ff0099><%=i%></font></b>]
<%else
if request("key")<>"" and request("colname")<>"" then%>
</strong>[<strong><a href="guestbook.asp?page=<%=i%>&key=<%=request("key")%>&colname=<%=request("colname")%>"><%=i%></a></strong>]<strong>
<%else%>
</strong>[<strong><a href="guestbook.asp?page=<%=i%>"><%=i%></a></strong>]<strong>
<%end if
end if
next%>
</strong><br></td>
</tr>
</table>
</td>
<td align="center" valign="top" background="images/dotlinev.gif" width="1"></td>
<td width="213" align=center valign="top" >
<img src=images/book2.jpg border=0 width="210" height="122" ><br>
<img src=images/guestbook.jpg border=0><br>
<table width="208" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td height="40" align="right" background="images/lefttablo_01f.gif"><br>
:::<strong>留言搜索</strong>:::&nbsp;&nbsp;&nbsp;</td>
</tr>
</table>
<table width="208" border="0" align="center" cellpadding="0" cellspacing="0" height="92" >
<tr>
<td height="4" background="images/lefttablo_03.gif"></td>
</tr><form name=search action="guestbook.asp"><tr>
<td align="center" height="76" class="chinese" background="images/lefttablo_03.gif"> <select name="colname">
<option value="gb_poster">留 言 者</option><option value="gb_content">留言内容</option></select>
<br><input name=key class="input2" size="14" maxlength="50">
<br><input class=input type=submit value=搜索 name="submit">
</td>
</tr>
<tr>
<td valign="bottom" height="6" >
<img src="images/lefttablo_05.gif" width="208" height="10"></td>
</tr></form>
</table>
<br>
<br><table width=92%><tr><td align=center>=== 留 言 注 意 事 项 ===<br><br></td></tr><tr><td>&nbsp;&nbsp;1、留言簿上只能应用于网站链接、网站事务等方面，不能提出技术问题，否则删除贴子；<br><br>&nbsp;&nbsp;2、严禁灌水，轻者删除留言，重者封掉IP；<br><br>&nbsp;&nbsp;3、有关技术方面的问题，请到论坛；<br><br>&nbsp;&nbsp;4、作友情链接留言时，请先做好本站链接，然后再留言，否则本站一律不与链接。</td></tr></table>
</td>
</tr>
<tr>
<td colspan="3" background="images/dotlineh.gif" height="1"></td>
</tr>
</table>
<%end sub%>