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

Index_Url = "Shop_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>
<%
	Shop_Config_Main()
Call AMH_Ender(tit)

'//* 商品基本配置 *//
Sub Shop_Config_Main()
 Dim Tshop,ChannelOption
  SQL = "Select ChannelOption From ["&Data_Name&"] Where ChannelIDs=3"
  Call Cls.Exe_Conn(Rs,SQL,3)
  ChannelOption=Rs("ChannelOption")
  If Chk() Then
    ChannelOption=code_config(Cls.Code_Admin("Tshop_0",1,0))&"|"&code_config(Cls.Code_Admin("Tshop_1",1,0))&"|"&code_config(Cls.Code_Admin("Tshop_2",1,0))&"|"&code_config(Cls.Code_Admin("Tshop_3",1,0))&"|"&Replace(Cls.Code_Admin("Tshop_4",1,0)," ","")&"|"&Replace(Cls.Code_Admin("Tshop_5",1,0)," ","")&"|"&Replace(Cls.Code_Admin("Tshop_6",1,0)," ","")
    Rs("ChannelOption")=ChannelOption
	Rs.Update
	Rs.Close
	Call Cls.Cache_Del("Class_4")
	Call ReloadMenu(0)
	Call AMH_Msg("已成功编辑了"&tit_fir&"！","?",1)
	Exit Sub
   End If
Call Form_First()
Tshop=split(ChannelOption,"|")
%>
<form name=theform action='?' method=post>
<input type=hidden name=chk value=yes>
<tr>
<td>商品名称：</td>
<td><input type=text name=Tshop_0 value='<%Response.Write Tshop(0)%>' size=20 maxlength=20></td>
<td><%Call AMH_Read("","商品名称","如：商品、产品")%></td>
</tr>
<tr>
<td>价格单位：</td>
<td><input type=text name=Tshop_1 value='<%Response.Write Tshop(1)%>' size=20 maxlength=20></td>
<td><%Call AMH_Read("","价格单位","如：元、美元、港币")%></td>
</tr>
<tr>
<td>商品品牌：</td>
<td><input type=text name=Tshop_2 value='<%Response.Write Tshop(2)%>' size=40 maxlength=80></td>
<td><%Call AMH_Read("","商品品牌","多个请用“:”隔开")%></td>
</tr>
<tr>
<td>商品库存：</td>
<td><input type=text name=Tshop_3 value='<%Response.Write Tshop(3)%>' size=40 maxlength=80></td>
<td><%Call AMH_Read("","商品库存","多个请用“:”隔开")%></td>
</tr>
<tr>
<td>商品数量称呼：</td>
<td><input type=text name=Tshop_6 value='<%Response.Write Tshop(6)%>' size=40 maxlength=80></td>
<td class=Gys><%Call AMH_Read("","商品数量称呼","多个请用“:”隔开")%></td>
</tr>
<tr>
<td>运送方式：</td>
<td><input type=text name=Tshop_4 value='<%Response.Write Tshop(4)%>' size=40 maxlength=80></td>
<td class=Gys><%call AMH_read("","运送方式说明","多个请用“:”隔开<br />形式为：<font class=red>(运送方式)</font>,<font class=red>(价格)</font>，如：<font class=blue>邮寄</font>,<font class=blue>10</font>，注意，“<font class=red>,</font>”不可丢失")%></td>
</tr>
<tr>
<td>运送方式<font class=Gys>（金币支付）</font>：</td>
<td><input type=text name=Tshop_5 value='<%Response.Write Tshop(5)%>' size=40 maxlength=80></td>
<td class=Gys><%call AMH_read("","运送方式说明（"&Cls.web_unit&"支付）","多个请用“:”隔开<br />形式为：<font class=red>(运送方式)</font>,<font class=red>(价格)</font>，如：<font class=blue>邮寄</font>,<font class=blue>10</font>，注意，“<font class=red>,</font>”不可丢失")%></td>
</tr>
<%
	Submit_Config()
End Sub
%>
