字符类型的 strUsername = CheckInput(Request(“username“),“s“) 数字类型的 ID = CheckInput(Request(“id“),“i“)
下面是函数
Function CheckInput(str,strType) '函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 '参数意义： str ---- 要过滤的参数 ' strType ---- 参数类型，分为字符型和数字型，字符型为"s"，数字型为"i" Dim strTmp strTmp = "" If strType ="s" Then strTmp = Replace(Trim(str),"'","''") ElseIf strType="i" Then If isNumeric(str)=False Then str="0" strTmp = str Else strTmp = str End If CheckInput = strTmp End Function
