📄 index.asp
字号:
<!--#include file="odbc.asp"-->
<!--#include file="head.asp"-->
<meta http-equiv="Content-Language" content="zh-cn">
<meta name="keywords" content="大大鱼">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<SCRIPT language=JavaScript>
<!--
function admin(url, width, height){var Win = window.open(url,"openScript",'width=' + width + ',height=' + height + ',resizable=1,scrollbars=1,menubar=0,status=yes');}
-->
</script>
<link href="img/index.CSS" rel="stylesheet" type="text/css">
<table width="500" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF" >
<!--DWLayoutTable-->
<tr>
<td width="1" height="236" align="left" valign="top" class="tdbg_leftall">
</td>
<td width="601" valign="top"> <table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<!--DWLayoutTable-->
<tr>
<td height="183" valign="top" > <div align="center"></div>
<table width="488" border="0" align="center" cellpadding="0" cellspacing="0" class="tde">
<!--DWLayoutTable-->
<tr>
<td width="484" height="25" valign="top"><table width="498%" border="0" cellpadding="0" cellspacing="0">
<!--DWLayoutTable-->
<tr>
<td width="498" height="25" valign="bottom" background="../img/wz-bg.jpg">
<table width="97%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="86%" height="18"> 易天留言
<div align="right"></div></td>
<td width="14%"> </td>
</tr>
</table>
</td>
</tr>
</table></td>
</tr>
<tr>
<td width="484" height="158" valign="top"> <table width="483" border="0" align="center" cellpadding="0" cellspacing="5">
<!--DWLayoutTable-->
<tr>
<td width="473" height="154" valign="top" class="tde"><table width="100%" border="0" cellpadding="0" cellspacing="0" >
<tr bgcolor="#F9F9F9">
<td width="100%" height="100" valign="top" bgcolor="#F9F9F9" >
<%
dim strsql,rs
strsql="select * from mainbook order by utime desc"
set rs = server.createobject("adodb.recordset")
rs.open strsql,db,1,1
if rs.eof and rs.bof then
response.write "<p align=center><br><br><br><b>-------暂无留言，欢迎发表留言-------<b></p>"
rs.close
set rs = nothing
response.end()
end if
dim page,i
rs.pagesize = perpage
'---------------------------以下判断页数是否为正确的数字节
if request("page")="" then
page=1
elseif not isnumeric(request("page")) then
page=1
else
page=cint(request("page"))
end if
'---------------------------
rs.absolutepage = page
for i= 1 to rs.pagesize
%>
<table width="100%" border="0" cellpadding="3" cellspacing="0" bgcolor="#F9F9F9" >
<tr>
<td height="100" align="center" valign="top">
<table width="100%" height="22" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="80%">
<%if rs("top")="1" then%>
<font color="#990000"><strong>管理员公告</strong></font>
<%else%>
<font color="#2F5879"><%= rs("uid")%></font>
<%end if%>
发表于<%= rs("utime")%></td>
<td align="right">第<%= rs("id")%>楼 </td>
</tr>
</table>
<table width="98%" height="4" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="4" Class="tdbg_left2"></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> <div align="right">
<%if not rs("home")="" then%>
<a href="<%= rs("home")%>" target="_blank">
<%end if%>
<img src="img/homepage.gif" alt="主页" width="18" height="18" border="0"></a>
<%if not rs("email")="" then%>
<a href=mailto:<%= rs("email")%> target="_blank">
<%end if%>
<img src="img/email.gif" alt="邮箱" width="18" height="18" border="0"></a>
<%if not rs("qq")="" then%>
<a target="_blank" href="http://search.tencent.com/cgi-bin/friend/user_show_info?ln=<%=rs("qq")%>">
<%end if%>
<img src="img/qq.gif" alt="QQ信息" width="18" height="18" border="0"></a> </div></td>
</tr>
<tr>
<td> <div align="left">
<%if rs("sex")="1" then%>
<img src="img/1.gif" width="50" height="50">
<%end if%>
<%if rs("sex")="2" then%>
<img src="img/2.gif" width="50" height="50">
<%end if%>
<%if rs("top")="1" then%>
<img src="img/pub.gif" width="30" height="29" align="absmiddle">
<%end if%>
<%if rs("sex")="0" then%>
<img src="img/admin1.GIF" width="18" height="18" align="absmiddle">
<%end if%>
标题：<B><%= rs("title")%></b> </div></td>
</tr>
<tr>
<td><table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><table width="98%" height="5" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="5" Class="tdbg_left2"></td>
</tr>
</table>
<b>发表留言:</b> <%= rs("content")%><BR>
<%if rs("reply")=1 then%> <hr noshade color="#385585" align="left" width="80%" size="1">
<p><b>回复留言</b> (于 <%=rs("reptime")%> )：<br>
<BR>
<font color="#1B76A3"> <%= rs("recontent")%></font><BR>
<BR>
<%end if%>
</td>
</tr>
</table></td>
</tr>
<tr>
<td>
<%if session("log")="true" then%>
<a href="javascript:admin('del.asp?id=<%=rs("id")%>',500,340)">删除</a>
<a href="javascript:admin('reply.asp?id=<%= rs("id")%>',500,460)">回复/编辑回复</a>
留言ip:<%=rs("ip")%>
<% end if%>
</td>
</tr>
</table></td>
</tr>
</table>
<table width="98%" height="1" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="1" background="../img/LINE1.gif" Class="tdbg_left2"></td>
</tr>
</table>
<%
rs.movenext
if rs.eof then exit for
next
call linkpage()
'--------------关闭数据源，释放资源
call closedate()
'--------------
sub linkpage()
%>
<table width="98%" height="1" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="8" Class="tdbg_left2"></td>
</tr>
</table> </td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
<table width="98%" height="5" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="5" Class="tdbg_left2"></td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
</table>
<table width='488' border='0' align="center"cellpadding='2' cellspacing='0' bgcolor="#f2f2f2" class="fff">
<tr>
<td width="11%" > <div align="center">当前页次：<%= page %>/<%= rs.pagecount%>页, 每页<%=perpage%>条, 总共<%=rs.recordcount%>条
<%if page<=1 then%>
首页 上一页
<%else%>
<a href="index.asp?page=1">首页</a> <a href="index.asp?page=<%= page-1%>">上一页</a>
<%end if%>
<%if page<rs.pagecount then%>
<a href="index.asp?page=<%= page+1%>">下一页</a>
<a href="index.asp?page=<%= rs.pagecount%>">尾页</a>
<%else%>
下一页 尾页
<%end if%>
<!--此段程序可以省略
<%' for i=1 to rs.pagecount %>
<a href="index.asp?page=<%= i %>"><%= i %></a>
<%' next %>
到此结束-->
</div></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
<table width="100%" height="15" align="center" cellspacing="0">
<tr>
<td height="10"></td>
</tr>
</table>
<table width="500" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<!--DWLayoutTable-->
<tr>
<td width="5" height="5"></td>
<td width="750"></td>
<td width="5"></td>
</tr>
<tr>
<td width="8" height="46"></td>
<td valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="f2f2f2" class="tde">
<!--DWLayoutTable-->
<tr>
<td width="491" height="44"><div align="left"><font color="#999999"> |</font>
<font color="#999999"><span onclick="var strHref=window.location.href;this.style.behavior='url(#default#homepage)';this.setHomePage('http://www.dadayu.com');" style="CURSOR: hand">设为首页</span>
|
<script language="JavaScript">
function bookmarkit(){window.external.addFavorite('http://www.dadayu.com','│ DaDaYu │ 易天网络 │')}
if (document.all)document.write('<a href="#" onClick="bookmarkit()"><font color="#999999">加入收藏</font></a>')
</script>
| <a href="mailto:www@dadayu.com">联系站长</a> | <a href="../FriendSite.asp">友情链接</a>
| <a href="../Copyright.asp" target="_blank">版权申明</a> | 易天留言 | </font></div></td>
</tr>
</table></td>
<td width="8"></td>
</tr>
<tr>
<td height="5"></td>
<td></td>
<td></td>
</tr>
</table>
<%end sub%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -