wm.sys_channel.asp

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

	  Content = Content & "<input type=radio name=StructureType value=12 Class=radio> 频道/年份/月份/文件（先按年份，再按月份保存，每月一个目录）<br>　　 <font Class=font3>例：Article/2004/200408/1368.html</font><br>" & vbCrLf
	  Content = Content & "<input type=radio name=StructureType value=13 Class=radio> 频道/年份/日期/文件（先按年份，再按日期分，每天一个目录）<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> 频道/月份/日期/文件（先按月份，再按日期分，每天一个目录）<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> 频道/年份/月份/日期/文件（先按年份，再按日期分，每天一个目录）<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 checked> 文章ID.html　 <font Class=font3>例：1358.html</font><br>" & vbCrLf
	  Content = Content & "<input type=radio name=FileNameType value=2 Class=radio> 更新时间+ID.html　 <font Class=font3>例：200408281123081358.html</font><br>" & vbCrLf
	  Content = Content & "<input type=radio name=FileNameType value=3 Class=radio> 频道英文名_文章ID.html　 <font Class=font3>例：Article_1358.html</font><br>" & vbCrLf
	  Content = Content & "<input type=radio name=FileNameType value=4 Class=radio> 频道英文名_更新时间.html　 <font Class=font3>例：Article_20040828112308.html</font><br>" & vbCrLf
	  Content = Content & "<input type=radio name=FileNameType value=5 Class=radio> 更新时间_ID.html　 <font Class=font3>例：20040828112308_1358.html</font><br>" & vbCrLf
	  Content = Content & "<input type=radio name=FileNameType value=6 Class=radio> 频道英文名_更新时间_ID.html　 <font Class=font3>例：Article_20040828112308_1358.html</font><br>" & vbCrLf
	  Content = Content & "<input type=radio name=FileNameType value=7 Class=radio> ID/Index.html　 <font Class=font3>例：1358/Index.html</font><br>" & vbCrLf
	  Content = Content & "<input type=radio name=FileNameType value=8 Class=radio> 更新时间+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 checked> html　　" & vbCrLf
	  Content = Content & "<input type=radio name=FileExt_Index value='htm' Class=radio> htm　　" & vbCrLf
	  Content = Content & "<input type=radio name=FileExt_Index value='shtml' Class=radio> shtml　　" & vbCrLf
	  Content = Content & "<input type=radio name=FileExt_Index value='shtm' Class=radio> shtm　　" & vbCrLf
	  Content = Content & "<input type=radio name=FileExt_Index value='dhtml' Class=radio> 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> "&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 checked> html　　" & vbCrLf
	  Content = Content & "<input type=radio name=FileExt_Item value='htm' Class=radio> htm　　" & vbCrLf
	  Content = Content & "<input type=radio name=FileExt_Item value='shtml' Class=radio> shtml　　" & vbCrLf
	  Content = Content & "<input type=radio name=FileExt_Item value='shtm' Class=radio> shtm　　" & vbCrLf
	  Content = Content & "<input type=radio name=FileExt_Item value='dhtml' Class=radio> 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> "&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

    Case "SaveAll"
      SaveType = WRMPS.CheckStr(Request("SaveType"), 0)
      ID = WRMPS.CheckStr(Request.Form("ID"), 0)
      ID = Replace(Replace(ID, " ", ""), "&nbsp;", "")
      ID = Split(ID, ",")
      For i = 0 To UBound(ID)
        If SaveType = "禁用" Then
          Conn.Execute ("Update WM_Channel Set WM_Key=0 Where WM_ID = " & ID(i) & "")
        ElseIf SaveType = "启用" Then
          Conn.Execute ("Update WM_Channel Set WM_Key=1 Where WM_ID = " & ID(i) & "")
        ElseIf SaveType = "新窗" Then
          Conn.Execute ("Update WM_Channel Set WM_Target=1 Where WM_ID = " & ID(i) & "")
        ElseIf SaveType = "原窗" Then
          Conn.Execute ("Update WM_Channel Set WM_Target=0 Where WM_ID = " & ID(i) & "")
        ElseIf SaveType = "隐藏" Then
          Conn.Execute ("Update WM_Channel Set WM_View=0 Where WM_ID = " & ID(i) & "")
        ElseIf SaveType = "顶部" Then
          Conn.Execute ("Update WM_Channel Set WM_View=1 Where WM_ID = " & ID(i) & "")
        ElseIf SaveType = "中部" Then
          Conn.Execute ("Update WM_Channel Set WM_View=2 Where WM_ID = " & ID(i) & "")
        ElseIf SaveType = "底部" Then
          Conn.Execute ("Update WM_Channel Set WM_View=3 Where WM_ID = " & ID(i) & "")
        End If
      Next
      Response.Write "<script>parent.left.document.location.reload();</script>"
      WRMPS.DelCache "Temp"
	  WRTemp.CacheLabelCon "",""
	  Call WRMPS.ErrView("·频道操作成功<br>·请更新相关刷道的配置文件<meta http-equiv=refresh content='1;URL=WM.Sys_Channel.asp'>",1)

    Case Else
       Content = Content & "<table width='100%' cellpadding=3 cellspacing=1 class=td1>" & vbCrLf
       Content = Content & "<form method='post' Action='?Action=SaveAll'>" & vbCrLf
       Content = Content & "<tr Class=td4><td colspan='12'><b>系统频道管理</b></td></tr>" & vbCrLf
       Content = Content & "<tr Align=center Class=td3><td width='3%'></td>" & vbCrLf
       Content = Content & "<td width='4%'>ID</td>" & vbCrLf
       Content = Content & "<td width='10%'>频道名称</td>" & vbCrLf
       Content = Content & "<td width='7%'>打开方式</td>" & vbCrLf
       Content = Content & "<td width='7%'>频道类型</td>" & vbCrLf
       Content = Content & "<td width=*>频道目录/连接地址</td>" & vbCrLf
       Content = Content & "<td width='7%'>功能模块</td>" & vbCrLf
       Content = Content & "<td width='7%'>频道状态</td>" & vbCrLf
       Content = Content & "<td width='7%'>前台显示</td>" & vbCrLf
       Content = Content & "<td width='10%'>更新</td>" & vbCrLf
       Content = Content & "<td width='10%'>操作</td></tr>" & vbCrLf

       Set Rs = Conn.Execute("Select WM_ID,WM_ChannelName,WM_target,WM_ChannelType,WM_view,WM_Key,WM_Module,WM_ChannelDir,WM_Title,WM_ChannelUrl from WM_Channel where WM_Module <> 5 order by WM_OrderID")
       If Rs.EOF Then
         Content = Content & "<tr class=td2><td align=center colspan=12>没有内容</td></tr></table>" & vbCrLf
       Else
         Do While Not Rs.EOF
         Content = Content & "<tr Class=td2 align='center'>" & vbCrLf
         Content = Content & "<td><input type='checkbox' name='ID' value=" & Rs(0) & " style='border:0'></td>" & vbCrLf
         Content = Content & "<td>" & Rs(0) & "</td>" & vbCrLf
         Content = Content & "<td align=left>&nbsp;<Font Title=" & Rs(8) & ">" & Rs(1) & "</Font></td>" & vbCrLf
         Content = Content & "<td>"
         If Rs(2) = 1 Then Content = Content & "<Font  Class=Font3>新窗</Font>" Else Content = Content & "原窗"
         Content = Content & "</td>" & vbCrLf
         Content = Content & "<td>"
         If Rs(3) = 0 Then
           Content = Content & "<Font Class=Font1>外部连接</Font>"
         ElseIf Rs(3) = 1 Then
           Content = Content & "<Font Color=Font2>内部频道</Font>"
         ElseIf Rs(3) = 2 Then
           Content = Content & "<Font  Class=Font3>系统频道</Font>"
         End If
         Content = Content & "</td>" & vbCrLf
         Content = Content & "<td align=left>&nbsp;"
         If Rs(7) <> "" Then
           Content = Content & "目录：" & Rs(7)
		   Call WRMPS.FsoBegin()
		   If WRMPS.FsoIsTrue("Dir","../"&Rs(7)) = False Then Content = Content & "<strong><font Color=red>(×)</font></strong>"
 		   Call WRMPS.FsoEnd()
        Else
           Content = Content & "<Font Class=Font2>连接：" & Rs(9) & "</Font>"
         End If
         Content = Content & "</td>" & vbCrLf
         Content = Content & "<td>"
         If Rs(6) <> 0 Then
           Set Rso = Conn.Execute("Select WM_Module from WM_Module Where WM_ID=" & Rs(6))
            If Not Rso.EOF Then
              Content = Content & Rso(0)
            End If
           Rso.Close
         End If
         Content = Content & "</td>" & vbCrLf
         Content = Content & "<td>"
         If Rs(5) = 1 Then Content = Content & "正常" Else Content = Content & "<Font Class=Font2>禁用</Font>"
         Content = Content & "</td>" & vbCrLf
         Content = Content & "<td>"
         If Rs(4) = 1 Then
           Content = Content & "<Font Class=Font1>顶部</Font>"
         ElseIf Rs(4) = 2 Then
           Content = Content & "<Font Class=Font2>中部</Font>"
         ElseIf Rs(4) = 3 Then
           Content = Content & "<Font Class=Font3>底部</Font>"
         Else
           Content = Content & "隐藏"
         End If
         Content = Content & "</td>" & vbCrLf
         Content = Content & "<td>"
         If Rs(6) > 0 Then Content = Content & "<a href=?Action=CreateChannel&WM_ID=" & Rs(0) & ">文件</a>" Else Content = Content & "　　"
         If Rs(3) = 1 And Rs(6) > 0 Then Content = Content & " | <a href=?Action=RehTemplates&WM_ID=" & Rs(0) & ">模板</a>" Else Content = Content & "　 &nbsp;　&nbsp;"
         Content = Content & "</td>" & vbCrLf
         Content = Content & "<td><a href=?Action=Edit&WM_ID=" & Rs(0) & ">修改</a>" & vbCrLf
         If Rs(3) <> 2 Then Content = Content & " | <a href=?Action=Del&WM_ID=" & Rs(0) & " onclick=""return confirm('确定删除？');"">删除</a>" Else Content = Content & "　&nbsp;　&nbsp;"
         Content = Content & "</td></tr>" & vbCrLf
         Rs.MoveNext
         Loop
         Rs.Close
         Content = Content & "<tr><td colspan=12 class=td3 align=right><input name='chkall' type='checkbox' id='chkall' value='select' onclick=""CheckAll(this.form)"" style='border:0'>全选　<select name='SaveType'><option value='禁用'>禁用</option><option value='启用'>启用</option><option value='新窗'>新窗打开</option><option value='原窗'>原窗打开</option><option value='隐藏'>隐藏显示</option><option value='顶部'>顶部菜单</option><option value='中部'>中部菜单</option><option value='底部'>底部菜单</option></select>　<input type=submit name='Submit' value='批量操作'>&nbsp;</td></tr></form>" & vbCrLf
         Content = Content & "<tr><td colspan=12 class=td2> <b>注意事项：</b><br>" & vbCrLf
         Content = Content & "① 其中排列序号部分可以按照你的需要修改，不能有重复。<br>" & vbCrLf
         Content = Content & "② 频道修改或批量操作后请更新文件以执行您的修改。<br>" & vbCrLf
         Content = Content & "③ <font Class=Font2>{$SiteUrl}</font>为本站地址。<br>" & vbCrLf
         Content = Content & "④ 更新里的模板功能为将当前频道的模板替换为系统频道相关模块的模板。<br>" & vbCrLf
         Content = Content & "⑤ <strong><font Class=Font2>(×)</font>