WEB开发网
开发学院WEB开发ASP 学习动网论坛,conn.asp相关知识点总结 阅读

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

 2009-10-08 10:41:28 来源:WEB开发网   
核心提示:多年前就开始学习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

Tags:学习 论坛 conn

编辑录入:爽爽 [复制链接] [打 印]
赞助商链接