血源诅咒武器怎么装备:请问这段用户注册代码错在哪里

来源:百度文库 编辑:中科新闻网 时间:2024/05/01 05:12:07
<%@LANGUAGE="VBSCRIPT" %>
<%
dim username,password,email,qq
username=trim(request.form("textusername"))
password=trim(request.form("textpassword"))
email=trim(request.form("textemail"))
qq=trim(request.form("textqq"))
if username="" or password="" or email="" or qq=""
then response.Redirect."zhuce.htm"
end if %>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>注册成功</title>
</head>

<body>
<div align="center">
<!--include virtual ="/asovbs.inc"-->
<%
dim conn,rst,sSQL
set conn=server.createobject("adodb.connection")
connstr="Provider=Microsoft.jet.oledb.4.0;data source="&server.mappath("users.mdb")
conn.open connstr
sSQL="select*from users where user_name='"&username&"'"
set rst=conn.execute(sSQL, ,adcmdtext)
if not rst.eof then
%>
<p><b>用户名"<%=username %>"已被占用!</b></p>
<p><a href="zhuce.html">返回注册页面></a></p>
<%
else
sSQL="insert users(user_name,password,email,qq)values"
sSQL=sSQL&"('"& username &"','"& password &"','"& email &"','"& qq &"')"
conn.execute sSQL,,adcmdtext
%>
<p><B>注册成功
<hr size="1" color="#FF0000"></B></p>
<p> <a href="denglu.htm">立即登陆</a></p>
<% end if %>
</div>
</body>
</html>