ASP连接数据库（加密版）

<%@ LANGUAGE = VBScript CodePage = 936%>
<%
Option Explicit
Response.Buffer = True
Dim StarTime
Dim Conn,Rs,Sql,ConnStr,MyDbPath,Db,SqlNow
StarTime=Timer()

'MsSQL数据库设置
Const IsSqlDataBase = 0                          '是否使用MsSQL数据库，1是 0否
Const SqlDatabaseName = "miloc"
Const SqlUsername = "sa"
Const SqlPassword = "123456"
Const SqlLocalName = "(local)"

'Access数据库路径
MyDbPath=""
Db="#@$!%^@.asa"            '其实这个是ACCESS数据库的。只是这里我写成了.asa文件形式的!

Sub ConnectionDatabase()   
    If IsSqlDataBase = 1 Then  '连接MSSQL
        SqlNow = "GetDate()"
    '    ConnStr = "Provider = SQLOLEDB; Data Source = " & SqlLocalName & "; UID = " & SqlUsername & "; PWD = " & SqlPassword & "; DATABASE = " & SqlDatabaseName & ";"
        ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";"
    Else                       '连接ACCESS
        SqlNow = "Now()"
        ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(MyDbPath & db)  '这里跟直接连接ACCESS是一样的，只是保存成.asa了
    End If

    On Error Resume Next
    Set Conn = Server.CreateObject("ADODB.Connection")
    Set Rs=Server.CreateObject("ADODB.Recordset")
    Conn.Open ConnStr
    If Err Then
        err.Clear
        Set Conn = Nothing
        Response.Write("数据库连接出错，请检查连接字串")
        Response.End
    End If
End Sub

Sub CloseConn()
'    Rs.Close
    Set Rs=Nothing
    Conn.Close
    Set Conn=Nothing
End Sub
%>