注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

汇总技巧

你快乐我快乐.... 汇集各类技巧,传播技巧,让我们共同熟练运用技巧..

 
 
 

日志

 
 

几个比较好用的asp检查函数  

2011-06-03 21:12:30|  分类: ◆ASP技巧 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

因为比较简单,我就不说什么了。一看就明白的!
Function ChkStr(InString)
If InString"" Then
InString=Replace(LCase(InString)," ","")
InString=Replace(LCase(InString),";","")
InString=Replace(LCase(InString),"'","")
InString=Replace(LCase(Instring),"--","")
Instring=Replace(LCase(Instring),"%","")
InString=Replace(LCase(InString),"%20","")
InString=Replace(LCase(InString),"admin","")
InString=Replace(LCase(InString),"and","")
InString=Replace(LCase(InString),"or","")
InString=Replace(LCase(InString),"asc","")
InString=Replace(LCase(Instring),"chr","")
InString=Replace(LCase(InString),"mid","")
InString=Replace(LCase(InString),"len","")
InString=Replace(LCase(InString),"select","")
InString=Replace(LCase(InString),"insert","")
InString=Replace(LCase(InString),"delete","")
InString=Replace(LCase(InString),"update","")
ChkStr=InString
End I
End Function
Function CheckFileExt(FileExt)
Dim FileAccessExt,AccessExt
AccessExt="gif,jpg,jpeg,bmp,doc,txt,png"
FileAccessExt=Split(AccessExt,",")
For i=LBound(FileAccessExt) to UBound(FileAccessExt)
If LCase(FileExt)=LCase(FileAccessExt(i)) Then
CheckFileExt=True
Else
CheckFileExt=False
End I
Next
End Function
Function CheckStr(str,IsStr)
CheckStr=str
If IsStr And InStr(str,",")0 Then
Call errmsg("提交字符中包含非法字符")
ElseIf (Not IsStr) And (Not IsNumeric(str)) Then
Call errmsg("提交不是数字型")
End I
End Function
Sub errmsg(str)
If Not IsNull(str) Then
Response.Write(str)"lt br gt"
Call ASCpy()
Response.End() 'Very Improtan.Stop execute program.
End I
End Sub
Sub ASCpy()
Response.Write "link href='Css/Maincss.css' rel='stylesheet' type='text/css'"
Response.Write "div align='center' class='Maincss'"
 Response.Write("CenterError happed!brPlease Contract ")
Response.Write("Name:a href='mailto:jdqn@sjzu.edu.cn'">jdqn@sjzu.edu.cn">jdqn@sjzu.edu.cn' style='text-decoration:none'")
Response.Write("font Color=redAloneSword/font")
Response.Write("/a.brThank you!!!/Centerbr")
Response.Write "hrCopyright copy; By a href='#' style='text-decoration:none'建大网络/a #8482;br"
 Response.Write "Last Modified:21/08/2004br"
Response.Write("Author:a href='
http://blog.csdn.net/alonesword/'style='text-decoration:none' target=_blank>http://blog.csdn.net/alonesword/'">http://blog.csdn.net/alonesword/'style='text-decoration:none' target='_blank'AloneSword/a")
Response.Write "/div"
End Sub
小结:
最值得学习的还是response.End()的合理使用,非常的好。只要出现错误马上终止程序的运行,不给后面的机会,保证数据的安全。

  评论这张
 
阅读(71)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017