分享
 
 
 

ASP最新SQL防注入过滤涵数

王朝asp·作者佚名  2006-11-24
窄屏简体版  字體: |||超大  

Function Checkstr(Str)

If Isnull(Str) Then

CheckStr = ""

Exit Function

End If

Str = Replace(Str,Chr(0),"", 1, -1, 1)

Str = Replace(Str, """", """, 1, -1, 1)

Str = Replace(Str,"<","<", 1, -1, 1)

Str = Replace(Str,">",">", 1, -1, 1)

Str = Replace(Str, "script", "script", 1, -1, 0)

Str = Replace(Str, "SCRIPT", "SCRIPT", 1, -1, 0)

Str = Replace(Str, "Script", "Script", 1, -1, 0)

Str = Replace(Str, "script", "Script", 1, -1, 1)

Str = Replace(Str, "object", "object", 1, -1, 0)

Str = Replace(Str, "OBJECT", "OBJECT", 1, -1, 0)

Str = Replace(Str, "Object", "Object", 1, -1, 0)

Str = Replace(Str, "object", "Object", 1, -1, 1)

Str = Replace(Str, "applet", "applet", 1, -1, 0)

Str = Replace(Str, "APPLET", "APPLET", 1, -1, 0)

Str = Replace(Str, "Applet", "Applet", 1, -1, 0)

Str = Replace(Str, "applet", "Applet", 1, -1, 1)

Str = Replace(Str, "[", "[")

Str = Replace(Str, "]", "]")

Str = Replace(Str, """", "", 1, -1, 1)

Str = Replace(Str, "=", "=", 1, -1, 1)

Str = Replace(Str, "'", "''", 1, -1, 1)

Str = Replace(Str, "select", "select", 1, -1, 1)

Str = Replace(Str, "execute", "execute", 1, -1, 1)

Str = Replace(Str, "exec", "exec", 1, -1, 1)

Str = Replace(Str, "join", "join", 1, -1, 1)

Str = Replace(Str, "union", "union", 1, -1, 1)

Str = Replace(Str, "where", "where", 1, -1, 1)

Str = Replace(Str, "insert", "insert", 1, -1, 1)

Str = Replace(Str, "delete", "delete", 1, -1, 1)

Str = Replace(Str, "update", "update", 1, -1, 1)

Str = Replace(Str, "like", "like", 1, -1, 1)

Str = Replace(Str, "drop", "drop", 1, -1, 1)

Str = Replace(Str, "create", "create", 1, -1, 1)

Str = Replace(Str, "rename", "rename", 1, -1, 1)

Str = Replace(Str, "count", "count", 1, -1, 1)

Str = Replace(Str, "chr", "chr", 1, -1, 1)

Str = Replace(Str, "mid", "mid", 1, -1, 1)

Str = Replace(Str, "truncate", "truncate", 1, -1, 1)

Str = Replace(Str, "nchar", "nchar", 1, -1, 1)

Str = Replace(Str, "char", "char", 1, -1, 1)

Str = Replace(Str, "alter", "alter", 1, -1, 1)

Str = Replace(Str, "cast", "cast", 1, -1, 1)

Str = Replace(Str, "exists", "exists", 1, -1, 1)

Str = Replace(Str,Chr(13),"<br>", 1, -1, 1)

CheckStr = Replace(Str,"'","''", 1, -1, 1)

End Function

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
推荐阅读
 
 
 
>>返回首頁<<
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有