复制Dim ConnStr   If IsSqlDataBase = 1 Then   sql数据库连接参数：数据库名、数r数用户密码、据库据库用户名、改成连接名（本地用local，现过外地用IP）   Dim SqlDatabaseName,数r数SqlPassword,SqlUsername,SqlLocalName   SqlDatabaseName = "dvbbs7" SqlPassword = "" SqlUsername = "dvbbs" SqlLocalName = "(local)" ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";"   Else   免费用户第一次使用请修改本处数据库地址并相应修改data目录中数据库名称，如将dvbbs6.mdb修改为dvbbs6.asp   Db = "data/fengerqingqing.mdb" ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(db)   End If   On Error Resume Next   Set conn = Server.CreateObject("ADODB.Connection")   conn.open ConnStr   当然你使用SQL的源码下载据库据库话，有关access的改成使用语句可以删除，就是现过else后面到on error resume next前面，企商汇变成这样：   Dim ConnStr   sql数据库连接参数：数据库名、数r数用户密码、据库据库用户名、改成连接名（本地用local，现过外地用IP）   Dim SqlDatabaseName,数r数SqlPassword,SqlUsername,SqlLocalName   SqlDatabaseName = "dvbbs7" SqlPassword = "" SqlUsername = "dvbbs" SqlLocalName = "(local)" ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";"   On Error Resume Next   Set conn = Server.CreateObject("ADODB.Connection")   conn.open ConnStr  1.2.3.4.5.6.7.8.9.10.11.12.13.14.15.16.17.18.19.20.21.22.23.24.25.26.27.28.29.30.31.云南idc服务商