reg_home.asp

麦布会员管理程序是一个简易的会员注册及管理系统

<link href="style.css" rel="stylesheet" type="text/css">
<!--#include file="conn.asp"-->
<%
session.Timeout = 50
loginstatus = session("login")
loginname = session("name")
if loginstatus <> "yes" then Response.Redirect "reg_login.asp"
set rs = server.CreateObject("adodb.recordset")
sql = "Select * from MB_Member where M_Name='" & loginname & "'"
rs.open Sql,my_conn,1,1
%><p align="center"><br>
<br>
欢迎您，<%=loginname%>，非常感谢您对我们的支持！ </p>
          <div align="center">
            <center>
            <table border="1" cellpadding="2" cellspacing="0" style="border-collapse: collapse" bordercolor="#ACACAC" width="36%" id="AutoNumber5">
              <tr>
                <td width="100%" colspan="2" bgcolor="#BCBCBC">
                <p align="center"><font color="#FFFFFF">会员资料</font></td>
              </tr>
              <tr>
                <td width="36%" bgcolor="#DEDEDE">用户属性：</td>
                <td width="64%" bgcolor="#DEDEDE"><%=RS("M_vip")%>会员</td>
              </tr>
              <tr>
                <td width="36%" bgcolor="#DEDEDE">消费金额：</td>
                <td width="64%" bgcolor="#DEDEDE"><%=RS("M_Sale")%>元</td>
              </tr>
              <tr>
                <td width="36%" bgcolor="#DEDEDE">客户性别：</td>
                <td width="64%" bgcolor="#DEDEDE"><%=RS("M_Sex")%>　</td>
              </tr>
              <tr>
                <td width="36%" bgcolor="#DEDEDE">登陆次数：</td>
                <td width="64%" bgcolor="#DEDEDE"><%=RS("M_Time")%>次</td>
              </tr>
              <tr>
                <td width="36%" bgcolor="#DEDEDE">注册时间：</td>
                <td width="64%" bgcolor="#DEDEDE"><%=RS("M_Date")%>　</td>
              </tr>
              <tr>
                <td width="36%" bgcolor="#DEDEDE">联系地址：</td>
                <td width="64%" bgcolor="#DEDEDE"><%=RS("M_State")%>-<%=RS("M_City")%>　</td>
              </tr>
              <tr>
                <td width="36%" bgcolor="#DEDEDE">Q Q 号码：</td>
                <td width="64%" bgcolor="#DEDEDE"><%=RS("M_QQ")%>　</td>
              </tr>
              <tr>
                <td width="36%" bgcolor="#DEDEDE">联系电话：</td>
                <td width="64%" bgcolor="#DEDEDE"><%=RS("M_phone")%>　</td>
              </tr>
              <tr>
                <td width="36%" bgcolor="#DEDEDE">身份证号：</td>
                <td width="64%" bgcolor="#DEDEDE"><%=RS("M_card")%>　</td>
              </tr>
              <tr>
                <td width="36%" bgcolor="#DEDEDE">网站地址：</td>
                <td width="64%" bgcolor="#DEDEDE"><%=RS("M_Web")%>　</td>
              </tr>
              <tr>
                <td width="36%" bgcolor="#DEDEDE">电子邮箱：</td>
                <td width="64%" bgcolor="#DEDEDE"><%=RS("M_Email")%>　</td>
              </tr>
              <tr>
                <td width="100%" bgcolor="#ACACAC" colspan="2">
                <p align="center"><input type="button" value="修 改" onClick="parent.self.location = 'reg_edit.asp';" style="color: #FFFFFF; border: 1px solid #DEDEDE; background-color: #ACACAC">
                <input type="button" value="信 箱" onClick="parent.self.location = 'mess_list.asp';" style="color: #FFFFFF; border: 1px solid #DEDEDE; background-color: #ACACAC">
                <input type="button" value="查 看" onClick="parent.self.location = 'reg_list.asp';" style="color: #FFFFFF; border: 1px solid #DEDEDE; background-color: #ACACAC"> <input type="button" value="退 出" onClick="parent.self.location = 'reg_exit.asp';" style="color: #FFFFFF; border: 1px solid #DEDEDE; background-color: #ACACAC"></td>
                </tr>
            </table>
            </center>
          </div>
          <%
my_conn.close
set my_conn = nothing
set rs = nothing
%><p align="center"><a target="_blank" href="http://www.mybu.net/soft.asp">
<font color="#FF0000">欢迎到麦布源码超市购买专业版[ www.mybu.net ]，麦布会员管理 Ver 1.1 专业版售价 200 
元/套！</font></a> </p>