getqq.asp

QQ呱唧网

<!--#include file="conn.asp"-->
<%
QQ=Request("QQ")
QQ_State=Request("QQ_State")
sql="select * from QQ Where QQ='" & trim(QQ) & "'"
if QQ="" Then 
response.write "document.location.href='http://index.asp';"
response.end
end if
set Rs=createobject("adodb.recordset")
RS.open SQL,conn,3,2
if Rs.eof then
rs.addnew
rs("QQ")=QQ
RS("QQ_State")="上线"
RS("RegDate")=NOW()
RS("LoginDate")=Now()
Rs("LoginTimes")=Rs("LoginTimes")+1
Rs("Loginip")=request.servervariables("remote_addr")
Rs("EndTime")=now()+maxDay
rs.update
LoginTimes=rs("LoginTimes")
HaveTime=datediff("D" ,now(),now()+maxDay)
UserState="免费用户"
else
if datediff("D" ,now(),Rs("EndTime"))<=0 then
response.write "alert('你的用户使用期限已过');document.location.href='/'"
response.end
end if
if datediff("D" ,now(),Rs("EndTime"))>maxDay then
UserState="收费用户"
else
UserState="免费用户"
end if
if session("QQ")="" Then
RS("LoginDate")=Now()
Rs("LoginTimes")=Rs("LoginTimes")+1
Rs("Loginip")=request.servervariables("remote_addr")
session("QQ")=QQ
end if
RS("QQ_State")="上线"
rs.update
LoginTimes=rs("LoginTimes")
HaveTime=datediff("D" ,now(),Rs("EndTime"))
end if
%>
var QQ_number='<%=request("QQ")%>';
var LoginTimes='<%=rs("LoginTimes")%>';
var HaveTime='<%=HaveTime%>';
var User_State='<%=UserState%>';