|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
缺点:安全性不是太差了,还行,只要你充分利用系统自带的工具;唯一缺点就是执行效率慢,如何进行网站优化以后,效果会比较好。函数Loster(OICQ:181306)[假如转载,请勿删除此信息,感谢]
函数名:S_Request()
帮助函数:R_Reader()
感化:过滤不法字符,避免SQL注进。
参数:S_Str:被传进的变量的名,范例:字符串
前往值:过滤后的值。
***************************************************************************
ConstC_SqlStr=",count,user,User,Count,1=1,and,2=2"必要过滤的字符串序列,每一个字符串之间用“,”分开
DimReader
FunctionR_Reader(R_Str,F_Str)
Dimi
IfR_Str=""OrF_Str=""Then
ExitFunction
EndIf
Reader=Split(R_Str,F_Str)
Fori=0ToUbound(Reader,1)
Reader(i)=Cstr(Trim(Reader(i)))
Next
R_Reader=Ubound(Reader,1)
EndFunction
FunctionS_Request(S_Str)
DimTemp,i
IfS_Str=""Then
ExitFunction
EndIf
Temp=Request(S_Str)
Fori=0ToR_Reader(C_SqlStr,",")
Temp=Replace(Temp,CStr(Reader(i)),"")
Next
Temp=Replace(Temp,Chr(34),"")
S_Request=Cstr(Trim(Temp))
EraseReader
EndFunction
用法:
本来的比方如许的语句:
a=request("a")
如今写成:
a=S_Request("a")
便可完成不法字符串过滤。
固然,你也能够写成如许:
FunctionS_Request(S_Str)
DimTemp,i,Temp1
IfS_Str=""Then
ExitFunction
EndIf
Temp=Cstr(Request(S_Str))
Temp1=Temp
Fori=0ToR_Reader(C_SqlStr,",")
Temp=Replace(Temp,CStr(Reader(i)),"")
IfTemp1TempThen
Response.Write("请不要输出不法字符!")
Response.End
EndIf
Next
Temp=Replace(Temp,Chr(34),"")
S_Request=Cstr(Trim(Temp))
EraseReader
EndFunction
如许,能够前往一个毛病呈报。
</p>减少客户内IT专业人才缺乏带来的影响。ASP的客户员工利用浏览器进入相关的应用软件,简单易用,无需专业技术支持。 |
|