conn.asp

简单的客户信息数据查询

<%
'数据库连接模块
const DBpath="customer.mdb"
conn="DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" + Server.MapPath(DBpath)
'strServer="(local)"
'strName=""
'strPassWord=""
'strDB="Music"
'strdrv="DRIVER={SQL Server};Server="& strServer & ";uid=" & strName & ";pwd=" & strPassword & "; database=" & strDB 
'Response.Write strdrv
set con=Server.CreateObject("ADODB.CONNECTION")
con.Open conn
'关闭数据库连接
Sub CloseDB()
con.Close
set con=Nothing
End Sub

Sub CloseObj()
rs.Close
set rs=Nothing
End Sub
%>