'安全字符过滤
Function tihuan(str)
sTemp=trim(str)
if sTemp="" or sTemp=Empty then Exit Function
sTemp=cstr(sTemp)
sTemp=LCase(sTemp)
sTemp=replace(sTemp,"or","ｏｒ")
sTemp=replace(sTemp,"and","ａｎｄ")
sTemp=replace(sTemp,"insert","ｉｎｓｅｒｔ")
sTemp=replace(sTemp,"select","ｓｅｌｅｃｔ")
sTemp=replace(sTemp,"delete","ｄｅｌｅｔｅ")
sTemp=replace(sTemp,"update","ｕｐｄａｔｅ")
sTemp=replace(sTemp,"drop","ｄｒｏｐ")
sTemp=replace(sTemp,"runcate","ｒｕｎｃａｔｅ")
sTemp=replace(sTemp,chr(9),"")
sTemp=replace(sTemp,chr(10),"<br>")
sTemp=replace(sTemp,chr(10)&chr(10),"</p><p>")
sTemp=replace(sTemp,chr(13),"")
sTemp=replace(sTemp,chr(32),"")
sTemp=replace(sTemp,chr(34),"")
sTemp=replace(sTemp,chr(39),"")
sTemp=replace(sTemp,",","，")
sTemp=replace(sTemp,"(","（")
sTemp=replace(sTemp,")","）")
sTemp=replace(sTemp,"=","＝")
sTemp=replace(sTemp," "," ")
sTemp=replace(sTemp,"!"," ！")
sTemp=replace(sTemp,"_","—")
sTemp=replace(sTemp,"+","＋")
sTemp=replace(sTemp,"-","—")
sTemp=replace(sTemp,"*","×")
sTemp=replace(sTemp,"/","")
sTemp=replace(sTemp,"%","％")
sTemp=replace(sTemp,"&","＆")
sTemp=replace(sTemp,"#","＃")
sTemp=replace(sTemp,"\","")
sTemp=replace(sTemp,":","：")
sTemp=replace(sTemp,"@","＠")
sTemp=replace(sTemp,">","〈")
sTemp=replace(sTemp,"<","〉")
sTemp=replace(sTemp,"<>","")
sTemp=replace(sTemp,"|","｜")
sTemp=replace(sTemp,";","；")
sTemp=replace(sTemp,"""","”")
tihuan=sTemp
End Function