wm.sys_channel.asp

网人分类信息5.0商业版。非常优秀的分类信息系统。比较少见。

	  Content = Content & "<tr class=td2><td><strong>目录结构方式</strong></td>" & vbCrLf
      Content = Content & "<td><input type=radio name=StructureType value=0 Class=radio" & WRMPS.GetCheckVer(0, Rs("WM_StructureType"), 1) & "> 频道/大类/小类/年份/月份/目期/文件（栏目分级，再按年月日保存）<br>　　 <font Class=font3>例：Article/ASP/JiChu/2004/08/25/1368.html</font><br>" & vbCrLf
	  Content = Content & "<input type=radio name=StructureType value=1 Class=radio" & WRMPS.GetCheckVer(1, Rs("WM_StructureType"), 1) & "> 频道/大类/小类/月份/文件（栏目分级，再按月份保存）<br>　　 <font Class=font3>例：Article/ASP/JiChu/200408/1368.html</font><br>" & vbCrLf
	  Content = Content & "<input type=radio name=StructureType value=2 Class=radio" & WRMPS.GetCheckVer(2, Rs("WM_StructureType"), 1) & "> 频道/大类/小类/日期/文件（栏目分级，再按日期分，每天一个目录）<br>　　 <font Class=font3>例：Article/ASP/JiChu/2004-08-25/1368.html</font><br>" & vbCrLf
	  Content = Content & "<input type=radio name=StructureType value=3 Class=radio" & WRMPS.GetCheckVer(3, Rs("WM_StructureType"), 1) & "> 频道/大类/小类/文件（栏目分级，不再按月份）<br>　　 <font Class=font3>例：Article/ASP/JiChu/1368.html</font><br>" & vbCrLf
	  Content = Content & "<input type=radio name=StructureType value=4 Class=radio" & WRMPS.GetCheckVer(4, Rs("WM_StructureType"), 1) & "> 频道/栏目/月份/文件（栏目平级，再按月份保存）<br>　　 <font Class=font3>例：Article/JiChu/200408/1368.html</font><br>" & vbCrLf
	  Content = Content & "<input type=radio name=StructureType value=5 Class=radio" & WRMPS.GetCheckVer(5, Rs("WM_StructureType"), 1) & "> 频道/栏目/日期/文件（栏目平级，再按日期分，每天一个目录）<br>　　 <font Class=font3>例：Article/JiChu/2004-08-25/1368.html</font><br>" & vbCrLf
	  Content = Content & "<input type=radio name=StructureType value=6 Class=radio" & WRMPS.GetCheckVer(6, Rs("WM_StructureType"), 1) & "> 频道/栏目/文件（栏目平级，不再按月份）<br>　　 <font Class=font3>例：Article/JiChu/1368.html</font><br>" & vbCrLf
	  Content = Content & "<input type=radio name=StructureType value=7 Class=radio" & WRMPS.GetCheckVer(7, Rs("WM_StructureType"), 1) & "> 频道/文件（直接放在频道目录中）<br>　　 <font Class=font3>例：Article/1368.html</font><br>" & vbCrLf
	  Content = Content & "<input type=radio name=StructureType value=8 Class=radio" & WRMPS.GetCheckVer(8, Rs("WM_StructureType"), 1) & "> 频道/HTML/文件（直接放在指定的“HTML”文件夹中）<br>　　 <font Class=font3>例：Article/HTML/1368.html</font><br>" & vbCrLf
	  Content = Content & "<input type=radio name=StructureType value=9 Class=radio" & WRMPS.GetCheckVer(9, Rs("WM_StructureType"), 1) & "> 频道/年份/文件（直接按年份保存，每年一个目录）<br>　　 <font Class=font3>例：Article/2004/1368.html</font><br>" & vbCrLf
	  Content = Content & "<input type=radio name=StructureType value=10 Class=radio" & WRMPS.GetCheckVer(10, Rs("WM_StructureType"), 1) & "> 频道/月份/文件（直接按月份保存，每月一个目录）<br>　　 <font Class=font3>例：Article/200408/1368.html</font><br>" & vbCrLf
	  Content = Content & "<input type=radio name=StructureType value=11 Class=radio" & WRMPS.GetCheckVer(11, Rs("WM_StructureType"), 1) & "> 频道/日期/文件（直接按日期保存，每天一个目录）<br>　　 <font Class=font3>例：Article/2004-08-25/1368.html</font><br>" & vbCrLf
	  Content = Content & "<input type=radio name=StructureType value=12 Class=radio" & WRMPS.GetCheckVer(12, Rs("WM_StructureType"), 1) & "> 频道/年份/月份/文件（先按年份，再按月份保存，每月一个目录）<br>　　 <font Class=font3>例：Article/2004/200408/1368.html</font><br>" & vbCrLf
	  Content = Content & "<input type=radio name=StructureType value=13 Class=radio" & WRMPS.GetCheckVer(13, Rs("WM_StructureType"), 1) & "> 频道/年份/日期/文件（先按年份，再按日期分，每天一个目录）<br>　　 <font Class=font3>例：Article/2004/2004-08-25/1368.html</font><br>" & vbCrLf
	  Content = Content & "<input type=radio name=StructureType value=14 Class=radio" & WRMPS.GetCheckVer(14, Rs("WM_StructureType"), 1) & "> 频道/月份/日期/文件（先按月份，再按日期分，每天一个目录）<br>　　 <font Class=font3>例：Article/200408/2004-08-25/1368.html</font><br>" & vbCrLf
	  Content = Content & "<input type=radio name=StructureType value=15 Class=radio" & WRMPS.GetCheckVer(15, Rs("WM_StructureType"), 1) & "> 频道/年份/月份/日期/文件（先按年份，再按日期分，每天一个目录）<br>　　 <font Class=font3>例：Article/2004/200408/2004-08-25/1368.html</font></td></tr>" & vbCrLf
	  Content = Content & "<tr class=td2><td><strong>内容页文件的命名方式</strong></td>" & vbCrLf
	  Content = Content & "<td><input type=radio name=FileNameType value=1 Class=radio" & WRMPS.GetCheckVer(1, Rs("WM_FileNameType"), 1) & "> 文章ID.html　 <font Class=font3>例：1358.html</font><br>" & vbCrLf
	  Content = Content & "<input type=radio name=FileNameType value=2 Class=radio" & WRMPS.GetCheckVer(2, Rs("WM_FileNameType"), 1) & "> 更新时间+ID.html　 <font Class=font3>例：200408281123081358.html</font><br>" & vbCrLf
	  Content = Content & "<input type=radio name=FileNameType value=3 Class=radio" & WRMPS.GetCheckVer(3, Rs("WM_FileNameType"), 1) & "> 频道英文名_文章ID.html　 <font Class=font3>例：Article_1358.html</font><br>" & vbCrLf
	  Content = Content & "<input type=radio name=FileNameType value=4 Class=radio" & WRMPS.GetCheckVer(4, Rs("WM_FileNameType"), 1) & "> 频道英文名_更新时间.html　 <font Class=font3>例：Article_20040828112308.html</font><br>" & vbCrLf
	  Content = Content & "<input type=radio name=FileNameType value=5 Class=radio" & WRMPS.GetCheckVer(5, Rs("WM_FileNameType"), 1) & "> 更新时间_ID.html　 <font Class=font3>例：20040828112308_1358.html</font><br>" & vbCrLf
	  Content = Content & "<input type=radio name=FileNameType value=6 Class=radio" & WRMPS.GetCheckVer(6, Rs("WM_FileNameType"), 1) & "> 频道英文名_更新时间_ID.html　 <font Class=font3>例：Article_20040828112308_1358.html</font><br>" & vbCrLf
	  Content = Content & "<input type=radio name=FileNameType value=7 Class=radio" & WRMPS.GetCheckVer(7, Rs("WM_FileNameType"), 1) & "> ID/Index.html　 <font Class=font3>例：1358/Index.html</font><br>" & vbCrLf
	  Content = Content & "<input type=radio name=FileNameType value=8 Class=radio" & WRMPS.GetCheckVer(8, Rs("WM_FileNameType"), 1) & "> 更新时间+ID/Index.html　 <font Class=font3>例：200408281123081358/Index.html</font></td></tr>" & vbCrLf
	  Content = Content & "<tr class=td2><td><strong>频道首页的扩展名</strong></td>" & vbCrLf
	  Content = Content & "<td><input type=radio name=FileExt_Index value='html' Class=radio" & WRMPS.GetCheckVer("html", Rs("WM_FileExt_Index"), 1) & "> html　　" & vbCrLf
	  Content = Content & "<input type=radio name=FileExt_Index value='htm' Class=radio" & WRMPS.GetCheckVer("htm", Rs("WM_FileExt_Index"), 1) & "> htm　　" & vbCrLf
	  Content = Content & "<input type=radio name=FileExt_Index value='shtml' Class=radio" & WRMPS.GetCheckVer("shtml", Rs("WM_FileExt_Index"), 1) & "> shtml　　" & vbCrLf
	  Content = Content & "<input type=radio name=FileExt_Index value='shtm' Class=radio" & WRMPS.GetCheckVer("shtm", Rs("WM_FileExt_Index"), 1) & "> shtm　　" & vbCrLf
	  Content = Content & "<input type=radio name=FileExt_Index value='dhtml' Class=radio" & WRMPS.GetCheckVer("dhtml", Rs("WM_FileExt_Index"), 1) & "> dhtml"
      If WR_Other(9) <> "" and IsNull(WR_Other(9))=False Then Content = Content & "　　<input type=radio name=FileExt_Index value='"&WR_Other(9)&"' Class=radio" & WRMPS.GetCheckVer(WR_Other(9), Rs("WM_FileExt_Index"), 1) & "> "&WR_Other(9)
	  Content = Content & "</td></tr>" & vbCrLf
	  Content = Content & "<tr class=td2><td><strong>内容页的扩展名</strong></td>" & vbCrLf
	  Content = Content & "<td><input type=radio name=FileExt_Item value='html' Class=radio" & WRMPS.GetCheckVer("html", Rs("WM_FileExt_Item"), 1) & "> html　　" & vbCrLf
	  Content = Content & "<input type=radio name=FileExt_Item value='htm' Class=radio" & WRMPS.GetCheckVer("htm", Rs("WM_FileExt_Item"), 1) & "> htm　　" & vbCrLf
	  Content = Content & "<input type=radio name=FileExt_Item value='shtml' Class=radio" & WRMPS.GetCheckVer("shtml", Rs("WM_FileExt_Item"), 1) & "> shtml　　" & vbCrLf
	  Content = Content & "<input type=radio name=FileExt_Item value='shtm' Class=radio" & WRMPS.GetCheckVer("shtm", Rs("WM_FileExt_Item"), 1) & "> shtm　　" & vbCrLf
	  Content = Content & "<input type=radio name=FileExt_Item value='dhtml' Class=radio" & WRMPS.GetCheckVer("dhtml", Rs("WM_FileExt_Item"), 1) & "> dhtml"
      If WR_Other(9) <> "" and IsNull(WR_Other(9))=False Then Content = Content & "　　<input type=radio name=FileExt_Item value='"&WR_Other(9)&"' Class=radio" & WRMPS.GetCheckVer(WR_Other(9), Rs("WM_FileExt_Item"), 1) & "> "&WR_Other(9)
	  Content = Content & "</td></tr>" & vbCrLf
	  
	  Content = Content & "</table>" & vbCrLf
      Content = Content & "</td></tr>" & vbCrLf

      Content = Content & "<tr class=td4><td height=30 align=center><input type=submit name='Submit' value='提 交'></td></tr>" & vbCrLf
      Content = Content & "</form>" & vbCrLf
      Content = Content & "</table><script>document.addform.MenuName.focus()</script>" & vbCrLf

      End If
      Rs.Close

    Case "Add"
      Content = Content & "<table width='100%' cellpadding=0 cellspacing=0>" & vbCrLf
      Content = Content & "<form name=addform method='post' Action='?Action=SaveAdd'>" & vbCrLf
      Content = Content & "<tr><td class=td2 height=5></td></tr>" & vbCrLf
      Content = Content & "<tr><td class=td2>" & vbCrLf
      Content = Content & "<TABLE border=0 cellspacing=0 cellpadding=0><TR>" & vbCrLf
      Content = Content & "<TD width=5 height=22></TD><TD width=72 background='Img/Label.gif' id=tit1 onClick=""dis(tit1,show1,2,'Label')"" Class=Label1>基本设置</TD>" & vbCrLf
      Content = Content & "<TD width=*></TD></TR></TABLE>" & vbCrLf
      Content = Content & "</td></tr>" & vbCrLf
	  
      Content = Content & "<tr ID=show1><td>" & vbCrLf
      Content = Content & "<table width='100%' cellpadding=3 cellspacing=1 class=td1>" & vbCrLf
      Content = Content & "<tr class=td4><td colspan=2><b>基本设置</b></td></tr>" & vbCrLf
      Content = Content & "<tr class=td2><td width='36%'><strong>频道名称</strong></td>" & vbCrLf
      Content = Content & "<td width='64%'><input type='text' name='MenuName' maxlength=20> <font Class=Font2>*</font></td></tr>" & vbCrLf
      Content = Content & "<tr class=td2><td><strong>频道说明</strong><br>鼠标移至频道名称上时将显示设定的提示文字</td>" & vbCrLf
      Content = Content & "<td><input type='text' size=40 name='Title' maxlength='50'></td></tr>" & vbCrLf
      Content = Content & "<tr class=td2><td><strong>排列序号</strong><br>不能与现有的序号重复，建议使用默认数值。" & vbCrLf
      Content = Content & "</td><td>" & vbCrLf
      Set Rs = Conn.Execute( "Select Top 1 WM_OrderID from WM_Channel Order By WM_OrderID Desc")
      If Not Rs.EOF Then
        Content = Content & "<input name='OrderID' type='text' size=5 value=" & Rs("WM_OrderID") + 1 & ">" & vbCrLf
      Else
        Content = Content & "<input name='OrderID' type='text' size=5 value=1>" & vbCrLf
      End If
      Rs.Close
      Content = Content & " <font Class=Font2>*</font></td></tr>" & vbCrLf
      Content = Content & "<tr class=td2><td><strong>是否禁用</strong></td>" & vbCrLf
      Content = Content & "<td><input type=radio name=Key value=0 Class=radio>禁用" & vbCrLf
      Content = Content & "<input type=radio name=Key value=1 checked Class=radio>启用</td></tr>" & vbCrLf
      Content = Content & "<tr class=td2><td width='36%'><strong>前台状态</strong></td>" & vbCrLf
      Content = Content & "<td width='64%'><input type=radio name=view value=0 Class=radio>隐藏 <input type=radio name=view value=1 Class=radio>顶部 <input type=radio name=view value=2 Class=radio checked>中部 <input type=radio name=view value=3 Class=radio>底部" & vbCrLf
      Content = Content & "</td></tr>" & vbCrLf
      Content = Content & "<tr class=td2><td><strong>打开方式</strong></td>" & vbCrLf
      Content = Content & "<td><input type=radio name=Target value=1 Class=radio>新窗口" & vbCrLf
      Content = Content & "<input type=radio name=Target value=0 checked Class=radio>原窗口</td></tr>" & vbCrLf
      Content = Content & "<tr class=td2><td><strong>连接样式</strong><br>此功能用于菜单显示样式</td>" & vbCrLf
      Content = Content & "<td><input type='text' size=15 name='TitleClass' maxlength='50'></td></tr>" & vbCrLf
      Content = Content & "<tr class=td2><td valign=top><strong>频道类型</strong><br><font Class=Font2>请慎重选择，频道一旦添加后就不能再更改频道类型</font></td>" & vbCrLf
      Content = Content & "<td><fieldset><legend><input name='ChannelType' type=radio value=0 checked class=radio Onclick=""Channel_Close()""><strong>外部连接</strong></legend><br>" & vbCrLf
      Content = Content & "&nbsp; 外部连接指连接到本系统以外的地址中，当此频道准备连接到网站中的其他系统时，请使用这种方式。<br>" & vbCrLf
      Content = Content & "&nbsp; 外部连接的连接地址： <input name='ChannelUrl' type='text' size=20 style='width:200' maxlength=50>　请填写绝对路径<br>&nbsp; <font Class=Font2>{$InstallDir}</font>为本站安装路径<br><br></fieldset><br>" & vbCrLf
      Content = Content & "<fieldset><legend><input name='ChannelType' type=radio value=1 class=radio Onclick=""Channel_Show()""><strong>系统内部频道</strong></legend><br>" & vbCrLf
      Content = Content & "&nbsp; 系统内部频道指的是在本系统现有功能模块基础上添加新的频道，新频道具备和所使用功能模块完全相同的功能。<br>" & vbCrLf
      Content = Content & "&nbsp; 此功能需要服务器支持Fso才可用。<br><br>" & vbCrLf
      Content = Content & "<div id=Channel style='display:none'>" & vbCrLf
      Content = Content & "<table width='100%' border=0 align=center cellpadding=3 cellspacing=1 class=td1>" & vbCrLf
      Content = Content & "<tr class=td2><td colspan=2 align=center><strong>内部频道参数设置</strong></td></tr>" & vbCrLf
      Content = Content & "<tr class=td2>" & vbCrLf
      Content = Content & "<td width='37%'><strong>功能模块</strong><br><font Class=Font2>请慎重选择，一旦添加将不能修改此项</font></td>" & vbCrLf
      Content = Content & "<td width='63%'><select name='WM_Module'>" & vbCrLf
      Set Rs = Conn.Execute("Select * from WM_Module Where WM_Key = 1")
        If Rs.EOF Then
          Content = Content & "<option value=''>没有任何模块</option>"
        Else
          Do While Not Rs.EOF
            Content = Content & "<option value=" & Rs("WM_ID") & ">" & Rs("WM_Module") & "</option>"
          Rs.MoveNext
          Loop
        End If
      Rs.Close
	  Set Rs = Nothing
      Content = Content & "</select></td></tr>" & vbCrLf
      Content = Content & "<tr class=td2>" & vbCrLf
      Content = Content & "<td><strong>频道目录</strong><br>只能是英文或数字，不能带空格或“\”、“/”等符号。<br><font Class=Font2>请慎重录入，频道一旦添加后就不能修改此项</font></td>" & vbCrLf
      Content = Content & "<td><input name='ChannelDir' type='text' style='width:150' maxlength=50> <font Class=Font2>*</font>　例：News</td></tr>" & vbCrLf
      Content = Content & "<tr class=td2><td><strong>本频道评论功能</strong><br>此功能只对部分模块有用</td>" & vbCrLf
      Content = Content & "<td><input type=radio name=Re value=1 checked Class=radio>开启　<input type=radio name=Re value=0 Class=radio>关闭</td></tr>" & vbCrLf
	  Content = Content & "<tr class=td2><td><strong>频道Logo</strong><br>请填写绝对路径<br><font Class=Font2>{$InstallDir}</font>为本站安装路径</td>" & vbCrLf
      Content = Content & "<td><input name='ChannelLogo' type='text' style='width:200' maxlength=50></td></tr>" & vbCrLf
	  Content = Content & "<tr class=td2><td><strong>频道META关键词</strong></td>" & vbCrLf
      Content = Content & "<td><input name='MetaKey' type='text' style='width:300'></td></tr>" & vbCrLf
	  Content = Content & "<tr class=td2><td><strong>频道META网页描述</strong></td>" & vbCrLf
      Content = Content & "<td><input name='MetaContent' type='text' style='width:300'></td></tr>" & vbCrLf
      Content = Content & "</table></div></fieldset></td></tr>" & vbCrLf
      Content = Content & "</table>"
      Content = Content & "</td></tr>" & vbCrLf
 
      Content = Content & "<tr ID=show2 Style='display:none'><td>" & vbCrLf
      Content = Content & "<table width='100%' cellpadding=3 cellspacing=1 class=td1>" & vbCrLf
      Content = Content & "<tr class=td4><td colspan=2><b>生成选项</b></td></tr>" & vbCrLf
	  Content = Content & "<tr class=td3><td colspan=2><font Class=font2><b>此处设置可能对部分频道无效，如店铺站HTML和个人空间HTML请至系统设置中去设置，另外，此生成设置只针对首页，频道首页及内容页有效。</b></font></td></tr>" & vbCrLf
	  Content = Content & "<tr class=td2><td width='36%'><strong>生成HTML方式</strong><br>服务器支持FSO才能启用“生成HTML”功能<br>请谨慎选择！以后在每一次更改生成方式前，你最好先删除所有以前生成的文件，然后在保存频道参数后再重新生成所有文件。</td>" & vbCrLf
      Content = Content & "<td width='64%'><input type=radio name=CreateHTML value=1 Class=radio checked> 不生成　　　<font class=font3>当频道中的信息量比较少（≤1000）时，可以选用此方式，最耗费系统资源。</font><br>" & vbCrLf
      Content = Content & "<input type=radio name=CreateHTML value=2 Class=radio> 全部生成　　<font class=font3>此方式在生成后将最节省系统资源，但当信息量大时，生成过程将比较长。</font><br>" & vbCrLf
      Content = Content & "<input type=radio name=CreateHTML value=3 Class=radio> 内容页为HTML，其他页为ASP </td></tr>" & vbCrLf

	  Content = Content & "<tr class=td3><td colspan=2><font Class=font2><b>以下参数仅当“生成HTML方式”设为后两者时才有效。<br>请谨慎选择！在每一次更改以下参数前，你最好先删除所有以前生成的文件，然后在保存参数设置后再重新生成所有文件。</b></font></td></tr>" & vbCrLf

	  Content = Content & "<tr class=td2><td><strong>目录结构方式</strong></td>" & vbCrLf
      Content = Content & "<td><input type=radio name=StructureType value=0 Class=radio checked> 频道/大类/小类/年份/月份/目期/文件（栏目分级，再按年月日保存）<br>　　 <font Class=font3>例：Article/ASP/JiChu/2004/08/25/1368.html</font><br>" & vbCrLf
      Content = Content & "<input type=radio name=StructureType value=1 Class=radio> 频道/大类/小类/月份/文件（栏目分级，再按月份保存）<br>　　 <font Class=font3>例：Article/ASP/JiChu/200408/1368.html</font><br>" & vbCrLf
	  Content = Content & "<input type=radio name=StructureType value=2 Class=radio> 频道/大类/小类/日期/文件（栏目分级，再按日期分，每天一个目录）<br>　　 <font Class=font3>例：Article/ASP/JiChu/2004-08-25/1368.html</font><br>" & vbCrLf
	  Content = Content & "<input type=radio name=StructureType value=3 Class=radio> 频道/大类/小类/文件（栏目分级，不再按月份）<br>　　 <font Class=font3>例：Article/ASP/JiChu/1368.html</font><br>" & vbCrLf
	  Content = Content & "<input type=radio name=StructureType value=4 Class=radio> 频道/栏目/月份/文件（栏目平级，再按月份保存）<br>　　 <font Class=font3>例：Article/JiChu/200408/1368.html</font><br>" & vbCrLf
	  Content = Content & "<input type=radio name=StructureType value=5 Class=radio> 频道/栏目/日期/文件（栏目平级，再按日期分，每天一个目录）<br>　　 <font Class=font3>例：Article/JiChu/2004-08-25/1368.html</font><br>" & vbCrLf
	  Content = Content & "<input type=radio name=StructureType value=6 Class=radio> 频道/栏目/文件（栏目平级，不再按月份）<br>　　 <font Class=font3>例：Article/JiChu/1368.html</font><br>" & vbCrLf
	  Content = Content & "<input type=radio name=StructureType value=7 Class=radio> 频道/文件（直接放在频道目录中）<br>　　 <font Class=font3>例：Article/1368.html</font><br>" & vbCrLf
	  Content = Content & "<input type=radio name=StructureType value=8 Class=radio> 频道/HTML/文件（直接放在指定的“HTML”文件夹中）<br>　　 <font Class=font3>例：Article/HTML/1368.html</font><br>" & vbCrLf
	  Content = Content & "<input type=radio name=StructureType value=9 Class=radio> 频道/年份/文件（直接按年份保存，每年一个目录）<br>　　 <font Class=font3>例：Article/2004/1368.html</font><br>" & vbCrLf
	  Content = Content & "<input type=radio name=StructureType value=10 Class=radio> 频道/月份/文件（直接按月份保存，每月一个目录）<br>　　 <font Class=font3>例：Article/200408/1368.html</font><br>" & vbCrLf
	  Content = Content & "<input type=radio name=StructureType value=11 Class=radio> 频道/日期/文件（直接按日期保存，每天一个目录）<br>　　 <font Class=font3>例：Article/2004-08-25/1368.html</font><br>" & vbCrLf