各为老大 小弟拜托了
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#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")=md5(trim(request("password")))
rs("useremail")=trim(request("useremail"))
rs("quesion")=trim(request("quesion"))
rs("answer")=md5(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
%>
错误贴:
错误类型:
Provider (0x80020005)
类型不匹配。
/f/reg.asp, 第 28 行
浏览器类型:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; iebar)
网页:
POST 147 ??? /f/reg.asp