📄 ipmanage.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="const.asp"-->
<%
'****************************************************************
' 本序制作：柯南.Net
' 作者住址：山东省威海市经济技术开发区望岛
' 邮政编码：264200
' 电子邮件：zhimengcn@163.com
' 个人主页：http://nenannet.yeah.net
' OICQ : 99924107
'
'****************************************************************
Response.Expires=0
If session("kenanbook")="" Then
Response.Redirect("login.asp")
End If
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=webname%>留言本管理页面</title>
<script language=javascript>
function rusure()
{ question = confirm("你 确 定 要 删 除 IP 吗?")
if (question !="0")
{ parent.right.location = "manage.asp" }
}
</script>
</head>
<body>
<% header()%>
<table width=<%=bodywidth%> height="264" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="216" align="center"><br>
<br>
<TABLE id="Table1" cellSpacing="4" cellPadding="0" width="168" border="0" class="table002">
<TR>
<TD><strong>留言本管理系统</strong></TD>
</TR>
<TR>
<TD height="30" style="table001"> <IMG height="15" src="images\homepage.gif">
<a title="返回站点首页" href="<%=homepage%>">网站首页</a> </TD>
</TR>
<TR>
<TD height="30" style="table001"><img height="16" src="images/refresh.gif" width="15">
<a title="刷新/显示留言列表" href="adminindex.asp"> 管理首页</a></TD>
</TR>
<TR>
<TD height="30" style="table001"><img src="images/ip.gif" width="16" height="15">
<a href="ipmanage.asp">I P 管理</a></TD>
</TR>
<TR>
<TD height="30" style="table001"><img src="images/edit.gif" width="16" height="16">
<a href="system.asp">系统设置</a></TD>
</TR>
<TR>
<TD height="30" style="table001"> <img src="images/win16.gif" width="16" height="16">
<a href="changepass.asp">更改密码</a></TD>
</TR>
<TR>
<TD height="30" style="table001"> <P><img src="images\info.gif"> 留言簿信息
</P></TD>
</TR>
<TR>
<TD height="30"><img src="images/user.gif" width="16" height="16"> 站长：<%=webadmin%></TD>
</TR>
<TR>
<TD height="30"><img src="images/ie.gif" width="17" height="16"> 网站:<a href="<%=homepage%>"><%=webname%></a></TD>
</TR>
<TR>
<TD height="30"> <p><img src="images/email.gif"> 信箱：<a href="mailto:<%=email%>" title="信箱地址：<%=email%>"><%=email%></a></p></TD>
</TR>
</TABLE>
</td>
<td width="544" valign="top"><br>
<br>
<table width="399" height="290" border="0" align="center" cellpadding="0" cellspacing="0" class="table002">
<tr align="center">
<td height="19" colspan="2">IP地址管理</td>
</tr>
<tr>
<td colspan="2" align="center" valign="top"><br>
<%
sql="select * from iplock order by ID"
set rs=server.CreateObject("Adodb.recordset")
rs.open sql,conn,1,1
If rs.Bof Then
Response.Write("<center>现在没有IP管理。。请返回！！！</center>")
Else
rs.pagesize=maxsize
'**********************分页程序*******************************************
dim currentpage,page,pagenum
max=rs.recordcount
pages=max/maxsize
dim gotopage '-------------------->注意！！在这里定义分页程序所跳转的页面
gotopage="index.asp" '----->如果这个程序的页面发生改变。可以设定值改变它
Rem 以下为判断分页逻辑
if pages>int(pages) then
pagenum=int(pages)+1
else
pagenum=int(pages)
end if
if trim(request("page"))<>"" then
currentpage=Clng(request("page"))
if currentpage=0 then currentpage=1
if currentpage>rs.pagecount then
currentpage=rs.pagecount
end if
else
currentpage=1
end if
rs.absolutepage=currentpage
'******************************************************************
Response.Write("<table width=100% border=0 cellspacing=0 cellpadding=0 align=center>")
Response.Write("<tr>")
Response.Write("<td>IP地址</td><td>屏蔽原因</td><td>屏蔽时间</td><td>删除</td>")
Do While Not rs.Eof
Response.Write("<tr>")
Response.Write("<td height=20>"&rs("IP")&"</td>")
Response.Write("<td height=20>"&rs("content")&"</td>")
Response.Write("<td height=20>"&rs("locktime")&"</td>")
Response.Write("<td height=20><a href=manage.asp?style=delip&id="&rs("id")&" onClick=""rusure(); return false;""><img src=images/del.gif border=0></a></td></tr>")
i=i+1
rs.MoveNext
Loop
Response.Write("</table>")
Response.write("<form name=form1 method=post action="&gotopage&" onsubmit=""return xxg()"">")
Response.Write("<table align=""center"" width=""98%"" border=""0"" height=""20"">")
Response.Write("<tr><td width=""723"" height=""14""align=""center"">")
Response.Write("共<font color=red>"&rs.recordcount&"</font>条记录 ")
If currentpage-1>0 Then
Response.Write("<a href="&gotopage&">首页</a> ")
Response.Write("<a href="&gotopage&"?page="&(currentpage-1)&">上一页</a> ")
Else
Response.Write("<font color=#BBBBBB>首页 上一页 </font>")
End If
If currentpage<>pagenum Then
Response.Write("<a href="&gotopage&"?page="&(currentpage+1)&">下一页</a> ")
Response.Write("<a href="&gotopage&"?page="&pagenum&">尾页</a> ")
Else
Response.Write("<font color=#BBBBBB>下一页 尾页 </font>")
End If
Response.Write("转到：")
Response.Write("<input class=smallInput maxlength=10 name=page size=4 value="¤tpage&">")
Response.Write(" <input class=buttonface name=""submit"" type=submit value=GO>")
Response.Write("</td><td width=""11"" height=""14""> </td></tr></table></form>")
End If
%>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td> </td>
<td> </td>
</tr>
<tr>
<td> </td>
<td> </td>
</tr>
</table>
<% footer()
connclose()
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -