学习动网论坛，conn.asp相关知识点总结

多年前就开始学习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