📄 admin_sqlinword.asp

📁 正版创力4.1SQL商业版!!!ASP版。
💻 ASP
字号:
<!--#include file="Inc/Const.asp"-->
<%
if Not Cl.TrueOtherPurview("Badword") then
	Cl.ShowErr("<br /><li>您无此操作权限！</li>")
end if
%>
<html>
<head>
<title>脏话过滤字符编辑</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../Skins/Css/Admin.Css" rel="stylesheet" type="text/css">
<script src="../Inc/Js/Admin.js" type="text/javascript"></script>
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<%

if request("action") = "saveword" then
call saveword()
else
%>
<form action="Admin_SqlInWord.asp?action=saveword" method=post>
<table width="95%" border="0" cellspacing="1" cellpadding="3"  align=center class="Border">
<tr>
<td colspan=2 align=center height=23 Class="title">防 SQL 注 入 过 滤 字 符</td>
</tr>
<tr>
<td class=tdbg width="15%">说明：</td>
<td class=tdbg width="85%">请您将要过滤的字符串添入，每个过滤字符用回车分割开。</td>
</tr>
<tr>
<td class=tdbg width="100%" colspan=2>
<textarea name="SqlInword" cols="80" rows="15" ID="SqlInword"><%
if Instr(Cl.CacheData(13,0),"|")>0 then
	Dim StrSqlInword
	StrSqlInword=Split(Trim(Cl.CacheData(13,0)),"|")
	For i=0 To Ubound(StrSqlInword)
		Response.Write StrSqlInword(i)
		If i<Ubound(StrSqlInword) Then Response.Write chr(10)
	Next
else
	Response.Write Trim(Cl.CacheData(13,0))
end if
%></textarea>
<br /><a href="javascript:admin_Size(-5,'SqlInword')"><img src="images/minus.gif" unselectable="on" border='0'></a> <a href="javascript:admin_Size(5,'SqlInword')"><img src="images/plus.gif" unselectable="on" border='0'></a>
</td>
</tr>

<tr>
<td colspan=2 align=center height=23 Class="title">免 检 测 SQL 注 入 的 文 件</td>
</tr>
<tr>
<td class=tdbg width="15%">说明：</td>
<td class=tdbg width="85%">请输入不检测SQL注入的文件，每个过滤字符用回车分割开。默认管理员文件不检测！</td>
</tr>
<tr>
<td class=tdbg width="100%" colspan=2>
<textarea name="nochkfiles" cols="80" rows="8" ID="nochkfiles"><%
if Instr(Cl.CacheData(14,0),"|")>0 then
	Dim StrNochkfiles
	StrNochkfiles=Split(Trim(Cl.CacheData(14,0)),"|")
	For i=0 To Ubound(StrNochkfiles)
		Response.Write StrNochkfiles(i)
		If i<Ubound(StrNochkfiles) Then Response.Write chr(10)
	Next
else
	Response.Write Trim(Cl.CacheData(14,0))
end if
%></textarea>
<br /><a href="javascript:admin_Size(-5,'nochkfiles')"><img src="images/minus.gif" unselectable="on" border='0'></a> <a href="javascript:admin_Size(5,'nochkfiles')"><img src="images/plus.gif" unselectable="on" border='0'></a>
</td>
</tr>
<tr> 
<td class=tdbg width="15%"></td>
<td width="85%" class=tdbg><input type="submit" name="Submit" value="提 交"></td>
</tr>
</table>
</form>
<%end if

sub saveword()
	sql = "update Cl_Setup set SqlInword='"&Cl.Checkstr(replace(Trim(request("SqlInword")),vbCrlf,"|"))&"',NoChkSqlInFiles='"&Cl.Checkstr(replace(Trim(request("nochkfiles")),vbCrlf,"|"))&"'"
	Cl.Execute(sql)
	Cl.Load_Setup
	Cl.SaveAdminLog
	Call Cl.ShowSuc("更新成功！")
end sub
%>
</body>
</html>
<%
'<!--
'┌───────────────────────────────────────────────────────┐
'│														 │
'│		CreateLive CMS Version 4.0						 │
'│　　　　　　　　				Powered by Aspoo.CN	 	 │
'│　		　　　　　　　　　　						 │
'│　	邮箱: support@aspoo.cn		Info@aspoo.cn　　	 │
'│		ＱＱ: 3315263				596197794			 │
'│		网站: www.aspoo.cn			www.aspoo.com		 │
'│		论坛: bbs.aspoo.cn			bbs.aspoo.com		 │
'│														 │
'│	Copyright (C) 2005-2007 Aspoo.CN All Rights Reserved.	 │
'└───────────────────────────────────────────────────────┘
'-->
%>
⌨️ 快捷键说明

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