report.asp

大概说明: 一:登陆后台前请先smszzun_admin,找到IP_report.asp这个文件,把里面的IP地址更换成你的本机IP 如果IP不符合则不能打开后台页面,这是为了数据安全

<!--#include file="conn.asp"-->
<%
'验证访问来源,您可以PING u9500.com得到IP,IP更改会及时通知你的.
tter=trim(Request("REMOTE_ADDR"))
if tter<>"219.148.111.166" then 
response.write "02"
response.end
end if

'开始接收数据
phoneno=request("Phone")         '手机号码
pwd=request("Pwd") 		'手机密码
porder=request("msg")            '用户上行信息126为成功,TD126为退订          
sption=request("Option")	 '联盟自定义参数
pserver=request("FromServer")    '子地址码,9500后面的参数


'处理接收信息的有效性,如无效给回无效值
if len(phoneno)<11 or len(porder)<0 then
response.write "01"
response.end
end if 
'在数据库中比对传递的手机号码（注意，这里默认用手机号作为会员帐号，如果你希望用自定义参数，可以自行修改）
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select top 1 * from mobile where Usernumber='"&phoneno&"'"
rs.open sql,Conn, 1, 3
if rs.eof then
rs.addnew()
rs("Usernumber")=phoneno
rs("password")=pwd
rs("Msg")=porder
rs("FromServer")=pserver
rs("unionid")=sption
rs("Regtime")=Now()
rs("ChkTime")=Now()+730
rs.update
else
rs("password")=pwd
rs("Msg")=porder
rs("FromServer")=pserver
rs("unionid")=sption
rs("RegTime")=Now()
if porder="126" then
rs("ChkTime")=Now()+730
else
rs("ChkTime")=Now()
end if
rs.update
rs.close
set rs = nothing
Conn.close
set Conn = nothing
end if
'通知成功，返回ok
response.write "00"
response.end
%>