asp连不上数据库

<%@ LANGUAGE = VBScript CodePage = 936%> <% Option Explicit Response.Buffer = True Dim Startime Dim SqlNowString,Dvbbs,template,MyBoardOnline Dim Conn,Plus_Conn,Db,MyDbPath Const fversion="7.1.0 Sp1" Const EnabledSession= True Startime = Timer() '系统采用XML版本设置 '最高版本为.4.0 依次为： Const MsxmlVersion=".3.0" Const MsxmlVersion=".2.6" 最低版本Const MsxmlVersion="" Const MsxmlVersion=".3.0" '可修改设置一：========================定义数据库类别，1为SQL数据库，0为Access数据库============================= Const IsSqlDataBase = 1 MyDbPath = "" '================================================================================================================ If IsSqlDataBase = 1 Then '必修改设置二：========================SQL数据库设置============================================================= 'sql数据库连接参数：数据库名(SqlDatabaseName)、用户密码(SqlPassword)、用户名(SqlUsername)、 '连接名(SqlLocalName)（本地用local，外地用IP） Const SqlDatabaseName = "27sql" Const SqlPassword = "sa" Const SqlUsername = "sa" Const SqlLocalName = "(local)" '================================================================================================================ SqlNowString = "GetDate()" Else '必修改设置三：========================Access数据库设置========================================================== '免费用户第一次使用请修改本处数据库地址并相应修改data目录中数据库名称，如:将dvbbs6.mdb修改为dvbbs6.asp Db = "data/dvbbs7.mdb" '================================================================================================================ SqlNowString = "Now()" End If Const IsDeBug = 1 Set Dvbbs = New Cls_Forum Set template = New cls_templates Sub ConnectionDatabase Dim ConnStr If IsSqlDataBase = 1 Then ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";" Else ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(MyDbPath & db) End If On Error Resume Next Set conn = Server.CreateObject("ADODB.Connection") conn.open ConnStr If Err Then err.Clear Set Conn = Nothing Response.Write "数据库连接出错，请检查连接字串。"'注释，需要把这几个字翻译成英文。 Response.End End If End Sub '----------------------------------------------------------------------------------------------------- '独立道具库连接设置 Sub Plus_ConnectionDatabase Dim ConnStr If IsSqlDataBase = 1 Then 'sql数据库连接参数：数据库名、用户密码、用户名、连接名（本地用local，外地用IP） Dim SqlDatabaseName,SqlPassword,SqlUsername,SqlLocalName SqlDatabaseName = "" SqlPassword = "" SqlUsername = "sa" SqlLocalName = "(local)" ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";" Else Dim Db '免费用户第一次使用请修改本处数据库地址并相应修改data目录中数据库名称，如将dvbbs6.mdb修改为dvbbs6.asp Db = MyDbPath & "data/Dv_Plus_Tools.mdb" ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(db) End If On Error Resume Next Set Plus_Conn = Server.CreateObject("ADODB.Connection") Plus_Conn.open ConnStr If Err Then err.Clear Set Plus_Conn = Nothing Response.Write "插件数据库连接出错，请检查连接字串。"'注释，需要把这几个字翻译成英文。 Response.End End If End Sub '----------------------------------------------------------------------------------------------------- %>

你这个是c#代码,把asp.net和asp分清楚

cmd的activeconnection没有设置

dim objconn,strSqlCmd

Set objConn = Server.Createobject("adodb.connection")

strSqlCmd = "Server=服务器名;database=数据库名;User=用户;password=密码;driver=sql server"

objConn.connectionstring = strSqlCmd

objConn.Open()

'判断是否连接成功

if(objConn.state<1)then

response.write("NO")

else

response.write("OK")

end if

'关闭连接对象及释放占用的资源

objConn.Close

Set objConn = nothing