📄 hycustview.asp

📁 mlm双轨制直销系统V8.0免费版可用于： 1、直拨、回拨电话卡公司。 2、保健品、药品公司。 3、在线销售商品等等。 4、其他类型用到双轨制模式的线上开盘公司。
💻 ASP
字号:
<!-- #include file="include/adovbs.inc" -->
<!-- #include file="include/dataconn.asp" -->
<!-- #include file="include/checkhy.asp" -->
<!-- #include file="common.asp" -->
<%
id=session("HyID")

pageno=trim(Request("pageno"))
findcontent=trim(request("findcontent"))

set HyRs=server.CreateObject("adodb.recordset")
sql = "SELECT Hy.*,HyClub.HyNumber FROM Hy left JOIN HyClub ON Hy.ID = HyClub.HyID where Hy.id =" & cint(id)

HyRs.Open sql,conn
if HyRs.Recordcount>0 then
	set CountRs=nothing
	set CountRs=server.CreateObject("adodb.recordset")
	sql = "SELECT HyMoneyAccount from HyMoneyAccount where HyNumber ='" & HyRs("HyNumber") & "'"
	CountRs.Open sql,conn
	if CountRs.Recordcount>0 then
		HyMoneyAccount=CountRs("HyMoneyAccount")
	else
		HyMoneyAccount=0
	end if
	set CountRs=nothing
end if
%>
<HTML>
<HEAD>
<TITLE>会员资料</TITLE>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<link rel="stylesheet" href="include/e1.css" type="text/css">
<script language='javascript' src='include/common.js'></script>		
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"></HEAD>

<BODY onLoad="window.status='欢迎光临';return document.MM_returnValue" bgcolor="7BD7FF">
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#7BD7FF" ID="Table3" bordercolor="9AE0FF">
  <tr bgcolor=009DDE> 
      <td width="100%" height="46"><div align="center">
        <br><br>
        <table width="80%" align="center" bgcolor="#9CE1FE" border="0" cellpadding="0" cellspacing="0" >
          <tr >
            <td><table width="100%" border="0" align="center" cellpadding="5" cellspacing="1" bordercolorlight="#f0f4ff" bordercolordark="#162d6b" ID="Table4" bordercolor="0073A6">
					<tr bgcolor="#00B1FF"> 
                  <td height="30" colspan="2"><div align="center"><font size="3"><img src="Image/user.gif" width="32" height="32">会 
                      员 资 料</font></div></td>
                </tr>			
                <tr> 
                  <td width="21%" height="30"><div align="right">登陆帐号：</div></td>
                  <td width="65%">&nbsp; 
                    <% =HyRs("HyNumber")%>
                  </td>
				 </tr>
				 <% if GetDisplayFunc("tksq")=true then%>
                <tr> 
				<%else%>
				<tr style="display:none"> 
				<%end if%>
                  <td width="21%" height="30"><div align="right">帐户余额：</div></td>
                  <td width="65%">&nbsp; 
                    <% =HyMoneyAccount%>
                  </td>
                </tr>				  
                <tr> 
                  <td width="21%" height="30"><div align="right">会员姓名：</div></td>
                  <td width="65%">&nbsp; 
                    <% =HyRs("HyName")%>
                  </td>
                </tr>
			 <% if GetDisplay("HySex")=true then%>
			<tr> 
			<%else%>
			<tr style="display:none"> 
			<%end if%>
                  <td width="21%" height="30"><div align="right"><% =GetDisplayName("HySex")%>：</div></td>
                  <td width="65%">&nbsp; 
                    <% =HyRs("HySex")%>
                  </td>
                </tr>
		<% if GetDisplay("HyAge")=true then%>
			<tr> 
			<%else%>
			<tr style="display:none"> 
			<%end if%>
                  <td width="21%" height="30"><div align="right"><% =GetDisplayName("HyAge")%>：</div></td>
                  <td width="65%">&nbsp; 
                    <% =HyRs("HyAge")%>
                  </td>
                </tr>
                <% if GetDisplay("HyCardNo")=true then%>
			<tr> 
			<%else%>
			<tr style="display:none"> 
			<%end if%>
                  <td width="21%" height="30"><div align="right"><% =GetDisplayName("HyCardNo")%>：</div></td>
                  <td width="65%">&nbsp; 
                    <% =HyRs("HyCardNo")%>
                  </td>
                </tr>												
                  <% if GetDisplay("HyTel")=true then%>
			<tr> 
			<%else%>
			<tr style="display:none"> 
			<%end if%>
                  <td height="30"><div align="right"><% =GetDisplayName("HyTel")%>：</div></td>
                  <td>&nbsp; 
                    <% =HyRs("HyTel")%>
                  </td>
                </tr>
                <% if GetDisplay("HyMobile")=true then%>
			<tr> 
			<%else%>
			<tr style="display:none"> 
			<%end if%>
                  <td height="30"><div align="right"><% =GetDisplayName("HyMobile")%>：</div></td>
                  <td>&nbsp; 
                    <% =HyRs("HyMobile")%>
                  </td>
                </tr>
                 <% if GetDisplay("HyMail")=true then%>
			<tr> 
			<%else%>
			<tr style="display:none"> 
			<%end if%>
                  <td height="30"><div align="right"><% =GetDisplayName("HyMail")%>：</div></td>
                  <td>&nbsp; 
                    <% =HyRs("HyMail")%>
                  </td>
                </tr>												
                <% if GetDisplay("HyQQMSN")=true then%>
			<tr> 
			<%else%>
			<tr style="display:none"> 
			<%end if%>
                  <td height="30"><div align="right"><% =GetDisplayName("HyQQMSN")%>：</div></td>
                  <td>&nbsp; 
                    <% =HyRs("HyQQMSN")%>
                  </td>
                </tr>
                 <% if GetDisplay("HyAddress")=true then%>
			<tr> 
			<%else%>
			<tr style="display:none"> 
			<%end if%>
                  <td height="30"><div align="right"><% =GetDisplayName("HyAddress")%>：</div></td>
                  <td>&nbsp; 
                    <% =HyRs("HyAddress")%>
                  </td>
                </tr>
                 <% if GetDisplay("HyZipCode")=true then%>
			<tr> 
			<%else%>
			<tr style="display:none"> 
			<%end if%>
                  <td height="30"><div align="right"><% =GetDisplayName("HyZipCode")%>：</div></td>
                  <td>&nbsp; 
                    <% =HyRs("HyZipCode")%>
                  </td>
                </tr>								
                 <% if GetDisplay("HyOpenBank")=true then%>
			<tr> 
			<%else%>
			<tr style="display:none"> 
			<%end if%>
                  <td height="30"><div align="right"><% =GetDisplayName("HyOpenBank")%>：</div></td>
                  <td>&nbsp; 
                    <% =HyRs("HyOpenBank")%>
                  </td>
                </tr>
                <% if GetDisplay("HyOpenBankNo")=true then%>
			<tr> 
			<%else%>
			<tr style="display:none"> 
			<%end if%>
                  <td height="30"><div align="right"><% =GetDisplayName("HyOpenBankNo")%>：</div></td>
                  <td>&nbsp; 
                    <% =HyRs("HyOpenBankNo")%>
                  </td>
                </tr>
                <% if GetDisplay("HyOpenBankName")=true then%>
			<tr> 
			<%else%>
			<tr style="display:none"> 
			<%end if%>
                  <td height="30"><div align="right"><% =GetDisplayName("HyOpenBankName")%>：</div></td>
                  <td>&nbsp; 
                    <% =HyRs("HyOpenBankName")%>
                  </td>
                </tr>
				<% if GetDisplay("HyProduct")=true then%>
			<tr> 
			<%else%>
			<tr style="display:none"> 
			<%end if%>
                  <td height="30"><div align="right"><% =GetDisplayName("HyProduct")%>：</div></td>
                  <td>&nbsp; 
                    <% =HyRs("HyProduct")%>
                  </td>
                </tr>				
               <% if GetDisplay("HyTjNumber")=true then%>
			<tr> 
			<%else%>
			<tr style="display:none"> 
			<%end if%>
                  <td height="30"><div align="right">推荐会员姓名：</div></td>
                  <td>&nbsp; 
                    <% =HyRs("HyTjNumber")%>
                  </td>
                </tr>
               <% if GetDisplay("HyTjName")=true then%>
			<tr> 
			<%else%>
			<tr style="display:none"> 
			<%end if%>
                  <td height="30"><div align="right"><% =GetDisplayName("HyTjName")%>：</div></td>
                  <td>&nbsp; 
                    <% =HyRs("HyTjName")%>
                  </td>
                </tr>
			  <% if GetDisplay("HyTjNumber")=true then%>
			<tr> 
			<%else%>
			<tr style="display:none"> 
			<%end if%>
                  <td height="30"><div align="right">推荐人数：</div></td>
                  <td>&nbsp; 
                    <% =GetTjCount(HyRs("HyNumber"))%>&nbsp;&nbsp;<a onMouseOver="MM_displayStatusMsg('欢迎光临');return document.MM_returnValue" href="MyTjUserList.asp?HyNumber=<% =HyRs("HyNumber")%>">直接推荐的会员</a>
                  </td>
                </tr>																
                <tr> 
                  <td height="30"><div align="right">安置会员帐号：</div></td>
                  <td>&nbsp; 
                    <% =HyRs("HyParentNumber")%>
                  </td>
                </tr>
              <% if GetDisplay("HyParentName")=true then%>
			<tr> 
			<%else%>
			<tr style="display:none"> 
			<%end if%>
                  <td height="30"><div align="right"><% =GetDisplayName("HyParentName")%>：</div></td>
                  <td>&nbsp; 
                    <% =HyRs("HyParentName")%>
                  </td>
                </tr>				
                <tr> 
                  <td height="30"><div align="right">位置选择：</div></td>
                  <td>&nbsp; 
                    <% =HyRs("HyLocation")%>
                  </td>
                </tr>
               <% if GetDisplay("HyMemo")=true then%>
			<tr valign="top"> 
			<%else%>
			<tr style="display:none"> 
			<%end if%>
                  <td height="30"><div align="right"><% =GetDisplayName("HyMemo")%>：</div></td>
                  <td>&nbsp; 
                    <% =HyRs("HyMemo")%>
                  </td>
                </tr>				

              </table></td>
          </tr>
        </table>
        <table width="80%" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td><div align="right"><strong><font color="#FF0000" size="3"><a  onMouseOver="MM_displayStatusMsg('欢迎光临');return document.MM_returnValue"   href="hySelfedit.asp?id=<% =id%>">
                修 改 资 料</a></font></strong></div></td>
          </tr>
        </table>
        <p align="right"><strong><font color="#FF0000" size="3"></font></strong></p>
      </div></td>
    </tr>
  </table>

  
</form>
</BODY>
</HTML>
⌨️ 快捷键说明

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