📄 infolist.asp
字号:
<!--
'========================================================================================
' 文 件 名: errlist.asp
' 版 本: 自由岭锋行业专用留言系统1.78 ( LF Message SyStem 1.78 )
' 说 明: 非法登陆信息纪录文件 | 请勿自行修改该处文件，以确保程序正确的执行
' 文件日期: 2005-12-24
' 设 计 者： 疾风之狼
'========================================================================================
' Copyright (C) 2001--2005 自由岭锋. All rights reserved.
' 网 站: http://lingfengnet.com,
' 电子邮件: wfr@zknu.edu.cn
' 联系ＱＱ: 85112407
'========================================================================================
-->
<%@language=vbscript codepage=936 %>
<!-- #include file="inc/setup.asp" -->
<!-- #include file="inc/sub_inc.asp" -->
<!-- #include file="inc/ip_purview.asp" -->
<!-- #include file="inc/contencrypt.asp" -->
<%flg="man"%>
<!-- #include file="inc/purview.asp" -->
<!-- #include file="inc/connect.asp" -->
<!-- #include file="inc/checkru.asp" -->
<%
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "Select * FROM lfmessb Order By addtime Desc"
Set rs = Server.CreateObject("ADODB.Recordset")
Rs.open sql,conn,1,1
if rs("encrypt")=1 then
username=DeCrypt(rs("username"))
post=DeCrypt(rs("post"))
ip=DeCrypt(rs("ip"))
email=DeCrypt(rs("email"))
mess=DeCrypt(rs("mess"))
content=DeCrypt(rs("content"))
tel=DeCrypt(rs("tel"))
else
username=rs("username")
post=rs("post")
ip=rs("ip")
email=rs("email")
mess=rs("mess")
content=rs("content")
tel=rs("tel")
end if
addtime=rs("addtime")
%>
<html>
<head>
<title><%= lingfengnet_ms_language_title_infolist %></title>
<%
call htmlmeta()
%>
<link rel="stylesheet" href="style/css/<%=lingfengnet_ms_web_css%>.css" type="text/css">
</head>
<body>
<div align="center">
<%
call htmltop()
%>
<br>
<%
call htmladminmen()
if rs.eof and rs.bof then
call htmlno()
page_no=1
else
%>
<br>
<%
pagesetup=lingfengnet_ms_mypagesize_info '设定每页的显示数量
total = rs.RecordCount
Rs.pagesize=lingfengnet_ms_mypagesize_info
page=Request.QueryString("page")
if len(page)>lingfengnet_ms_pagemax then response.redirect "infolist.asp"
if (page-Rs.pagecount) > 0 then
page=Rs.pagecount
elseif page = "" or page < 1 then
page = 1
end if
Rs.absolutepage=page
do while not Rs.eof
i = i + 1
if i > Rs.pagesize then
exit do
end if
%>
<table width="<%=lingfengnet_ms_web_w%>" border="0" cellspacing="0" cellpadding="0">
<tr>
<td class="bgc2"><table width="100%" border="0" cellspacing="1" cellpadding="3">
<tr>
<td rowspan="7" class="bgc" valign="top" width="12%"> <%= lingfengnet_ms_language_infolist_mes_1 %> <b><%=i+(page-1)*rs.pagesize%></b> <%= lingfengnet_ms_language_infolist_mes_2 %><br>
</td>
<td width="25%" height="20" class="bgc1"> <%= lingfengnet_ms_language_infolist_mes_3 %><%=username%> </td>
<td width="48%" class="bgc1"> <%= lingfengnet_ms_language_infolist_mes_4 %><a href="http://home.zknu.edu.cn/wfr/yc/index.asp?ip=<%=ip%>&search=<%=ip%>" target="_blank"><%=post%></a></td>
</tr>
<tr>
<td width="25%" height="20" class="bgc1"> <%= lingfengnet_ms_language_infolist_mes_5 %><%=tel%> </td>
<td width="48%" height="20" class="bgc1"> <%= lingfengnet_ms_language_infolist_mes_6 %><%=email%></td>
</tr>
<tr>
<td width="25%" height="20" class="bgc1"> <%= lingfengnet_ms_language_infolist_mes_7 %><a href="<%=qq(rs("mess"))%>" target="_blank"><%=mess%></a></td>
<td width="48%" height="20" class="bgc1"> <%= lingfengnet_ms_language_infolist_mes_8 %><%=addtime%></td>
</tr>
</table></td>
</tr>
</table>
<%
Rs.movenext
loop
%>
<br>
<%
if page_no<>1 then
call htmlpage()
end if
end if
%>
</div>
</body>
</html>
<%
rs.close
conn.close
set rs=nothing
set conn=nothing
call htmlend()
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -