<%
response.buffer=true
Dim SendMail,sendmsg
call head()
if Cint(txl_set(0))=1 then
stats="错误信息"
Errmsg="本同学录暂时停止注册。"
call head_var("","")
call txl_error()
else
if request("action")="apply" then
stats="填写资料"
call head_var("同学录注册","register.asp")
call reg_2()
elseif request("action")="save" then
stats="提交注册"
call head_var("同学录注册","register.asp")
call reg_3()
if founderr then call txl_error()
elseif request("action")="reg" then
stats="注册协议"
call head_var("同学录注册","register.asp")
call reg_1()
else
stats="注册问题"
call head_var("同学录注册","register.asp")
call wenti()
end if
|