📄 mmain.asp

📁 廣告聯盟系統,發布廣告信息,很不錯的一款
💻 ASP
字号:
<%@ language=vbscript %>
<!--#include file=articleconn.asp-->
<!-- #include file=DATABASE.INC -->
<%
if session("56mname")="" then 
Response.Redirect("index.asp")
Response.end
end if 
set rs=server.createobject("adodb.Recordset")
sql="select * from 56mdata where username='"&session("56mname")&"'"
rs.open sql,cn,2,3,adcmdtext
if not rs.eof then
%>
<HTML>
<HEAD>
<!--#include file="head.asp"-->
<title>会员资料</title> <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312"> 
<LINK REL="stylesheet" HREF="images/style.css" TYPE="text/css">
<style type="text/css">
<!--
.样式4 {
	font-size: 9px;
	color: #FF0000;
	font-weight: bold;
}
.样式5 {color: #000000; font-size: 9px;}
.样式8 {
	font-size: 9pt;
	color: #FF0000;
	font-weight: bold;
}
.样式9 {color: #FF0000; font-size: 9pt;}
body,td,th {
	font-size: 9pt;
	color: #000000;
}
.样式11 {font-size: 9pt}
.样式12 {color: #000000}
.样式13 {font-size: 9pt; color: #000000; }
.样式18 {font-size: 9pt; font-weight: bold; }
-->
</style>
</HEAD>
<BODY BGCOLOR="#eeeeee" LEFTMARGIN="0" TOPMARGIN="0" MARGINWIDTH="0" MARGINHEIGHT="0">

<TABLE WIDTH="755" BORDER="0" CELLSPACING="0" CELLPADDING="0" ALIGN="CENTER" BGCOLOR="#FFFFFF" HEIGHT="300"><TR><TD WIDTH="166" HEIGHT="41" ROWSPAN="3" VALIGN="TOP"><div align="center">
        <p><br>
          <a href="mcodeget.asp" class="样式18"><font color="ED171F">会员广告代码</font></a></p>
        <p class="样式18"><a href="mupdate.asp"><font color="ED171F">会员个人资料</font></a></p>
        <p class="样式18"><a href="mmain.asp"><font color="ED171F">会员帐户信息</font></a></p>
        <p class="样式18 ">&nbsp;</p>
</div>
    </TD>
    <TD BACKGROUND="images/dots.gif" ROWSPAN="3" WIDTH="10"><IMG SRC="images/dots.gif" WIDTH="4" HEIGHT="4"></TD><TD VALIGN="TOP" ALIGN="RIGHT" HEIGHT="2" WIDTH="584"><TABLE WIDTH="100%" BORDER="0" CELLSPACING="0" CELLPADDING="0" ALIGN="CENTER" BGCOLOR="#FFFFFF"><TR><TD ALIGN="RIGHT" COLSPAN="2" BACKGROUND="images/dots.gif"><IMG SRC="images/dots.gif" WIDTH="4" HEIGHT="4"></TD></TR></TABLE></TD></TR>
<TR><TD HEIGHT="4" WIDTH="584"><TABLE WIDTH="100%" BORDER="0" CELLSPACING="0" CELLPADDING="0" ALIGN="CENTER" BGCOLOR="#FFFFFF"><TR>
          <TD COLSPAN="2" HEIGHT="30" ALIGN="CENTER"><span class="样式18"><font color="#FF0000">会员页面--帐户基本信息</font></span></TD>
        </TR></TABLE></TD></TR><TR><TD VALIGN="TOP" WIDTH="584">
          <div align="center">
            <TABLE WIDTH=483 height="104" BORDER=1 CELLPADDING=2 CELLSPACING="0" bordercolor="#CCCCCC">
          <TR>
            <TD ALIGN=right><div align="left" class="样式11 样式12">显示次数:</div></TD>
            <TD><span class="样式8"><%=rs("xs")%><span class="样式4">&nbsp;</span></span><span class="样式9"><span class="样式5"> 次</span></span></TD>
          </TR>
          <TR> 
            <TD WIDTH=28% ALIGN=right><div align="left" class="样式13">有效点击:</div></TD>
            <TD WIDTH=72%><span class="样式4"><%=rs("sds")%>&nbsp;</span><span class="样式5"> 次</span></TD>
          </TR>
          <TR> 
            <TD WIDTH=28% ALIGN=right><div align="left" class="样式13">应付费用:</div></TD>
            <TD WIDTH=72%><span class="样式8">
              <%
		  sds=rs("sds")
		  sds=sds*0.025
		  Response.write(sds)
		  %>
              &nbsp;</span><span class="样式9"><span class="样式5"> 元 </span>（每点击0.025元）</span></TD>
          </TR>
          <TR> 
            <TD WIDTH=28% ALIGN=right><div align="left" class="样式13">已经支付:</div></TD>
            <TD WIDTH=72%> <span class="样式9"><strong><%=rs("Y_monny")%>&nbsp;</strong><span class="样式5"> 元 </span></span></TD>
          </TR>
          <TR> 
            <TD WIDTH=28% ALIGN=right><div align="left" class="样式13">电子信箱:</div></TD>
            <TD WIDTH=72%><span class="样式13"><%=rs("email")%></span></TD>
          </TR>
          <TR> 
            <TD WIDTH=28%>&nbsp; 
              <form method="POST" action="applypay.asp" target="h1">
			  <%
			if sds>=100 then
			disa=""
			else
			disa="disabled"
			end if
			qz=rs("qzf")
			if qz>=100 then
			qzf_text=qz&"元等待验证中..." 
			else
			qzf_text=""
			end if
			%>
                <input type="submit" value="100元即可请求支付" name="B1" <%=disa%>><br>
                <%=qzf_text%> 
              </form>
            </TD>
            <TD WIDTH=72%><font color="#FF0000">[提醒] </font> 
              <p><span class="样式13">即将进入付费周期！请仔细检查您的支付方法。</span><br>
              </p>
            </TD>
          </TR>
            </TABLE>
          </div>
          <p align="center" class="样式11"><strong><font color="#FF0000">会员个人信息</font></strong></p>
          <div align="center">
            <table width=483 height="104" border=1 cellpadding=2 cellspacing="0" bordercolor="#CCCCCC">
          <tr> 
            <td width=34% align=right><div align="left" class="样式13">用 户 名：&nbsp; &nbsp;</div></td>
            <td width=66%><span class="样式13"><%=rs("username")%> </span></td>
          </tr>
          <tr> 
            <td width=34% align=right> <div align="left" class="样式13">真实姓名：&nbsp; &nbsp;</div></td>
            <td width=66%><span class="样式13"><%=rs("zname")%> </span></td>
          </tr>
          <tr> 
            <td width=34% align=right><div align="left" class="样式13">电子信箱：&nbsp; &nbsp;</div></td>
            <td width=66%><span class="样式13"><%=rs("email")%></span></td>
          </tr>
          <tr> 
            <td width=34% align=right><div align="left" class="样式12 样式11">帐户状态：</div></td>
            <td width=66%><span class="样式9">
              <%
	  type_h=rs("type_h")  
	  if type_h<>"false" then
	  typ="已经开通，状态正常"
	  else
	  typ="帐号已封，请与管理员联系"
	  end if
	  Response.write(typ)
	  %> 
              </span></td>
          </tr>
            </table>
          </div>
          <p align="center">&nbsp;	  </p>
      </TD></TR></TABLE>
</BODY>
</HTML><!--#include file="end.asp"-->

<%
else
Response.write("非法操作！！")
end if 
%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -