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