多年前就开始学习ASP写过的程序非常少，现决定从分析优秀的程序源码来提高自己的编程水平。
'设置ASP的编程语言为VBScipt 代码页为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
