ASP注册信息无法写入MSSQL2000数据库
来源:百度知道 编辑:UC知道 时间:2024/06/16 22:25:06
<!--#include file="conn.asp" -->
<%
ps_loginname=request.form("ps_loginname")
ps_password=request.form("ps_password")
ps_repassword=request.form("ps_repassword")
%>
<HTML>
<HEAD>
<%
</tr>
<tr>
<td height="11" width="600">
<%
set rs1 = Server.CreateObject("ADODB.Recordset")
sql="select * from UserInfo where szUserID = '"&ps_loginname&"'"
rs1.open sql,conn ,1,1
if not rs1.eof then
response.write "<script language=JavaScript>" & chr(13) & "alert('用户名已经存在!');" & "history.back()" & "</script>"
%>
<% else %>
<%
da=date()
set rs2 = Server.CreateObject("ADODB.Recordset")
sql="INSERT I
<%
ps_loginname=request.form("ps_loginname")
ps_password=request.form("ps_password")
ps_repassword=request.form("ps_repassword")
%>
<HTML>
<HEAD>
<%
</tr>
<tr>
<td height="11" width="600">
<%
set rs1 = Server.CreateObject("ADODB.Recordset")
sql="select * from UserInfo where szUserID = '"&ps_loginname&"'"
rs1.open sql,conn ,1,1
if not rs1.eof then
response.write "<script language=JavaScript>" & chr(13) & "alert('用户名已经存在!');" & "history.back()" & "</script>"
%>
<% else %>
<%
da=date()
set rs2 = Server.CreateObject("ADODB.Recordset")
sql="INSERT I
加一个判断保存是否成功的语句
set rs2=conn.execute(sql)
if err.number<>0 then
response.write(err.description)'错误描述
response.end
end if
%> <br><br> <font color="#FF0000"><br></font><font size="+3">恭喜,您的帐号<font color="#FF0000"><%=ps_loginname%></font>成功注册!</font><font color="#FF0000"><br><br><br>您的帐号正确建立,并且已经自动激活,现在即可游戏客户端登陆武魂精彩世界!</font>
<%
da=date()
conn.execute("INSERT INTO UserInfo (szUserID,szPasswd,regtime) VALUES ('"&ps_loginname&"','"&ps_password&"',#"&da&"#)")
%>
set rs2 = Server.CreateObject("ADODB.Recordset")
sql="INSERT INTO UserInfo (szUserID,szPasswd) VALUES ('"&ps_loginname&"','"&ps_password&"')"
conn.execute(sql)
这样试下