数据库连接问题（关于conn.asp文件的建立）！

[yuanxiang333]

我想建立一个数据库连接文件conn.asp,可怎么不对，请大侠帮忙！
数据库用sql server2000
服务器：本机
数据库：yx
谢谢！

[Reker熊]

<%
On Error Resume Next
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=SQLOLEDB.1;Data Source=服務器名或IP;UID=登錄名;PWD=登錄密碼;DataBase=yx;"
If Err Then
Response.Write Err.Description
Response.End
End If
%>

[guch]

将下面的文件保存为conn.asp
然后在你需要的页面include
<%
'===========数据库连接配置部分=============
'数据库服务器名称或IP地址
DBServer ="127.0.0.1"
'数据库名称。
DATABASE= "yx"
'数据库连接用户
LOGID="sa"
'数据库连接密码
PASSWORD="yourpassword"
'==============可配置部分结束==============
cnnStr="Provider=SQLOLEDB.1;Data Source="&DBServer&";Initial Catalog="&DATABASE&";User ID="&LOGID&";Password="&PASSWORD

'access 数据库连接
'connstr="DBQ="+server.mappath("/mydb.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"

set cnn=server.createobject("ADODB.CONNECTION")
cnn.commandtimeout=30
cnn.connectiontimeout=20
cnn.open cnnStr


%>

[lsrzm]

2.sql server 2000

<%dim dbconn
set dbconn=server.CreateObject("adodb.connection")
'ole db for SQL Server Provider
ConnectionString ="Provider=SQLOLEDB;"
'database server name
ConnectionString =ConnectionString & "Data Source=hostname;"
'database name
ConnectionString =ConnectionString & "Initial Catalog=yx;"
'user name
ConnectionString =ConnectionString & "User ID=sa;"
'password
ConnectionString =ConnectionString & "Password="

on error resume next
dbconn.Open ConnectionString',"yx","pass"
if err.number <>0 then
Response.Write ConnectionString
Response.Write err.Description
Response.End
end if
function closedatabase
dbconn.Close
set dbconn=nothing
end function
%>

--月影飞鸿