📄 index.asp

📁 更新内容： 1 增加了搜索功能 2 提供了帮助页面修改若干小问题管理名称 admin 初始密码：admin-update : added a search function to help pro

💻 ASP

字号:

<!--#include file="conn.asp"-->
<!--#include file="inc/const1.asp"-->
<!--#include file="inc/const2.asp"-->
<!--#include file="inc/char.asp"-->
<%
''''''''''''''''''''''''''''''''''''''''''''''''''''''
'          Jimmy中文站留言簿 Version 1.06	     '
'		 http://WWW.LUNJI.COM		     '
'	         Powered by BlueSailor	             '
'	 QQ:428140   E-MAIL: bluesailor@etang.com    '
''''''''''''''''''''''''''''''''''''''''''''''''''''''
%>
<html>
<head> 
<title><%=lybtitle%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="css.asp"-->
<script src=popup.js></script></head>
<body topmargin="1" bgcolor="<%=bodybgcolor%>" alink=<%=alink%> vlink=<%=vlink%> link=<%=link%> >
<!--#include file="top.asp"--><br>
<table width="650" border="0" cellspacing="0" height="111" style="border-collapse: collapse; border: 1px solid <%=bordercolor%>; " cellpadding="0" align="center">
  <tr> 
    <td bgcolor="<%=tablebgcolor%>" height="81"> 
       <p align="center">
       <img border="0" src="images/lunjilyb<%=lunjilybstyle%>.gif" width="333" height="67"><br>
　</td>                     
  </tr>                     
  <tr>
    <td bgcolor="<%=tablebgcolor%>" height="30">&nbsp;     
 <a href="add.asp"><img src="images/lunjiqxly.gif" border=0 width="101" height="26" alt="签写留言"></a>| <img border="0" src="pic/teammo.gif">版主：<a HREF="javascript:popUp()"><%=admin_name%></a>|
<img border="0" src="pic/announce.gif">公告：
            <%if len(notetitle)>0 then %> <a href="disnote.asp" target=_blank><%=notetitle%></a><font color="#C0C0C0">[<%=notedate%>]</font><%else%>当前没有公告<%end if%>
           
</td>                     
  </tr>
</table>                     
<%                     
sql="select * from guest order by id desc"                     
set rs=server.createobject("adodb.recordset")                     
rs.open sql,conn,1,1                     
if rs.eof and rs.bof then                     
response.write "<p align=center>还 没 有 任 何 留 言</p>"              
else  
'分页的实现                 
Rs.pagesize=listnum
page=Request("page")
if (page-Rs.pagecount) > 0 then
page=Rs.pagecount
elseif page = "" or page < 1 then
page = 1
end if
Rs.absolutepage=page
'编号的实现
j=rs.recordcount
j=j-(page-1)*listnum

i=0
do while not rs.eof and i<listnum

ips=split(rs("ip"),".")
ip=""&ips(0)&"."&ips(1)&".*.*"
%>  
<br>
<!--#include file="indexlist.asp"-->              
<!--#include file="bottom.asp"-->
</body>                   
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -