www.gusucode.com > 爱美尔女性商城源码 1.0源码程序 > admintouch/conn.asp
<% dim db Dim SqlDatabaseName,SqlPassword,SqlUsername,SqlHostIP const BjxshopVersion=2 '伴江行购物管理系统的版本,1为免费版,2为个人版,3为企业版 const BjxshopDatabaseType="ACCESS" '系统数据库类型,"SQL"为MS SQL2000数据库,"ACCESS"为MS ACCESS 2000数据库 '如果是ACCESS数据库,请认真修改好下面的数据库的文件名 db="..\data\hurqdata.mdb" 'ACCESS数据库的文件名,请使用相对于网站根目录的的绝对路径 '如果是SQL数据库,请认真修改好以下数据库选项 SqlUsername = "bjxshop" 'SQL数据库用户名 SqlPassword = "bjxshop888" 'SQL数据库用户密码 SqlDatabaseName = "bjxshop" 'SQL数据库名 SqlHostIP = "127.0.0.1" 'SQL主机IP地址(本地可用“127.0.0.1”或“(local)”,非本机请用真实IP) 'On Error Resume Next dim ConnStr dim conn if BjxshopDatabaseType="SQL" then ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlHostIP & ";" else ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db) end if Set conn = Server.CreateObject("ADODB.Connection") conn.Open connstr If Err Then err.Clear Set Conn = Nothing Response.Write "数据库连接出错,请检查Conn.asp文件中的数据库参数设置。" Response.End End If sub CloseConn() On Error Resume Next If IsObject(Conn) Then conn.close set conn=nothing end if end sub %>