report.asp

SMS是SP服务中一种流行的服务类型,用户可以通过发送短信来定制电影,视频,交友,下载等在线服务, 联盟程序正是处于用户与SP商之间的一种接口平台,平台下可以发展站长,站长在自己的站上做宣传. 手

<!--#include file="inc/conn.asp"-->
<%
upline=trim(request("username"))
MobilePhone=trim(request("MobilePhone"))
order=trim(request("order"))
ip=request("ip")

call ConnectionDatabase
select case order
case "1"

	if Set_Usr_kconn>0 then 
		Set Rs=GrateRs("Select * from Kcount",3)
		kcount1=Rs("count1")
		if kcount1>Set_Usr_kconn then
			Rs("count1")=1
			mKstate=3
		Else
			Rs("count1")=Rs("count1")+1
		End if
		Rs.update
	end if
	
	Set Rs=GrateRs("select * from mobile where number like '"&MobilePhone&"'",3)
	if Rs.eof then Rs.addnew
	Rs("number") = MobilePhone
	Rs("ip") = ip
	Rs("regDate") = Date()
	Rs("regTime") = Time()
	Rs("chkDate") = Date() + 30
	Rs("password") = password
	Rs("value") = "有效"
	if mKstate=3 then Rs("state")=3
	if Upline <> "" then Rs("upline") = Upline
	Rs.Update
		
case "0"

	Set Rs=GrateRs("select * from mobile where number like '"&MobilePhone&"'",3)
	if not Rs.eof then
		Rs("value")="有效"
		Rs.Update
	end if	

end select

response.write "1"
%>