先写一个conn.asp
<%
dim db
Dim SqlDatabaseName,SqlPassword,SqlUsername,SqlHostIP

const DatabaseType="ACCESS"    '系统数据库类型，"SQL"为MS SQL2000数据库，"ACCESS"为MS ACCESS 2000数据库

'如果是ACCESS数据库，请认真修改好下面的数据库的文件名
db="db/数据库名+后缀"           'ACCESS数据库的文件名，请使用相对于网站根目录的的绝对路径

'如果是SQL数据库，请认真修改好以下数据库选项
SqlUsername = "数据库用户名"           'SQL数据库用户名
SqlPassword = "密码"       'SQL数据库用户密码
SqlDatabaseName = "数据库名"    'SQL数据库名
SqlHostIP = "地址"           'SQL主机IP地址（本地可用“127.0.0.1”或“(local)”，非本机请用真实IP）

    On Error Resume Next
    dim ConnStr
    dim conn
    if DatabaseType="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
%>
然后页面中做个包含
<!--#include file="conn.asp"-->
调用的页面直接做查询
<%
set rs=server.createobject("adodb.recordset")
rs.open "select * from 表名 where id=2" ,conn,1,1%>
之后页面中显示
<%=rs("s_content")%>'s_content是字段名
页面底部加入
<%rs.close%>
<%conn=nothing%>
【 在 ivyforever (我心永恒) 的大作中提到: 】
: 刚初学不久，不知道怎么通过数据库来调用信息。如图，想显示出“你好，这里是ASP VIP注册”这几个字，不是在DW中直接写上去的。
: 是否要单独写一个conn.asp？,代码
: <%
: ...................
--
FROM 202.106.149.*