gb_view.asp

这个留言薄

<%@ Language=VBScript %>
<!--#INCLUDE FILE="config.asp" -->
<!--#INCLUDE FILE="guest_lib.asp" -->
<%
dim ASPBook
dim StrSQL

if not isempty(request("page")) then
      Mypage=cint(Request("page"))
else
      Mypage=1
end if

set ASPBook = Server.CreateObject("ADODB.Recordset")

StrSQL = "Select * from guest order by ID desc"
ASPBook.open StrSQL,conn,1,1

ASPBook.pagesize=Mypagesize
maxpages=cint(ASPBook.pagecount)
totalsize=cint(Mypagesize)
ASPBook.absolutepage=Mypage
GuestTotal=ASPBook.RecordCount

if cint(Mypage) >1 then
    if cint(Mypage) > maxpages then
         MESSAGE("<li>没有你所想要的页数！</li>")
         Response.End 
    end if
end if
HEADER "显示留言"
MyMenu
%>

<a href="gb_sign.asp"><img src="images/logo.jpg" alt="添加留言" border=0></a>
<BR>
<table cellspacing=1 border=0 width=700><tr>
<td valign="bottom" align="left" width=16>
<IMG border=0 src="images/face.gif" width="16" height="16"></TD>
<TD><B>TOTAL MESSAGE : <FONT COLOR=RED><%=MyPageSize%></FONT>/<FONT COLOR=RED><%=GuestTotal%></FONT>. PAGES : <FONT COLOR=RED><%=cint(Mypage)%></FONT>/<FONT COLOR=RED><%=maxpages%></FONT>
</TD><TD><%=Greeting%></TD><TD align="right">
<font color=#000000>
<%PageLink%>
</font>
</TD></TR></table></Div>
<div align="center"><center>
<table border=0 cellpadding=0 cellspacing=0 width="700"><TR><td bgcolor="<%=Color3%>">
<table width=100% border=0 cellspacing=1 cellpadding=4>
<TR bgcolor="#F8F8FF">
<TD valign=middle width=18%><font color=#000000>留言者信息</FONT></TD>
<TD valign=middle><FONT color=#000000>留言内容:</FONT></TD>
</TR>
<%
If ASPBook.Eof or ASPBook.Bof then
      Response.Write "<TR>"       
      Response.Write "<TD bgcolor=" & Color1 & "  align=center colspan=6><FONT STYLE=font-size:9pt>对不起，目前还没有任何留言，如要留言，请按“我要留言”图片！</FONT></TD>"
else

i = 0
total = 0

do until ASPBook.Eof or total = totalsize

if i = 0 then                   
    
    CColor = Color1                 

else                  
    CColor = Color2                  

end if  

%>
<tr bgcolor=<%=CColor%>><TD width=18% valign=top rowspan="2">
<FONT COLOR=BLUE><B><%=ASPBook("名字")%></B></font>
<CENTER>
<table border="0" cellpadding="0" cellspacing="0">
<tr><td align="center"></td></tr>
<tr><td align="center"><BR>

<%if ASPBook("性别") = "boy" then%>
<img src="./images/boy.gif" alt="英俊潇洒的 <%=ASPBook("名字")%> 先生" ALIGN=absmiddle border=0>
<%elseif ASPBook("性别") = "girl" then%>
<img src="./images/girl.gif" alt="美丽又温柔的 <%=ASPBook("名字")%> 小姐" ALIGN=absmiddle border=0>
<%else%>
<img src="./images/NoSex.gif" alt="<%=ASPBook("名字")%>的性别不详" ALIGN=absmiddle border=0>

<%end if%>
</td></tr></table>
<table>
<tr><td>
<BR><%=ASPBook("来自")%></td></tr>
</table></CENTER></td>

<td valign="top" height=90> 
<table border="0" cellpadding="0" cellspacing="0" width="100%">
  <tr>
    <td width="25" valign="top"><p align="center"><IMG SRC="./icons/icon<%=ASPBook("表情")%>.gif" BORDER=0 ALIGN=ABSCENTER></p></td>
    <td><p align="left"><FONT color="#0000ff">留言于: <%=ASPBook("留言日期")%></font></p></td>
    <td width="25%"><p align="right">&nbsp;&nbsp;

<%if ASPBook("ICQ")<>"" then%>
<img src="./images/icq.gif" alt="ICQ：<%=ASPBook("ICQ")%>" ALIGN=absmiddle border=0 width=16 height=16>&nbsp;
<%end if%>

<%if ASPBook("OICQ")<>"" then%>
<a href="http://club3.tencent.com:81/cgi-bin/friend/show_info?ln=<%=ASPBook("OICQ")%>" Target=_blank><img src="./images/oicq.gif" alt="OICQ：<%=ASPBook("OICQ")%>" ALIGN=absmiddle border=0 width=16 height=16></a>&nbsp;
<%end if%>

<img src="./images/ip.gif" alt="<%=ASPBook("IP")%>" ALIGN=absmiddle border=0 width=13 height=15>&nbsp;&nbsp;<img src="./images/system.gif" alt="<%=ASPBook("系统")%>" ALIGN=absmiddle border=0 width=16 height=16></td>

</tr>
</table>
<HR><%=ASPBook("留言")%>

<%if ASPBook("Reply")<>"" then%>
<HR SIZE=1>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
    <tr>
    <td width="5%" valign="top"><p align="center"><IMG SRC="./icons/icon<%=ASPBook("Reply_Icon")%>.gif" BORDER=0 ALIGN=ABSCENTER></p></td>
    <td width="95%"><p align="left"><FONT color="RED">回复于: <%=ASPBook("Reply_Date")%></font></p></td>
    </tr>
    <tr><td width="5%" valign="top"></td>
      <td colspan="2"><%=ASPBook("Reply")%></td>
    </tr>
  </table>


<%end if%>

</tr>
<tr bgcolor=<%=CColor%>>
<td valign="bottom">
&nbsp;
<img src="./images/quote.gif" alt="回复该留言" ALIGN=absmiddle border=0 width=16 height=16> <a href="gb_reply.asp?page=<%=mypage%>&Number=<%=ASPBook("ID")%>">回复</a>
<img src="./images/recycle.gif" alt="删除该留言" ALIGN=absmiddle border=0 width=16 height=16> <a href="gb_delete.asp?page=<%=mypage%>&Number=<%=ASPBook("ID")%>">删除</a>
<%if ASPBook("邮件")<>"" then%>
<img src="./images/email.gif" ALIGN=absmiddle border=0 width=16 height=16> <a href="mailto:<%=ASPBook("邮件")%>">邮箱</a>
<%end if%>
<%if ASPBook("主页")<>"" and ASPBook("主页")<>"http://" then%>
<img src="./images/home.gif" ALIGN=absmiddle border=0 width=16 height=16> <a href="<%=ASPBook("主页")%>" Target=_blank>主页</a>
<%end if%>

</tr>
<%
ASPBook.MoveNext          
i = i + 1
if i = 2 then i = 0
total = total + 1
loop                  
%>
<%END IF%>
</td></tr></table></td></tr></table>
</div>

<table border=0 cellpadding=0 cellspacing=1 width=90%>
<tr><td align="left">所有时间均为<font color=blue>北京时间</font></td>
<TD align="right">
<font color=#000000>

<%PageLink%>

</font> </TD></TR></TABLE><BR>
<a href="gb_sign.asp"><img src="./images/sign.gif" border=0></a><p>

<%COPYRIGHT%>
</CENTER></font></BODY></HTML>
<%


function PageLink

PageShowSize = 10
Scriptname=Request.Servervariables("script_name")
PageNextSize=int((MyPage-1)/PageShowSize)+1
Pagetpage=int((GuestTotal-1)/MyPageSize)+1

if Maxpages > 1 then
   if PageNextSize >1 then
       PagePrev=PageShowSize*(PageNextSize-1)
       Response.write "<a href='" & Scriptname & "?page=" & PagePrev & "'>[<<]</a>-"
   end if
   if Mypage-1 > 0 then
       Prev_Page = MyPage - 1
       Response.write "<a href='" & Scriptname & "?page=" & Prev_Page & "'>[<]</a> "
   end if
   if maxpages>=PageNextSize*PageShowSize then
       PageSizeShow = PageShowSize
   else
       PageSizeShow = Maxpages-PageShowSize*(PageNextSize-1)
   end if
   for PageCounterSize=1 to PageSizeShow
       PageLink = (PageCounterSize+PageNextSize*10)-10
       if PageLink <> cint(Mypage) then
	   Response.write "<a href='" & Scriptname & "?page=" & PageLink & "'>[" & PageLink & "]</a> "
       else
           Response.Write PageLink  & "  "
       end if 
   next
   if Mypage+1 <=Pagetpage  then
       Next_Page = MyPage + 1
       Response.write "<a href='" & Scriptname & "?page=" & Next_Page & "'>[>]</a>"
   end if
   if maxpages > PageShowSize*PageNextSize then
       PageNext = PageShowSize * PageNextSize + 1
       Response.write "-<a href='" & Scriptname & "?page=" & PageNext & "'>[>>]</a>"
   end if
   else
       Response.write "[1]"
end if
END function

set ASPBook=nothing
conn.Close
set conn = nothing
%>