账号是否唯一的问题

来源:百度知道 编辑:UC知道 时间:2024/05/14 10:04:30
<%
'建立connection 对象
set conn=server.CreateObject("adodb.connection")
provider="provider=microsoft.jet.oledb.4.0;"
dbpath="data source=" & server.MapPath("qimo.mdb")
'连接数据库
conn.open provider & dbpath

'建立recordset对象
set rs=server.CreateObject("adodb.recordset")
'打开数据库表
rs.open "a1",conn,2,2
if rs is nothing then
response.Write"recordset 调用失败!"
response.End
end if
%>
<%

zhanghao=request("zhanghao")

mima=request("mima")

QQ=request("QQ")
email=request("email")
rs.addnew
rs("zhanghao")=zhanghao
rs("mima")=mima
rs("QQ")=QQ
rs("email")=email
rs.update
%>

<html>
<body bgcolor="#fffffff">
<p align=center>注册成功&

<%
zhanghao=request("zhanghao")

mima=request("mima")

QQ=request("QQ")
email=request("email")

rs.Open "Select username,password from erpuser Where username='zhanghao'"
if rs.EOF Then
{rs.addnew
rs("zhanghao")=zhanghao
rs("mima")=mima
rs("QQ")=QQ
rs("email")=email
rs.update
}
else
response.Write"注册失败,您使用的用户名已经注册"
end if
%>