杭州交通信息网穿越火线所有武器:在ASP中怎样建立数据库链接？？？
来源：百度文库 编辑：杭州交通信息网 时间：2024/04/29 04:13:49
<!--#include file=cnn.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"<SCRIPT language=JavaScript>alert('请重新输入有效的管理员名称和密码！');"
response.write"window.location.href='default.asp'</SCRIPT>"
response.end
end if
end if
Set rs=nothing
Set conn=nothing
%>
<html>
<head>
<meta http-equiv="Pragma" content="no-cache">
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title></title>
</head>
<body bgcolor="#CCCCCC">
<div align="center"><center>
<form name="form" method="post" action="default.asp">
<table border="0" cellspacing="1" width="100%">
<tr>
<td height="512">
<p align="center">
<div align="center">
<center>
<table border="0" cellpadding="6" width="48%" height="139" bgcolor="#000000">
<tr>
<td width="100%" align="right" height="22" bgcolor="#C6CEE3">
<p align="center">用户登陆</td>
</tr>
<tr>
<td width="100%" align="right" height="190" bgcolor="#ABB8D6">
<p align="center">用户名：<input name="UserName" maxlength="20" class="smallInput" size="20">
</p>
<p align="center">密 码：<input type="password" name="userpass" maxlength="16" class="smallInput"
size="20"><br>
<br>
<input type="submit" name="Submit" value="登 陆" class="buttonface">
<input type="reset" name="Submit2" value="取 消" class="buttonface">
</p>
</td>
</tr>
</table>
</center>
</div>
</td>
</tr>
</table>
</from>
</center></div>
</body>
</html>
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 "<script>alert('用户名或密码错误！');history.go(-1);</script>"
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
%>
其实总的来说,都是键值对应的,主要说明什么驱动,路径就,用户名密码就行了
唉…不好用啊！最好是用页面验证就好啦！不用那么麻烦！