<% Dim Code,Mobile Dim Sms,result,SMSParam 'Code = MakeRandNum() 'Session("code") = Code Mobile = Request("mobile") Code = Request("Code") 'response.Write ""&Code&"" If Mobile<>"" then set json=new Aien_Json json.JsonType="object" json.addData "code",Code ParamString = json.getjson(json) Set json = Nothing Set Sms = New Aliyun_SendSms Sms.AccessKeyId = "LTAIM3RqRnh8MXOy" 'AccessKeyId Sms.AccessKeySecret = "0sweJu7ngFrnwf5bk1Qw4XFf2QyB2i" 'AccessKeySecret Sms.setParameter "PhoneNumbers", Mobile Sms.setParameter "TemplateParam", ParamString Sms.setParameter "SignName","搜莆相册网" '短信签名 Sms.setParameter "TemplateCode", "SMS_151771063" Result = Sms If Result="True" Then Response.Write "success" Else Response.Write Result End If Set Sms = Nothing Response.End() End if %> 安福相册
<% action = trim(request.Form("action")) rs=server.CreateObject("ADODB.RecordSet") if action="regedit" then username = chkstr(request.Form("username")) useremail = chkstr(request.Form("useremail")) password = chkstr(request.Form("password")) phone = chkstr(request.Form("phone")) codes=request.Form("codes") getS=request.Form("getS") yzm=request.Form("yzm") if cint(yzm)<>cint(codes) then response.Write "" response.End() end if if getS="" or getS="false" then response.Write "" response.End() end if set rsC=server.createobject("adodb.recordset") sqls="select user_mail from photo_user where user_mail = '"&useremail&"' " rsC.open sqls,conn,1,1 if rsC.recordcount>0 then response.Write "" response.End() END IF set rsU=server.createobject("adodb.recordset") sqlU="select user_name from photo_user where user_name = '"&username&"' " rsU.open sqlU,conn,1,1 if rsU.recordcount>0 then response.Write "" response.End() END IF userweb = "http://www.05942345.com/Vip."&username sql="insert into photo_user(user_name,user_pass,user_mail,user_web,user_tel) values('"&username&"','"&password&"','"&useremail&"','"&userweb&"','"&phone&"')" set rs=conn.execute(sql) err_ "注册成功!请重新登录" Response.Write "" end if conn_ %>