qqcf_admin_manage_4.asp

软件下载平台 软件下载平台

      <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="WBLinkProtect" value="1"<%If GetMySet("WBLinkProtect")="1" Then Response.write " checked"%>>
        简单隐藏地址 
        <input type="radio" name="WBLinkProtect" value="0"<%If GetMySet("WBLinkProtect")="0" Then Response.write " checked"%>>
        关闭 *(默认：开启)</td>
    </tr>
    <tr> 
      <td><div align="right">内部服务器时Rstp协议防盗链方式：</div></td>
      <td><input type="radio" name="LBRtspLinkProtect" value="1"<%If GetMySet("LBRtspLinkProtect")="1" Then Response.write " checked"%>>
        简单隐藏地址 
        <input type="radio" name="LBRtspLinkProtect" value="2"<%If GetMySet("LBRtspLinkProtect")="2" Then Response.write " checked"%>>
        统一用户名+统一密码 
        <input type="radio" name="LBRtspLinkProtect" value="3"<%If GetMySet("LBRtspLinkProtect")="3" Then Response.write " checked"%>>
        单个用户名+随机密码 
        <input type="radio" name="LBRtspLinkProtect" value="4"<%If GetMySet("LBRtspLinkProtect")="4" Then Response.write " checked"%>>
        单个用户名+单个固定密码 *(默认：统一用户名和密码)</td>
    </tr>
    <tr>
      <td><div align="right">内部服务器时Rstp协议防盗链方式时使用的ODBC数据库：</div></td>
      <td><input name="VodOdbc" type="text" value="<%=GetConVertStr(GetMySet("VodOdbc"))%>" size="25">
        选择上面的第3或4选项时这里必须填写</td>
    </tr>
	    <tr>
      <td><div align="right">使用的ODBC数据库用户名：</div></td>
      <td><input name="VodOdbcUser" type="text" value="<%=GetConVertStr(GetMySet("VodOdbcUser"))%>" size="25">
        选择上面的第3或4选项时这里必须填写</td>
    </tr>
	    <tr>
      <td><div align="right">使用的ODBC数据库密码：</div></td>
      <td><input name="VodOdbcPassword" type="password" value="<%=GetConVertStr(GetMySet("VodOdbcPassword"))%>" size="25">
        选择上面的第3或4选项时这里必须填写</td>
    </tr>
	    <tr>
      <td><div align="right">内部服务器时Helix服务器加载点：</div></td>
      <td><input name="VodServerJZD" type="text" value="<%=GetConVertStr(GetMySet("VodServerJZD"))%>" size="25">
        选择上面的第3或4选项时这里必须填写</td>
    </tr>
    <tr> 
      <td><div align="right">内部服务器时Rstp协议外其它协议防盗链方式：</div></td>
      <td><input type="radio" name="LBOtherLinkProtect" value="1"<%If GetMySet("LBOtherLinkProtect")="1" Then Response.write " checked"%>>
        简单隐藏地址 
        <input type="radio" name="LBOtherLinkProtect" value="0"<%If GetMySet("LBOtherLinkProtect")="0" Then Response.write " checked"%>>
        关闭 *(默认：开启)</td>
    </tr>
    <tr> 
      <td><div align="right">下载时内部服务器时FTP防盗链方式：</div></td>
      <td>
<input type="radio" name="FTPLinkProtect" value="1"<%If GetMySet("FTPLinkProtect")="1" Then Response.write " checked"%>>
        统一用户名+统一密码 
        <input type="radio" name="FTPLinkProtect" value="2"<%If GetMySet("FTPLinkProtect")="2" Then Response.write " checked"%>>
        单个用户名+单个固定密码 *(默认：统一用户名和密码)</td>
    </tr>
    <tr> 
      <td><div align="right">免费用户默认下载账号名：</div></td>
      <td><input name="FTPUser" type="text" value="<%=GetConVertStr(GetMySet("FTPUser"))%>">(选择单个用户名+单个固定密码有效)</td>
    </tr>
	    <tr> 
      <td><div align="right">免费用户默认下载账号名：</div></td>
      <td><input name="FTPPassword" type="password" value="<%=GetConVertStr(GetMySet("FTPPassword"))%>">(选择单个用户名+单个固定密码有效)</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")