⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 qqcf_admin_manage_4.asp

📁 免费电影程序:系统做免费
💻 ASP
📖 第 1 页 / 共 3 页
字号:
🔍
123 
        <input name="RegState" type="radio" value="0"<%If Rs("RegState")=0 Then Response.Write " checked"%>>
        否</td>
    </tr>
    <tr> 
      <td><div align="right">用户申请后是否需要审核：</div></td>
      <td><input name="RegAdminCheck" type="radio" value="-1"<%If Rs("RegAdminCheck")=-1 Then Response.Write " checked"%>>
        是 
        <input name="RegAdminCheck" type="radio" value="0"<%If Rs("RegAdminCheck")=0 Then Response.Write " checked"%>>
        否</td>
    </tr>
    <tr> 
      <td><div align="right">兑换比率：</div></td>
      <td><input name="DotChangeNum" type="text" value="<%=Rs("DotChangeNum")%>" size="8">
        (1元人民币可以兑换的电影点数)</td>
    </tr>
    <tr> 
      <td><div align="right">发送邮件组件：</div></td>
      <td><input type="radio" name="emailsendtype" value="1"<%if rs("emailsendtype")=1 then%> checked<%end if%> onclick="dshow_1()">
        CDONTS组件 
        <%
on error resume next
set TestObj=server.CreateObject ("CDONTS.NewMail")
If -2147221005 <> Err then
 Response.write "(空间支持)"
Else
  Response.write "(空间不支持)"
End If
%> <input type="radio" name="emailsendtype" value="2"<%if rs("emailsendtype")=2 then%> checked<%end if%> onclick="dshow_2()">
        JMAIL组件 
        <%
on error resume next
set TestObj=server.CreateObject ("JMail.SmtpMail")
If -2147221005 <> Err then
 Response.write "(空间支持)"
Else
  Response.write "(空间不支持)"
End If
%></td>
    </tr>
    <tr id="d_1"> 
      <td><div align="right">JMail服务器地址：</div></td>
      <td><input name="JmailAddress" type="text" value="<%=GetConVertStr(rs("JmailAddress"))%>"></td>
    </tr>
    <tr id="d_2"> 
      <td><div align="right">发送邮件帐号名称：</div></td>
      <td><input name="JmailUser" type="text" value="<%=GetConVertStr(rs("JmailUser"))%>"></td>
    </tr>
    <tr id="d_3"> 
      <td><div align="right">发送邮件帐号的密码：</div></td>
      <td><input name="JmailPassword" type="password" value="<%=rs("JmailPassword")%>"></td>
    </tr>
    <tr> 
      <td colspan="2"> <div align="center"> 
          <input type="submit" name="Submit32" value="修改">
          　　 
          <input type="reset" name="Submit523" value="取消">
        </div></td>
    </tr>
  </form>
</table>
<%End If%>

<%If Action="othersetmodify" Then%>

<table width="98%" align="center" class="tba">
  
  <form name="form2" method="post" action="QQCF.aspx?action=othersetmodifysave">
    <tr class="tba_tr_1"> 
      <td colspan="2"><div align="center"><strong>设置区1</strong></div></td>
    </tr>
    <tr> 
      <td width="34%"><div align="right">系统安全码：</div></td>
      <td width="66%"><input name="SysCode" type="text" id="SysCode" value="<%=GetConVertStr(GetMySet("SysCode"))%>" size="25">
        * 务必在这里设置8个以上任意字符加强安全</td>
    </tr>
    <tr> 
      <td><div align="right">上传图片组件类型：</div></td>
      <td><input type="radio" name="UploadType" value="1"<%If GetMySet("UploadType")="1" Then Response.write " checked"%>>
        无组件上传 
        <input type="radio" name="UploadType" value="2"<%If GetMySet("UploadType")="2" Then Response.write " checked"%>>
        使用AspUpload组件上传　*默认为无组件上传</td>
    </tr>
    <tr> 
      <td><div align="right">网站备案号码：</div></td>
      <td><input name="BACode" type="text" id="AdminEmail" value="<%=GetConVertStr(GetMySet("BACode"))%>" size="25"></td>
    </tr>
    <tr> 
      <td><div align="right">管理员Email：</div></td>
      <td><input name="AdminEmail" type="text" id="AdminEmail" value="<%=GetConVertStr(GetMySet("AdminEmail"))%>" size="25"></td>
    </tr>
    <tr> 
      <td><div align="right">电影在线播放防盗链：</div></td>
      <td><input type="radio" name="OnlneLinkProtect" value="1"<%If GetMySet("OnlneLinkProtect")="1" Then Response.write " checked"%>>
        开启 
        <input type="radio" name="OnlneLinkProtect" value="0"<%If GetMySet("OnlneLinkProtect")="0" Then Response.write " checked"%>>
        关闭 *(默认：开启)</td>
    </tr>
	
	<tr> 
      <td><div align="right">不花费点数的电影直接下载不需转向后下载：</div></td>
      <td><input type="radio" name="NoDotFilmImmDown" value="1"<%If GetMySet("NoDotFilmImmDown")="1" Then Response.write " checked"%>>
        是 
        <input type="radio" name="NoDotFilmImmDown" value="0"<%If GetMySet("NoDotFilmImmDown")="0" Then Response.write " checked"%>>
        否 *(默认为是)</td>
    </tr>
    <tr> 
      <td><div align="right">电影图片地址只允许使用自己上传的图片：</div></td>
      <td><input type="radio" name="FilmPicUpload" value="1"<%If GetMySet("FilmPicUpload")="1" Then Response.write " checked"%>>
        是 
        <input type="radio" name="FilmPicUpload" value="0"<%If GetMySet("FilmPicUpload")="0" Then Response.write " checked"%>>
        否 *(默认为否)</td>
    </tr>

	
	    <tr> 
      <td><div align="right">在线支付方式：</div></td>
      <td><input type="radio" name="OnlinePayType" value="0"<%If GetMySet("OnlinePayType")="0" Then Response.write " checked"%>>
        不支持 
        <input type="radio" name="OnlinePayType" value="1"<%If GetMySet("OnlinePayType")="1" Then Response.write " checked"%>>
        快钱支持 
        <input type="radio" name="OnlinePayType" value="2"<%If GetMySet("OnlinePayType")="2" Then Response.write " checked"%>>
        网银支付 *</td>
    </tr>
    <tr> 
      <td><div align="right">商户编号：</div></td>
      <td><input name="OnlinePayUser" type="text" value="<%=GetConVertStr(GetMySet("OnlinePayUser"))%>"></td>
    </tr>
    <tr> 
      <td><div align="right">商户密钥：</div></td>
      <td><input name="OnlinePayKey" type="password" value="<%=GetConVertStr(GetMySet("OnlinePayKey"))%>"></td>
    </tr>
    <tr> 
      <td><div align="right">点数转VIP功能：</div></td>
      <td><input name="DotToVip_30" type="text" value="<%=GetConVertStr(GetMySet("DotToVip_30"))%>" size="8">
        点数包30天</td>
    </tr>
    <tr> 
      <td><div align="right">点数转VIP功能：</div></td>
      <td><input name="DotToVip_120" type="text" value="<%=GetConVertStr(GetMySet("DotToVip_120"))%>" size="8">
        点数包120天</td>
    </tr>
    <tr> 
      <td><div align="right">点数转VIP功能：</div></td>
      <td><input name="DotToVip_365" type="text" value="<%=GetConVertStr(GetMySet("DotToVip_365"))%>" size="8">
        点数包365天</td>
    </tr>
    <tr> 
      <td><div align="right">点数转VIP功能：</div></td>
      <td><input name="DotToVip_AllTime" type="text" value="<%=GetConVertStr(GetMySet("DotToVip_AllTime"))%>" size="8">
        点数包久时间</td>
    </tr>
    <tr> 
      <td><div align="right">系统皮肤：</div></td>
      <td><input type="radio" name="SysSkin" value="0"<%If GetMySet("SysSkin")="0" Then Response.write " checked"%> onclick="document.form2.skincolor.value='BFE7F1';">
        默认
        <input type="radio" name="SysSkin" value="1"<%If GetMySet("SysSkin")="1" Then Response.write " checked"%> onclick="document.form2.skincolor.value='EAF7B0';">
        样式1 
        <input type="radio" name="SysSkin" value="2"<%If GetMySet("SysSkin")="2" Then Response.write " checked"%> onclick="document.form2.skincolor.value='F7C0B6';">
        样式2
		<input type="radio" name="SysSkin" value="3"<%If GetMySet("SysSkin")="3" Then Response.write " checked"%> onclick="document.form2.skincolor.value='F5ECA1';">
        样式3
        <input type="radio" name="SysSkin" value="4"<%If GetMySet("SysSkin")="4" Then Response.write " checked"%> onclick="document.form2.skincolor.value='CBCBCB';">
        样式4*</td>
    </tr>
    <tr> 
      <td><div align="right">自定义皮肤颜色：</div></td>
      <td><input name="skincolor" type="text" id="skincolor" value="<%=GetMySet("SkinColor")%>" size="7">
        (输入颜色代码，默认值为：BFE7F1)</td>
    </tr>
    <tr> 
      <td colspan="2"> <div align="center"> 
          <input type="submit" name="Submit32" value="修改">
          　 
          <input type="reset" name="Submit523" value="取消">
          　(注:带*的为必选或必填项) </div></td>
    </tr>
  </form>
</table>
<%End If%>


<%If Action="sysrecset" Then%>
<SCRIPT>
function ashow(){
b_1.style.display = "none";
b_2.style.display = "none";
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="QQCF.aspx?Action=sysrecsetsave">
    <tr> 
      <td colspan="2">如果你使用推广系统自带的会员注册功能请选择接口类型-系统自带,否则根据你网站的数据库类型选择相应的接口类型 </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 bgcolor="#FFFFFF"> <div align="left"> 
          <input type="radio" name="RegType" value="1"<%If Rs("RegType")=1 Then Response.Write " checked"%> onclick="ashow()">
          本系统自带
123

⌨️ 快捷键说明

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