放入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实现同一虚拟主机空间安放多个网站的方法
现在的域名很便宜，不少朋友手里多少都有几个，如果您想用手中的几个域名做多个网站的话，并不用同时购买多个虚拟主机，您只要先将您所有的域名绑定到您的虚拟主机上，然后将虚拟主机根目录中的index.asp（首页文件）里加入下列代码就可以了：
<%
sn=lcase(Request.Se ......
'--------------------------------------------------------------
'ASP版HashMap实现
'该实现存储数据为有序数据,类似Java中的LinkedHashMap
'--------------------------------------------------------------
Class HashMap
dim arr()
dim arr_len
'构造函数
private Sub Clas ......
我想在asp中加一个链接，指向asp.net网页，但asp.net的网址是经过HttpUtility.UrlEncode变形和HttpUtility.UrlDecode变回的，而asp的server.urlencode却产生不了和HttpUtility.UrlEncode一样的编码，请问有没有解决办法
补充：原来asp.net的是"web.aspx?str="+HttpUtility.UrlEncode(str)
和HttpUtility.UrlDecode(Requ ......
‘防注入把它加到conn里这样就ok了
dim sql_injdata
SQL_injdata = "’|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 Ubo ......
什么是 ADO 存取数据库时的分页显示？如果你使用过目前众多网站上的电子公告板程序的话，那你应该会知道电子公告板程序为了提高页面的读取速度，一般不会将所有的帖子全部在一页中罗列出来，而是将其分成多页显示，每页显示一定数目的帖子数，譬如 20 条。这就是数据库查询的分页显示，如果你还不明白，去看看 yahoo 等搜索 ......
