高人请进,为什么注册页面出错
<!--#include file= "manage/inc/config.asp "-->
<!--#include file= "inc/conn.asp "-->
<%
if NOT isempty(request( "RegSubmit ")) then
if session( "regtimes ")=1 then
call MsgBox( "对不起,您刚注册过用户! ", "Back ", "None ")
response.end
end if
set rs=server.CreateObject( "adodb.recordset ")
rs.open "select username,useremail from [user] where username= ' "&trim(request( "username "))& " ' or useremail= ' "&trim(request( "useremail "))& " ' ",conn,1,1
if not rs.eof and not rs.bof then
call MsgBox( "您输入的用户名或Email地址已存在,请返回重新输入! ", "Back ", "None ")
end if
rs.close
rs.open "select * from [user] ",conn,1,3
rs.addnew
rs( "username ")=trim(request( "username "))
rs( "password ")=trim(request( "password "))
rs( "useremail ")=trim(request( "useremail "))
rs( "quesion ")=trim(request( "quesion "))
rs( "answer ")=trim(request( "answer "))
rs( "realname ")=trim(request( "realname "))
'身份证
rs( "identify ")=trim(request( "identify "))
rs( "mobile ")=trim(request( "mobile "))
rs( "userqq ")=trim(request( "userqq "))
rs( "adddate ")=now()
rs( "lastvst ")=now()
rs( "loginnum ")=0
rs( "postcode ")=0
rs( "score ")=0
rs( "paymethord ")=0
rs( "deliverymethord ")=0
rs.update
rs.close
set rs=nothing
response.Cookies(cookieName)( "username ")=trim(request( "username "))
response.Cookies(cookieName).expires=date+1
session( "regtimes ")=1
session.Timeout=1
call MsgBox( "注册成功!请到用户管理中心填详细资料! ", "GoUrl ", "muser.asp ")
end if
%>
部分FORM内容省去
以下为FORM里的两个按钮
<INPUT TYPE= "submit " ONCLICK= "return check(); " NAME= "RegSubmit " STYLE= "height:20; font:9pt; BORDER-BOTTOM: #cccccc 1px groove; BORDER-RIGHT: #cccccc 1px groove; BACKGROUND-COLOR: #eeeeee "VALUE= "提交 " >
<input type= "reset " name= "Submit5 " STYLE= "height:20; font:9pt; BORDER-BOTTOM: #cccccc 1px groove; BORDER-RIGHT: #cccccc 1px groove; BACKGROUND-COLOR: #eeeeee " value= "清除 ">
点击注册后出现 服务器错误500
------解决方案--------------------数据库数据类型与被插入的数据类型不匹配,看看都往数据库里提交了什么内容。
------解决方案--------------------小数截位这个问题很奇怪,以前我也遇到过,后来怎么解决忘记了
估计你输入的数据有问题,每一个字段都检查看看
------解决方案--------------------