技术信息（用于支持人员）

• 错误类型：
  Provider (0x8002000A)
  超出当前范围。
  /reg.asp, 第 360 行
  

• 浏览器类型：
  Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)

• 网页：
  POST 476 ??? /reg.asp

• POST Data:
  name=mariozy2&sex=1&psw=19971998&pswc=19971998&quesion=what&answer=19971998&e_mail=2312@163.com&face=Images%2Fuserface%2Fimage1.gif&myface=&width=200&height=200&groupname=%D2%BB%B2%BF%C3%C5&birthday=& . . .

• 时间：
  2005年11月28日, 13:46:40
  
  
  我该怎么半啊

set rs=server.createobject("adodb.recordset")

If request("ischallenge")="yes" and cint(Dvbbs.Forum_Setting(24))=1 Then

sql="select * from [Dv_user] where username='"&username&"' or useremail='"&useremail&"' or usermobile='"&Dvbbs.CheckStr(request("mobile"))&"'"

ElseIf request("ischallenge")="yes" Then

sql="select * from [Dv_user] where username='"&username&"' or usermobile='"&Dvbbs.CheckStr(request("mobile"))&"'"

ElseIf cint(Dvbbs.Forum_Setting(24))=1 Then

sql="select * from [Dv_user] where username='"&username&"' or useremail='"&useremail&"'"

Else

sql="select * from [Dv_user] where username='"&username&"'"

End If

'Response.Write sql

'response.end

rs.open sql,conn,1,3

If not rs.eof and not rs.bof Then

If Dvbbs.Forum_Setting(24)="1" Then

Dvbbs.AddErrCode(20)

Exit sub

Else

Dvbbs.AddErrCode(21)

Exit Sub

End If

Else

rs.addnew

rs("UserName")=username

rs("UserPassword")=password

rs("UserEmail")=useremail

rs("Userclass")=userclass

rs("TitlePic")=titlepic

rs("UserQuesion")=quesion

rs("UserAnswer")=answer

rs("TruePassWord")=TruePassWord

rs("UserIM")=UserIM

If Request.Form("Signature")<>"" Then rs("UserSign")=Dvbbs.Htmlencode(Trim(Request.Form("Signature")))

rs("UserPost")=0

If Dvbbs.Forum_Setting(25)="1" Then

rs("UserGroupID")=5

Else

rs("UserGroupID")=Dvbbs.UserGroupID

End If

是啊，我们单位要弄个论坛，可以就是注册不了，怎么办好啊