放入conn.asp中(拒绝攻击 万能Asp防注入代码)
放入conn.asp中(拒绝攻击 万能Asp防注入代码)
放入conn.asp中(拒绝攻击 万能Asp防注入代码)
第一种：
squery=lcase(Request.ServerVariables("QUERY_STRING"))
sURL=lcase(Request.ServerVariables("HTTP_HOST"))
SQL_injdata =":|;|>|<|--|sp_|xp_|\|dir|cmd|^|(|)|+|$|'|copy|format|and|exec|insert|select|delete|update|count|*|%|chr|mid|master|truncate|char|declare"
SQL_inj = split(SQL_Injdata,"|")
For SQL_Data=0 To Ubound(SQL_inj)
if instr(squery&sURL,Sql_Inj(Sql_DATA))>0 Then
Response.Write "SQL防注入系统"
Response.end
end if
next
第二种：
SQL_injdata =":|;|>|<|--|sp_|xp_|\|dir|cmd|^|(|)|+|$|'|copy|format|and|exec|insert|select|delete|update|count|*|%|chr|mid|master|truncate|char|declare"
SQL_inj = split(SQL_Injdata,"|")
If Request.QueryString<>"" Then
For Each SQL_Get In Request.QueryString
For SQL_Data=0 To Ubound(SQL_inj)
if instr(Request.QueryString(SQL_Get),Sql_Inj(Sql_DATA))>0 Then
Response.Write "SQL通用防注入系统"
Response.end
end if
next
Next
End If
If Request.Form<>"" Then
For Each Sql_Post In Request.Form
For SQL_Data=0 To Ubound(SQL_inj)
if instr(Request.Form(Sql_Post),Sql_Inj(Sql_DATA))>0 Then
Response.Write "SQL通用防注入系统"
Response.end
end if
next
next
end if
一般这种问题是网站有漏洞，系统漏洞或者SQL注入漏洞，或者上传文件漏洞，我也深受其苦，然而，如何防止网页被修改加入脚本病毒? 现将这个问题总结分享一下.
1、简单的补救措施：在服务器IIS中，把所有的ASP，HTML文件的属性设置为Everyone只读（一般是IUSR_），只把数据库的权限设置成可写，注意：如果你没有服务器的管理权限，那么登录上的空间ftp，选中那些不需要写入的文件或文件夹，右键点击-属性：把其中的三组写入权限都取消，但如果你有ACCESS数据库，要把数据库设成可写，不然读数据时会出错。
2、先把恶意代码删掉（替换掉），然后把网站目录下的所有文件全部用杀软杀下 ,然后一个一个检查下是否存在后门.
3、在你的程序里写上以下防注入函数
on error resume next '这行代码放到conn.asp的第一行。
'防�
相关文档：
'--------------------------------------------------------------
'ASP版HashMap实现
'该实现存储数据为有序数据,类似Java中的LinkedHashMap
'--------------------------------------------------------------
Class HashMap
dim arr()
dim arr_len
'构造函数
private Sub Clas ......
<%
response.Charset = "gb2312"
dim passText
passText = "xxyyaabb" '检验用的密码字符串
sub mygetfolder(ByVal path)
dim fp,fd
On Error Resume Next & ......
以下是发在梅子论坛的贴子，转发过来，希望给用得着的狐友参考。
我的程序以前一直是用花生壳绑定IP实现的远程，由于客户服务器和客户端都是通过宽带上网，一般的操作（开进货单、销售单等）速度也还不错，但是在远程客户端修改商品资料（10000多条记录）、查询一段时期的进销存流水（一周5000条以上）等涉及到取记录量大� ......
请看如下源代码：
<%
'向数据库写入数据
SUB writeData()
dim recCnt,i
dim fieldName1,fieldName2,fieldName3
dim conn
dim sqlStr,connStr
connStr="Provider=SQLOLEDB.1;Initial Catalog=myDatabase;Data Source=myhon;User Id=sa;PASSWORD="
set conn=Server.CreateObject("ADODB.Connection")
c ......
本文的创造性在于cookies_to_array(c) 直接简单快捷转化字符串为数组的方法
另外 本文操作的数组 不是 asp普通的多维数组 而是锯齿型的
这种数组 更易操作 更易阅读 行列清晰 很像数据库中的表
可以类比为 datatable
class myarray
'必须为锯齿数组array(array(1,2,3))
function array_to_cookies(a)
......
