服务器维护

您为何不妨联系我呢？请点我与我交谈

目前的大多数企业网站都存在着注入漏洞，这些漏洞都是由于程序员的思维和设计所遗留的问题。

国内的黑客知识已经平民化，刚学不久的人便拿着 啊D 明小子之类的工具 利用googlehack 或者 baiduhack 来寻找注入目标。

所以说，大多数企业网站都或多或少的处于被注入的情况，给企业带来一些负面影响。现提供3种ASP防注入代码，如果这些措施还不能解决您的困扰，请联系我们的工程师。

解决方案：

那么我们怎么防注入呢？程序如下加入到asp或html或php或cgi里面都可以,经过测试。加入如 top.asp文件中开头。

方法一：
<%if session("username"="" or session("userkey"="" then
response.redirect "../../"
end if
%>
(说明：只要有用户注入则跳转到../../目录，呵呵，看你怎么给我注入)

方法二：
<% server_v1=Cstr(Request.ServerVariables("HTTP_REFERER")
server_v2=Cstr(Request.ServerVariables("SERVER_NAME")
if　mid(server_v1,8,len(server_v2))<>server_v2　then
response.write　"

"
response.write　""
response.write　"你提交的路径有误，禁止从站点外部提交数据请不要乱该参数！"
response.write　""
response.end
end if
%>

方法三：
<% dim From_url,Serv_url
From_url = Cstr(Request.ServerVariables("HTTP_REFERER")
Serv_url = Cstr(Request.ServerVariables("SERVER_NAME")
if mid(From_url,8,len(Serv_url)) <> Serv_url then
response.write "NO"
response.redirect("../"
response.end
end if
%>

SQL防注入函数
<% '//SQL防注入函数，参数UnSql_Words为传入的变量或字串,UnSql_Class为类型 1数字型,2字符型 Function UnSql(UnSql_Words,UnSql_Class) If UnSql_Class = 1 Then If IsNumeric(UnSql_Words) = False Then Response.Write "" Response.Write "服务器、网站安全维护，我信任 - 中安互联!" Response.Write " [BY 小白,QQ 196900006]" Response.End() End If Else UnSql_Words = Replace(UnSql_Words,"'","") UnSql_Words = Replace(UnSql_Words,";","") UnSql_Words = Replace(UnSql_Words,"=","") UnSql_Words = Replace(UnSql_Words,">","") UnSql_Words = Replace(UnSql_Words,"<","") End If UnSql = UnSql_Words End Function %>

如果您有此需求或者想了解更多，为何不联系我们呢？