📄 man_disipok.asp
字号:
<!--#INCLUDE FILE="config.asp" -->
<%
Function iplist(v)
vip=split(v,"|")
for i=0 to ubound(vip)
Response.Write vip(i) & chr(13) & chr(10)
next
End Function
If Not IsArray(Session("info")) Then Response.Redirect "err.asp?kind=20"
info = Session("info")
If InStr(Application("maninfo"),"," & info(0) & ",") <> 0 Then Response.Redirect "manyou.asp"
gradeinfo = Application("gradeinfo")
If gradeinfo(info(1),15) <> True Then Response.Redirect "err1.asp?kind=17"
ip = Trim(Request.Form("ip"))
For i = 58 To 126
ip = Replace(ip,chr(i),"")
Next
ip = Replace(ip,"|","")
ip = Replace(ip," ","")
ip = Replace(ip,chr(13),"|")
ip = Replace(ip,chr(10),"|")
Do While InStr(ip,"||")<>0
ip = Replace(ip,"||","|")
Loop
If right(ip,1) = "|" Then ip = left(ip,Len(ip) - 1)
If InStr(ip,"..") <> 0 Or InStr(ip,"**") <> 0 Or InStr(ip,".") = 1 Or InStr(ip,"|.") <> 0 Then Response.Redirect "err.asp?kind=74"
Set fso = Server.CreateObject("scripting.filesystemobject")
file = Server.MapPath("config.asp")
Set fs = fso.OpenTextFile(file,2,True)
fs.WriteLine "<" & "%"
fs.WriteLine "const zzbird_chatroomname=" & chr(34) & zzbird_chatroomname & chr(34)
fs.WriteLine "const zzbird_master=" & chr(34) & zzbird_master & chr(34)
If zzbird_open = True Then
fs.WriteLine "const zzbird_open=true"
Else
fs.WriteLine "const zzbird_open=false"
End If
If zzbird_reg = True Then
fs.WriteLine "const zzbird_reg=true"
Else
fs.WriteLine "const zzbird_reg=false"
End if
fs.WriteLine "const zzbird_intochat=" & chr(34) & zzbird_intochat & chr(34)
fs.WriteLine "const zzbird_outchat=" & chr(34) & zzbird_outchat & chr(34)
fs.WriteLine "const zzbird_outdown=" & chr(34) & zzbird_outdown & chr(34)
fs.WriteLine "const zzbird_drop=" & chr(34) & zzbird_drop & chr(34)
fs.WriteLine "const zzbird_changename=" & chr(34) & zzbird_changename & chr(34)
fs.WriteLine "const zzbird_kick=" & chr(34) & zzbird_kick & chr(34)
fs.WriteLine "const zzbird_ip=" & chr(34) & zzbird_ip & chr(34)
fs.WriteLine "const zzbird_unip=" & chr(34) & zzbird_unip & chr(34)
fs.WriteLine "const zzbird_hongzha=" & chr(34) & zzbird_hongzha & chr(34)
fs.WriteLine "const zzbird_kick_long=" & zzbird_kick_long
fs.WriteLine "const zzbird_ip_long=" & zzbird_ip_long
fs.WriteLine "const zzbird_hongzha_long=" & zzbird_hongzha_long
fs.WriteLine "const zzbird_delnameday=" & zzbird_delnameday
fs.WriteLine "const zzbird_clsmax=" & zzbird_clsmax
fs.WriteLine "const zzbird_savevaluetime=" & zzbird_savevaluetime
fs.WriteLine "const zzbird_reloadtime=" & zzbird_reloadtime
fs.WriteLine "const zzbird_badwordtime=" & zzbird_badwordtime
fs.WriteLine "const zzbird_timeout=" & zzbird_timeout
fs.WriteLine "const zzbird_chatbg=" & chr(34) & zzbird_chatbg & chr(34)
fs.WriteLine "const zzbird_chatbgpic=" & chr(34) & zzbird_chatbgpic & chr(34)
fs.WriteLine "const zzbird_chattext=" & chr(34) & zzbird_chattext & chr(34)
fs.WriteLine "const zzbird_chatfontsize=" & chr(34) & zzbird_chatfontsize & chr(34)
fs.WriteLine "const zzbird_saybg=" & chr(34) & zzbird_saybg & chr(34)
fs.WriteLine "const zzbird_saybgpic=" & chr(34) & zzbird_saybgpic & chr(34)
fs.WriteLine "const zzbird_saytext=" & chr(34) & zzbird_saytext & chr(34)
fs.WriteLine "const zzbird_titlebg=" & chr(34) & zzbird_titlebg & chr(34)
fs.WriteLine "const zzbird_titlebgpic=" & chr(34) & zzbird_titlebgpic & chr(34)
fs.WriteLine "const zzbird_titletext=" & chr(34) & zzbird_titletext & chr(34)
fs.WriteLine "const zzbird_butbg=" & chr(34) & zzbird_butbg & chr(34)
fs.WriteLine "const zzbird_buttext=" & chr(34) & zzbird_buttext & chr(34)
fs.WriteLine "const zzbird_selectbg=" & chr(34) & zzbird_selectbg & chr(34)
fs.WriteLine "const zzbird_selecttext=" & chr(34) & zzbird_selecttext & chr(34)
fs.WriteLine "const zzbird_gonggao=" & chr(34) & zzbird_gonggao & chr(34)
fs.WriteLine "const zzbird_disip=" & chr(34) & ip & chr(34)
fs.WriteLine "%" & ">"
fs.close
Set fs = nothing
Set fso = nothing
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>禁止IP来源</title>
<style>
<!--
fieldset { font-size: 10pt }
table { font-size: 10pt }
-->
</style>
</head>
<body bgcolor="buttonface" style="border: 3px double buttonface">
<fieldset style="padding: 2">
<legend><img border="0" src="images/kill.gif">禁止IP来源</legend>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="279" id="AutoNumber1">
<tr>
<td width="150">
<textarea rows="8" name="S1" cols="18" disabled><%=iplist(ip)%></textarea></td>
<td width="129">
操作已经成功完成</td>
</tr>
</table>
</fieldset>
<div align="left">
<input type="button" onclick="history.back(1)" value="返回" name="B1"><input type="reset" disabled value="重置" name="B2"><input type="button" value="关闭" name="B3" onclick="window.close()">
<a href="http://aspxer.com/go.aspx?action=nowchat" target="_blank"><font style="font-size: 8pt" color="#808080">NowChat 2.2 - Powered by 喳喳鸟</font></a></div>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -