config.class.asp

一个很好的asp cms管理系统

<%
'////////////////////////////////////////////////////////////////////////
'本页：
'   Tsys 系统配制文件
'说明：
'   
'////////////////////////////////////////////////////////////////////////

Class Config
    Public SysName                                                          '系统名称
    Public SysVersion                                                       '系统版本

    Public Manager_LimitLoginError                                          '最大登录错误次数
    Public Manager_Range_ErrorTimeRang                                      '登录监视时间周期
    Public Password_EncodeKey                                               '管理密码加密串
    Public DataBase_Type                                                    '数据库类型： ACCESS|SQLSERVER
    Public DataBase_FilePath                                                '数据库文件路径（仅用于Access）
    Public ConnStr                                                          '数据库链接串
    Public FileSystemObject_Name                                            '文件系统对象名称
    Public XMLObject_Name                                                   'XML对象名称
    Public Dictionary_Name                                                  'Dictionary对象名称
    Public FileSYS_Editor_MaxSize                                           '最大允许编辑的文件大小(字节)
    Public Resource_RelateList_Max                                          '相关资源最大数量

    Public PrintDBSqlWithError                                              '打印有错误的数据库脚本

    '初始化类
    Private Sub Class_Initialize
        SysName = "颍上县政务信息网站(群)后台管理系统"
        SysVersion = "V1.0"

        DataBase_Type = "SQLSERVER"
        DataBase_FilePath = SERVER.MapPath("/tsys/db/database.mdb")

        Select Case DataBase_Type
            Case "ACCESS"
                ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DataBase_FilePath
            Case "SQLSERVER"
		'ConnStr = "PROVIDER=SQLOLEDB.1;Data Source=127.0.0.1;Initial Catalog=tsys_1;Persist Security Info=True;User ID=tsys_1;Password=tsys_1;Connect Timeout=30"
		ConnStr = "PROVIDER=SQLOLEDB.1;Data Source=127.0.0.1;Initial Catalog=ysnet;Persist Security Info=True;User ID=ysnet;Password=ysnet;Connect Timeout=30"
            Case Else
                Response.Write "无法识别的数据库类型"
                Response.End
        End Select

        Manager_LimitLoginError = 5
        Manager_Range_ErrorTimeRang = 600
        Password_EncodeKey = "#@$@#$@"

        FileSystemObject_Name = "Scripting.FileSystemObject"
        XMLObject_Name = "Msxml.DOMDocument"
        Dictionary_Name = "Scripting.Dictionary"
        FileSYS_Editor_MaxSize = 5242880                                    '5M = 5 * 1024 * 1024

        Resource_RelateList_Max = 20
        PrintDBSqlWithError = True

    End Sub

End Class
%>