HGcms 部分定义

if isobject(rs) Then Set Rs = Nothing            '如果rs是连接数据库变量，则清除
    if Cls.isconn then                    '如果数据库仍保持连接，则关闭数据库，同时清除conn变量
        Conn.Close
        Set Conn = Nothing
    End If




'//* 检验ID是否非法 *//
Function ChkID(ID_var)
    ChkID = false
    If ID_var="" or Len(ID_var)>20 or Cls.Is_Num(ID_var)=False Then Exit Function
    ChkID = true
End Function

文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags:
相关日志: