📄 index.asp

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

💻 ASP

字号:

<!--#include file="admin.asp"-->
<!--#include file="conn.asp"-->
<%
if id="" then
response.write"<BODY leftMargin=0 topMargin=1 background=images/bg.gif vlink=#800000>"
response.write"<br><br><P align=center><FONT face=楷体_GB2312 color=red size=5><B>田响商务建站联盟</B></FONT></P>"
response.write"<P align=center><FONT size=3><FONT color=#0000ff>"&url&"?id=</FONT>你的用户名</FONT></P> "
response.write"<P align=center>请忘记网址的会员用以上的方式找回你的网址</p>"

response.end
end if
Set rs=Server.CreateObject("ADODB.recordset")
mysq="select * from mm where user='"&id&"'"
rs.open mysq,cn,3,2
if rs.eof or rs.bof then
response.write"<BODY leftMargin=0 topMargin=1 background=images/bg.gif vlink=#800000>"
response.write"<P align=center><br><br><br>"
response.write"<P align=center>打开错误，没有该用户名!"
response.write"<br><br><P align=center><FONT face=楷体_GB2312 color=red size=5><B>田响商务建站联盟</B></FONT></P>"
response.write"<P align=center><FONT size=3><FONT color=#0000ff>"&url&"?id=</FONT>你的用户名</FONT></P> "
response.write"<P align=center>请忘记网址的会员用以上的方式找回你的网址</p>"
response.end
end if
fufei=rs("fufei")
if fufei="未付费" then
Set rsj=Server.CreateObject("ADODB.recordset")
mj="select * from ji where user='"&id&"'"
set rsj=cn.execute(mj)
if not (rsj("j1")="已激活" and rsj("j2")="已激活" and rsj("j3")="已激活" and rsj("j4")="已激活")then

%>
<!--#include file="indextmp.asp"-->
<%
else
dd=date()
myu="update mm set fufei='已付费',dlrq=='"&dd&"',nwf='"&dd&"' where user='"&id&"'"
cn.execute myu
%>
<!--#include file="index1.asp"-->
<%
end if
else
if fufei="已付费" then
%>
<!--#include file="index1.asp"-->
<%
else
response.write
response.write"<center><br><br><br><br>打开出错，原因可能该用户被停用，请与网管联系!<br>EMAIL:"&admail
response.end
end if
end if
%><body background="images/mybk2.gif">

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -