我的过滤函数是：
Function SafeRequest(Ori_String)
 Ori_String=Replace(Ori_String,":","")
 Ori_String=Replace(Ori_String,"*","")
 Ori_String=Replace(Ori_String,"=","")
 Ori_String=Replace(Ori_String,"?","")
 Ori_String=Replace(Ori_String,"'","")
 Ori_String=Replace(Ori_String,"\","")
 Ori_String=Replace(Ori_String,"/","")
 Ori_String=Replace(Ori_String,"<","<")
 Ori_String=Replace(Ori_String,">",">")
 Ori_String=Replace(Ori_String,CHR(34),"")
 SafeRequest=Trim(Ori_String)
End Function