<% Response.ContentType="text/xml; charset=utf-8"%> <% '============================================================ ' Copyright 2007-09 燃点真情. All Rights Reserved. ' Last Update: 2008-11-8 10:28 ' ADD:wap.nowtx.cn ' E-Mail: xivn@163.com QQ:531233814 '============================================================ '不能修改任何一处地方，否则注册失效！ dim zcface,qmface,backResult,backResultInfo zcface="668l" qmface="668lmm" backResult=0 backResultInfo=0 dim siddd Function SID_RANDOMIZE() Dim c,id randomize c="a,A,1,b,B,2,c,C,3,d,D,4,e,E,5,f,F,6,g,G,7,h,H,8,i,I,9,j,J,0,k,K,1,l,L,2,m,M,3,n,N,4,o,O,5,p,P,6,q,Q,7,r,R,8,s,S,9,t,T,0,u,v,w,x,y,z," id=split(c,",") for i=1 to 10 SID_RANDOMIZE=int(rnd()*36)&SID_RANDOMIZE Next SID_RANDOMIZE=SID_RANDOMIZE&minute(now)&second(now)&day(now)&month(now) End Function siddd=md5(md5(sjhm+SID_RANDOMIZE,16),32) dim ipp 'ipp=Request.ServerVariables("REMOTE_ADDR") ipp="127.0.0.1" dim mobile,content mobile=request.Form("mobile") '收到的手机号码 content=request.Form("content") '收到的短信信息 userpass=right(mobile,4) If mobile<>"" and isnumeric(mobile)<>False Then if content=zcface then Session.CodePage=936 Set rs = Server.CreateObject("ADODB.Recordset") If conn.Execute("Select id From [users] where sjhm='"&mobile&"'" ).eof Then rs.open"select * from [Users]",conn,1,3 rs.addnew rs("sjhm")=mobile rs("mm")=userpass rs("sex")=3 rs("name")="新会员"&right(SID_RANDOMIZE,5) rs("myip")=ipp rs("regtime")=now() rs("listnum")=8 rs("viewnum")=500 rs("review")=3 rs("relistnum")=8 rs.update rs.close set rs=nothing set rs=Server.CreateObject("ADODB.Recordset") rs.open"select top 1 id from [Users] order by id desc",conn,1,1 sid=rs("id")&"_"&siddd newUserid=rs("ID") conn.Execute("update Users set sid='"&sid&"' Where id="&newUserid) rs.close set rs=nothing '发信 '=========================================== dim msgx msgx = "恭喜！会员注册成功！" msgx = msgx & "\\会员ID:" & newUserid msgx = msgx & "\\密码:" & Right(mobile, 4) & "" msgx = msgx & "\\为了您的帐号安全，请您及时修改密码" msgx = msgx & "\\(url=clickid.asp?Action=ok&sid=[sid])我要填写我的推荐人(/url)" msgx = msgx & "\\(url=clickid.asp?Action=no&sid=[sid])我没有推荐人,不填写(/url)" msgx = msgx & "\\ 温馨提示:推荐成功后.您的推荐人会得到"&clickjb&getcent&"的奖励,同时您也会得到"®jb&getcent&",不推荐也有"®jb&getcent&"奖励哦！" set rs=Server.CreateObject("ADODB.Recordset") rs.open"select * from guest",conn,1,2 rs.addnew rs("fnr")=msgx rs("sid")=newUserid rs("fid")=0 rs.update rs.close set rs=nothing '发信 '=========================================== backResult=200 '注册成功 else backResult=201 '重复注册 end if elseif content=qmface then Session.CodePage=936 dim Inuserid set rs=Server.CreateObject("ADODB.Recordset") rs.open"select ID from users where sjhm='" & mobile & "'",conn,1,1 if rs.eof then backResult=301 '手机号不存在 else conn.Execute ("update [users] set mm = '" & Right(mobile, 4) & "' where sjhm='" & mobile & "'") Inuserid=rs("ID") end if rs.close set rs=nothing '发信 if backResult<>301 then set rs=Server.CreateObject("ADODB.Recordset") rs.open"select * from guest",conn,1,2 rs.addnew rs("fnr")="您好！您的ID："&Inuserid&"，密码已重置为"&Right(mobile, 4)&"" rs("sid")=Inuserid rs("fid")=0 rs.update rs.close set rs=nothing backResult=300 '重置密码成功 end if end if else backResultInfo=500 '未知错误 end if Conn.close Set Conn = Nothing %> <%=backResult%> <%=backResultInfo%>