一聚教程网:一个值得你收藏的教程网站

热门教程

asp数据连接代码

时间:2022-07-02 22:48:26 编辑:袖梨 来源:一聚教程网


<%
 '如果使用国外主页空间,请使用下面语句:'
 'rem codepage="936" '
 sqlkai=0
 Dim SqlDatabaseName,SqlPassword,SqlUsername,SqlLocalName
SqlLocalName="(local)"
SqlUsername="nntoa"
SqlPassword="123456"
SqlDatabaseName="sqloa"

 dim conn
 dim connstr
 dim db
 '更改数据库名字'
  if db="" then db="nntdata/mynntdata.mdb"
 on error resume next
 Set conn = Server.CreateObject("ADODB.Connection")

 if err then
  err.clear
  Response.Write("

  • 操作失败,无法创建数据库对象!")
      response.end
     end if
     if sqlkai=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(""&db&"")&";Jet OLEDB:Database password="&nt80acmi&""
     end if
    conn.Open connstr

     if err then
      err.clear
      Response.Write("

  • 操作失败,无法创建数据库连接!")
      response.end
     end if

     function connClose'关闭数据库
      Conn.close
      Set conn = Nothing
     End Function

    %>

  • 热门栏目