📄 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>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -