我是格新手,我根据贵站的《Dreamweaver MX Ultradev探索（1）建立数据源》一文建立数据库，但总是出错，望斑竹给予指导：
“…………
在弹出的Data Source Name (DSN)对话框中继续进行设置。如果你已经在控制面板的ODBC中设置了连接，那么你可以在Data Source Name (DSN)下拉列表中找到你建立的连接，在Connection Name中输入个名字，按Test按钮，如果成功，那么数据库就连接好了。但是，如果我们并没有在ODBC中设置连接怎么办呢？

　　1、 很简单，点击Define…按钮，就可以进入ODBC数据源管理器。（如图1-3，）

图片如下：

我无法进入系统dsn设置，想反进入了用户dsn
接下来我就再也安装odbc了

2、 选择系统DSN标签，点击添加按钮（如图1-4）

图片如下：


图1-4

　　3、 选择我们想用的数据驱动程序，在此选择（如图1-5）。


图片如下：

………………”
可事实上我跟本无法进行第三步，但我点击自定义时，我得dw出现的是：

图片如下：

图片如下：


图片如下：

点击确定后出现

图片如下：

确定后又回到


图片如下：

如此循环无法完成贵站文章http://www.5d.cn/5dmedia/web/dreamweaver/basic/20020521/00001733.htm的相关操作，请版主帮忙！感激涕零！

你觉得连接数据用DW实在是代码太烦索了，劝你看看动网论坛或其它的论坛的连接数据库的方式，相当的简单而且实用

代码如下：

<%@ LANGUAGE = VBScript CodePage = 936%>
<%
Option Explicit
Response.Buffer = True
Dim Startime
Dim Dvbbs,template
Dim SqlNowString,Conn
'定义数据库类别，1为SQL数据库，0为Access数据库
Const IsSqlDataBase = 0
'论坛缓存名称，如果一个站点有多个论坛请更改成不同名称
Const Forum_CacheName = "aspsky"
'定义运行模式，测试的时候设置1，正常运行的时候设置为0,不输出错误信息有利于安全，
Const IsDeBug = 1
Startime = Timer()
'Dim plus_name,Plus_Setting
'plus_name = ""
Dim MyBoardOnline
Dim Db
Set Dvbbs = New Cls_Forum
Set MyBoardOnline=new Cls_UserOnlne
Set template = New cls_templates
If IsSqlDataBase = 1 Then
    SqlNowString = "GetDate()"
Else
    SqlNowString = "Now()"
End If
Sub ConnectionDatabase
    Dim ConnStr
    If IsSqlDataBase = 1 Then
        'sql数据库连接参数：数据库名、用户密码、用户名、连接名（本地用local，外地用IP）
        Dim SqlDatabaseName,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/dvbbs7.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
    If Err Then
        err.Clear
        Set Conn = Nothing
        Response.Write "数据库连接出错，请检查连接字串。"'注释，需要把这几个字翻译成英文。
        Response.End
    End If
End Sub
%>