<%
'----------------------------------------------
'请不要改动此文件任何信息!
'请不要改动此文件任何信息!
'请不要改动此文件任何信息!
'数据库连接文件修改位置 ：根目录/global.asa
'----------------------------------------------

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

'以下为数据库连接代码
IF DBLX = 1 THEN
set rs=server.CreateObject("ADODB.Recordset")
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=SQLOLEDB.1;Persist Security Info=false;server="&dbhost&";uid="&dbuid&";pwd="&dbpwd&";database="&dbname
else
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

%>

