自动生成添加，删除，修改代码(修改版)
ShowDB.rar
(3.12 KB)
1,加入字段类型识别
2,加入防注代码,可以说告别注入
3,加入操作时锁定
4,其它修改...
2010.12.01
喔,还忘了一句:
P=rs.fields(i).type
'过滤函数
Function ReplaceBadWord(eword)
eword = Replace(eword,"'","")
eword = Replace(eword," ","")
eword = Replace(eword,"(","")
eword = Replace(eword,"\","")
eword = Replace(eword,"^","")
eword = Replace(eword,"%","％")
eword = Replace(eword,"|","")
eword = Replace(eword,";","")
eword = Replace(eword," = ","")
eword = Replace(eword,"select","")
eword = Replace(eword,"or","")
eword = Replace(eword,"Or","")
eword = Replace(eword,"oR","")
eword = Replace(eword,"And","")
eword = Replace(eword,"aNd","")
eword = Replace(eword,"anD","")
eword = Replace(eword,"and","")
eword = Replace(eword,"delete","")
eword = Replace(eword,"where","")
html = Replace(Body,"'","")
html = Replace(html,Chr(34),"")
eword = Trim(Replace(eword,")",""))
ReplaceBadWord = eword
End Function
[ 本帖最后由 hp3325 于 2010-12-2 11:14 编辑 ]
