📄 admin_lockip.asp
字号:
<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')">
<font color="#FFFFFF"> <b>到期</b></font></td>
<td width="5%" align="center" class="forumHeaderBackgroundAlternate" bgcolor="#33CCFF" style="background-image: url('images/admin_bg_1.gif')">
<font color="#FFFFFF"><B> <span style="font-size: 9pt">操作</span></B></font></td>
</tr>
<%
dim currentpage,page_count,Pcount
dim totalrec,endpage
currentPage=request("page")
if currentpage="" then
currentpage=1
else
currentpage=clng(currentpage)
if err then
currentpage=1
err.clear
end if
end if
if request("action")="mb" then
sql="select * from goip where mbname<>'' order by id desc"
else
sql="select * from goip where mbname='' order by id desc"
end if
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,3
if rs.eof and rs.bof then
%>
<tr>
<td width="846" colspan=8 class=forumrow bgcolor="#99CCFF"> <span style="font-size: 9pt">还没有任何IP限制数据。</td>
</tr>
<%
else
rs.PageSize = 500
'rs.AbsolutePage=currentpage
page_count=0
totalrec=rs.recordcount
while (not rs.eof) and (not page_count = 15)
%>
<tr>
<td width="38" align="center" class=forumrow bgcolor="#99CCFF"><%=rs("id")%></td>
<%if request("action")="mb" then%>
<td width="15%" align="center" class=forumrow bgcolor="#99CCFF"><%=rs("mbname")%></td>
<%end if%>
<td width="15%" align="center" class=forumrow bgcolor="#99CCFF"><%=rs("sip1")%></td>
<td width="15%" align="center" class=forumrow bgcolor="#99CCFF"><%=rs("sip2")%></td>
<td width="15%" align="center" class=forumrow bgcolor="#99CCFF"><%=rs("why")%></td>
<td width="15%" align="center" class=forumrow bgcolor="#99CCFF"><%=rs("tim")%></td>
<td width="15%" align="center" class=forumrow bgcolor="#99CCFF"><%=rs("time")%></td>
<td width="5%" align="center" class=forumrow bgcolor="#99CCFF">
<span style="font-size: 9pt">
<input type=checkbox name="delid" value="<%=cstr(rs("ID"))%>">
<a href="?action=mod&id=<%=rs("id")%>">修改</a> </span></td>
</tr>
<%
page_count = page_count + 1
rs.movenext
wend
%>
<span style="font-size: 9pt"> </span>
<tr>
<td colspan=8 class=forumrow align=center bgcolor="#99CCFF" width="846" height="18">
<span style="font-size: 9pt">分页：
<%Pcount=rs.PageCount
if currentpage > 4 then
response.write "<a href=""?page=1"">[1]</a> ..."
end if
if Pcount>currentpage+3 then
endpage=currentpage+3
else
endpage=Pcount
end if
for i=currentpage-3 to endpage
if not i<1 then
if i = clng(currentpage) then
response.write " <font color=red>["&i&"]</font>"
else
response.write " <a href=""?page="&i&""">["&i&"]</a>"
end if
end if
next
if currentpage+3 < Pcount then
response.write "... <a href=""?page="&Pcount&""">["&Pcount&"]</a>"
end if
%>
</span> </td>
</tr>
<%
end if
rs.close
set rs=nothing
%>
<span style="font-size: 9pt"> </span>
</FORM>
</table>
</div>
<script language="JavaScript">
<!--
function CheckAll(form) {
for (var i=0;i<form.elements.length;i++) {
var e = form.elements[i];
if (e.name != 'chkall') e.checked = form.chkall.checked;
}
}
//-->
</script></form>
<%
if request("action")="mod" then
id=request("id")
sql="select * from goip where id="&id
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,3
%>
<table width="75%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td>
<table width="86%" border="0" align="center" cellpadding="3" cellspacing="1" background="images/admin_bg_1.gif" class="tableBorder" dwcopytype="CopyTableCell">
<tr>
<th colspan=3 bgcolor="#33CCFF" style="background-image: url('images/admin_bg_1.gif')"><span style="font-size: 9pt">
<font color="#FFFFFF">网吧IP开通管理－－<span style="font-size: 9pt">修改</span></font></th>
</tr>
<form action="?action=mod1&reaction=save" method="post">
<tr>
<td width="17%" class=forumrow bgcolor="#99CCFF"><span style="font-size: 9pt">网吧名称</span></td>
<td colspan="2" bgcolor="#99CCFF" class=forumrow><span style="font-size: 9pt">
<input type="text" name="mbname" size="30" value="<%=rs("mbname")%>">
<input name="id" type="hidden" id="id" value="<%=id%>">
</span></td>
</tr>
<tr>
<td width="17%" class=forumrow bgcolor="#99CCFF"><span style="font-size: 9pt">起始I P</span></td>
<td colspan="2" bgcolor="#99CCFF" class=forumrow><span style="font-size: 9pt">
<input type="text" name="ip1" size="30" value="<%=rs("sip1")%>">
如202.96.0.0</span></td>
</tr>
<tr>
<td width="17%" class=forumrow bgcolor="#99CCFF"><span style="font-size: 9pt">结尾I P</span></td>
<td colspan="2" bgcolor="#99CCFF" class=forumrow><span style="font-size: 9pt">
<input type="text" name="ip2" size="30" value="<%=rs("sip2")%>">
如202.96.0.255</span></td>
</tr>
<tr>
<td width="17%" class=forumrow bgcolor="#99CCFF"><span style="font-size: 9pt">开始时间</span></td>
<td width="23%" class=forumrow bgcolor="#99CCFF"><span style="font-size: 9pt">
<input name="starttime" type="text" id="starttime" value="<%=rs("tim")%>" size="15">
</span></td>
<td width="60%" bgcolor="#99CCFF">结束时间
<input name="endtime" type="text" id="endtime" value="<%=rs("time")%>" size="15"></td>
</tr>
<tr>
<td width="17%" class=forumrow bgcolor="#99CCFF"><font color="#FF0000">网吧端管理密码：</font></td>
<td colspan="2" bgcolor="#99CCFF" class=forumrow>
<span style="font-size: 9pt">
<input type="text" name="mbpass" size="30" value="<%=rs("mbpass")%>"></span></td>
</tr>
<tr>
<td width="17%" class=forumrow bgcolor="#99CCFF">说明</td>
<td colspan="2" bgcolor="#99CCFF" class=forumrow>
<span style="font-size: 9pt">
<textarea rows="3" name="why" cols="28"><%=rs("why")%></textarea>
</span></td>
</tr>
<tr>
<td width="17%" class=forumrow bgcolor="#99CCFF"></td>
<td colspan="2" bgcolor="#99CCFF" class=forumrow> <span style="font-size: 9pt">
<input type="submit" name="Submit" value="提 交"> </td>
</tr>
</form>
</table></td>
</tr>
</table>
<%
rs.close
end if
if request("action")="mod1" and request("reaction")="save" then
id=request("id")
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 where id="&id
rs.open sql,conn,1,3
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("tim")=request("starttime")
rs("time")=request("endtime")
rs.update
rs.close
set rs=nothing
%>
<table width="75%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td align="center"> <span style="font-size: 9pt">修改成功！</span></td>
</tr>
</table>
<%
end if
conn.close
set conn=nothing
end if
end sub
%>
</BODY></HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -