<%
dblx=Application("dblx")  '数据库类型，1为mssql，0为access
dbpath=Application("dbpath")  'access数据库的路径，若使用mssql不必理会
dbhost=Application("dbhost")  'mssql数据库服务器
dbuid=Application("dbuid")  'mssql数据库用户名
dbname=Application("dbname")  'mssql数据库名称
dbpwd=Application("dbpwd")  'mssql数据库密码

'以下为数据库连接代码
if dblx = 1 Then
set rs=server.CreateObject("ADODB.Recordset")
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={SQL Server};server="&dbhost&";uid="&dbuid&";pwd="&dbpwd&";database="&dbname
else
Dim conn,connstr,MDBPath
set rs=server.CreateObject("ADODB.Recordset")
Set conn = Server.CreateObject("ADODB.Connection")
MDBPath = Server.MapPath(""&dbpath&"")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;data Source=" & MDBPath
end if
%>