src_4.asp

来自「有关遗传算法的例子」· ASP 代码 · 共 130 行

<!--#include file="conn.asp" -->
<%
if chk_userlogin<>True then
call msgbox_j("请先登陆","self.close()")
Response.end
end if
%>

<%
set rs=server.createobject("adodb.recordset")
sql="select * from 会员 where 用户名='"&session("username")&"'"
rs.open sql,conn,1,1
if rs.EOF then
call msgbox_j("用户名错误","self.close()")
Response.end
end if
%>
<link rel="stylesheet" href="images/css.css" type="text/css">
<script language="Javascript" src="images/title.js"></script>
<table border="0" align="center" width="612">
  <tr> 
    <td  valign="top"> <br>
      <table width="100%" border="0" cellspacing="5" cellpadding="5">
        <tr> 
          <td bgcolor="#0086C6" class="t1"><b><font color="#FFFFFF">&#149; 帐户信息</font></b></td>
        </tr>
        <tr> 
          <td bgcolor="#CAEEFF">            
            <table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td>用户帐号：<font color="#990000"><%=session("username")%></font>&nbsp; 
                  (ID:<%=rs("id")%>)</td>
                <td>帐户级别：<span title="<%=vip_name%>"> 
<%
vip_money=split(vip_money,"|")
vip_name=split(vip_name,"|")
response.write vip_name(session("grade"))%>
                  </span></td>
                <td>注册时间：<%=rs("注册时间")%></td>
              </tr>
              <tr> 
                <td>注册IP：<%=rs("注册IP")%></td>
                <td colspan="2"><b><%if session("grade")>1 then Rw "到期时间："&rs("到期时间")&"" else Rw "剩余点数："&rs("点数")&"" end if%></b></td>
              </tr>
            </table>
            
          </td>
        </tr>
      </table>
      <div align="left"> </div>
      <table width="100%" border="0" cellspacing="5" cellpadding="5">
        <tr> 
          <td bgcolor="#0086C6" class="t1" colspan="3"><b><font color="#000000">&#149; 
            升级续费</font></b><font color="#000000">-可选择在线支付、手机支付、电话支付等多种支付方式 </font></td>
        </tr>
        <tr> 
          <td bgcolor="#CAEEFF" colspan="3"> 
            <table width="100%" border="0" cellspacing="0" cellpadding="2" height="20">
              <tr> 
                <td height="0"><img src="images/img1.gif" align="absmiddle"> 扣点用户</td>
                <td height="0"><font color="#FF0000">观看/下载扣点，扣完即止1元=<%=vip_money(1)%>点</font></td>
                <td height="0"> 
                  <div align="right"><a href="pay_bank.asp?action=扣点&vip=1&vipname=购买点数"><img src="images/buy.gif" border="0"></a></div>
                </td>
              </tr>
              <tr> 
                <td height="1" colspan="3" background="images/line.gif"></td>
              </tr>
              <%
for i=2 to ubound(vip_name)
%>
              <tr> 
                <td height="20"><img src="images/time.gif" align="absmiddle"> 
                  <%=vip_name(i)%></td>
                <td>资费：<%=vip_money(i)%>元/月</td>
                <td> 
                  <div align="right"><a href="pay_bank.asp?action=包月&vip=<%=i%>&vipmoney=<%=vip_money(i)%>&vipname=<%=vip_name(i)%>"><img src="images/buy.gif" border="0"></a></div>
                </td>
              </tr>
              <tr> 
                <td colspan="3" height="1" background="images/line.gif"></td>
              </tr>
              <%next%>
            </table>
          </td>
        </tr>
      </table>
      <div align="left">&nbsp;<img src="images/!.gif" width="14" height="14" align="absmiddle"> 
        区别：普通包月用户日下载量不能超过<b><%=vip_xz%></b>部，黄金/网吧包月用户无限制、网吧包月帐号会根据IP自动登陆</div>
      <div align="right"> <br>
        <table width="100%" border="0" cellspacing="5" cellpadding="5">
          <tr> 
            <td bgcolor="#0086C6" class="t1"><b><font color="#FFFFFF">&#149; 充值卡充值</font></b></td>
          </tr>
          <tr> 
            <td bgcolor="#CAEEFF"> 
              <table border="0" cellspacing="0" cellpadding="3">
                <form name="form1" method="post" action="card.asp">
                  <tr> 
                    <td>充入帐号: 
                      <input type="text" name="username" size="8" class="input" value="<%=session("username")%>">
                    </td>
                    <td>卡号 : 
                      <input type="text" name="card1" size="10" class="input">
                    </td>
                    <td>密码: 
                      <input type="text" name="card2" size="10" class="input">
                    </td>
                    <td>验证 
                      <input type="text" name="vercode" size="5" class="input">
                    </td>
                    <td><img src="../number.asp?n=<%=Timeer%>" border="0" title="请在验证框中输入此号码" align="absmiddle"></td>
                    <td> 
                      <input type="image" border="0" name="imageField" src="images/ok.gif" width="55" height="20" onclick="return chkcard()">
                    </td>
                  </tr>
                </form>
              </table>
            </td>
          </tr>
        </table>
        <div align="right"><br>
        </div>
      </div>
      </td>
  </tr>
</table>
<%cleartimeout_user
connclose%>