<!-- #Include File="Include/AMH_Onlogin.asp" -->
<%
'=======================================================
' 欢迎使用《阿赛大型门户网站系统V2.0》，简称“AsaiMHV2”
' 技术支持、商业版咨询、官方唯一指定联系QQ“4941172”
' 官方网站：http://77ya.com      程序负责人：阿赛
'=======================================================

Index_Url = "Music_Config"
Data_Name = "AsaiMHChannel"
tit_fir="音乐参数配置"
tit="配置管理"

Call AMH_Header(1)
%>
<tr><td align=center colspan=2 height=30>
  <table border=0>
  <tr>
  <td><%Response.Write tit%></td>
  <td width=10></td>
  <td><a href='?'><%Response.Write tit_fir%></a></td>
  </tr>
  </table>
</td></tr>
</table>
<%
	Call AMH_Table(1)
%>
<tr align=center>
<td class=td width='18%'>设置名称</td>
<td class=td width='70%'>基本参数设置</td>
<td class=td width='12%'>相关信息</td>
</tr>
<%
	Music_Config_Main()

Call AMH_Ender(tit)

'//* 音乐基本配置 *//
Sub Music_Config_Main()
 Dim ChannelOption,Tmp1,j
 Dim Music_Config,Free_User,Free_UserGroup,Music_Month,Music_Quarter,Music_Year,Music_Letter,Music_Sex,Music_Company,Music_Language,Music_Favnum,Music_Mailnum
 Dim MusicConfig,FreeUser,FreeUserGroup,FreeIP,MusicMonth,MusicQuarter,MusicYear
  SQL = "Select ChannelOption From ["&Data_Name&"] Where ChannelIDs=11"
  Call Cls.Exe_Conn(Rs,SQL,3)
  ChannelOption=Rs("ChannelOption")
  If Chk() Then
    For i=0 To 10
      Music_Config=Music_Config&Cls.Code_Int("Music_Config_"&i,0)&","
    Next
    Free_User=Cls.Code_Admin("Free_User",1,0)
    Tmp1=Replace(Cls.Code_Admin("Music_Type",1,0)," ","")
	If Len(Tmp1)>0 Then
        Tmp1=Replace(Tmp1,",",".")
        Free_UserGroup=Free_UserGroup&Tmp1
    End If
	If Right(Free_UserGroup,1)="." Then Free_UserGroup=Left(Free_UserGroup,Len(Free_UserGroup)-1)
	FreeIP = Replace(Cls.Code_Form("FreeIP"),VbCrlf,",")
    Music_Month=Cls.Code_Admin("Music_Month",1,0)
	Music_Quarter=Cls.Code_Admin("Music_Quarter",1,0)
	Music_Year=Cls.Code_Admin("Music_Year",1,0)
	Music_Letter=Cls.Code_Admin("Music_Letter",1,0)
	Music_Sex=Cls.Code_Admin("Music_Sex",1,0)
	Music_Company=Cls.Code_Admin("Music_Company",1,0)
	Music_Language=Cls.Code_Admin("Music_Language",1,0)
	Music_Favnum=Cls.Code_Admin("Music_Favnum",1,0)
    Music_Mailnum=Cls.Code_Admin("Music_Mailnum",1,0)
	ChannelOption=Music_Config&"|"&Free_User&"|"&Free_UserGroup&"|"&FreeIP&"|"&Music_Month&"|"&Music_Quarter&"|"&Music_Year&"|"&Music_Letter&"|"&Music_Sex&"|"&Music_Company&"|"&Music_Language&"|"&Music_Favnum&"|"&Music_Mailnum
    rs("ChannelOption")=ChannelOption
	Rs.Update
	Rs.Close
	Call Cls.Cache_Del("Class_10")
	Call ReloadMenu(0)
	Call AMH_Msg("已成功编辑了"&tit_fir&"！","?",1)
	Exit Sub
   End If
Call Form_First()
'ChannelOption="1,0,1,0,0,0,0,0,0,0,0,|Admin|1.2.3.4|127.0.0.1|250|500|1000|A:B:C:D:E:F:G:H:I:J:K:M:N:O:P:Q:R:S:T:U:V:W:X:Y:Z|男:女:乐队组合|华纳:滚石:新疆德龙音像|中文:英文:粤语|10|30"
ChannelOption=Split(ChannelOption,"|")
MusicConfig=Split(ChannelOption(0),",")
FreeUser=ChannelOption(1)
FreeUserGroup=ChannelOption(2)
FreeIP=Replace(ChannelOption(3),",",VbCrlf)
MusicMonth=ChannelOption(4)
MusicQuarter=ChannelOption(5)
MusicYear=ChannelOption(6)
Music_Letter=ChannelOption(7)
Music_Sex=ChannelOption(8)
Music_Company=ChannelOption(9)
Music_Language=ChannelOption(10)
Music_Favnum=ChannelOption(11)
Music_Mailnum=ChannelOption(12)
%>
<form name=theform action='?ChannelIDs=10' method=post>
<input type=hidden name=chk value=yes>
<tr>
<td>歌手字母索引：</td>
<td><input type=text name=Music_Letter value='<%Response.Write Music_Letter%>' size=62 maxlength=200></td>
<td><%Call AMH_Read("","回答经验说明","每回答一次问题可获得经验")%></td>
</tr>
<tr>
<td>歌手性别：</td>
<td><input type=text name=Music_Sex value='<%Response.Write Music_Sex%>' size=62 maxlength=200></td>
<td><%Call AMH_Read("","过期天数说明","发布问题的过期天数不能小于此相的限制")%></td>
</tr>
<tr>
<td>歌手隶属公司：</td>
<td><input type=text name=Music_Company value='<%Response.Write Music_Company%>' size=62 maxlength=200></td>
<td><%Call AMH_Read("","投票天数说明","离过期天数剩余答案的投票天数")%></td>
</tr>
<tr>
<td>歌手专集语言：</td>
<td><input type=text name=Music_Language value='<%Response.Write Music_Language%>' size=62 maxlength=200></td>
<td><%Call AMH_Read("","投票数量说明","采纳答案的票数")%></td></tr>
<tr>
<td>月卡花费：</td>
<td><input type=text name=Music_Month value='<%response.write MusicMonth%>' size=10 maxlength=5>&nbsp;<%Response.Write Cls.web_unit%></td>
<td><%Call AMH_Read("","月卡花费说明","购买月卡所需"&Cls.web_unit&"")%></td>
</tr>
<tr>
<td>季卡花费：</td>
<td><input type=text name=Music_Quarter value='<%response.write MusicQuarter%>' size=10 maxlength=5>&nbsp;<%Response.Write Cls.web_unit%></td>
<td><%Call AMH_Read("","季卡花费说明","购买度卡所需"&Cls.web_unit&"")%></td>
</tr>
<tr>
<td>年卡花费：</td>
<td><input type=text name=Music_Year value='<%response.write MusicYear%>' size=10 maxlength=5>&nbsp;<%Response.Write Cls.web_unit%></td>
<td><%Call AMH_Read("","年卡花费说明","购买年卡所需"&Cls.web_unit&"")%></td>
</tr>
<tr>
<td>下载防盗：</td>
<td><input type=radio name=Music_Config_0 value='1'<% if int(MusicConfig(0))=1 then response.write " checked" %>>&nbsp;开启&nbsp;<input type=radio name=Music_Config_0 value='0'<% if int(MusicConfig(0))=0 then response.write " checked" %>>&nbsp;关闭</td>
<td><%Call AMH_Read("","下载防盗","音乐下载防盗功能")%></td>
</tr>
<tr>
<td>检验状态：</td>
<td><input type=radio name=Music_Config_1 value='1'<% if int(MusicConfig(1))=1 then response.write " checked" %>>&nbsp;开启&nbsp;<input type=radio name=Music_Config_1 value='0'<% if int(MusicConfig(1))=0 then response.write " checked" %>>&nbsp;关闭</td>
<td><%Call AMH_Read("","检验状态","可临时检验播放地址是否正确")%></td>
</tr>
<tr>
<td>地址加密：</td>
<td><input type=radio name=Music_Config_2 value='1'<% if int(MusicConfig(2))=1 then response.write " checked" %>>&nbsp;开启&nbsp;<input type=radio name=Music_Config_2 value='0'<% if int(MusicConfig(2))=0 then response.write " checked" %>>&nbsp;关闭</td>
<td><%Call AMH_Read("","地址加密","RM格式音乐地址加密功能")%></td>
</tr>
<tr>
<td>窗口样式：</td>
<td><input type=radio name=Music_Config_3 value='0'<% if int(MusicConfig(3))=0 then response.write " checked" %>>&nbsp;独占模式&nbsp;<input type=radio name=Music_Config_3 value='1'<% if int(MusicConfig(3))=1 then response.write " checked" %>>&nbsp;半自由模式(仅 IE5+ 支持)&nbsp;<input type=radio name=Music_Config_3 value='2'<% if int(MusicConfig(3))=2 then response.write " checked" %>>&nbsp;自由模式</td>
<td><%Call AMH_Read("","窗口样式","播放窗口样式")%></td>
</tr>
<tr>
<td>最多收藏基数：</td>
<td colspan=2><input type=text name=Music_Favnum value='<%Response.Write Music_Favnum%>' size=10 maxlength=5>&nbsp;条&nbsp;&nbsp;&nbsp;&nbsp;用户最多收藏基数 * 用户组系数 = 用户最多收藏数量</td>
</tr>
<tr>
<td>最多点歌基数：</td>
<td colspan=2><input type=text name=Music_Mailnum value='<%Response.Write Music_Mailnum%>' size=10 maxlength=5>&nbsp;条&nbsp;&nbsp;&nbsp;&nbsp;用户最多点歌基数 * 用户组系数 = 用户最多点歌数量</td>
</tr>
<tr>
<td>免费用户：</td>
<td><input type=text name=Free_User value='<%Response.Write FreeUser%>' size=60 maxlength=200></td>
<td><%Call AMH_Read("","免费用户","某用户可免费观看，多个请用“,”隔开")%></td>
</tr>
<tr>
<td>免费 IP ：</td>
<td><%Call AMH_ReSize("FreeIP",45,4,Server.HtmlEncode(FreeIP),0)%></td>
<td><%Call AMH_Read("","免费 IP ","指定IP可免费观看音乐，<font class=red>每行为一个IP或IP段</font>")%></td>
</tr>
<!--
<tr>
<td>免费用户组：</td>
<td>
<%
    'Dim Dim_ug
	'Dim_ug=Cls.Cache_Get("User_Group")
    'For j = 0 To Ubound(Dim_ug,2)
	  'Tmp1=FreeUserGroup
      'Response.Write vbcrlf&"<input type=checkbox name=Music_Type value='"&j+1&"'"
      'If Instr(1,"."&Tmp1&".","."&j+1&".")>0 Then Response.Write " checked"
      'Response.Write ">"&Dim_ug(1, j)
    'Next
    'Erase Dim_ug
%>
<input type=checkbox name=Music_Type value='0'<%If Instr(1,"."&Tmp1&".",".0.")>0 Then Response.Write " checked"%>>游客</tr>
</td>
<td><%Call AMH_Read("","免费用户组 ","指定用户组可免费观看音乐")%></td></tr>
-->
<%
	Submit_Config()
End Sub

%>
