|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
只要你想学,就没什么优缺点,上面那位大哥已经把网上的评论说了,但我认为想学哪个都一样,不然它就不可能在当今时代数字艺术方面存活到今天防注进<%
ASP防注进之办理计划特别页面处置由于有些页经由过程流式传送(好比含有文件上传的表单)假如单一利用穷举Form工具的操纵就会堕落以是要把这些页面过滤出来,同时在页面中利用sql("检测的字串")才行渣滓猪zero@new57.comhttp://blog.csdn.net/cfaq
源码下载http://www.new57.com/softback/sql.rar
将本页用include办法放在头部以让一切页都能够挪用,好比include在conn.asp里假如有流式上传的页面请把该页加到表page中,以防form抵触
DimN_no,N_noarray,req_Qs,req_F,N_i,N_dbstr,Conn,N_rs,N_userIP,N_thispageN_userip=Request.ServerVariables("REMOTE_ADDR")N_thispage=LCase(Request.ServerVariables("URL"))
N_no="|;|and|exec|insert|select|delete|update|count|*|%|chr|mid|master|truncate|char|declare"能够本人修正嫌疑是注进操纵的字串N_noarray=split(LCase(N_no),"|")
CallDBopen()CallN_check_Qs()CallN_checkPage()CallDBCLose()
检测以后页是不是是特别页是就挪用N_check_form()subN_checkPage()
setN_rs=server.CreateObject("ADODB.RecordSet")N_rs.open"select*frompagewherespcpagelike%"&N_thispage&"%",conn,1,1if(N_rs.eofANDN_rs.Bof)thenCallN_check_form()endifN_rs.Close()setN_rs=nothing
endsub
检测给定字串subN_sql(agsql)这里是不纪录数据库,假如要改请本人修正N_check"CUS",req_Qs,"OTHER"endsub
检测Request.FormsubN_check_form()IfRequest.Form""ThenForEachreq_FInRequest.FormN_checkreq_F,Request.Form(req_F),"POST"Nextendifendsub
检测Request.QueryStringsubN_check_Qs()IfRequest.QueryString""ThenForEachreq_QsInRequest.QueryStringN_checkreq_Qs,Request.QueryString(req_Qs),"GET"Nextendifendsub
检测subN_check(ag,agsql,sqltype)ForN_i=0ToUbound(N_noarray)IfInstr(LCase(agsql),N_noarray(N_i))0ThencallN_regsql(ag,agsql,sqltype)Response.Write"MO"endifNextendsub
纪录并中断输入ag称号agsql内容sqltype范例subN_regsql(ag,agsql,sqltype)if(sqltype"OTHER")thenConn.Execute("insertintoSqlIn(Sqlin_IP,SqlIn_Web,SqlIn_FS,SqlIn_CS,SqlIn_SJ)values("&N_userip&","&N_thispage&","&sqltype&","&ag&","&agsql&")")endifResponse.Write"<ScriptLanguage=JavaScript>alert(请不要在参数中包括不法字符实验注进!);</Script>"Response.Write"<spanstyle=font-size:12px>不法操纵!体系做了以下纪录↓<br>"Response.Write"操纵IP:"&N_userip&"<br>"Response.Write"操纵工夫:"&Now&"<br>"Response.Write"操纵页面:"&N_thispage&"<br>"Response.Write"提交体例:"&sqltype&"<br>"Response.Write"提交参数:"&ag&"<br>"Response.Write"提交数据:"&agsql&"</span>"Response.endendsub
SubDBopen()N_dbstr="DBQ="+server.mappath("Sql.mdb")+";DefaultDir=;DRIVER={MicrosoftAccessDriver(*.mdb)};"SetConn=Server.CreateObject("ADODB.CONNECTION")Conn.openN_dbstrendSUB
SubDBCLose()Conn.closeSetConn=NothingEndsub%>
</p>无法实现跨操作系统的应用。当然这也是微软的理由之一,只有这样才能发挥ASP最佳的能力。可是我却认为正是Windows限制了ASP,ASP的概念本就是为一个能让系统运行于一个大的多样化环境而设计的; |
|