<%if Session("weight")=0 then 
Response.Redirect "error.asp?cause=4"
end if
if Session("weight")<>2 and Session("weight")<>5 and Session("weight")<>3 and Application("search_weight")<>1 then 
Response.Redirect "error.asp?cause=5"
 end if
%>
<html>
<head>
<!--#include file="const.asp" -->
<title><%=rs("title")%>---<%=rs("lovetitle")%></title>
<link rel="stylesheet" href="../images/css.css" type="text/css">
</head>
<body leftmargin="0" marginwidth="0" topmargin="0" marginheight="0">
<SCRIPT LANGUAGE=javascript>
//<!--
	function sss(URL)
	{
		newwin=window.open('','_blank','fullscreen=0,toolbar=0,location=0,directories=0,status=0,menubar=0,scrollbars=0,resizable=0');
		if(document.all){
		newwin.moveTo(200,40 )
		newwin.resizeTo(400,400 );
		}
		newwin.location=URL
		newwin.focus();
	}

	
//-->
</SCRIPT><object runat=server id=conn1 progid="adodb.connection"></object>
<%application.Lock
conn1.Open Application("p_jyzx")
Application.UnLock
%>
<table align="center" cellpadding="0" cellspacing="0" width="770">
    <tr>
        <td width="769"><!--#include file="top.asp" --></td>
    </tr>
    <tr>
        <td width="769">
        <TABLE cellSpacing=3 cellPadding=3 width="770" border=0 style="border-collapse: collapse" bordercolor="#111111">
        <TBODY>
        <TR>
          <TD align=middle width="301" bgColor=#FFFFFF bordercolor="#FFFFFF">
                                    <p align="left">&nbsp;&nbsp;<img src="images/jiantou_shuang.gif" width="11" height="8" border="0"> 
            <%set rs_t=server.CreateObject ("ADODB.recordset")
  
   sql="select * from user where user_name='"&session("Current_user")&"'"
   rs_t.Open sql,conn1,3,2
  if rs_t.RecordCount<>0 then
   nickname=rs_t("nickname")
   
   if rs_t("weight")=1 then
	 user_type="普通会员"
	else
		 user_type="VIP会员"
	end if 
end if	
	set rs_online=server.CreateObject ("ADODB.recordset")
  
   sql="select count(*) as online_num from online"
   rs_online.Open sql,conn1,3,2
   
   online_num=rs_online("online_num")
  
  %>您好，<%=nickname%>！　您的类别是：<%=user_type%></p>
</TD>
          <TD bgColor=#FFFFFF width="459" bordercolor="#FFFFFF">
            
            <p align="right">&nbsp;<a href="web_icq.asp"><IMG height=19 
            src="images/tools_1.gif" width=63 align=absMiddle border=0></a> 
            <A href="my_notebook.asp"><IMG 
            id=Toolbox1_mesg height=19 src="images/tools_2.gif" width=63 
            align=absMiddle border=0></A> <a href="friend_list.asp" target="_top"><IMG 
            height=19 src="images/tools_3.gif" width=63 align=absMiddle 
            border=0></a> <a href="join_vip.asp"><IMG 
            height=19 src="images/tools_4.gif" width=63 align=absMiddle 
            border=0></a></TD></TR></TBODY></TABLE></td>
    </tr>
    <tr>
        <td width="769"><TABLE cellSpacing=0 cellPadding=0 width="770" align=center border=0>
  <TBODY>
  <TR>
    <TD vAlign=top width="189">
      <TABLE class=border_black cellSpacing=0 cellPadding=0 width="100%" 
      bgColor=#fff7ea border=0>
        <TBODY>
        <TR>
          <TD vAlign=bottom align=middle height="0">	 <%
 set rs2=server.CreateObject ("ADODB.recordset")
 sql="select * from user where user_name='"&session("Current_user")&"'"
 rs2.Open sql,conn1,3
 charisma=rs2("charisma")
 if charisma<101 then
	rank="自由天使"
 elseif charisma>100 and charisma<301 then
	rank="梦幻天使"
 elseif charisma>300 and charisma<1001 then
	rank="星梦天使"
 elseif charisma>1000 and charisma<10001 then
	rank="寻梦天使"
 elseif charisma>100 and charisma<50001 then
	rank="追梦天使"
 elseif charisma>100 and charisma<150001 then
	rank="缘梦天使"
 elseif charisma>100 and charisma<500001 then
	rank="浪漫天使"
 elseif charisma>500000  then
	rank="守护天使"
end if
 %>   
<table border="0" height="2" cellspacing="0" cellpadding="2" width="100%" style="border-collapse: collapse" bordercolor="#111111">
 
  <tr>
    <td height="16" >&nbsp;&nbsp;&nbsp;会员类别：<font  color=red><%=user_type%></font></td>
  </tr>
  <tr>
    <td height="16" >&nbsp;&nbsp;&nbsp;天使级别：<font  color=red><%=rank%></font></td>
  </tr>
  <tr>
    <td height="16" >&nbsp;&nbsp;&nbsp;魅力积分：<font  color=red><%=charisma%></font>分</td>
  </tr>
   <tr>
    <td height="16" >&nbsp;&nbsp;&nbsp;上站次数：<font  color=red><%=rs2("counter")%></font>次</td>
  </tr>
  <tr>
    <td height="16" >&nbsp;&nbsp;&nbsp;档案浏览：<font  color=red><%=rs2("visited_counter")%></font>次</td>
  </tr>
  <tr>
    <td height="16" >&nbsp;&nbsp;&nbsp;入会日期：<font  color=red><%=formatdatetime(rs2("reg_date"),vblongdate)%></font></td>
  </tr>
  <tr>
    <td height="16" >&nbsp;&nbsp;&nbsp;最新访问：<font  color=red><%=formatdatetime(rs2("last_time"),vblongdate)%></font></td>
  </tr>
  
</table>
 </TD></TR>
        <TR>
          <TD align=middle height=10></TD></TR></TBODY></TABLE>
      <TABLE cellSpacing=0 cellPadding=0 width=185 border=0>
        <TBODY>
        <TR>
          <TD height=5></TD></TR></TBODY></TABLE>
<!--#include file="left.asp"--></TD>
    <TD width="1">&nbsp;</TD>
    <TD vAlign=top width="777">
                                    <div align="right">
                                    <table class="border_yellow1" cellpadding="0" cellspacing="0" width="568">
                                        <tr>
                                            <td width="568" height="21" bgcolor="#FF6699"><font size="4" color="#FF9933"><b>&nbsp;<img border="0" src="images/a0.gif" WIDTH="13" HEIGHT="13" align="absmiddle"></b></font><font color="white"><b>&nbsp;E网友情联盟</b></font></td>
                                        </tr>
                                        <tr valign="top">
                                            <td width="568" height="150">		
     <table WIDTH="568" BORDER="0" CELLSPACING="0" CELLPADDING="0">
	<tr>
		<td align="center">
          
<%'//
   'user_name=Request("user_name")
   Set rs = Server.CreateObject("ADODB.Recordset")
	 sql="select * from affiliate where user_name='"&session("Current_user")&"'"
	rs.Open sql,conn1,3,2
	if rs.RecordCount<>0 then
	
    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 is_email(str)
{ if((str.indexOf("@")==-1)||(str.indexOf(".")==-1)){
	
	return false;
	}
	return true;
}
function is_number(str)
{
	exp=/[^0-9()-]/g;
	if(str.search(exp) != -1)
	{
		return false;
	}
	return true;
}
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(!is_email(inputform.email.value))
	{ alert("非法的EMail地址！");
		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;
	}
	
	if(!is_number(inputform.postcode.value)){
		alert("邮编必须用数字！");
		inputform.postcode.focus();
		return false;
	}
	if(!is_number(inputform.telephone.value)){
		alert("电话或手机必须用数字或(-)！");
		inputform.telephone.focus();
		return false;
	}
	return true;
}
</SCRIPT> 
<%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_selected=rs("affiliate_selected")
	
 end if
 
 
 %>
<% if affiliate_selected=0 or affiliate_selected=2 and Session("weight")=1 then
		if affiliate_selected=0 then
			affiliate_selected1="暂时不开放！"
		else 
			affiliate_selected1="只对VIP会员开放！"
		end if
%>
<BR><BR>
<TABLE class=color_1 border=0 cellPadding=2 cellSpacing=1 width="100%">
                          <TBODY>
                           <TR bgcolor="#FFF8E1">
                             <td align=center bgcolor="#FFFFFF">
                           <font>对不起！此功能<%=affiliate_selected1%> </font> 
                            </td>
                            </TR>
 
 </TBODY></TABLE>
 
 
 <% else%>       
<table align=center width=100% bgcolor="#FFF8E1" border=0>
<tr>
<td align=center bgcolor="#FFFFFF"><TEXTAREA rows=4 cols=50 id=textarea2 name=textarea2><%=link%></TEXTAREA></td>
<TD RowSpan=8 width=170 Valign=top bgcolor="#FFFFFF">

                                    <ul>
<LI>本站执行严格的管理，请严肃履行非常友情联盟的规则，不要以任何作弊方式获取佣金。希望通过彼此友好合作，取得互惠互利的效果。
                                    </ul>

<P>
                                    <ul>
<LI>
    联盟会员填写真实的个人数据，并且个人主页必须处于开放状态。否则广东交友热线不予支付联盟佣金。
                                    </ul>

<P>
                                    <ul>
<LI>付费标准
<BR>
每点击链接访问：0.00元/次<BR>
每介绍普通会员：0.10元/人<BR>
每介绍VIP会员：3.00元/人
                                    </ul>

<P>
                                    <ul>
<LI>加盟规则及合法广告条
<BR>
规则及合法广告条: &gt;&gt; <a href=# onClick="window.open('../../service/banner.htm','_Pravicy','width=520,height=500,menubar=0,scrollbars=1')">查看</a>
                                    </ul>
  

</TD>
</tr>

<tr><td align=center bgcolor="#FFFFFF">您的账号中的余额共为<font  color=red><%=money%></font>元</td></tr>
<tr><td align=center bgcolor="#FFFFFF">其中上次结算余额：<%=left_money%>元</td></tr>
<tr><td align=center bgcolor="#FFFFFF">链接访问数：<%=visit_counter%>人次</td></tr>
<tr><td align=center bgcolor="#FFFFFF">介绍普通会员人数：<%=join_counter%>人次</td></tr>
<tr><td align=center bgcolor="#FFFFFF">介绍VIP会员人数：<%=vip_join_counter%>人次</td></tr>
<FORM action="affiliate_ask_money.asp" method=POST id=form1 name=form1>
<%if money<100 then%>
<tr><td align=center bgcolor="#FFFFFF"><INPUT type="button" value="提出付费申请" id=1 name=1 onclick=javascript:alert("只有账户中金额超过100元时才能申请付费！") ></td></tr>
<%else%>
<tr><td align=center bgcolor="#FFFFFF"><INPUT type="submit" value="提出付费申请" id=submit1 name=submit1></td></tr>
<%end if%>
</FORM>
<FORM action="affiliate_unjoin.asp" method=POST id=form1 name=form1>
<tr><td align=center bgcolor="#FFFFFF"><INPUT type="submit" value="解除联盟" id=submit1 name=submit1></td>
                                    <td bgcolor="#FFFFFF"></td>
</tr>
</FORM>
</table>

<!--<HR Size=1>
-->

 <FORM action="affiliate_update.asp" method=post name=inputform onsubmit=return(checkform())>

 </form>

 <TABLE class=color_1 border=0 cellPadding=2 cellSpacing=1 width="98%">
                          <TBODY>
                           <TR bgcolor="#FFF8E1">
                            <TD width="20%" bgcolor="#FFFFFF">*您的真实性名： </TD>
                            <TD bgcolor="#FFFFFF"><input type=text name=name size=25 maxlength=50 value=<%=name%> >
                            </TD><TD bgcolor="#FFFFFF" >*请输入您的真实性名，不然我们给你汇款不能寄到 </TD></TR>
                           <TR bgcolor="#FFF8E1">
                            <TD width="20%" bgcolor="#FFFFFF">*您的主页： </TD>
                            <TD colspan=2 bgcolor="#FFFFFF"><input type=text name=homepage size=40 maxlength=50 value=<%=homepage%> >
                            </TD></TR>
                            <TR bgcolor="#FFF8E1">
                            <TD width="20%" bgcolor="#FFFFFF">主页简介： </TD>
                            <TD colspan=2 bgcolor="#FFFFFF"><input type=text name=homepage_info size=40 maxlength=190 value=<%=homepage_info%> >
                            </TD>
                            </TR>
                            <TR bgcolor="#FFF8E1">
                            <TD width="20%" bgcolor="#FFFFFF">*电子邮件： </TD>
                            <TD bgcolor="#FFFFFF"><input type=text name=email size=25 maxlength=50 value=<%=email%> >
                            </TD><TD bgcolor="#FFFFFF" >*方便联系： </TD>
                            </TR>
                            <TR bgcolor="#FFF8E1">
                            <TD width="20%" bgcolor="#FFFFFF">*您的详细地址： </TD>
                            <TD bgcolor="#FFFFFF"><input type=text name=address size=25 maxlength=50 value=<%=address%> >
                            </TD><TD bgcolor="#FFFFFF" >*请输入详实有效的地址，不然我们给你汇款不能寄到 </TD>
                            </TR>
                            <TR bgcolor="#FFF8E1">
                            <TD width="20%" bgcolor="#FFFFFF">*您的邮编： </TD>
                            <TD bgcolor="#FFFFFF"><input type=text name=postcode size=25 maxlength=20 value=<%=postcode%> >
                            </TD><TD bgcolor="#FFFFFF" >*请输入有效的邮编，不然我们给你汇款不能寄到 </TD>
                            </TR>
                            <TR bgcolor="#FFF8E1">
                            <TD width="20%" bgcolor="#FFFFFF">*您的电话或手机： </TD>
                            <TD bgcolor="#FFFFFF"><input type=text name=telephone size=25 maxlength=20 value=<%=telephone%> >
                            </TD><TD bgcolor="#FFFFFF" >*方便联系： </TD>
                            </TR>
                            <TR bgcolor="#FFF8E1">
                            <TD width="20%" bgcolor="#FFFFFF">备注： </TD>
                            <TD bgcolor="#FFFFFF"><TEXTAREA name=remark rows=3 wrap=PHYSICAL cols=40><%=remark%></TEXTAREA> 
                            </TD><TD bgcolor="#FFFFFF" >*可以填写其他的收款方式： </TD>
                            </TR>
  <tr> 
<td height=30 colspan=3 align=center bgcolor="#FFFFFF"> 
<input type=submit class=p1  name=Submit value="　更  新　">　　

</td>
</tr>                                                    


</form>
</table><%end if%><%else%>
                    </form>



<table align=center width=90%>
<tr>
                    <td>



                                                            <form name="form2">
                                                                <textarea name="formtextarea1" rows="33" cols="73">一、广东交友热线友情联盟 　　
1、广东交友热线友情联盟是指广东交友热线提供从您的网站到广东交友热线的多种图形和文本链接，计算您的链接所产生的pay-per-click, pay-per-lead的链接、注册会员和VIP会员数，并支付给联盟会员相应佣金的一种网络环境下的互惠互利的合作方式。 　　
2、非常友情联盟伙伴网站不得含有以下内容： 
* 任何色情或准色情文字、图片、连接、广告交换或相关信息； 
* 任何政治敏感内容，包括针对任何国家； 　　　　
* 含有非法的、不合规定的MP3内容(包括其他有关广告及页面链接)； 
* 任何可能影响计算机或网络安全的黑客行为或信息；
* 任何其它中国法律所不允许的内容。
3、联盟会员应当按照广东交友热线提供的方式在联盟网站显著位置建立到广东交友热线的链接。
4、联盟会员必须把广告代码完整嵌入申请的网页，不可擅自修改代码或在链接旁添加恶意煽动性言语。一经发现，不予支付联盟佣金。
5、对于在色情、反动页面上放置本联盟代码；以任何非正常方式点击banner或链接；或以任何其他不恰当行为(如散发色情反动邮件等)促销。一经发现，立即删除账号，不予支付联盟佣金。
6、广东交友热线有权警告和在不事先通知的前提下删除作弊网站。
7、广东交友热线有权根据网站的发展情况随时调整会员费和最低支付佣金底金，如有改变恕不另行通知。
8、联盟佣金是会员的收入。根据中华人民共和国税法的相关规定，收入获得者有纳税义务。当您加入到E网友情联盟中，说明您已经 *接受* 以上规定。如果违反以上规定，广东交友热线有权终止合作和拒付联盟佣金。本网站有权在必要时修改服务条款，本服务条款如有变动，不另行通知。本合作最终解释权和最终裁决权在本网站广东交友热线。
二、申请方式 
1、如果您还不是广东交友热线的注册用户，请先注册为用户，填写真实的个人数据，并开放个人主页；
2、进入[我的小屋]选择加入[E网友情联盟]。如果您完全同意本条款，请填写您相应信息，然后点击“提交”按钮进行提交，成功后，屏幕将会显示您的资料和一段代码。
3、提醒您务必牢记您的用户名以及密码，您需要使用它来查看您的有关记录以及修改您的资料。
三、佣金标准每点击链接访问 (pay-per-click) ：人民币0.00元 / 次，每介绍普通会员 (pay-per-lead) ：人民币0.10元 / 人 ，每介绍VIP会员 (pay-per-lead) ：人民币3.00元 / 人 
四、付费形式
我们会记录会员的IP地址并且在佣金结算时对每位会员的资料真实性进行检查。因此请不要伪造会员资料，我们会取消违反规定的账户和删除掉所有伪造的会员资料。当你的联盟佣金满8元，请及时在线提交付款请求。广东交友热线会在两个工作日内处理并寄出邮局汇款，我们也会以电子邮件的方式通知您。 
广东交友热线交友中心 </textarea>
                                                            </form>
</td>
</tr>
<tr ><form action="affiliate1.asp" method="post" name="comin"  >
<font color="#000000" size="3">
<td  align=center >
<%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_selected=rs("affiliate_selected")
 end if
  %>

<% if affiliate_selected=0 then%>
<INPUT type="button" value="下一步" id=button1 name=button1 onclick=javascript:alert("对不起！此功能暂时不开放！")>
<%elseif affiliate_selected=2 and Session("weight")=1 then%>
<INPUT type="button" value="下一步" id=button2 name=button2 onclick=javascript:alert("对不起！此功能只对VIP会员开放！")>
<%else%>
<input id=submit style="WIDTH: 96px; HEIGHT: 21px" value="下一步" type=submit size=29 name=submit>
<%end if%><%end if%>

</td>

</font>  
</form></tr>
</table>


</TD>                                            
                      </TR></TBODY></TABLE>
                      
                      
</td>
                                        </tr>
                                        </table>
                                    </div>
</TD></TR>
</TBODY></TABLE></td>
    </tr>
    <tr>
        <td width="769">                        <p align="center"><!--#include file="../copyright.asp" --></td>
    </tr>
</table>
<p>　</p>
</BODY>
</HTML>