📄 qqcf_admin_manage_4.asp

📁 免费电影程序:系统做免费
💻 ASP
📖 第 1 页 / 共 3 页
字号:
上一页 1 23
          <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="User_Name" type="text" id="User_Name"> </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="QQCF.aspx?Action=qqmodifysave">
      <tr class="tba_tr_1"> 
        <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="QQShow" type="radio" value="-1"<%If Rs("QQShow")=-1 Then Response.Write " Checked"%> onclick="ashow_1()">
          是 
          <input name="QQShow" type="radio" value="0"<%If Rs("QQShow")=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="pwdmodify" Then%>
<%
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="QQCF.aspx?action=pwdmodifysave">
   <tr class="tba_tr_1"> 
      <td colspan="2"><div align="center"><strong>输入原管理员密码</strong></div></td>
    </tr>
    <tr>
      <td><div align="right">原管理员用户名：</div></td>
      <td><%=Rs("Admin")%></td>
    </tr>
    <tr> 
      <td><div align="right">请输入原管理密码：</div></td>
      <td><input name="Pwd_Old" type="password" id="Pwd_Old" value="" size="15"></td>
    </tr>
    <tr class="tba_tr_1"> 
      <td colspan="2"><div align="center"><strong>新管理员名称和密码</strong></div></td>
    </tr>
    <tr> 
      <td width="33%"><div align="right">新管理员名称：</div></td>
      <td width="67%"><input name="Admin" type="text" id="admin" value="<%=Rs("Admin")%>" size="15"></td>
    </tr>
    <tr> 
      <td><div align="right">新密码：</div></td>
      <td><input name="Pwd" type="password" id="Pwd" size="15"></td>
    </tr>
    <tr> 
      <td><div align="right">新密码确认： </div></td>
      <td><input name="Pwd2" type="password" id="Pwd2" size="15"></td>
    </tr>
    <tr> 
      <td>&nbsp;</td>
      <td><input type="submit" name="Submit323" value="修改">
        　　 
        <input type="reset" name="Submit5233" value="取消"> </td>
    </tr>
  </form>
</table>
<%End If%>
上一页 1 23
💿 文件大小 1573 K
👤 上传用户 xulei147
📂 所属分类 DSP编程
🏷️ 相关标签

#电影 #程序
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -