在ASP中怎样建立数据库链接？？？

<%
username=trim(request.form("username"))
userpass=trim(request.form("userpass"))
if not (username="" and passwd="") then
set rs=server.createobject("adodb.recordset")

sql="select * from yonghu where name='" & username & "' and pass= '" & userpass &"'"
rs.open sql,conn,1,1
if not rs.eof then
Session("userjb")=rs("jb")
session("username")=rs("username")
session("bu")=rs("bu")
else
rs.close
response.write""
response.end

end if
end if

Set rs=nothing
Set conn=nothing

%>

set conn=Server.CreateObject("ADODB.Connection")
conn.open "driver={SQL Server};database=数据库名;Server=服务器名称（如果用的是本机就用本机名称）;uid=用户名(如：sa);pwd=密码"
set rsproducts=Server.CreateObject("ADODB.Recordset")
rsproducts.Open "数据库表或是SQL语句",conn,打开方式，锁定类型

<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq]"&server.mappath("mdb.mdb")
name=request("name")
pass=request("pass")
rs=conn.execute "select pass from user where name='"&name&"'"
if not rs.eof and rs("pass")=pass then
'这里写正确登录后的语句
else
response.write ""
end if
%>

其实输入登录不一定非要用数据库的,你可以在页面里设定用户名和密码进行校验嘛,不过可能你想说的是用户名和密码是存在数据库里的,那么才要建立链接,看你用什么数据库啦方法也很多,
比如SQL server
<%set conn= server.createobject("adodb.connection")
conn.Open "Driver={SQL SERVER};SERVER=主机名或IP;Database=数据库名;UID=用户名;PWD=密码"%>
Access做数据库则可以是
<%
connstr = "DBQ=" + server.mappath("数据库文件MDB相对路径含文件名") + ";DRIVER={Microsoft Access Driver (*.mdb)}"
Set conn=Server.createobject("ADODB.CONNECTION")
conn.Open connstr
%>
其实总的来说,都是键值对应的,主要说明什么驱动,路径就,用户名密码就行了

唉…不好用啊！最好是用页面验证就好啦！不用那么麻烦！