多年前就開始學習asp寫過的程序非常少，現決定從分析優秀的程序ipt 代碼頁為GB2312

<%@ LANGUAGE = VBScript CodePage = 936%>

'強制變量聲明，未聲明則直接使用則會提示出錯信息

Option Explicit

'定義變量，未指定類型為“變體類型”

Dim Startime

'定義常量，用變量名代替值使程序更加可讀。

Const IsSqlDataBase = 1

'1.定義連接數據庫過程

'2.ConnStr定義數據庫連接字符串

'3.IF <條件表達式> Then  End If 語句

Sub ConnectionDatabase

    If IsSqlDataBase = 1 Then
        ConnStr = "PRovider = Sqloledb; User ID = " & SqlUsername & "; PassWord = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";"
    Else
        ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(MyDbPath & db)
    End If

End Sub

'兩種數據庫獲取當前時間的函數

SqlNowString = "GetDate()" 'SQL

SqlNowString = "Now()"       'access

'設置錯誤陷阱

 On Error Resume Next
 Set conn = Server.CreateObject("ADODB.Connection")
 conn.open ConnStr
 If Err Then                      '若連接發現錯誤
  err.Clear                        '清除Err對象所有屬性設置

  Set Conn = Nothing       '釋放Conn連接對象
  Response.Write "數據庫連接出錯，請檢查連接字串。"'注釋，需要把這幾個字翻譯成英文。
  Response.End                '中止ASP的執行
 End If