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

Index_Url = "Photo_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='?ChannelIDs=2'><%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>
<%
	Down_Config_Main()
Call AMH_Ender(tit)
'//* 软件基本配置 *//
Sub Down_Config_Main()
 Dim tDown,ChannelOption
  SQL = "Select ChannelOption From ["&Data_Name&"] Where ChannelIDs="&iChannelIDs
  Call Cls.Exe_Conn(Rs,SQL,3)
  ChannelOption=Rs("ChannelOption")
  If Chk() Then
    ChannelOption=trim(request.form("viewtype"))
    if not isnumeric(ChannelOption) then ChannelOption=0
    Rs("ChannelOption")=ChannelOption
	Rs.Update
	Rs.Close
	Call Cls.Cache_Del("Class_"&ichannelids)
	Call ReloadMenu(0)
	Call AMH_Msg("已成功编辑了"&tit_fir&"！","?ChannelIDs="&iChannelIDs,1)
	Exit Sub
   End If
Call Form_First()
%>
<form name=theform action='?ChannelIDs=<%=iChannelIDs%>' method=post>
<input type=hidden name=chk value=yes>
<tr>
<td>分页方式：</td>
<td><input type="radio" name=viewtype value="1" <%if ChannelOption="1" then response.Write " checked"%>>多页显示&nbsp;&nbsp;<input type="radio" name=viewtype value="2" <%if ChannelOption="2" then response.Write " checked"%>>单页显示&nbsp;&nbsp;<input type="radio" name=viewtype value="3" <%if ChannelOption="3" then response.Write " checked"%>>单页JS&nbsp;&nbsp;<%Response.Write redx%></td>
<td><%Call AMH_Read("","分页分式","1.多页显示：多个页面分页显示贴图<br />2.单页显示：单个页面显示所有贴图<br />3.单页JS：单个页面用JS分页显示贴图")%></td>
</tr>
<%
	Submit_Config()
End Sub
%>
