蛙蛙推荐:asp中常用的数据库连接页面

<!-- 蛙蛙推荐:asp中常用的数据库连接页面 -->
<%
Dim conn,strconn,mmdb
 
 '更改数据库名字
 mmdb="#test.mdb"
 Set conn = Server.CreateObject("ADODB.Connection")
 strconn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&mmdb&"")
 '如果你的服务器采用较老版本Access驱动，请用下面连接方法
    'strconn="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(""&mmdb&"")
 '如果是是用sqlserver的用下面的连接方法
 strconn="Driver={sql server};server=192.168.0.110;database=wawa;uid=sa;pwd=sa;"
 'response.write(strconn) '测试语句
 '调试的时候把on error resume next注释掉,否则有些错误你就看不到了
 on error resume next
 conn.Open strconn
 if err then
  err.clear
  conn.Close
  Response.Write "<span style=""font-size:14px; font-family:Verdana, Arial, 宋体;""""><p><strong>本网站正在进行日常维护，请稍候再来！</p></strong></span>"
  Response.End
 'else
 'response.Write("连接成功")
 end if
function CloseData
 Conn.close
 Set conn = Nothing
End Function
%>