📄 index-ruan.asp

📁 一套企业全站

💻 ASP

字号:

<!--#include file="conn.asp"-->
<!--#include file="inc/const1.asp"-->
<!--#include file="inc/const2.asp"-->
<!--#include file="inc/char.asp"-->
<!--#include file="inc/sqlfilter.asp"-->
<!--#include file="close.asp"-->
<%
''''''''''''''''''''''''''''''''''''''''''''''''''''''
'          Jimmy中文站留言簿 Version 1.09	     '
'		 http://www.lunji.com		     '
'	         Powered by BlueSailor	             '
'	 QQ:428140   E-MAIL: bluesailor@gmail.com    '
''''''''''''''''''''''''''''''''''''''''''''''''''''''
%>
<html>
<head> 
<meta name="Author" content="BlueSailor">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=lybtitle%></title>
<meta name="keywords" content="<%=lybtitle%>,留言本下载|www.lunji.com">
<meta name="description" content="<%=lybtitle%>,留言本下载|www.lunji.com">
<script src=popup.js></script>
<!--#include file="style.asp"-->
</head>
<body>
<!--#include file="top.asp"-->





                  
<table width="650" border="0" align="center">
  <tr> 
    <td height="2"><img src="csspic/blank.gif" width="1" height="1"></td>
  </tr>
</table>
<%                     
sql="select * from guest order by topnum desc,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=SafeRequest("page",1)
if page = "" then
page = 1
end if
if (page-Rs.pagecount) > 0 then
page=Rs.pagecount
End If
If 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)&".*.*"
%> 
<!--#include file="indexlist.asp"-->              
<!--#include file="bottom.asp"-->
</body>                   
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -