Rem ## 长整数转换 Function toNum(s, default) If IsNumeric(s) and s <> “” then toNum = CLng(s) Else toNum = default End If End Function Rem ## SQL 语句转换 Function toSql(str) If IsNull(str) Then str = “” toSql = replace(str, “””, “”””) End Function 示例: Dim sql Dim strWhere, strName, intAge
