|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
缺点:正版成本价格贵(盗版就不说了)、不够安全,大多数服务器用windows系统,没有linux安全平安以下是一则防注进代码!
但愿能够对宽大初程有匡助!
<%
DimGetFlagRem(提交体例)
DimErrorSqlRem(不法字符)
DimRequestKeyRem(提交数据)
DimForIRem(轮回标志)
ErrorSql="~;~and~(~)~exec~update~count~*~%~chr~mid~master~truncate~char~declare"Rem(敏感字符大概词语用半角"~"格开)
ErrorSql=split(ErrorSql,"~")
IfRequest.ServerVariables("REQUEST_METHOD")="GET"Then
GetFlag=True
Else
GetFlag=False
EndIf
IfGetFlagThen
ForEachRequestKeyInRequest.QueryString
ForForI=0ToUbound(ErrorSql)
IfInstr(LCase(Request.QueryString(RequestKey)),ErrorSql(ForI))0Then
response.write"<script>alert(""告诫:
请不要提交不法参数"");location.href=""Sql.asp"";</script>"
Response.End
EndIf
Next
Next
Else
ForEachRequestKeyInRequest.Form
ForForI=0ToUbound(ErrorSql)
IfInstr(LCase(Request.Form(RequestKey)),ErrorSql(ForI))0Then
response.write"<script>alert(""告诫:
请不要提交不法参数"");location.href=""Sql.asp"";</script>"
Response.End
EndIf
Next
Next
EndIf
%>Windows本身的所有问题都会一成不变的也累加到了它的身上。安全性、稳定性、跨平台性都会因为与NT的捆绑而显现出来; |
|