qqcf_manage_3.asp

功 能： 1.系统分别为每个网站注册会员分配了一个推广链接

	<%
	MyArray=Split(Ad_SonAd,",")
	MyStr="<br>广告说明：此组轮播广告包含广告分别ID为"&Ad_SonAd&"的"&Ubound(MyArray)+1&"个广告"
	Response.write MyStr
	%>
	</td>
    <td><input type="submit" name="Submit3" value="预览和获得此广告代码" onclick="location.href='?Action=adcodeget&Ad_Class=-<%=I%>'" style='width:140px'></td>
  </tr>
<%End If%>
<%Next%>

<%End If'结束轮循广告%>

</table>
<%End If%>

<%If Action="adcodeget" And Int(Request("Ad_Class"))=1 Then%>
<%
ID=Request("ID")
Set Rs = Server.CreateObject("Adodb.RecordSet")
Sql="Select * From WWW_QQCF_COM_CfWztg_AD where ID="&ID
Rs.Open Sql,Conn,1,1
%>
<table width="100%" align="center" cellpadding="2" cellspacing="1">
  <tr> 
    <td bgcolor="#FFFFFF"><strong> 代码1：</strong><%
If RsSet("PutRange")=1 Then
 Response.Write "(可以发布在任何地方让别人点击即可得分,如网站，论坛，QQ)"
ElseIf RsSet("PutRange")=2 Then
 Response.Write "(可以发布在任何网页让别人点击即可得分，如网站，论坛，但发在QQ上不能得分)"
ElseIf RsSet("PutRange")=3 Then
 Response.Write "(可以发布在规定网站上才有效,<a href='?Action=putsiteview'><b>查看规定网站列表</b></a>)"
End If
%></td>
  </tr>
  <tr>
    <td bgcolor="#FFFFFF"><textarea name="ad<%=Rs("ID")%>" cols="80" rows="5"><%=Rs("Ad")%><%=Tmp&"cf.asp?"&Rs("ID")&"&"&User_Name%></textarea>
      <br>
      <input type="submit" name="Submit4" value="复制代码" onClick=copy('ad<%=Rs("ID")%>')>
      <input type="submit" name="Submit5" value="　返回　" onClick="javascript:history.go(-1);"></td>
  </tr>
  <tr> 
    <td bgcolor="#FFFFFF">效果:</td>
  </tr>
  <tr> 
    <td bgcolor="#FFFFFF"><a href=<%=Tmp&"cf.asp?"&Rs("ID")&"&"&User_Name%> target=_blank><%=Rs("Ad")%><%=Tmp&"cf.asp?"&Rs("ID")&"&"&User_Name%></a></td>
  </tr>
  <tr> 
    <td bgcolor="#FFFFFF"><strong> </strong><strong>代码2：</strong>以UBB代码发布(可以发布在以UBB发贴方式的论坛上)</td>
  </tr>
  <tr> 
    <td bgcolor="#FFFFFF"><textarea name="ad<%=Rs("ID")%>_2" cols="80" rows="5">[url=<%=Tmp&"cf.asp?"&Rs("ID")&"&"&User_Name%>]<%=Rs("Ad")%>[/url]</textarea> 
      <br>
	  <input type="submit" name="Submit4" value="复制代码" onClick=copy('ad<%=Rs("ID")%>_2')></td>
  </tr>
  <tr> 
    <td bgcolor="#FFFFFF">效果：</td>
  </tr>
  <tr> 
    <td bgcolor="#FFFFFF"><a href="<%=Tmp&"cf.asp?"&Rs("ID")&"&"&User_Name%>" target="_blank"><%=Rs("Ad")%></a></td>
  </tr>
  <tr> 
    <td bgcolor="#FFFFFF"><strong> </strong><strong>代码3：</strong>以Html代码发布 (可以发布在网页上或Html发贴方式的论坛里)</td>
  </tr>
  <tr> 
    <td bgcolor="#FFFFFF"><textarea name="ad<%=Rs("ID")%>_3" cols="80" rows="5"><a href="<%=Tmp&"cf.asp?"&Rs("ID")&"&"&User_Name%>" target="_blank"><%=Rs("Ad")%></a></textarea> 
      <br>
	  <input type="submit" name="Submit4" value="复制代码" onClick=copy('ad<%=Rs("ID")%>_3')></td>
  </tr>
  <tr> 
    <td bgcolor="#FFFFFF">效果：</td>
  </tr>
  <tr> 
    <td bgcolor="#FFFFFF"><a href="<%=Tmp&"cf.asp?"&Rs("ID")&"&"&User_Name%>" target="_blank"><%=Rs("Ad")%></a></td>
  </tr>
</table>
<%End If%>


<%If Action="adcodeget" And Int(Request("Ad_Class"))=2 Then%>
<%
ID=Request("ID")
Set Rs = Server.CreateObject("Adodb.RecordSet")
Sql="Select * From WWW_QQCF_COM_CfWztg_AD where ID="&ID
Rs.Open Sql,Conn,1,1

If Instr(lcase(Rs("AD")),"http://")=0 Then
 ImgPath=Tmp&Rs("AD")
Else
 ImgPath=Rs("AD")
End if
%>
  <table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#FFFFFF">
     <tr> 
      
    <td><strong> 代码1：</strong> (可以发布在UBB发贴方式的论坛上)</td>
    </tr>
    <tr> 
      <td>
	  <textarea name="ad<%=Rs("ID")%>_2" cols="80" rows="5">[url=<%=Tmp&"cf.asp?"&Rs("ID")&"&"&User_Name%>][img]<%=ImgPath%>[/img][/url]</textarea> 
        <br>
		<input type="submit" name="Submit4" value="复制代码" onClick=copy('ad<%=Rs("ID")%>_2')>
		<input type="submit" name="Submit5" value="　返回　" onClick="javascript:history.go(-1);">
		</td>
    </tr>
    <tr>
      <td>效果：</td>
    </tr>
	    <tr>
      <td><a href="<%=Tmp&"cf.asp?"&Rs("ID")&"&"&User_Name%>" target="_blank"><img src="<%=ImgPath%>" border="0"></a></td>
    </tr>
    <tr> 
      
    <td><strong> </strong> <strong>代码2：</strong>(可以发布在Html发贴方式的论坛上)</td>
    </tr>
    <tr> 
      <td><textarea name="ad<%=Rs("ID")%>_3" cols="80" rows="5"><a href="<%=Tmp&"cf.asp?"&Rs("ID")&"&"&User_Name%>" target="_blank"><img src="<%=ImgPath%>" border="0"></a></textarea> 
        <br>
		<input type="submit" name="Submit4" value="复制代码" onClick=copy('ad<%=Rs("ID")%>_3')>
		</td>
    </tr>
	
	    <tr>
      
    <td>效果：</td>
    </tr>
	
		    <tr>
      <td><a href="<%=Tmp&"cf.asp?"&Rs("ID")&"&"&User_Name%>" target="_blank"><img src="<%=ImgPath%>" border="0"></a></td>
    </tr>
	

  </table>
<%End If%>


<%If Action="adcodeget" And (Int(Request("Ad_Class"))=3  Or Int(Request("Ad_Class"))=4  Or Int(Request("Ad_Class"))=5  Or Int(Request("Ad_Class"))=6) Then%>
<%
ID=Request("ID")
Set Rs = Server.CreateObject("Adodb.RecordSet")
Sql="Select * From WWW_QQCF_COM_CfWztg_AD where ID="&ID
Rs.Open Sql,Conn,1,1
%>
  
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#FFFFFF">
  <tr> 
    <td> <strong>代码</strong>：</td>
  </tr>
  <tr>
    <td><textarea name="ad<%=Rs("ID")%>" cols="80" rows="5"><script src="<%=Tmp&"cf.asp?action=getad&ad_id="&Rs("ID")&"&user_name="&User_Name%>"></script></textarea> 
      <br>
	  <input type="submit" name="Submit4" value="复制代码" onClick=copy('ad<%=Rs("ID")%>')>
	  <input type="submit" name="Submit5" value="　返回　" onClick="javascript:history.go(-1);">
	  </td>
  </tr>
  <tr> 
    <td>效果：</td>
  </tr>
  <tr> 
    <td><script src="<%=Tmp&"cf.asp?action=getad&ad_id="&Rs("ID")&"&user_name="&User_Name%>"></script></td>
  </tr>
</table>
<%End If%>


<%If Action="adcodeget" And (Int(Request("Ad_Class"))=-1  Or Int(Request("Ad_Class"))=-2  Or Int(Request("Ad_Class"))=-3) Then%>
<%
Ad_Class=Int(Request("Ad_Class"))
%>
  
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#FFFFFF">
  <tr> 
    <td> <strong>代码</strong>：</td>
  </tr>
  <tr>
    <td><textarea name="ad<%=Rs("ID")%>" cols="80" rows="5"><script src="<%=Tmp&"cf.asp?action=getcyclead&cycleadid="&Abs(Ad_Class)&"&user_name="&User_Name%>"></script></textarea> 
      <br>
	  <input type="submit" name="Submit4" value="复制代码" onClick=copy('ad<%=Rs("ID")%>')>
	  <input type="submit" name="Submit5" value="　返回　" onClick="javascript:history.go(-1);">
	  </td>
  </tr>
  <tr> 
    <td>效果：</td>
  </tr>
  <tr> 
    <td><script src="<%=Tmp&"cf.asp?action=getcyclead&cycleadid="&Abs(Ad_Class)&"&user_name="&User_Name%>"></script></td>
  </tr>
</table>
<%End If%>

<%If Action="putsiteview" Then%>          
<table width="100%" height="20" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5">
  <tr bgcolor="D6DFF5"> 
    <td bgcolor="#FFFFFF"><strong>直接文字或直接图片类型的广告只允许在以下网站发布</strong></td>
  </tr>
  <tr bgcolor="D6DFF5">
    <td bgcolor="#FFFFFF"><%=RsSet("PutSite")%></td>
  </tr>
</table>
<%End If%>

<%If Action="usersitelist" Then%>

<%
Sql="Select * From WWW_QQCF_COM_CfWztg_UserSite Where User_Name='"&User_Name&"' Order By ID Desc"
Set Rs = Server.CreateObject("Adodb.RecordSet")
Rs.Open Sql,Conn,1,1
%>
          
<table width="100%" height="20" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5">
  <tr bgcolor="D6DFF5"> 
    <td colspan="4" bgcolor="#FFFFFF">
      <input type="submit" name="Submit" value="增加要审核的网站" onClick="location.href='?Action=usersiteadd'"></td>
  </tr>
  <tr bgcolor="D6DFF5"> 
    <td><div align="center">序 号</div></td>
    <td><div align="center">网址</div></td>
    <td><div align="center">审核状态</div></td>
    <td><div align="center">时 间</div></td>
  </tr>
  <%
While Not Rs.Eof
I=I+1
%>
  <tr
<%
If I Mod 2 = 0 Then
 Response.Write " bgcolor = '#ffffff'"
Else
 Response.Write " bgcolor = '#e8e8e8'"
End If
%>> 
    <td height="18"><div align="center"><%=I%></div></td>
    <td><div align="center"><%=Rs("SiteUrl")%></div></td>
    <td><div align="center"><%
	If Rs("SiteState")=1 Then
	 Response.Write "审核中"
	ElseIf Rs("SiteState")=2 Then
	 Response.Write "审核成功"
	ElseIf Rs("SiteState")=3 Then
	 Response.Write "审核失败"
	End if%></div></td>
    <td><div align="center"><%=Rs("AddDate")%></div></td>
  </tr>
  <%
Rs.MoveNext
Wend%>
</table>
<%End If%>

<%If Action="usersiteadd" Then%>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5">
  <form name="form2" method="post" action="?action=usersiteaddsave">
    <tr>
      <td colspan="2"><div align="center"><strong>增加审核网址</strong></div></td>
    </tr>
    <tr bgcolor="#FFFFFF">
      <td width="100"><div align="right">网站网址：</div></td>
                <td class="td_1"><input name="SiteUrl" type="text" id="SiteUrl" size="30">
        <br>
        (说明：如你的网站网址是http://www.qqcf.com,这里只要填写http://www.qqcf.com，不用填写http://qqcf.com，在http://qqcf.com上点击的广告一样有效,但如果你还在http://bbs.qqcf.com上投放了广告,你还需要加入http://bbs.qqcf.com网址的审核，否则在http://bbs.qqcf.com下点击过来的广告就记录不了了!在审核过的网址下的任何主目录或子目录下的网页上点击广告都有效，这里只要填写域名就可以!)</td>
    </tr>
    <tr bgcolor="#FFFFFF">
      <td colspan="2"><div align="center">
          <input type="submit" name="Submit3322" value="增加">
      </div></td>
    </tr>
  </form>
</table>
<%End IF%>

<%If Action="modifypassword" Then%>

<%If RsSet("RegType")=1 Then%>
  <table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5">
          <form name="form3" method="post" action="?Action=modifypasswordsave">
            <tr> 
              <td height="19" colspan="2"> <div align="center"><strong>修改密码(带*为必填项）</strong></div></td>
            </tr>
            <tr align="center">
              <td align="left" bordercolor="#33CCCC" bgcolor="#FFFFFF"><div align="right">请输入原密码：</div></td>
              <td align="left" bgcolor="#FFFFFF">
                <input name="password_old" type="password" id="password3" size="15">
                <font color="#0000FF">*</font></td>
            </tr>
            <tr align="center"> 
              <td width="150" align="left" bordercolor="#33CCCC" bgcolor="#FFFFFF"><div align="right">请输入新密码：</div></td>
              <td width="654" align="left" bgcolor="#FFFFFF">
                <input name="password_new_1" type="password" id="password" size="15">
                <font color="#0000FF">*</font></td>
            </tr>
            <tr align="center"> 
              <td align="left" bordercolor="#33CCCC" bgcolor="#FFFFFF"><div align="right">请确认新密码：</div></td>
              <td align="left" bgcolor="#FFFFFF">
                <input name="password_new_2" type="password" id="password2" size="15">
                <font color="#0000FF">*</font></td>
            </tr>
            <tr align="center"> 
              <td align="left" bordercolor="#33CCCC" bgcolor="#FFFFFF">&nbsp;</td>
              <td align="left" bgcolor="#FFFFFF">
                <input type="submit" name="Submit2" value="修　改" >
                　 
                <input type="reset" name="Submit22" value="取　消" >
                </td>
            </tr>
          </form>
        </table>
<%Else%>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5">

  <tr align="center"> 
    <td align="left" bordercolor="#33CCCC" bgcolor="#FFFFFF"><div align="center">
        <input type="submit" name="Submit3" value="请到网站上登陆后修改密码" onclick="window.open('<%=RsSet("LoginUrl")%>');">
      </div></td>
  </tr>

</table>
<%End If%>
<%End if%>

<%If Action="modifydata" Then%>
          <script language="JavaScript">
function modifyuser()
{
var emailReg = /^[_a-z0-9]+@([_a-z0-9]+\.)+[a-z0-9]{2,3}$/;
var pwdReg = /[a-z0-9]$/;

if ((document.form2.email.value)=="")
{
window.alert ('email必须填写');
document.form2.email.focus();
return false;
}


if ((!emailReg.test(document.form2.email.value))&&(document.form2.email.value!=''))
{
window.alert ('email的格式不正确');
document.form2.email.focus();
return false;
}

if ((document.form2.passwordanswer.value)=="")
{
window.alert ('密码回答答案必须填写');
document.form2.passwordanswer.focus();
return false;
}
else
return true;
}
</script>

<%Set Rs= Server.CreateObject("Adodb.RecordSet")
Sql="Select * From WWW_QQCF_COM_CfWztg_RegUser Where User_Name='"&User_Name&"'"
Rs.Open Sql,Conn,1,1%>

        
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5">
  <form name="form2" method="post" action="?Action=modifydatasave" onsubmit="return modifyuser()">
    <tr> 
      <td height="19" colspan="2"> <div align="center"><strong>修改注册资料(带*为必填项）</strong></div></td>
    </tr>
    <tr align="center"> 
      <td width="150" align="left" bordercolor="#33CCCC" bgcolor="#FFFFFF"><div align="right">Email：</div></td>
      <td width="654" align="left" bgcolor="#FFFFFF"> <input name="email" type="text"  value="<%=GetConVertStr(Rs("email"))%>" size="20"> 
        <font color="#0000FF">*</font></td>