📄 guestbook.asp
字号:
<!--#include file="Inc/Code.asp" --><HTML>
<HEAD>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<TITLE><%Call W_WebSiteName()%>┊<%Call W_WebSiteUrl()%></TITLE>
<meta name="Author" content="梧桐树">
<meta name="Contact" content="Tel:13776684983 & QQ:86894886">
<meta name="Copyright" content="Taizhou Student Net Inc. & TzsTudenT.CoM">
<LINK href="Images/style.css" type=text/css rel=stylesheet>
</HEAD>
<BODY leftMargin=0 topMargin=0>
<TABLE cellSpacing=0 cellPadding=0 width=758 align=center border=0>
<TBODY>
<TR>
<TD rowspan="2"><a href="Index.asp"><img src="Images/Logo.gif" alt="企网互联|域名注册|虚拟主机|全能空间|企业网站建设专家|企业网站智能管理系统官方网站" width="160" height="75" border="0"></a></TD>
<TD width="598"><TABLE cellSpacing=0 cellPadding=0 align=center bgColor=#ffffff
border=0>
<TBODY>
<TR>
<TD width=418 height="28"> </TD>
<TD vAlign=bottom width=180 background=Images/index_new2.gif>
<DIV align=center><IMG height=11 src="Images/home.gif" width=13> 设为首页 | <IMG height=12
src="Images/ofldr.gif" width=16> 加入收藏</DIV></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR>
<TD><img src="Images/Menu1.gif" width="598" height="47" border="0" usemap="#Map"></TD>
</TR>
</TBODY></TABLE>
<table width="758" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="756" height="140" valign="top"><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="758" height="140">
<param name="movie" value="Images/tt.swf">
<param name="quality" value="high">
<embed src="Images/tt.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="758" height="140"></embed>
</object></td>
</tr>
<tr>
<td><img src="Images/pic03.gif" width="758" height="5"></td>
</tr>
<tr>
<td height="445" valign="top"><table width="758" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="195" height="445" valign="top" background="images/bg06.gif"><table width="195" border="0" cellpadding="0" cellspacing="0" class="c">
<tr>
<td width="258"><img src="Images/pic40.gif" width="195" height="44"></td>
</tr>
<tr>
<td valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="36"><img src="Images/pic42.gif" width="36" height="26"></td>
<td width="159" valign="bottom"><font color="#FFFFFF">.</font><b><font color="#FF0000">在线留言</font></b></td>
</tr>
<tr>
<td colspan="2"><img src="images/pic41.gif" width="195" height="7"></td>
</tr>
</table></td>
</tr>
<tr>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="36"><img src="Images/pic42.gif" width="36" height="26"></td>
<td width="159" valign="bottom"><font color="#FFFFFF">.</font><a href="Guestbook_Write.asp">签写留言</a></td>
</tr>
<tr>
<td colspan="2"><img src="Images/pic41.gif" width="195" height="7"></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="36"><img src="Images/pic42.gif" width="36" height="26"></td>
<td width="159" valign="bottom"><font color="#FFFFFF">.</font><a href="Guestbook.asp">浏览留言</a></td>
</tr>
<tr>
<td colspan="2"><img src="Images/pic41.gif" width="195" height="7"></td>
</tr>
</table> </td>
</tr>
<tr>
<td> </td>
</tr>
</table></td>
<td valign="top" bgcolor="#FFFFFF"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="44" valign="middle" background="images/bg05.gif"><table width="95%" border="0" align="center" cellpadding="0" cellspacing="0" class="b">
<tr>
<td class="L15"><a href="Index.asp">首页</a> <span class="en_text">>> </span><a href="Guestbook.asp">在线留言</a> <span class="en_text">>> 浏览留言</span></td>
</tr>
</table></td>
</tr>
<tr>
<td valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><%
if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if
set rs=server.createobject("adodb.recordset")
sql="select * from book order by id desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "<p align='center'>还没有任何留言!</p>"
else
totalPut=rs.recordcount
totalPut=rs.recordcount
if currentpage<1 then
currentpage=1
end if
if (currentpage-1)*5>totalput then
if (totalPut mod 5)=0 then
currentpage= totalPut \ 5
else
currentpage= totalPut \ 5 + 1
end if
end if
if currentPage=1 then
showpages
showContent
showpages
else
if (currentPage-1)*5<totalPut then
rs.move (currentPage-1)*5
dim bookmark
bookmark=rs.bookmark
showpages
showContent
showpages
else
currentPage=1
showContent
end if
end if
rs.close
end if
set rs=nothing
conn.close
set conn=nothing
sub showContent
dim i
i=0
do while not (rs.eof or err) %>
<br>
<table width="500" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td ><TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD><table width="100%" border="0" cellpadding="2" cellspacing="1" bgcolor="#D3D3D3">
<tr>
<td width="25%" align="center" bgcolor="#f7f7f7"><%=rs("xinging")%></td>
<td rowspan="3" bgcolor="#FFFFFF"><table width="100%" border="0" cellpadding="5" cellspacing="1" bgcolor="#dedede">
<tr>
<td bgcolor="#FFFFFF">主题：<%=rs("Title")%></td>
</tr>
<tr>
<td bgcolor="#FFFFFF">内容：<%=rs("content")%></td>
</tr>
<%if rs("rebook")<>""then%>
<tr>
<td bgcolor="#FFFFFF">管理员回复：<%=rs("rebook")%></td>
</tr>
<%end if%>
</table></td>
</tr>
<tr>
<td align="center" bgcolor="#f7f7f7">性别：<%=rs("sex")%> </td>
</tr>
<tr>
<td width="25%" align="center" bgcolor="#f7f7f7">来自：<%=rs("where")%></td>
</tr>
</table></TD>
</TR>
</TBODY>
</TABLE></td>
</tr>
</table></td>
</tr>
</table>
<table width="550" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><div align="center"><% i=i+1
if i>=5 then exit do
rs.movenext
loop
end sub
sub showpages()
dim n
if (totalPut mod 5)=0 then
n= totalPut \ 5
else
n= totalPut \ 5 + 1
end if
if n=1 then
response.write ""
exit sub
end if
dim k
response.write "<p align='left'>>> 留言分页 "
for k=1 to n
if k=currentPage then
response.write "[<b>"+Cstr(k)+"</b>] "
else
response.write "[<b>"+"<a href='Guestbook.asp?page="+cstr(k)+"'>"+Cstr(k)+"</a></b>] "
end if
next
end sub
%></div></td>
</tr>
</table> </td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
<table width="758" height="28" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="34" background="Images/bg07.gif"><table width="72%" border="0" align="right" cellpadding="0" cellspacing="0">
<tr>
<td><SPAN class=buttom><%Call W_Copyright()%> <%Call W_Count()%></SPAN></td>
</tr>
</table></td>
</tr>
</table>
<map name="Map">
<area shape="rect" coords="29,10,103,29" href="About.asp">
<area shape="rect" coords="126,10,199,29" href="News.asp">
<area shape="rect" coords="223,10,299,30" href="Product.asp">
<area shape="rect" coords="319,10,396,30" href="Download.asp">
<area shape="rect" coords="419,10,493,29" href="Guestbook.asp">
<area shape="rect" coords="516,10,591,30" href="Contact.asp">
</map>
</BODY></HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -