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 "
本网站正在进行日常维护，请稍候再来！
”
Response.End
‘else
‘response.Write(“连接成功”)
end if
function CloseData
Conn.close
Set conn = Nothing
End Function
%>