reg_save.asp

短信息群发平台 功能强大 使用于各行各业 还可以和其他系统连接

<!--#include file="inc/conn.asp"-->
<!--#include file="inc/md5.asp"-->
<%

smstjid=int(request("estjid"))
user=request("user")
phone=request("phone")
name=request("name")
sr=int(request("sr"))
mail=request("mail")
question=request("question")
answer=request("answer")
sfz=int(request("sfz"))

Randomize timer
NewPass = left(cint(8999*Rnd+1000),4)

msg="尊敬的"&user&":您好,感谢您注册门户短信,您的密码是"&Newpass&"(门户短信平台mhsms.com)"


'---------------------数据判断-----------------------------

set rs=Server.CreateObject("Adodb.Recordset")
rs.Open "Select *  from es_smsuser where es_user='"&user&"'",conn
if not rs.EOF then
Response.Write "<script>alert('用户注册出错，下面是产生错误的可能原因：\n\n·此用户名已注册，请重新选择');history.go(-1);</script>"
Response.End   
end if
rs.close
set rs=nothing

set rs=Server.CreateObject("Adodb.Recordset")
rs.Open "Select *  from es_smsuser where es_phone='"&phone&"'",conn
if not rs.EOF then
Response.Write "<script>alert('用户注册出错，下面是产生错误的可能原因：\n\n·此号码已注册，请重新选择');history.go(-1);</script>"
Response.End   
end if
rs.close
set rs=nothing

'---------------------发送短信-----------------------------

	set objHttp = CreateObject("Microsoft.XMLHTTP")

	strurl="http://www.mhsms.com/sms/333.asp?phone="&phone&"&msg="&msg&""

	objHttp.Open "get",strURL,false
	objHttp.setrequestheader "content-length",len(stra)
	objHttp.send
	
    zt=objHttp.responseText   

userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR") 
If userip = "" Then userip = Request.ServerVariables("REMOTE_ADDR") 


'将发送内容记录到数据库
set rs=server.createobject("adodb.recordset")
sql="select * from es_smsmt" 
rs.open sql,conn,1,3
rs.addnew
rs("es_zl")=1
rs("es_msg")="注册信息"
rs("es_phone")=phone
rs("es_zt")=zt
rs("es_ip")=userip
rs.update
rs.close
set rs=nothing
   

if zt=0 then

set rs=server.createobject("adodb.recordset")
sql="select * from es_smsuser " 
rs.open sql,conn,1,3
rs.addnew
rs("es_user")=user
rs("es_name")=name
rs("es_sr")=sr
rs("es_mail")=mail
rs("es_question")=question
rs("es_answer")=md5(answer)
rs("es_sfz")=sfz
rs("es_phone")=phone
rs("es_pass")=md5(Newpass)
rs("es_tjid")=smstjid
rs.update
rs.close
set rs=nothing


      response.write"<script>alert('注册成功');window.open('index.asp','_self');</script>"     
       response.end
else

      response.write"<script>alert('注册失败');window.open('index.asp','_self');</script>"     
       response.end

end if
  
%>