qqcf_admin_manage_4.asp

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

    <tr bgcolor="#FFFFFF" id="b_6"> 
      <td height="24"><div align="right">你的网站注册用户页面网址:</div></td>
      <td><input name="RegUrl" type="text" id="RegUrl" value="<%=GetConVertStr(Rs("RegUrl"))%>" size="50"></td>
    </tr>
    <tr bgcolor="#FFFFFF" id="b_7"> 
      <td><div align="right">你的网站用户登陆页面网址:</div></td>
      <td><input name="LoginUrl" type="text" id="LoginUrl" value="<%=GetConVertStr(rs("LoginUrl"))%>" size="50"></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td colspan="2"> <div align="center"> 
          <input type="submit" name="Submit322" value="修改">
          　　 
          <input type="reset" name="Submit5232" value="取消">
        </div></td>
    </tr>  </form>

    <tr bgcolor="#FFFFFF"> 
      <td colspan="2" class="td_1"><strong>接口选择说明：</strong></td>
    </tr>
	<tr bgcolor="#FFFFFF"> 
      <td colspan="2" class="td_1">
          本系统自带:原先网站没有会员注册系统或者不想和原先的注册系统集成在一起使用的网站则选择此项<br>
          Access数据库: 你的网站使用Access数据库并自带会员注册系统的网站选择此项<br>
          SQLSERVER数据库:你的网站使用Sqlserver数据库并自带会员注册系统的网站选择此项<br>
		  Mysql数据库:你的网站使用Mysql数据库并自带会员注册系统的网站选择此项
        </td>
    </tr>

    <%If RsSet("RegType")=2 Or RsSet("RegType")=3 Then%>
    <tr bgcolor="#FFFFFF">
      
    <td colspan="2" class="td_1"><strong>数据库接口设置是否正确的测试结果：<a name="sysrecsetresultview"></a></strong></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td colspan="2" class="td_1">
<%
If RsSet("RegType")=2 Then
 Connstr_Rec="DBQ="+server.mappath(RsSet("AccessPath"))+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
 Set conn_Rec= Server.CreateObject ("ADODB.Connection")
 Conn_Rec.Open Connstr_Rec 
ElseIf RsSet("RegType")=3 Then
 Connstr_rec="DRIVER={SQL Server};SERVER="&RsSet("SqlServerIP")&";UID="&RsSet("SqlServerLinkName")&";PWD="&RsSet("SqlServerLinkPassword")&";DATABASE="&RsSet("SqlServerDbName")&""
 Set Conn_Rec= Server.CreateObject ("ADODB.Connection")
 Conn_Rec.Open Connstr_rec
End If

Pass=1
If Err Then Pass=0

Set Rs = Server.CreateObject("ADODB.Recordset")
Sql="Select Count(*) From "&RsSet("SaveRegTable")
Rs.Open Sql,Conn_Rec,1,1
ReguserTotal=Rs(0)
 
Set Rs = Server.CreateObject("ADODB.Recordset")
Sql="Select Count("&RsSet("SaveRegUserName")&") From "&RsSet("SaveRegTable")
Rs.Open Sql,Conn_Rec,1,1
ReguserTotal_2=Rs(0)
 
Set Rs = Server.CreateObject("ADODB.Recordset")
Sql="Select Count("&RsSet("SaveRegPassword")&") From "&RsSet("SaveRegTable")
Rs.Open Sql,Conn_Rec,1,1
ReguserTotal_3=Rs(0) 

Set Rs = Server.CreateObject("ADODB.Recordset")
Sql="Select Top 1 "&RsSet("SaveRegUserName")&","&RsSet("SaveRegPassword")&" From "&RsSet("SaveRegTable")
Rs.Open Sql,Conn_Rec,1,1
RegUserName=Rs(0)
RegUserPassword=Rs(1)
 
If Len(RegUserPassword)=16 Then
 Response.Write "其中一个用户密码长度：16位,可能是16位Md5加密方式!<br><br>"
ElseIf Len(RegUserPassword)=32 Then
 Response.Write "其中一个用户密码长度：32位,可能是32位Md5加密方式!<br><br>"
Else
 Response.Write "其中一个用户密码长度："&Len(RegUserPassword)&"位!<br><br>"
End if
%>
        注册用户数:<%=ReguserTotal%>,其中一个注册用户名是<%=RegUserName%><br>
        <br>
      <font color="#FF0000"><strong>测试结果：</strong></font> 
<%
If RsSet("RegType")=2 And Pass=0 Then Response.write "ACCESS数据库文件路径设置有误!"
If RsSet("RegType")=3 And Pass=0 Then Response.write "SQLSERVER数据库IP或数据库名称或连接用户名或连接密码设置有误!"

If Pass=1 And Len(Cstr(ReguserTotal))=0 Then Response.write "数据库表名设置错误，请重新设置!"
If Pass=1 And Len(Cstr(ReguserTotal))>0 And Len(Cstr(ReguserTotal_2))=0 Then Response.write "数据库用户名字段设置错误，请重新设置!<br>"
If Pass=1 And Len(Cstr(ReguserTotal))>0 And Len(Cstr(ReguserTotal_3))=0 Then Response.write "数据库密码字段设置错误，请重新设置!<br>"

If Pass=1 And Len(Cstr(ReguserTotal))>0 And Len(Cstr(ReguserTotal_2))>0 And Len(Cstr(ReguserTotal_3))>0 Then 
 Response.write "数据库接口大致设置成功，还有密码的加密方式没有验证，请在以下用一个注册用户名和密码做登陆测试，可以登陆的话就一切正常，否则可能是密码的加密方式设置有错误!"
 Login=1
End If
%>
<%If Login=1 Then%>
      <table border="0" cellspacing="1" cellpadding="3">
        <form name="form3" method="post" action="?Action=sysreclogintest">
          <tr>
            <td><strong>登陆测试</strong></td>
          </tr>
          <tr> 
            <td>用户名： <input name="User_Name" type="text" id="User_Name"> </td>
          </tr>
        
        <tr> 
          <td>密　码： <input name="Password" type="text" id="Password"></td>
        </tr>
        <tr> 
          <td><div align="center">
                <input type="submit" name="Submit2" value="测试">
              </div></td>
        </tr></form>
      </table>
<%End If'结束login%>
</td>
    </tr>
    <%End If'结束RegType%>

</table>
<%End If%>

<%If Action="sysadcode" Then%>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5">
  <tr bgcolor="#FFFFFF"> 
    <td colspan="2"><font color="#FF0000"><strong>把以下代码放在你的网站上，让更多人使用推广系统为你推广</strong></font></td>
  </tr>
  <tr bgcolor="#FFFFFF"> 
    <td colspan="2"><strong>用户管理页接口调用方法1{选择系统自带选项无需接口]:</strong>(Iframe方式调用,固定样式,可以放在你的网站主页页面上,如首页等) 

</td>
  </tr>
  <tr bgcolor="#FFFFFF"> 
    <td colspan="2">
<textarea name="rec2" cols="80" rows="5"><%If RsSet("RegType")=1 Then%><script>document.write ('<iframe src=<%=tmp%>qqcf_rec.asp frameBorder=0 width=120 marginheight=0 marginwidth=0 scrolling=no id="test"></iframe>');</script>
<%ElseIf RsSet("RegType")=2 Or RsSet("RegType")=3 Then%><script>document.write ('<iframe src=<%=tmp%>qqcf_rec.asp?user_name=传递用户名过来&password=传递密码过来 frameBorder=0 width=120 marginheight=0 marginwidth=0 scrolling=no id="test"></iframe>');</script><%End If%><script type="text/javascript">
 var iframeids=["test"]
 var iframehide="yes"
 function dyniframesize() 
 {
  var dyniframe=new Array()
  for (i=0; i<iframeids.length; i++)
  {
   if (document.getElementById)
   {
    dyniframe[dyniframe.length] = document.getElementById(iframeids[i]);
    if (dyniframe[i] && !window.opera)
    {
     dyniframe[i].style.display="block"
     if (dyniframe[i].contentDocument && dyniframe[i].contentDocument.body.offsetHeight)
      dyniframe[i].height = dyniframe[i].contentDocument.body.offsetHeight; 
     else if (dyniframe[i].Document && dyniframe[i].Document.body.scrollHeight)
      dyniframe[i].height = dyniframe[i].Document.body.scrollHeight;
    }
   }
   if ((document.all || document.getElementById) && iframehide=="no")
   {
    var tempobj=document.all? document.all[iframeids[i]] : document.getElementById(iframeids[i])
    tempobj.style.display="block"
   }
  }
 }

 if (window.addEventListener)
 window.addEventListener("load", dyniframesize, false)
 else if (window.attachEvent)
 window.attachEvent("onload", dyniframesize)
 else
 window.onload=dyniframesize
</script></textarea>
<input name="submit" type="submit" onClick=copy('rec2') value="复制">
</td>
  </tr>
  <tr bgcolor="#FFFFFF"> 
    <td colspan="2"><strong>接口效果预览:</strong><a href="?Action=sysadview&style=1"><font color="#FF0000">点击这里查看效果</font></a></td>
  </tr>
  <tr bgcolor="#FFFFFF"> 
    <td colspan="2"><strong>用户管理页接口调用方法2{选择系统自带选项无需接口]:</strong><strong>(javascripe方式调用,浮动样式,可以放在你的网站主页页面上,如首页等)</strong></td>
  </tr>
  <tr bgcolor="#FFFFFF"> 
    <td colspan="2"><textarea name="rec3" cols="80" rows="5">
<%If RsSet("RegType")=1 Or RsSet("RegType")=4 Then
 FloatUrl="<script src='"&tmp&"qqcf_rec.asp?action=float&rectype=0'></script>"
ElseIf RsSet("RegType")=2 Or RsSet("RegType")=3 Then
 FloatUrl="<script src='"&tmp&"qqcf_rec.asp?action=float&rectype=1&user_name=传递用户名过来&password=传递密码过来'></script>"
End If
Response.Write FloatUrl%>
</textarea> <strong> 
      <input name="submit2" type="submit" onClick=copy('rec3') value="复制">
      </strong></td>
  </tr>
  <tr bgcolor="#FFFFFF"> 
    <td colspan="2"><strong>接口效果预览:</strong><a href="?Action=sysadview&style=2"><font color="#FF0000">点击这里查看效果</font></a></td>
  </tr>
</table>

<%End If%>

<%If Action="sysadview" Then%>
  <table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5">
  <%If Int(Request("Style"))=1 Then%>
  <tr>
      <td><div align="center"><strong>固定样式,插入页面适当位置即可</strong></div></td>
  </tr>
  <tr>
    <td bgcolor="#FFFFFF"><%If RsSet("RegType")=1 Then%> 
<script>document.write ('<iframe src=<%=Tmp%>qqcf_rec.asp frameBorder=0 width=120 marginheight=0 marginwidth=0 scrolling=no id="test"></iframe>');</script>
<%ElseIf RsSet("RegType")=2 Or RsSet("RegType")=3 Then%> 
<script>document.write ('<iframe src=<%=Tmp%>qqcf_rec.asp?user_name=传递用户名过来&password=传递密码过来 frameBorder=0 width=120 marginheight=0 marginwidth=0 scrolling=no id="test"></iframe>');</script>
<%End If%> 
<script type="text/javascript">
 var iframeids=["test"]
 var iframehide="yes"
 function dyniframesize() 
 {
  var dyniframe=new Array()
  for (i=0; i<iframeids.length; i++)
  {
   if (document.getElementById)
   {
    dyniframe[dyniframe.length] = document.getElementById(iframeids[i]);
    if (dyniframe[i] && !window.opera)
    {
     dyniframe[i].style.display="block"
     if (dyniframe[i].contentDocument && dyniframe[i].contentDocument.body.offsetHeight)
      dyniframe[i].height = dyniframe[i].contentDocument.body.offsetHeight; 
     else if (dyniframe[i].Document && dyniframe[i].Document.body.scrollHeight)
      dyniframe[i].height = dyniframe[i].Document.body.scrollHeight;
    }
   }
   if ((document.all || document.getElementById) && iframehide=="no")
   {
    var tempobj=document.all? document.all[iframeids[i]] : document.getElementById(iframeids[i])
    tempobj.style.display="block"
   }
  }
 }

 if (window.addEventListener)
 window.addEventListener("load", dyniframesize, false)
 else if (window.attachEvent)
 window.attachEvent("onload", dyniframesize)
 else
 window.onload=dyniframesize
</script></td>
  </tr>
  <%End If%>
  
<%If Int(Request("Style"))=2 Then%>
  <tr>
      <td><div align="center"><strong>浮动样式,插入页面&lt;/body&gt;标签上面即可</strong></div></td>
  </tr>
  <tr>
    <td bgcolor="#FFFFFF">
<%For I=0 To 50
  Response.Write "<BR>"
Next%>
<%If RsSet("RegType")=1 Then
 FloatUrl="<script src='"&Tmp&"qqcf_rec.asp?action=float&rectype=0'></script>"
ElseIf RsSet("RegType")=2 Or RsSet("RegType")=3 Then
 FloatUrl="<script src='"&Tmp&"qqcf_rec.asp?action=float&rectype=1&user_name=传递用户名过来&password=传递密码过来'></script>"
End If
Response.Write FloatUrl%></td>
  </tr>
  <%End If%>
</table>
<%End If%>
  
<%If Action="qqmanage" Then%>
<SCRIPT>
function ashow_1(){
a_1.style.display = "";
a_2.style.display = "";
}
function ashow_2(){
a_1.style.display = "none";
a_2.style.display = "none";
}
</SCRIPT>
<%
Set Rs = Server.CreateObject("ADODB.Recordset")
Sql="Select * From WWW_QQCF_COM_CfWztg_Admin"
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=qqmodifysave">
      <tr bgcolor="D6DFF5"> 
        <td colspan="2"><div align="center"><strong>请输入你的客户服务QQ</strong></div></td>
      </tr>
      <tr bgcolor="#FFFFFF">
        <td><div align="right">是否启用QQ在线支持面板：</div></td>
        <td><input name="QQ_State" type="radio" value="-1"<%If Rs("QQ_State")=-1 Then Response.Write " Checked"%> onclick="ashow_1()">
          是 
          <input name="QQ_State" type="radio" value="0"<%If Rs("QQ_State")=0 Then Response.Write " Checked"%> onclick="ashow_2()">
          否</td>
      </tr>
      <tr bgcolor="#FFFFFF" id="a_1"> 
        <td width="33%"><div align="right">QQ号码：</div></td>
        <td><input name="QQ_Code" type="text" id="admin" value="<%=rs("QQ_Code")%>" size="50"></td>
      </tr>
      <tr bgcolor="#FFFFFF" id="a_2"> 
        <td>&nbsp;</td>
        <td>如果是多个QQ，请用英文状态下的逗号分隔</td>
      </tr>
      <tr bgcolor="#FFFFFF"> 
        <td>&nbsp;</td>
        <td><input type="submit" name="Submit323" value="修改">
          　　 
          <input type="reset" name="Submit5233" value="取消"> </td>
      </tr>
    </form>
  </table>

<%End If%>

<%If Action="emailserverset" Then%>
<SCRIPT>
function ashow_1(){
a_1.style.display = "none";
a_2.style.display = "none";
a_3.style.display = "none";
a_4.style.display = "none";
}