帮我看看这个是用Access数据库还是用SQL数据库

<%@ LANGUAGE = VBScript CodePage = 936%>
<%
Option Explicit
Response.Buffer = True
Dim Startime
Dim SqlNowString,Dvbbs,template,MyBoardOnline
Dim Conn,Plus_Conn,Db,MyDbPath
Startime = Timer()
'可修改设置一：========================定义数据库类别，1为SQL数据库，0为Access数据库=============================
Const IsSqlDataBase = 1
MyDbPath = ""
'================================================================================================================
If IsSqlDataBase = 1 Then
'必修改设置二：========================SQL数据库设置=============================================================
'sql数据库连接参数：数据库名(SqlDatabaseName)、用户密码(SqlPassword)、用户名(SqlUsername)、
'连接名(SqlLocalName)（本地用local，外地用IP）
Const SqlDatabaseName = "cw55037_db"
Const SqlUsername = "cw55037"
Const SqlPassword = "d3x5u8q1"
Const SqlLocalName = "127.0.0.1"
'================================================================================================================
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 = "dvbbs7"
                SqlPassword = "dvbbs"
                SqlUsername = "dvbbs"
                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
'-----------------------------------------------------------------------------------------------------
%>
这是CONN.asp的数据库连接

(SqlUsername)、
'连接名(SqlLocalName)（本地用local，外地用IP）
Const SqlDatabaseName = "cw55037_db"
Const SqlUsername = "cw55037"
Const SqlPassword = "d3x5u8q1"
Const SqlLocalName = "127.0.0.1"




mssql的数据库

谢谢转换要装mssql的数据库吗

需要

转换环境要满足：php+mysql+mssql+zend

原数据库是mssql的
是独立服务器的话，在服务器上搭建 php+mysql环境，即可转换
如果是虚拟主机，请先准备支持php+mysql的空间，因为discuz运行需要这样的空间
然后，在本地安装sql server恢复原论坛的mssql数据，再在本地安装comsenzexp，进行转换，再到php+mysql的空间恢复数据
您可以参考转换教程，专门针对mssql数据库的：
http://faq.comsenz.com/viewnews-510

能安装 dz论坛就成。。

MSSQL