📄 guest.asp
字号:
<!--#include file="dbpath/dbpath.asp"-->
<!--#include file="top.asp"-->
<html>
<head>
<title>3鸟设社[v1.2色彩连视版]留言本</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
dim MaxPerPage
dim sql
dim rs
dim gstBookID
dim totalPut
dim CurrentPage
dim TotalPages
dim i,j
if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if
%>
<link rel="stylesheet" type="text/css" href="css/style.css">
<script language="JavaScript">
<!--
<!--
function MM_reloadPage(init) { //reloads the window if Nav4 resized
if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
// -->
function MM_popupMsg(msg) { //v1.0
alert(msg);
}
//-->
</script>
</head>
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="760" height="528" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="6" colspan="3"></td>
</tr>
<tr>
<td width="22" height="486" background="images/bg.gif"></td>
<td width="718" height="486" valign="top"><div align="center">
<table width="560" border="0" align="center" cellpadding="0" cellspacing="0" bordercolor="#999999">
<tr>
<td width="500"><span > </span> <table width="560" border="0" cellspacing="0" cellpadding="0" align="center" " height="20">
<tr >
<td width="250" height="20" class="font2"> <div align="center" class="EFONT" style="width: 235; height: 17"></div></td>
<td width="119" class="font2"><a href="http://xicaojie.com" target="_blank"></a>
<div align="left"><font color="#CCCCCC" size="2"></font><font color="#CCCCCC">
</font></div>
<div align="left"></div></td>
<td width="80" valign="bottom" class="font3" ><font color="#0000FF"><b><font color="#FF6600"><a href="guestbook.asp"><img src="IMAGES/ly.gif" width="79" height="19" border="0"></a></font></b></font></td>
<td width="80" valign="bottom" class="font3" > <div align="center"><a href="manage.asp"><img src="IMAGES/gl.gif" width="79" height="19" border="0"></a></div></td>
</tr>
</table>
<span >
<%
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 %>
</span> <div align="center" ><font color="#0099CC" >还 没 有 任 何 留
言</font>
<% else
rs.pagesize=8
totalPut=rs.recordcount '记录总数
totalPage=rs.pagecount
MaxPerPage=rs.pagesize
if currentpage<1 then
currentpage=1
end if
if currentpage>totalPage then
currentpage=totalPage
end if
if currentPage=1 then
showpages
showContent
showpages
else
if (currentPage-1)*MaxPerPage<totalPut then
rs.move (currentPage-1)*MaxPerPage
dim bookmark
bookmark=rs.bookmark '移动到开始显示的记录位置
showpages
showContent
showpages
end if
end if
rs.close
end if
set rs=nothing
conn.close
set conn=nothing
sub showContent
dim i
dim k
k=(totalPut-MaxPerPage*(currentPage-1))+1
i=0
%>
<%
do while not (rs.eof or err)
k=k-1
%>
<table width="560" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td height="75" class="border2"> <table width="560" border="0" cellspacing="0" cellpadding="0" align="center">
<tr >
<td width="105" height="22" align="center" class="font3"><font class="EFONT" color="#33CCFF">No.</font><font class="EFONT"><%=k%></font></td>
<td width="36" valign="middle" bordercolor="1"> </td>
<td class="font"> <div align="right">
<p><font color="#0099CC" class="EFONT"> </font><font color="#FF0000" class="titel"><font color="#0099CC" size="1" face="Verdana, Arial, Helvetica, sans-serif">Time</font></font><font color="#0099CC" class="EFONT">:
<% =rs("time") %>
</font></p>
</div></td>
</tr>
<tr >
<td width="105" align="center" class="font3"><p><img
src="<%=rs("face")%>"> </p>
<p>[ <%=rs("name")%> ]</p></td>
<td width="36" valign="top" bordercolor="1"><img
src="<%=rs("txthead")%>" ></td>
<td valign="top" class="font"><%=rs("Memo")%></td>
</tr>
</table></td>
</tr>
<tr>
<td> <table width="560" border="0" cellspacing="0" cellpadding="0" align="center" height="18" >
<tr >
<td width="105" height="18" class="titel" > </td>
<td width="49" class="titel" > <div align="center" class="EFONT"><a title="E-mail:[ <%=rs("email")%> ]" href="mailto:<%=rs("email")%>"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Email</font></a></div></td>
<td width="49" class="titel" > <div align="center" class="EFONT"><a title="主页:[ <%=rs("homepage")%> ]" href="<%=rs("homepage")%>" target="_blank"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Homepage</font></a></div></td>
<td width="49" class="titel" > <div align="center" class="EFONT" >
<a title="QQ号码:[ <%=rs("oicq")%> ]" href="javascript:;" onClick="MM_popupMsg('QQ号码：[ <%=rs("oicq")%> ]')"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Oicq</font></a></div></td>
<td width="291" valign="middle" class="titel"> <div align="right"><font color="#562CAD" class="EFONT">
<% if rs("ip")<>"" then %>
</font><font class="EFONT" color="#663300"><span class="titel"></span></font></div>
<div align="right"><font class="EFONT" color="#663300"><span class="titel"></span></font><font font color="#0099CC" class="EFONT">
</font></div></td>
<td width="17" valign="middle" class="titel"> <div align="center"><font color="#562CAD" class="EFONT">
<% end if %>
</font></div></td>
</tr>
</table>
<table width="560" border="0" cellspacing="0" cellpadding="0" align="center" >
<%
if rs("anser")<>"" then%>
<tr bordercolor="1" bgcolor="#FFFFFF">
<td width="107" align="center" valign="middle" class="font1" ><font color="#0099CC"><img src="IMAGES/icefish.gif" width="65" height="25"></font></td>
<td width="32" valign="middle" ><img
src="<%=rs("adminhead")%>" ></td>
<td width="421" class="font1"><%=rs("anser")%></td>
</tr>
<%end if%>
</table></td>
</tr>
</table>
<span >
<%
i=i+1
if i>=MaxPerPage then exit do '循环时如果到尾部则先退出，如果记录达到页最大显示数，也退出
rs.movenext
loop
end sub
sub showpages()
dim n
n=totalPage
%>
</span>
<table border="0" width="560" cellspacing="0" cellpadding="0" align="center" bgcolor="#cccccc" class="border2" >
<tr class="EFONT" BGCOLOR="#FFFFFF" >
<td valign="bottom" width="60"> <div align="center"><font color="#333333" size="1">Pages:</font></div></td>
<td valign="bottom" class="EFONT"><font class="EFONT"> <font color="#CCCCCC">
<font color="#FFFFFF" size="1">
<%
If currentPage <> 1 Then
Response.Write "<A HREF=guest.asp?Page=" & (currentPage-1) & "><font face='宋体' size='1'> <<</font></A> "
End If
%>
<%
if rs.pagecount <= 8 then
for i=1 to rs.pagecount
response.write "[<a href='guest.asp?page="&i&"'>"&i&"</a>]"
next
else
for i=1 to 8
response.write "[<a href='guest.asp?page="&i&"'>"&i&"</a>]"
next
end if
%>
<%
If currentPage <> rs.PageCount Then
Response.Write "<A HREF=guest.asp?Page=" & (currentPage+1) & "><font face='宋体' size='1'> >></font></A> "
End If
%>
<font color="#333333"> Total Pages: <<A HREF=guest.asp?Page=<%=totalPage%>><%=totalPage%></A>></font></font></font></font></td>
</table>
</div>
<%
end sub
%>
<table width="560" border="0" cellspacing="0" cellpadding="0" align="center" class="border2" height="20">
<tr valign="bottom" >
<td class="font2"> <div align="center" class="EFONT" ><font color="#0099CC" size="1"><a href="http://3niao.com">http://www.3niao.com</a></font></div></td>
</tr>
</table></td>
</tr>
</table>
</div></td>
<td width="20" height="486" background="images/bg.gif"></td>
</tr>
<tr>
<td height="12" colspan="3"><table width="758" border="0" align="center" cellspacing="0">
<tr>
<td height="35" colspan="2" background="images/footbg.gif"> <div align="center">3鸟设社[v1.2色彩连视]留言本
www.3niao.com</div></td>
</tr>
<tr>
<td width="392" background="http://www.3niao.com/v2/down1/images/footgb1.gif"> </td>
<td width="362"><div align="right"><img src="http://www.3niao.com/v2/down1/images/foot.jpg"></div></td>
</tr>
</table></td>
</tr>
</table>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -