📄 manlock.asp

📁 网佳网络办公系统（以下简称OA）是一套基于B/S模式的无纸化办公系统。[显著特点：无须安装客户端] 主要功能模块：管理公文车辆通知档案值班人事审批仓库主界面软件下载个
💻 ASP
字号:
<%Response.Expires=0%>
<!--#include file="../config/config.asp"-->
<%nickname=Session("hxf_u_nickname")
grade=Int(Session("hxf_u_grade"))
inthechat=Session("hxf_u_inthechat")
if nickname="" or session("mypai")<>"六扇门" then Response.Redirect "manerr.asp?id=100"
if grade<10 then Response.Redirect "manerr.asp?id=210"
if inthechat<>"1" then Response.Redirect "manerr.asp?id=211"
lockname=Trim(Request.QueryString("id"))
lockip=Trim(Request.QuerySTring("ip"))
if lockname<>"" and lockip="" then Response.Redirect "manerr.asp?id=212"
if CStr(lockname)=CStr(nickname) then Response.Redirect "../error.asp?id=481"
Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
connstr=Application("hg_connstr")
conn.open connstr
sql="SELECT ip,lockdate,locker FROM iplocktemp"
rs.open sql,conn,1,1
totalrec=rs.RecordCount
if totalrec>0 then
 Dim show()
 i=1
 Do while Not rs.Eof
  Redim Preserve show(i),show(i+1),show(i+2)
  show(i)=rs("ip")
  show(i+1)=rs("lockdate")
  show(i+2)=rs("locker")
  i=i+3
 rs.MoveNext
 Loop
end if
rs.close
conn.close
set rs=nothing
set conn=nothing
n=Year(date())
y=Month(date())
r=Day(date())
s=Hour(time())
f=Minute(time())
m=Second(time())
if len(y)=1 then y="0" & y
if len(r)=1 then r="0" & r
if len(s)=1 then s="0" & s
if len(f)=1 then f="0" & f
if len(m)=1 then m="0" & m
t=s & ":" & f & ":" & m
sj=n & "-" & y & "-" & r & " " & t%>
<html>
<head>
<title>封闭IP</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../dg/setup.css">
<Script Language=JavaScript>function ulk(ip){document.forms[1].unlockip.value=ip;document.forms[1].unlockwhy.focus();}</Script>
</head>
<BODY bgColor=#000000 oncontextmenu=self.event.returnValue=false class=p150 text="#FFFFFF" >
<p align="center"><font color="#FFFF00">&copy;剑侠外传 ◇封 闭 I P◇</font></p> 
<table width="425" align="center" bordercolorlight="#808000" bordercolordark="#000000" border="1" cellspacing="0" height="57"> 
<tr> 
<td>被封锁的IP在<font color=red><%=locktime%></font>分钟内不能登录,之后系统会自动解锁该IP</td> 
</tr> 
<form method="post" action="manlockok.asp"> 
<tr>   
<td>封锁IP：<input type="text" name="lockip" value="<%=lockip%>" size="15" maxlength="15"<%if lockname<>"" then Response.Write " readonly"%>><%if lockname<>"" then Response.Write " <font color=red>(" & lockname & ")</font>"%><input type="hidden" name="lockname" value="<%=lockname%>"></td>  
</tr>  
<tr>   
<td>封锁原因：[&lt;=60字符]</td>  
</tr>  
<tr>   
<td>   
<select name="select" onChange="javascript:document.forms[0].lockwhy.value=this.value;document.forms[0].lockwhy.focus();">  
<option value="" selected>自填</option>  
<option value="不受欢迎人。">不欢迎</option>  
<option value="所取的名字十分不雅。">不雅ID</option>  
<option value="乱刷屏，警告又不听。">乱刷屏</option>  
<option value="在聊天室散布有悖伦理道德的言论。">不道德</option>  
<option value="不遵守聊天规则，进行人身攻击。">骂人</option>  
<option value="在聊天室散布违反国家法律法规的言论。">违法</option>  
</select>  
<input type="text" name="lockwhy" maxlength="60" size="50">        
</td>        
</tr>        
<td align="center"> <input type="submit" name="Submit" value="封锁"> <input type="reset" name="reset" value="重写">  <input type="button" value="放弃" onclick="javascript:history.go(-1)">     
</table>     
</form>     
<table width="425" align="center" bordercolorlight="#808000" bordercolordark="#000000" border="1" cellspacing="0" height="57">     
<form method="post" action="manunlockok.asp">       
<tr>       
<td>解锁IP：<input type="text" name="unlockip" size="15" maxlength="15" readonly></td>       
</tr>       
<tr>        
<td>解锁原因：[&lt;=60字符]</td>       
</tr>       
<tr>        
<td>        
<select name="select" onChange="javascript:document.forms[1].unlockwhy.value=this.value;document.forms[1].unlockwhy.focus();">       
<option value="" selected>自填</option>  
<option value="封锁时不小心搞错了。">误操作</option>  
<option value="对方已经改过，请求解锁IP。">悔过</option>  
<option value="这个IP是网吧的，封锁后都上不来了。">网吧</option>  
<option value="这个IP是代理地址，封锁后都上不来了。">代理</option>  
</select>  
<input type="text" name="unlockwhy" maxlength="60" size="50">      
</td>      
</tr>  
<td align="center"><input type="submit" name="Submit" value="解锁"> <input type="reset" name="reset" value="重写"> <input type="button" value="放弃" onclick="javascript:history.go(-1)"></td>      
</tr>      
</form>      
</table>      
<p align=center><font color=yellow>共 <font color=red><%=totalrec%></font> 个</font>　<a href=javascript:history.go(0)>刷新</a></p>      
<table bordercolorlight="#808000" bordercolordark="#000000" align="center" width="424" border="1" cellspacing="0">      
  <tr align="center">       
    <td width="28"><font color="#FFFFFF">编号</font></td>     
    <td width="49"><font color="#FFFFFF">封锁者</font></td>     
    <td width="134"><font color="#FFFFFF">封 锁 时 间</font></td>     
    <td width="101"><font color="#FFFFFF">被封锁的IP地址</font></td>     
    <td width="61"><font color="#FFFFFF">已封锁时长</font></td>    
    <td width="25"><font color="#FFFFFF">解锁</font></td>    
</tr><%if totalrec>0 then    
for i=1 to UBound(show) step 3%><tr align="center">    
<td width="28"><%=(i+2)/3%></td>    
<td width="49"><%=show(i+2)%></td>    
<td width="134"><%=show(i+1)%></td>    
<td width="101"><%=show(i)%></td>    
<td width="61"><%=DateDiff("n",show(i+1),sj)&" "%>分钟</td>    
<td width="25"><a href="javascript:ulk('<%=show(i)%>')">解开</a></td>    
</tr><%next    
end if%> 
</table>    
</body>    
</html>
💿 文件大小 2458 K
👤 上传用户 C69222090
📂 所属分类 OA系统
🏷️ 相关标签

#网络 #模式 #无纸化
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -