conn.asp相关知识点总结技巧

多年前就开始学习asp写过的程序非常少，现决定从分析优秀的程序源码来提高自己的编程水平。fcx中国设计秀

'设置ASP的编程语言为VBScipt 代码页为GB2312fcx中国设计秀

<%@ LANGUAGE = VBScript CodePage = 936%>fcx中国设计秀

'强制变量声明，未声明则直接使用则会提示出错信息fcx中国设计秀

Option Explicitfcx中国设计秀

'定义变量，未指定类型为“变体类型”fcx中国设计秀

Dim Startimefcx中国设计秀

'定义常量，用变量名代替值使程序更加可读。fcx中国设计秀

Const IsSqlDataBase = 1fcx中国设计秀

'1.定义连接数据库过程fcx中国设计秀

'2.ConnStr定义数据库连接字符串fcx中国设计秀

'3.IF <条件表达式> Then  End If 语句fcx中国设计秀

Sub ConnectionDatabasefcx中国设计秀

    If IsSqlDataBase = 1 Thenfcx中国设计秀
        ConnStr = "PRovider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";"fcx中国设计秀
    Elsefcx中国设计秀
        ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(MyDbPath & db)fcx中国设计秀
    End Iffcx中国设计秀

End Subfcx中国设计秀

'两种数据库获取当前时间的函数fcx中国设计秀

SqlNowString = "GetDate()" 'SQLfcx中国设计秀

SqlNowString = "Now()"       'accessfcx中国设计秀

'设置错误陷阱fcx中国设计秀

 On Error Resume Nextfcx中国设计秀
 Set conn = Server.CreateObject("ADODB.Connection")fcx中国设计秀
 conn.open ConnStrfcx中国设计秀
 If Err Then                      '若连接发现错误fcx中国设计秀
  err.Clear                        '清除Err对象所有属性设置fcx中国设计秀

  Set Conn = Nothing       '释放Conn连接对象fcx中国设计秀
  Response.Write "数据库连接出错，请检查连接字串。"'注释，需要把这几个字翻译成英文。fcx中国设计秀
  Response.End                '中止ASP的执行fcx中国设计秀
 End Iffcx中国设计秀
 fcx中国设计秀