%
ypxxone_id=request("ypxxone_id")
ypxxtwo_id=request("ypxxtwo_id")
addone_id=request("addone_id")
addtwo_id=request("addtwo_id")
user=request("user")
pass=request("pass")
colxr=request("colxr")
colxrsex=request("colxrsex")
coname=request("coname")
coaddress=request("coaddress")
cotelq=request("cotelq")
cotel=request("cotel")
mail=request("mail")
vip=request("vip")
tyvip=request("tyvip")
'---------------------数据判断-----------------------------
citypingname=split(citypingname,"|")
for i=0 to UBound(citypingname)
if instr(user,citypingname(i)) then
response.write""
response.end
end if
next
set rs=Server.CreateObject("Adodb.Recordset")
rs.Open "Select * from SMT_yp where SMT_user='"&user&"' or SMT_mail='"&mail&"'",conn
if not rs.EOF then
Response.Write ""
Response.End
end if
if mail="" or len(mail)<8 or instr(mail,"@")=0 or instr(mail,".")=0 then
response.write""
response.end
end if
if vip=1 then
if tyvip<>1 then
response.write""
response.end
end if
end if
'---------------------取得开通时间-----------------------------
if vip=3 then
citypkey=citysypkey
ktdate=cdate(now()+citysydate)
elseif vip=1 then
citypkey=cityvipypkey
if cityvipp=1 then
fy1="vip会员的注册费用为 "&cityvippm&" 元/年,请您务必在 "&cityjysj&" 个工作日内交齐所有费用,以便您的工作能正常开展!"
fy2="\n\nvip会员的注册费用为 "&cityvippm&" 元/年\n\n请您务必在 "&cityjysj&" 个工作日内交齐所有费用,以便您的工作能正常开展!"
ktdate=cdate(now()+cityjysj)
else
ktdate=cdate(now()+citysyvipdate+365)
end if
elseif vip=5 then
citypkey=cityypkey
if cityuserp=1 then
fy1="普通会员的注册费用为 "&cityuserpm&" 元/年,请您务必在 "&cityjysj&" 个工作日内交齐所有费用,以便您的工作能正常开展!"
fy2="\n\n普通会员的注册费用为 "&cityuserpm&" 元/年\n\n请您务必在 "&cityjysj&" 个工作日内交齐所有费用,以便您的工作能正常开展!"
ktdate=cdate(now()+cityjysj)
else
ktdate=cdate(now()+365)
end if
end if
if citypkey=1 then citypkey=1 else citypkey=0
'-----------------------发邮件---------------------------
if citymailkey0=1 then
mailto="\n\n系统已经自动发送一封邮件到您的邮箱,请立即查看!"
sh1="你现在就可以登录下面地址完善您的企业资料了:"&cityurl&"user_login.asp"
sh2="您等待管理员的开通!用户登录地址:"&cityurl&"user_login.asp"
if vip=3 then
userlx="试用会员(试用期为"&citysydate&"天)"
if citysypkey=1 then sh=sh1 else sh=sh2
elseif vip=1 then
userlx="VIP会员(VIP审核中,赠送使用"&citysyvipdate&"天)"
if cityvipypkey=1 then sh=sh1 else sh=sh2
else
userlx="普通会员"
if cityypkey=1 then sh=sh1 else sh=sh2
end if
toname=user
tomail=mail
mailtitle="恭喜您!"&user&" 您的"&cityname&"会员注册成功了"
mailbody=user&":"&vbcrlf&vbcrlf&" 欢迎注册"&cityname&"会员 "&vbcrlf&vbcrlf&" 您的注册信息如下:"&vbcrlf&" 登录用户名:"&user&vbcrlf&" 登录密码:"&pass&"(请经常修改您的密码)"&vbcrlf&" 注册类型:"&userlx
mailbody=mailbody&vbcrlf&" 发信时间:"&now()&vbcrlf&vbcrlf&" 请妥善保管好您的用户信息。"
mailbody=mailbody&vbcrlf&vbcrlf&fy1
mailbody=mailbody&vbcrlf&vbcrlf&sh
mailbody=mailbody&vbcrlf&vbcrlf&"网站登录请点击:"&cityurl
sendmail
if send_mail="err" then
response.write""
response.end
end if
end if
'-----------------------保存数据---------------------------
set rs=Server.CreateObject("Adodb.Recordset")
sql="select * from SMT_yp"
rs.open sql,conn,1,3
rs.addnew
rs("SMT_user")=user
rs("SMT_pass")=md5(pass)
rs("SMT_colxr")=colxr
rs("SMT_colxrsex")=colxrsex
rs("SMT_coname")=coname
rs("SMT_coaddress")=coaddress
rs("SMT_cotelq")=cotelq
rs("SMT_cotel")=cotel
rs("SMT_ypxxone_id")=ypxxone_id
rs("SMT_ypxxtwo_id")=ypxxtwo_id
rs("SMT_addone_id")=addone_id
rs("SMT_addtwo_id")=addtwo_id
rs("SMT_mail")=mail
rs("SMT_vip")=vip
rs("SMT_ktdate")=ktdate
rs("SMT_co")="co1"
rs("SMT_key")=citypkey
rs("SMT_enrol")=0
rs.update
rs.close
set rs=nothing
sub regok
response.write""
response.end
end sub
sub regsh
response.write""
response.end
end sub
if vip=3 then
if citysypkey=1 then
regok
else
regsh
end if
elseif vip=1 then
if cityvipypkey=1 then
regok
else
regsh
end if
elseif vip=5 then
if cityypkey=1 then
regok
else
regsh
end if
end if
%>