jiho.asp

软件介绍：国内最完善功能最齐全的多级会员程序.主要功能涵盖所有多级会员管理所需,超强大会员自定义编辑功能

<!--#include file="login.asp"-->
<!--#include file="conn.asp"-->
<%
id=request("id")
ji=request("ji")
if ji=4 then
Set rs=Server.CreateObject("ADODB.recordset")
mysq="select * from mm where user='"&user&"'"
rs.open mysq,cn,3,2
if rs("j4")<1 then
%>
<script language="vbscript">
msgbox("你的系统维护费为0元，你不能激活你的第四级下线，请尽快交维护费，以免被停止会员资格!")
document.location="usermanage.asp?ji=<%=ji%>"
</script>

<%
end if
j4=rs("j4")-1
mysw="update mm set j4='"&j4&"' where user='"&user&"'"
cn.execute mysw
end if
newuser=request("newuser")
fufei="已激活"
dd=date()
mysq1="update jiho set fufei='"&fufei&"',d1='"&dd&"' where id="&id
cn.execute(mysq1)
select case ji
case 1
mys1="update ji set j1='"&fufei&"' where user='"&newuser&"'"
case 2
mys1="update ji set j2='"&fufei&"' where user='"&newuser&"'"
case 3
mys1="update ji set j3='"&fufei&"' where user='"&newuser&"'"
case 4
mys1="update ji set j4='"&fufei&"' where user='"&newuser&"'"
end select
cn.execute mys1
%>
<script language="vbscript">
msgbox("<%=newuser%>用户已经激活!")
document.location="usermanage.asp?ji=<%=ji%>"
</script>