<%if Session("weight")<>5 then 
Response.Redirect "error.asp?cause=4"
 end if
%>
<HTML>
<HEAD>

<LINK 
href="css/default.css" rel=stylesheet>
</HEAD>
<BODY bgcolor=#FFFBE7><object runat=server id=conn1 progid="adodb.connection"></object>
<%application.Lock
conn1.Open Application("p_jyzx")
Application.UnLock
%>
<TABLE cellSpacing=0 cellPadding=0 width=100% align=center border=0>
  <TBODY>
  <TR >
    <TD  align=left > <font size=4  color=#ff9933>E网友情联盟管理 </font></TD>
    <TD  align=left ><font size=4><a href="affiliate_list.asp">返回</a></font></TD>
   </TR>
</TBODY>    
 </table>   <HR>
<%'//
   user_name=Request("user_name")
   Set rs = Server.CreateObject("ADODB.Recordset")
	 sql="select * from affiliate where user_name='"&user_name&"'"
	rs.Open sql,conn1,3,2
	
	
    name=rs("name")
    homepage=rs("homepage")
    homepage_info=rs("homepage_info")
    email=rs("email")
    address=rs("address")
    postcode=rs("postcode")

    telephone=rs("telephone")
    remark=rs("remark")
    link=rs("link")
    visit_counter=rs("visit_counter")
    join_counter=rs("join_counter")
    vip_join_counter=rs("vip_join_counter")
     left_money=FormatNumber(rs("left_money"),2,-1)
 '//////////////////////
 set rs=server.CreateObject ("ADODB.recordset")
 sql="select * from my_system where system_id=1"
 rs.Open sql,conn1,3
 if rs.RecordCount<>0 then
	affiliate_visit_value=rs("affiliate_visit_value")
	affiliate_join_value=rs("affiliate_join_value")
	affiliate_join_vip=rs("affiliate_join_vip")
 end if   
    money=visit_counter*affiliate_visit_value+join_counter*affiliate_join_value+vip_join_counter*affiliate_join_vip+left_money
    money=FormatNumber(money,2,-1)
    
	
%> 
<SCRIPT language=JavaScript>
function checkform(){
	if(inputform.name.value==''){
		alert("您没有填写姓名！");
		inputform.name.focus();
		return false;
	}
	if(inputform.email.value==''){
		alert("您没有填写E-mail！");
		inputform.email.focus();
		return false;
	}
	if(inputform.address.value==''){
		alert("您没有填写地址！");
		inputform.address.focus();
		return false;
	}
	if(inputform.postcode.value==''){
		alert("您没有填写邮编！");
		inputform.postcode.focus();
		return false;
	}
	
	
	return true;
}
</SCRIPT> 
<table align=center width=100% bgColor=#FFFBE7 border=0>
<tr><td align=center><TEXTAREA class=input2 rows=6 cols=50 id=textarea2 name=textarea2><%=link%></TEXTAREA></td></tr>
<tr><td align=center><%=user_name%>的账号中的余额为<font color="red"><%=money%></font>元</td></tr>
<tr><td align=center>上次结算余额：<%=left_money%>元</td></tr>
<tr><td align=center>&nbsp;&nbsp;链接访问数：<%=visit_counter%>人次&nbsp;<A href=affiliate_stat_link.asp?move=1&user_name=<%=Request("user_name")%> >&nbsp;&gt;&gt;&gt;详细统计信息</A></td></tr>
<tr><td align=center>介绍普通会员人数：<%=join_counter%>人次&nbsp;<A href=affiliate_stat_join.asp?move=1&user_name=<%=Request("user_name")%>  >&nbsp;&gt;&gt;&gt;详细统计信息</A></td></tr>
<tr><td align=center>介绍VIP会员人数：<%=vip_join_counter%>人次&nbsp;<A href=affiliate_stat_join_vip.asp?move=1&user_name=<%=Request("user_name")%>  >&nbsp;&gt;&gt;&gt;详细统计信息</A></td></tr>

</table><HR>
 <FORM action="affiliate_update.asp" method=post name=inputform onsubmit=return(checkform())>
<INPUT type="hidden" id=text1 name=user_name value=<%=user_name%> >
 <TABLE bgColor=#FFCC33 border=0 cellPadding=2 cellSpacing=1 width="100%">
                          <TBODY>
                           <TR bgColor=#FFFBE7>
                            <TD width="20%">*您的真实性名： </TD>
                            <TD><input type=text name=name size=25 maxlength=50 value=<%=name%> disabled>
                            </TD><TD >*请输入您的真实性名，不然我们给你汇款不能寄到 </TD></TR>
                           <TR bgColor=#FFFBE7>
                            <TD width="20%">您的主页： </TD>
                            <TD colspan=2><input type=text name=homepage size=40 maxlength=50  disabled value=<%=homepage%>>
                            </TD></TR>
                            <TR bgColor=#FFFBE7>
                            <TD width="20%">主页简介： </TD>
                            <TD colspan=2><input type=text name=homepage_info size=40 maxlength=190  disabled value=<%=homepage_info%> >
                            </TD>
                            </TR>
                            <TR bgColor=#FFFBE7>
                            <TD width="20%">*电子邮件： </TD>
                            <TD><input type=text name=email size=25 maxlength=50 value=<%=email%>  disabled>
                            </TD><TD >*方便联系： </TD>
                            </TR>
                            <TR bgColor=#FFFBE7>
                            <TD width="20%">*您的详细地址： </TD>
                            <TD><input type=text name=address size=25 maxlength=50 value=<%=address%>  disabled>
                            </TD><TD >*请输入详实有效的地址，不然我们给你汇款不能寄到 </TD>
                            </TR>
                            <TR bgColor=#FFFBE7>
                            <TD width="20%">*您的邮编： </TD>
                            <TD><input type=text name=postcode size=25 maxlength=20 value=<%=postcode%>  disabled>
                            </TD><TD >*请输入有效的邮编，不然我们给你汇款不能寄到 </TD>
                            </TR>
                            <TR bgColor=#FFFBE7>
                            <TD width="20%">您的电话或手机： </TD>
                            <TD><input type=text name=telephone size=25 maxlength=20 value=<%=telephone%>   disabled>
                            </TD><TD >*方便联系： </TD>
                            </TR>
                            <TR bgColor=#FFFBE7>
                            <TD width="20%">备注： </TD>
                            <TD><TEXTAREA name=remark rows=3 wrap=PHYSICAL cols=40   disabled><%=remark%></TEXTAREA> 
                            </TD><TD >*可以填写其他的收款方式： </TD>
                            </TR>
 <!-- <tr> 
<td height=30 colspan=3 align=center> 
<input type=submit class=p1  name=Submit value="　更  新　">　　

</td>
</tr>    -->                                                


</form>
</table>

</BODY>
</HTML>
