cf_admin_manage_4.asp

支持多种播放器RealPlayer,MediaPlayer

b_3.style.display = "none";
b_4.style.display = "none";
b_5.style.display = "none";
b_6.style.display = "none";
b_7.style.display = "none";
c_1.style.display = "none";
c_2.style.display = "none";
c_3.style.display = "none";
c_4.style.display = "none";
}
function bshow(){
b_1.style.display = "";
b_2.style.display = "";
b_3.style.display = "";
b_4.style.display = "";
b_5.style.display = "";
b_6.style.display = "";
b_7.style.display = "";
c_1.style.display = "none";
c_2.style.display = "none";
c_3.style.display = "none";
c_4.style.display = "none";
}
function cshow(){
b_1.style.display = "none";
b_2.style.display = "";
b_3.style.display = "";
b_4.style.display = "";
b_5.style.display = "";
b_6.style.display = "";
b_7.style.display = "";
c_1.style.display = "";
c_2.style.display = "";
c_3.style.display = "";
c_4.style.display = "";

t1.innerHTML="SqlServer数据库IP：";
t2.innerHTML="SqlServer数据库名称：";
t3.innerHTML="SqlServer数据库连接用户名：";
t4.innerHTML="SqlServer数据库连接密码：";
  
}
function dshow(){
b_1.style.display = "none";
b_2.style.display = "";
b_3.style.display = "";
b_4.style.display = "";
b_5.style.display = "";
b_6.style.display = "";
b_7.style.display = "";
c_1.style.display = "";
c_2.style.display = "";
c_3.style.display = "";
c_4.style.display = "";

t1.innerHTML="Mysql数据库IP：";
t2.innerHTML="Mysql数据库名称：";
t3.innerHTML="Mysql数据库连接用户名：";
t4.innerHTML="Mysql数据库连接密码：";
}
</SCRIPT>


<%
Set Rs = Server.CreateObject("ADODB.Recordset")
Sql="Select * From CFFilm_Admin"
Rs.open Sql,Conn,1,1
%>
<table width="98%" align="center" class="tba">

<form name="form2" method="post" action="Admin.aspx?Action=sysrecsetsave">
    <tr> 
      <td colspan="2" bgcolor="#FFFFFF">如果你使用推广系统自带的会员注册功能请选择接口类型-系统自带,否则根据你网站的数据库类型选择相应的接口类型 </td>
    </tr>
<tr class="tba_tr_1"> 
      <td colspan="2"><div align="center"><strong>网站接口设置</strong></div></td>
    </tr>
    <tr> 
      <td width="30%"><div align="right">接口类型：</div></td>
      <td> <div align="left"> 
          <input type="radio" name="RegType" value="1"<%If Rs("RegType")=1 Then Response.Write " checked"%> onclick="ashow()">
          本系统自带 
          <input type="radio" name="RegType" value="2"<%If Rs("RegType")=2 Then Response.Write " checked"%> onclick="bshow()">
          Access数据库 
          <input type="radio" name="RegType" value="3"<%If Rs("RegType")=3 Then Response.Write " checked"%> onclick="cshow()">
          SQLSERVER数据库
          <input type="radio" name="RegType" value="4"<%If Rs("RegType")=4 Then Response.Write " checked"%> onclick="dshow()">
          MySql数据库</div></td>
    </tr>
    <tr id="b_1"> 
      <td><div align="right">ACCESS数据库文件路径：</div></td>
      <td><input name="AccessPath" type="text" id="AccessPath" value="<%=GetConVertStr(Rs("AccessPath"))%>" size="30">
        如数据库文件夹data.mdb放在网站根目录aa里的bb目录里,路径应该设置为/aa/bb/data.mdb</td>
    </tr>
    <tr id="c_1"> 
      <td><div align="right"><span id="t1">SqlServer数据库IP： </span></div></td>
      <td><input name="SqlServerIP" type="text" id="SqlServerIP" value="<%=GetConVertStr(rs("SqlServerIP"))%>" size="15"></td>
    </tr>
    <tr id="c_2"> 
      <td><div align="right"><span id="t2">SqlServer数据库名称：</span></div></td>
      <td><input name="SqlServerDbName" type="text" id="SqlServerDbName" value="<%=GetConVertStr(rs("SqlServerDbName"))%>" size="15"></td>
    </tr>
    <tr id="c_3"> 
      <td><div align="right"><span id="t3">SqlServer数据库连接用户名：</span></div></td>
      <td><input name="SqlServerLinkName" type="text" id="SqlServerLinkName" value="<%=GetConVertStr(rs("SqlServerLinkName"))%>" size="15"></td>
    </tr>
    <tr id="c_4"> 
      <td><div align="right"><span id="t4">SqlServer数据库连接密码：</span></div></td>
      <td><input name="SqlServerLinkPassword" type="password" id="SqlServerLinkPassword" value="<%=GetConVertStr(rs("SqlServerLinkPassword"))%>" size="15"> 
      </td>
    </tr>
    <tr id="b_2"> 
      <td><div align="right">存放注册用户的表名：</div></td>
      <td><input name="SaveRegTable" type="text" id="SaveRegTable" value="<%=GetConVertStr(Rs("SaveRegTable"))%>" size="15"></td>
    </tr>
    <tr id="b_3"> 
      <td><div align="right">存放注册用户名称的字段名：</div></td>
      <td><input name="SaveRegUserName" type="text" id="SaveRegUserName" value="<%=GetConVertStr(Rs("SaveRegUserName"))%>" size="15"></td>
    </tr>
    <tr id="b_4"> 
      <td><div align="right">存放注册用户密码的字段名：</div></td>
      <td><input name="SaveRegPassword" type="text" id="SaveRegPassword" value="<%=GetConVertStr(Rs("SaveRegPassword"))%>" size="15"></td>
    </tr>
    <tr id="b_5"> 
      <td><div align="right">存放注册用户密码加密方式:</div></td>
      <td><input name="PassWordType" type="radio" value="1"<%If Rs("PassWordType")=1 Then Response.Write " checked"%>>
        没有加密 
        <input type="radio" name="PassWordType" value="2"<%If Rs("PassWordType")=2 Then Response.Write " checked"%>>
        经过了16位Md5加密 
        <input type="radio" name="PassWordType" value="3"<%If Rs("PassWordType")=3 Then Response.Write " checked"%>>
        经过了32位Md5加密</td>
    </tr>
    <tr 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 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> 
      <td colspan="2"> <div align="center"> 
          <input type="submit" name="Submit322" value="修改">
          　　 
          <input type="reset" name="Submit5232" value="取消">
        </div></td>
    </tr>  </form>

    <tr> 
      <td colspan="2" class="td_1"><strong>接口选择说明：</strong></td>
    </tr>
	<tr> 
      <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>
      
    <td colspan="2" class="td_1"><strong>数据库接口设置是否正确的测试结果：<a name="sysrecsetresultview"></a></strong></td>
    </tr>
    <tr> 
      <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="UserName" type="text" id="UserName"> </td>
          </tr>
        
        <tr> 
          <td>密　码： <input name="Password" type="password" 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="qqmodify" 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 CFFilm_Admin"
Rs.open Sql,Conn,1,1
%>
<table width="98%" align="center" class="tba">
<form name="form2" method="post" action="Admin.aspx?Action=qqmodifysave">