If request("action")<>"" and Request.form("submit")="" Then
Response.redirect "showerr.asp?ErrCodes=您提交的参数错误&action=OtherErr"
ElseIf request("action")<>"" Then
If Not CheckFormID(Request.form(GetFormID())) Then
Response.redirect "showerr.asp?ErrCodes=您提交的参数错误&action=OtherErr"
End If
End If
If Cint(dvbbs.Forum_Setting(37))=0 Then
ErrCodes=ErrCodes+"<li>"+template.Strings(26)
Else
If request("action")="apply" Then
Dvbbs.stats=Stats(2)
Dvbbs.Head_var 0,0,Stats(0),"reg.asp"
reg_2()
ElseIf request("action")="save" Then
Dvbbs.stats=Stats(3)
Dvbbs.Head_var 0,0,Stats(0),"reg.asp"
reg_3()
ElseIf request("action")="redir" Then
Dvbbs.stats=Stats(3)
Dvbbs.Head_var 0,0,Stats(0),"reg.asp"
redir()
Else
Dvbbs.stats=Stats(1)
Dvbbs.Head_var 0,0,Stats(0),"reg.asp"
reg_1()
End If
End If
Dvbbs.Showerr()
If ErrCodes<>"" Then Response.redirect "showerr.asp?ErrCodes="&ErrCodes&"&action=OtherErr"
Dvbbs.Footer()
End Sub