在数据库入库操作前，要对用户提交的数据做检测，如果提交数据项较多，那么检测代码就可能很长，因此，检测代码函数化是比较好的选择，这样提高了代码的重用率，减少了代码的冗余。

    '==================================
    '=函 数 名：checksql(name,str,attrib,num)
    '=使用说明：name-参数名（用于错误显示），str-参数值（用于判断），attrib-参数类型（1为字符型，0为数字型），num-参数值字符数量（字符型中0表示不限制，数字型任何情况下都有限制）
    '==================================
    Function checksql(name,str,attrib,num)
     dim founderr,errmsg
     founderr=false
     errmsg=""
     dim sqlname
     sqlname=name
     if attrib=1 then
     dim Bword(18)
     Bword(0)="?"
     Bword(1)=";"
     Bword(2)=">"
     Bword(3)="<"
     Bword(4)="-"
     Bword(5)="’"
     Bword(6)="””"
     Bword(7)="&"
     Bword(8)="%"
     Bword(9)="$"
     Bword(10)="'"
     Bword(11)=":"
     Bword(12)="|"
     Bword(13)="("
     Bword(14)=")"
     Bword(15)="--"
     Bword(16)=" chr(9)"
     Bword(17)=" chr(34)"
     Bword(18)=" chr(32)"
     for i= 0 to ubound(Bword)
     if instr(str,Bword(i))<>0 then
     founderr=true
     errmsg=errmsg+"<br><li>"&sqlname&"中含有非法字符（各种符号）！</li>"
     end if
     next
     if str="" then
     founderr=true
     errmsg=errmsg+"<br><li>"&sqlname&"不能为空！</li>"
     elseif num<>0 then
     if len(str)>num then
     founderr=true
     errmsg=errmsg+"<br><li>"&sqlname&"不能超过"&num&"字符！</li>"
     end if
     end if
     elseif attrib=0 then
     if str="" then
     founderr=true
     errmsg=errmsg+"<br><li>"&sqlname&"不能为空！</li>"
     elseif not isnumeric(str) then
     founderr=true
     errmsg=errmsg+"<br><li>"&sqlname&"不是数字型！</li>"
     elseif len(str)>num then
     founderr=true
     errmsg=errmsg+"<br><li>"&sqlname&"数字型参数位数不能超过"&num&"！</li>"
     end if
     else
     founderr=true
     errmsg=errmsg+"<br><li>过滤函数调用错误！</li>"
     end if
     if founderr then
     response.write errmsg
     response.end
     end if
     checksql=str
    End Function

    注意：

    本代码中对于没有限制字符数量的内容也作了非法字符检测。

    一般来说，不限制字符数量的字段一般都是备注型，如果你需要在这个字段内容中显示那些字符，那么可以把非法字符检测那段代码(即bword段)放于if num<>0 then里面即可，而备注字段的安全检测单独设置。

    如果备注字段采用了各种编辑器，那么其安全性由编辑器提供；如果仅使用UBB的话，那么可以加入以下一段:

    if num<>0 then
    ……
    else
     str = replace(str, ">", ">")
     str = replace(str, "<", "<")
     str = replace(str, "&#", "&")
     str = Replace(str, CHR(32), "　 ")
     str = Replace(str, CHR(9), " ")
     str = Replace(str, CHR(34), """)
     str = Replace(str, CHR(39), "'")
     str = Replace(str, CHR(13), "")
     str = Replace(str, CHR(10) & CHR(10), "</P><P> ")
     str = Replace(str, CHR(10), "<BR> ")
    end if

    其实，代码是次要的，掌握思想和方法才是最重要的

    哈哈，忘了举个实例了：

poster=checksql("作者",request.form("poster"),1,10)
    含义是：检测由form提交的poster字段值，字段对应名称为作者，为字符型数据，长度不能超过10个字符。