📄 default.asp
字号:
<!--made by 中华软件联盟 http://www.downbest.net/-->
<!--#include file="dbconnect/guestbook.inc.asp" -->
<%
dim MaxPerPage
dim sql
dim rs
dim gstBookID
dim totalPut
dim CurrentPage
dim TotalPages
dim i,j
%>
<html>
<head>
<title>中华软件联盟-留言本</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="css/style.css" type="text/css">
<SCRIPT language=javascript>
<!--
function mOvr(src,clrOver) {
if (!src.contains(event.fromElement)) {
src.bgColor = clrOver;
}
}
function mOut(src,clrIn) {
if (!src.contains(event.toElement)) {
src.bgColor = clrIn;
}
}
// -->
</SCRIPT>
</head>
<body bgcolor="#003366" leftmargin="0" marginwidth="0" topmargin="0">
<table width="778" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#FFFFFF">
<tr>
<td height="70" width="235">
<!--webbot bot="HTMLMarkup" startspan --><script language=javascript src="head.js"></script><!--webbot
bot="HTMLMarkup" endspan -->
</td>
</tr>
</table>
<table cellspacing=0 cellpadding=0 width=777 align=center border=0 bgcolor="#FFFFFF">
<tbody>
<tr>
<td valign=top width=200 bgcolor=#f5f5f5>
<table cellspacing=0 cellpadding=0 width="100%" border=0>
<tbody>
<tr>
<td align=middle background="images/bg_2.gif" height=25>
<div align="center"><b><font color="#cc0000">信息反馈</font></b></div>
</td>
</tr>
<tr>
<td background="images/line_3.gif" height=1></td>
</tr>
<tr>
<td bgcolor=#f5f5f5 height=30> </td>
</tr>
<tr>
<td height=1>
<table cellspacing=0 cellpadding=0 width="80%" align=center border=0>
<tbody>
<tr>
<td width="100%" background="images/line_3.gif" height=1></td>
</tr>
</tbody>
</table>
</td>
</tr>
<tr valign=center align=middle bgcolor=#ffffff>
<td bgcolor=#f5f5f5 height=25><div align="center"></div> </td>
</tr>
<tr>
<td height=1>
<table cellspacing=0 cellpadding=0 width="80%" align=center border=0>
<tbody>
<tr>
<td width="100%" background="images/line_3.gif" height=1></td>
</tr>
</tbody>
</table>
</td>
</tr>
<tr valign=center align=middle bgcolor=#ffffff>
<td onMouseOver="mOvr(this,'#ffffff');" onMouseOut="mOut(this,'#f5f5f5');" bgcolor=#f5f5f5 height=25>
<div align="center"><font color="#0000FF"><b><font color="#FF6600"><img src="images/gbook.gif" width="18" height="18" border="0" align="absmiddle"></font></b></font>
<a href="default.asp">查看留言</a></div>
</td>
</tr>
<tr>
<td height=1>
<table cellspacing=0 cellpadding=0 width="80%" align=center border=0>
<tbody>
<tr>
<td width="100%" background="images/line_3.gif" height=1></td>
</tr>
</tbody>
</table>
</td>
</tr>
<tr valign=center align=middle bgcolor=#ffffff>
<td onMouseOver="mOvr(this,'#ffffff');" onMouseOut="mOut(this,'#f5f5f5');" bgcolor=#f5f5f5 height=25>
<div align="center"><font color="#CCCCCC"><img src="images/write.gif" border="0" width="18" height="14">
<a href="guestbook.asp"> 签写留言</a></font></div>
</td>
</tr>
<tr>
<td height=1>
<table cellspacing=0 cellpadding=0 width="80%" align=center border=0>
<tbody>
<tr>
<td width="100%" background="images/line_3.gif" height=1></td>
</tr>
</tbody>
</table>
</td>
</tr>
<tr valign=center align=middle bgcolor=#ffffff>
<td onMouseOver="mOvr(this,'#ffffff');" onMouseOut="mOut(this,'#f5f5f5');" bgcolor=#f5f5f5 height=25><div align="center"><img src="images/admin.gif" width="18" height="18" border="0" align="absmiddle"> <a href="admin/default.asp">斑竹管理</a></div></td>
</tr>
<tr>
<td bgcolor=#f5f5f5>
<table cellspacing=0 cellpadding=0 width="80%" align=center border=0>
<tbody>
<tr>
<td width="100%" background="images/line_3.gif" height=1></td>
</tr>
</tbody>
</table>
</td>
</tr>
<tr valign=center align=middle bgcolor=#ffffff>
<td bgcolor=#f5f5f5 height=25><div align="center"></div></td>
</tr>
<tr>
<td bgcolor=#f5f5f5>
<table cellspacing=0 cellpadding=0 width="80%" align=center border=0>
<tbody>
<tr>
<td width="100%" background="images/line_3.gif" height=1></td>
</tr>
</tbody>
</table>
</td>
</tr>
</tbody>
</table>
</td>
<td valign=top style="border-left:1px #000000 dotted">
<table cellspacing=0 cellpadding=0 width=596 border=0>
<tbody>
<tr>
<td valign=top>
<table cellspacing=0 cellpadding=0 width="96%" align=center border=0>
<tbody>
<tr>
<td></td>
</tr>
<tr>
<td valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td width="500"> <br>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from book order by id desc"
rs.open sql,conn,1,1
rs.pagesize=8
totalPut=rs.recordcount '记录总数
totalPage=rs.pagecount '得到总页数
MaxPerPage=rs.pagesize '设置每页数
currentpage=request("page")
if isempty(currentpage) or cint(currentpage)<1 or cint(currentpage)>totalPage then
currentpage=1
end if
if rs.eof and rs.bof then
response.write "<font color=#FF0000>暂时还没有任何留言！</font>"
else
rs.absolutepage=currentpage '将指针移至指定页的第一条记录
loopno=MaxPerPage
i=0
do while not rs.eof and loopno>0
%>
<table width="540" border="1" cellspacing="0" cellpadding="0" align="center" bordercolordark="#FFFFFF" bordercolorlight="#666666" style="word-break:break-all;font-family: Arial, Helvetica, sans-serif;">
<tr>
<td width="100" align="center" bgcolor="#F5F5F5" rowspan="3" >第<font color="#FF0000"><%=((totalPut)-(MaxPerPage)*(currentpage-1))-i%></font>条留言<br>
<img src="<%=rs("face")%>"><br>
<%=rs("name")%></td>
<td height="25" valign="middle">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="49%"><img src="images/post.gif" width="24" height="24" align="absmiddle">
访客留言 </td>
<td width="51%"><div align="right">
<%if rs("homepage")<>"" then%>
<a href="<%=rs("homepage")%>" target="_blank"><img src="images/home.gif" width="16" height="16" border="0" align="absmiddle" alt="主页:[ <%=rs("homepage")%> ]"></a>
<%else%>
<a href="#"><img src="images/home-gray.gif" width="16" height="16" border="0" align="absmiddle" alt="主页"></a>
<%end if%>
|
<%if rs("email")<>"" then%>
<a href="mailto:<%=rs("email")%>" target="_blank"><img src="images/email.gif" width="18" height="18" border="0" align="absmiddle" alt="电子邮件:[ <%=rs("email")%> ]"></a>
<%else%>
<a href="#"><img src="images/email-gray.gif" width="18" height="18" border="0" align="absmiddle" alt="电子邮件"></a>
<%end if%>
|
<%if rs("oicq")<>"" then%>
<a href="#"><img src="images/qq.gif" width="16" height="16" border="0" align="absmiddle" alt="QQ号码:[ <%=rs("oicq")%> ]"></a>
<%else%>
<a href="#"><img src="images/qq-gray.gif" width="16" height="16" border="0" align="absmiddle" alt="QQ号码"></a>
<%end if%>
|
<%if rs("ip")<>"" then%>
<a href="#"><img src="images/ip.gif" width="16" height="16" border="0" align="absmiddle" alt="来自：[ <%=rs("ip")%> ]"></a>
<%else%>
<a href="#"><img src="images/ip-gray.gif" width="16" height="16" border="0" align="absmiddle" alt="来自："></a>
<%end if%>
</div>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="45"><img src="<%=rs("txthead")%>" align="absmiddle" >
<%=rs("Memo")%> </td>
</tr>
<tr>
<td valign="middle" height="20">
<div align="right">发表时间：
<% =rs("time") %>
</div>
</td>
</tr>
<% if rs("anser")<>"" then%>
<tr>
<td width="100" align="center" bgcolor="#F5F5F5" ><FONT color=red>斑竹回复：</font></td>
<td><img src="<%=rs("adminhead")%>" align="absmiddle" >
<%=rs("anser")%></td>
</tr>
<%end if%>
</table>
<br>
<%
rs.movenext
loopno=loopno-1
i=i+1
loop
end if
rs.close
set rs=Nothing
%>
<table border="1" width="540" cellspacing="0" cellpadding="0" align="center" bgcolor="#F5F5F5" bordercolordark="#FFFFFF" bordercolorlight="#666666">
<tr>
<form name="form1" method="post" action="default.asp">
<td> 共 <%=cstr(totalPut)%> 条留言 当前第 <%=cstr(currentpage)&"/"&cstr(totalPage)%>
页 每页 <%=MaxPerPage%> 条
<%
if cint(currentpage)>1 then%>
[ <a href='default.asp?page=<%=currentpage-1%>' class="tt1">上一页</a>
]
<%
end if
if cint(currentpage)<cint(totalPage) then
%>
[ <a href='default.asp?page=<%=currentpage+1%>' class="tt1">下一页</a>
]
<%end if%>
跳到第
<input type="text" name="page" size="4" class="button1">
页
<input type="image" img src="images/go.gif" width="25" height="19" align="absmiddle">
</td>
</form>
</tr>
</table>
<p> </p></td>
</tr>
</table>
</td>
</tr>
</tbody>
</table>
</td>
</tr>
</tbody>
</table>
<table cellspacing=0 cellpadding=0 width="100%" border=0>
<tbody>
<tr>
<td bgcolor=#9ac7cf height=1></td>
</tr>
</tbody>
</table>
</td>
</tr>
</tbody>
</table>
<table width="777" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td align=middle bgcolor=#FFFFFF height=30>
<!--webbot bot="HTMLMarkup" startspan --><script language=javascript src="foot.js"></script></center>
</body><!--webbot
bot="HTMLMarkup" endspan -->
</td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -