动态网页中数据库的连接代码

 

'这是参考oblog3的数据库连接代码
const is_sqldata=0
dim connstr,conn,db
Sub link_database()sub link_database()
 if is_sqldata=0 Then
  'access数据库连接参数：第一次使用请修改本处数据库地址并相应修改data目录中数据库名称，如将oblog2.mdb修改为oblog2.asp
  db = "data/oblog3.mdb"
  connstr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(db)

 else
  'sql数据库连接参数：数据库名、用户密码、用户名、连接名（本地用local，外地用IP）
  dim sql_databasename,sql_password,sql_username,sql_localname
  sql_databasename = "oblog3"
  sql_password = "oblog3"
  sql_username = "oblog3"
  sql_localname = "(local)"
  connstr = "Provider = Sqloledb; User ID = " & sql_username & "; Password = " & sql_password & "; Initial Catalog = " & sql_databasename & "; Data Source = " & sql_localname & ";"
  dchr="'"
 end if
 on error resume next
 set conn = Server.CreateObject("ADODB.Connection")
 conn.open connstr
    if err then
  err.clear
  set conn = nothing
  response.write "数据库连接出错，请检查连接字串。"
  response.end
 end if
end sub