我们公司的网站我用ud做的，现在要上传，在来科思申请的空间，现在上传，不知道怎么样设置asp和access数据库连结，网站上帮助文件如下，有这几点疑惑：
一：不知道加在哪里
二：是每页要加还是只加首页
三：是不是拷贝粘贴再换一下数据库的名字就可以了？
谢谢！

网站上帮助文件：

用ASP连接access数据库
accessdb="../database/fidrych.mdb" (相对路径+数据库文件名)
cn="DRIVER={Microsoft Access Driver (*.mdb)};"
cn=cn & "DBQ=" & server.mappath(accessdb)
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "select * from the_bird"
rs.Open sql, cn
access97数据库和access2000数据库都可以支持 Text


我的首页开头54行源代码：

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

<%
Dim Recordset1__MMColParam
Recordset1__MMColParam = "业界新闻"
If (Request("MM_Emptyvalue") <> "") Then
Recordset1__MMColParam = Request("MM_Emptyvalue")
End If
%>
<%
Dim Recordset1
Dim Recordset1_numRows

Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_hs_STRING
Recordset1.Source = "SELECT 文章类型, 文章标题 FROM yjxw WHERE 文章类型 = '" + Replace(Recordset1__MMColParam, "'", "''") + "' ORDER BY 文章标题 ASC"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()

Recordset1_numRows = 0
%>
<%
Dim Recordset2__MMColParam
Recordset2__MMColParam = "条码应用"
If (Request("MM_Emptyvalue") <> "") Then
Recordset2__MMColParam = Request("MM_Emptyvalue")
End If
%>
<%
Dim Recordset2
Dim Recordset2_numRows

Set Recordset2 = Server.CreateObject("ADODB.Recordset")
Recordset2.ActiveConnection = MM_hs_STRING
Recordset2.Source = "SELECT 文章类型, 文章标题 FROM yjxw WHERE 文章类型 = '" + Replace(Recordset2__MMColParam, "'", "''") + "' ORDER BY 文章标题 DESC"
Recordset2.CursorType = 0
Recordset2.CursorLocation = 2
Recordset2.LockType = 1
Recordset2.Open()

Recordset2_numRows = 0
%>
<%
Dim Repeat2__numRows
Dim Repeat2__index

Repeat2__numRows = 7
Repeat2__index = 0
Recordset2_numRows = Recordset2_numRows + Repeat2__numRows
%>
<%
Dim Repeat1__numRows
Dim Repeat1__indexText