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

核心提示：多年前就开始学习asp写过的程序非常少，现决定从分析优秀的程序源码来提高自己的编程水平，学习动网论坛，conn.asp相关知识点总结，'设置ASP的编程语言为VBScipt 代码页为GB2312<%@ LANGUAGE = VBScript CodePage = 936%>'强制变量声明，未

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