<!--#include file="Inc.asp"-->
<!--#include file="ydzq1.asp"-->



call head()


Call saycardd("邀请码会员")




dim p
p=trim(request.querystring("p"))
if p<>"" then
dim name,mail,userid,pass,sjhm
sjhm=usb(request("sjhm"))
yaoqingma=usb(request("yaoqingma"))

set rs=Server.CreateObject("ADODB.Recordset")
rs.open"select [ID],[name],[yaoqingma],[mm],[sjhm] from [users] where [sjhm]='"& sjhm &"' and [yaoqingma]='"&yaoqingma&"' order by [id] desc",conn,1,1
	if rs.eof then
  Call Error("对不起,注册失败!<br/>手机号和邀请码填写错误！<br/>可能你没有收到邀请码!!<br/>请用<a href=""/bbs/reg.asp"">普通注册会员</a><br/>本站完全免费!!")
end if
 sjhm=rs("sjhm")
 pass=rs("mm")
 userid=rs("ID")
rs.close
set rs=nothing
response.Write "您的手机是<b>"&sjhm&"</b><br/>"
response.Write "您的ID号是<b>"&userid&"</b><br/>"
response.Write "您的密码是<b>"&pass&"</b><br/><br/>"
Response.Write "<a href='login.asp?saytk="&saytk&"&amp;sid="&sid&"'>马上登录</a><br/><br/>"
else
response.Write "<b>请填写你的邀请资料!</b><br/>"
Response.Write "你的手机号：<br/><input name=""sjhm"" maxlength=""11""/><br/>"
Response.Write "你的邀请码：<br/><input name=""yaoqingma"" maxlength=""50"" value=""""/><br/>"
Response.Write "<anchor>邀请码注册"
Response.Write "<go href=""yaoqing.asp?p=1"" method=""post"" accept-charset=""utf-8"">"
Response.Write "<postfield name=""sjhm"" value=""$(sjhm)""/>"
Response.Write "<postfield name=""yaoqingma"" value=""$(yaoqingma)""/>"
Response.Write "</go></anchor><br/>"
end if
Response.Write "---------<br/><a href='login.asp?saytk="&saytk&"&amp;sid="&sid&"'>返回登录</a>"& chr(13)
conn.close
set conn=nothing
%><!--#include file="fanhui.asp"-->
<%call head1()%>