两个小函数让你的ASP程序对SQL注入免疫!
Rem##长整数转换 FunctiontoNum(s,default) IfIsNumeric(s)ands<>""then toNum=CLng(s) Else toNum=default EndIf EndFunction Rem##SQL语句转换 FunctiontoSql(str) IfIsNull(str)Thenstr="" toSql=replace(str,"""","""""") EndFunction 示例: Dimsql ...