以下是引用片段:
' ============================================
' 判断是否是数字,否则用默认值替换
' iCheck 要替换的变量,iDefault 默认值
' ============================================
Function GetSafeInt(iCheck,iDefault)
If Trim(iCheck)="" Then
GetSafeInt = iDefault
Exit Function
End If
If IsNumeric(iCheck)=false Then
GetSafeInt = iDefault
Exit Function
End If
GetSafeInt = iCheck
End Function
' ============================================
' 得到安全字符串,在查询中或有必要强行替换的表单中使用
' str 要替换的字符串
' ============================================
Function GetSafeStr(str)
' GetSafeStr = Replace(Replace(Replace(Trim(str), "'", ""), Chr(34), ""), ";", "")
GetSafeStr = Replace(Replace(Replace(Replace(Replace(str,"'","‘"),"""","“"),"&",""),"<","<"),">",">")
End Function |