📄 admin_lockip.asp
字号:
<!--#include file="../checkpost.asp"-->
<!--#include file="articleconn.asp" -->
<!--#include file="security.asp"-->
<!--#include file="zcm.asp"-->
<%
if session("flag")>2 then
response.write "<br><p align=center>您没有操作的权限</p>"
response.end
end if
%>
<%
zj=Request.ServerVariables("SERVER_NAME")
zj=left(replace(zj,"www.",""),6)
zj=replace(zj,"0","a")
zj=replace(zj,"1","b")
zj=replace(zj,"2","c")
zj=replace(zj,"3","d")
zj=replace(zj,"4","e")
zj=replace(zj,"5","f")
zj=replace(zj,"6","g")
zj=replace(zj,"7","h")
zj=replace(zj,"8","i")
zj=replace(zj,"9","j")
zj=replace(zj,"a","40")
zj=replace(zj,"b","41")
zj=replace(zj,"c","52")
zj=replace(zj,"d","53")
zj=replace(zj,"e","64")
zj=replace(zj,"f","65")
zj=replace(zj,"g","76")
zj=replace(zj,"h","77")
zj=replace(zj,"i","88")
zj=replace(zj,"j","89")
zj=replace(zj,"k","20")
zj=replace(zj,"l","21")
zj=replace(zj,"m","22")
zj=replace(zj,"n","23")
zj=replace(zj,"o","24")
zj=replace(zj,"p","25")
zj=replace(zj,"q","26")
zj=replace(zj,"r","27")
zj=replace(zj,"s","28")
zj=replace(zj,"t","29")
zj=replace(zj,"u","30")
zj=replace(zj,"v","31")
zj=replace(zj,"w","32")
zj=replace(zj,"x","33")
zj=replace(zj,"y","34")
zj=replace(zj,"z","35")
zj=replace(zj,"-","36")
zj=replace(zj,".","37")
yzcv=zj*(len(zj)+len(zcn&"mayivod"))
Do While yzcv>10000000000
yzcv=yzcv-10000000000
loop
if yzcv<>zcv then
response.write "<script language=JavaScript>{window.alert('错误：程序尚未注册,此功能不能使用!');window.location='zcmayireg.asp?type=reg';}</script>"
end if
%>
<LINK href="images/forum_admin.css" type=text/css rel=stylesheet>
<META content="Microsoft FrontPage 6.0" name=GENERATOR></HEAD>
<BODY leftMargin=0 topMargin=0 marginwidth="0" marginheight="0">
<TABLE class=tableBorder width="98%" align=center border=0>
<TR>
<TH height=25 style="background-image: url('images/admin_bg_1.gif')">
<font face="宋体"> 授权网吧管理</font></TH></TR>
<TR>
<TD class=forumrow height=100>
<table border="0" style="border-collapse: collapse" width="100%">
<tr><td>
</TD></TR>
<TR>
<TD class=forumrow height=100>
<%
call main()
sub main()
dim userip,ips,GetIp1,GetIp2
if request("userip")<>"" then
userip=request("userip")
ips=Split(userIP,".")
GetIp1=ips(0)&"."&ips(1)&"."&ips(2)&".1"
GetIp2=ips(0)&"."&ips(1)&"."&ips(2)&".255"
else
userip=""
GetIp1=""
GetIp2=""
end if
if request("action")="add" then
%>
<table width="95%" border="0" cellspacing="1" cellpadding="3" align=center class="tableBorder">
<%
dim sip,str1,str2,str3,str4,num_1,num_2
if request.querystring("reaction")="save" then
sip=cstr(request.form("ip1"))
'dot=instr(ip,".")-1
'response.write dot
str1=left(sip,cint(instr(sip,".")-1))
sip=mid(sip,cint(instr(sip,"."))+1)
str2=left(sip,cint(instr(sip,"."))-1)
sip=mid(sip,cint(instr(sip,"."))+1)
str3=left(sip,cint(instr(sip,"."))-1)
str4=mid(sip,cint(instr(sip,"."))+1)
num_1=cint(str1)*256*256*256+cint(str2)*256*256+cint(str3)*256+cint(str4)-1
mbname=cstr(request.form("mbname"))
mbpass=cstr(request.form("mbpass"))
data=cstr(request.form("data"))
sip=cstr(request.form("ip2"))
str1=left(sip,instr(sip,".")-1)
sip=mid(sip,instr(sip,".")+1)
str2=left(sip,instr(sip,".")-1)
sip=mid(sip,instr(sip,".")+1)
str3=left(sip,instr(sip,".")-1)
str4=mid(sip,instr(sip,".")+1)
num_2=cint(str1)*256*256*256+cint(str2)*256*256+cint(str3)*256+cint(str4)-1
'response.write num_1 &","& num_2
'response.end
set rs = server.CreateObject ("adodb.recordset")
sql="select * from goip"
rs.open sql,conn,1,3
rs.addnew
rs("ip1")=num_1
rs("why")=trim(request.form("why"))
rs("ip2")=num_2
rs("sip1")=request.form("ip1")
rs("sip2")=request.form("ip2")
rs("mbname")=mbname
rs("mbpass")=mbpass
rs("time")=now()+data
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</span>
<tr>
<td width="100%" class=forumrow bgcolor="#99CCFF">
<span style="font-size: 9pt">添加成功！</td>
</tr>
</table>
<%
elseif request("mb")="mb" then
%>
<table width="86%" border="0" align="center" cellpadding="3" cellspacing="1" background="images/admin_bg_1.gif" class="tableBorder">
<tr>
<th width="98%" colspan=2 bgcolor="#33CCFF" style="background-image: url('images/admin_bg_1.gif')"><span style="font-size: 9pt">
<font color="#FFFFFF">网吧IP开通管理－－添加</font></th>
</tr>
<form action="?action=add&reaction=save" method="post">
<tr>
<td width="20%" class=forumrow bgcolor="#99CCFF"><span style="font-size: 9pt">网吧名称</span></td>
<td width="76%" class=forumrow bgcolor="#99CCFF"><span style="font-size: 9pt">
<input type="text" name="mbname" size="30" value="<%=mbname%>">
</span></td>
</tr>
<tr>
<td width="20%" class=forumrow bgcolor="#99CCFF"><span style="font-size: 9pt">起始I P</span></td>
<td width="76%" class=forumrow bgcolor="#99CCFF"><span style="font-size: 9pt">
<input type="text" name="ip1" size="30" value="<%=GetIp1%>">
如202.96.0.0</span></td>
</tr>
<tr>
<td width="20%" class=forumrow bgcolor="#99CCFF"><span style="font-size: 9pt">结尾I P</span></td>
<td width="76%" class=forumrow bgcolor="#99CCFF"><span style="font-size: 9pt">
<input type="text" name="ip2" size="30" value="<%=GetIp2%>">
如202.96.0.255</span></td>
</tr>
<tr>
<td width="20%" class=forumrow bgcolor="#99CCFF"><font color="#FF0000">网吧端管理密码：</font></td>
<td width="76%" class=forumrow bgcolor="#99CCFF"><span style="font-size: 9pt">
<input type="text" name="mbpass" size="30" value="<%=mbpass%>"></span></td>
</tr>
<tr>
<td width="96%" class=forumrow bgcolor="#99CCFF" colspan="2">
<p align="center">
<a href="../lanserver/login.asp"><font color="#FF0000">
登陆网吧管理专区==</font><span lang="en-gb"><font color="#FF0000">></font></span></a></td>
</tr>
<tr>
<td width="20%" class=forumrow bgcolor="#99CCFF">到期时间</td>
<td width="76%" class=forumrow bgcolor="#99CCFF"><span style="font-size: 9pt">
<select size="1" name="data">
<option value="30" selected>一个月</option>
<option value="60">三个月</option>
<option>半年</option>
<option value="365">一年</option>
<option value="800">二年</option>
<option value="9999">无限制</option>
</select>
</span></td>
</tr>
<tr>
<td width="20%" class=forumrow bgcolor="#99CCFF">说明</td>
<td width="76%" class=forumrow bgcolor="#99CCFF"> <span style="font-size: 9pt">
<textarea rows="3" name="why" cols="28">没有说明</textarea>
</span></td>
</tr>
<tr>
<td width="20%" class=forumrow bgcolor="#99CCFF"></td>
<td width="76%" class=forumrow bgcolor="#99CCFF"> <span style="font-size: 9pt">
<input type="submit" name="Submit" value="提 交"> </td>
</tr>
</form>
<%else%>
<%end if
elseif request("action")="delip" then
conn.execute("delete from goip where id in ("&request.form("delid")&")")
response.write "删除成功！"
else
%> <FORM METHOD=POST ACTION="?action=delip">
<tr>
<th width="100%" colspan=8 bgcolor="#0000FF" height="14" style="background-image: url('images/admin_bg_1.gif')">
<p align="right"><font color="#FFFFFF"> <span style="font-size: 9pt">
<input type=submit name=submit value="删除">
<input type=checkbox value="on" name="chkall" onclick="CheckAll(this.form)">
</span></th>
</tr>
<tr>
<td width="38" align="center" class="forumHeaderBackgroundAlternate" bgcolor="#33CCFF" style="background-image: url('images/admin_bg_1.gif')">
<font color="#FFFFFF"><B> <span style="font-size: 9pt">ID</span></B></font></td>
<%if request("action")="mb" then%>
<td width="15%" align="center" class="forumHeaderBackgroundAlternate" bgcolor="#33CCFF" style="background-image: url('images/admin_bg_1.gif')">
<font color="#FFFFFF">网吧名称</font></td>
<%end if%>
<td width="15%" align="center" class="forumHeaderBackgroundAlternate" bgcolor="#33CCFF" style="background-image: url('images/admin_bg_1.gif')">
<font color="#FFFFFF"><B> <span style="font-size: 9pt">起始IP</span></B></font></td>
<td width="15%" align="center" class="forumHeaderBackgroundAlternate" bgcolor="#33CCFF" style="background-image: url('images/admin_bg_1.gif')">
<font color="#FFFFFF"><B> <span style="font-size: 9pt">结尾IP</span></B></font></td>
<td width="15%" align="center" class="forumHeaderBackgroundAlternate" bgcolor="#33CCFF" style="background-image: url('images/admin_bg_1.gif')">
<font color="#FFFFFF"> <b>原因说明</b></font></td>
<td width="15%" align="center" class="forumHeaderBackgroundAlternate" bgcolor="#33CCFF" style="background-image: url('images/admin_bg_1.gif')">
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -