wm.sys_channel.asp

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

          End If
            Content = Content & "</td></tr>" & vbCrLf
        i = i + 1
        Rs.MoveNext
        Loop
       End If
      Content = Content & "</table>" & vbCrLf
      
    Case "EditSave"
      If WRMPS.CheckStr(Request("MenuName"), 0) = "" Then Call WRMPS.ErrView("·请输入频道名称", 0): Exit Sub
      If WRMPS.CheckStr(Request("Title"), 0) = "" Then WM_Title = "" Else WM_Title = WRMPS.CheckStr(Request("Title"), 0)

      If WRMPS.CheckStr(Request("ChannelType"), 1) = 0 Then
        ChannelUrl = WRMPS.CheckStr(Request("ChannelUrl"), 0)
        If ChannelUrl = "" Then Call WRMPS.ErrView("·你选择的是外部连接，请填写连接地址", 0): Exit Sub
        Re = Null
      Else
        ChannelUrl = Null
        Re = WRMPS.CheckStr(Request("Re"), 1)
      End If
        TitleClass = WRMPS.CheckStr(Request("TitleClass"), 0)
	    If TitleClass = "" Then TitleClass = NULL
        ChannelLogo = WRMPS.CheckStr(Request("ChannelLogo"), 0)
	    If ChannelLogo = "" Then ChannelLogo = NULL
        MetaKey = WRMPS.CheckStr(Request("MetaKey"), 0)
	    If MetaKey = "" Then MetaKey = NULL
        MetaContent = WRMPS.CheckStr(Request("MetaContent"), 0)
	    If MetaContent = "" Then MetaContent = NULL
        CreateHTML = WRMPS.CheckStr(Request("CreateHTML"), 1)
        StructureType = WRMPS.CheckStr(Request("StructureType"), 1)
        FileNameType = WRMPS.CheckStr(Request("FileNameType"), 1)
        FileExt_Index = WRMPS.CheckStr(Request("FileExt_Index"), 0)
        FileExt_Item = WRMPS.CheckStr(Request("FileExt_Item"), 0)
        view = WRMPS.CheckStr(Request("view"), 1)
        Key = WRMPS.CheckStr(Request("Key"), 1)
        ID = WRMPS.CheckStr(Request("WM_ID"), 1)
        MenuName = WRMPS.CheckStr(Request("MenuName"), 0)
        WM_Target = WRMPS.CheckStr(Request("Target"), 1)
        ChannelUrl = WRMPS.CheckStr(Request("ChannelUrl"), 0)
        
		Conn.Execute ("Update WM_Channel Set WM_Key=" & Key & ",WM_ChannelName='" & MenuName & "',WM_Target=" & WM_Target & ",WM_Title='" & WM_Title & "',WM_ChannelUrl='" & ChannelUrl & "',WM_Re='" & Re & "',WM_view=" & view & ",WM_TitleClass = '" & TitleClass & "',WM_ChannelLogo = '" & ChannelLogo & "',WM_MetaKey = '" & MetaKey & "',WM_MetaContent = '" & MetaContent & "',WM_CreateHTML = " & CreateHTML & ",WM_StructureType = " & StructureType & ",WM_FileNameType = " & FileNameType & ",WM_FileExt_Index = '" & FileExt_Index & "',WM_FileExt_Item = '" & FileExt_Item & "' Where WM_ID=" & ID & "")
      
      If Request("ChannelType") > 0 Then
        ID = WRMPS.CheckStr(Request("WM_ID"), 1)
        Set Rs = Conn.Execute("Select WM_ChannelDir from WM_Channel Where WM_ID=" & ID & "")
          ChannelDir = Rs(0)
        Rs.Close
        On Error Resume Next
        Call WRMPS.FsoBegin()
		  WRMPS.CreFolder "../" & ChannelDir
          ID = WRMPS.CheckStr(Request("WM_ID"), 1)
          MenuName = WRMPS.CheckStr(Request("MenuName"), 0)
		  WM_Module = WRMPS.CheckStr(Request("WM_Module"), 1)
		  CreateChannelConfig ID,ChannelDir,WM_Module,MenuName,WM_Title,re,Key,ChannelLogo,MetaKey,MetaContent,CreateHTML,StructureType,FileNameType,FileExt_Index,FileExt_Item
          If Err Then
            Call WRMPS.ErrView("·频道属性修改写入出错", 0): Exit Sub
          End If
        Call WRMPS.FsoEnd()
        Response.Write "<script>parent.left.document.location.reload();</script>"
	  End If
      WRMPS.DelCache "Temp"
	  WRTemp.CacheLabelCon "",""
      Call WRMPS.ErrView("·频道修改成功<meta http-equiv=refresh content='1;URL=WM.Sys_Channel.asp'>",1)

    Case "Edit"
      ID = WRMPS.CheckStr(Request("WM_ID"), 1)
      Set Rs = Conn.Execute("Select * from WM_Channel Where WM_ID=" & ID & "")
      If Not Rs.EOF Then
      
	  Content = Content & "<table width='100%' cellpadding=0 cellspacing=0>" & vbCrLf
      Content = Content & "<form name=addform method='post' Action='?Action=EditSave&WM_ID=" & ID & "&WM_Module=" & Rs("WM_Module") & "'>" & 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 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><strong>频道名称</strong></td>" & vbCrLf
      Content = Content & "<td><input type='text' name='MenuName' maxlength=20 value=" & Rs("WM_ChannelName") & "> <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' value=" & Rs("WM_Title") & "></td></tr>" & vbCrLf
      Content = Content & "<tr class=td2><td><strong>排列序号</strong><br>不能与现有的序号重复，建议使用默认数值。" & vbCrLf
      Content = Content & "</td><td><input name='OrderID' type='text' size=5 value=" & Rs("WM_OrderID") & " disabled> <font Class=Font2>*</font></td></tr>" & vbCrLf
      Content = Content & "<tr class=td2><td width='36%'><strong>是否禁用</strong></td>" & vbCrLf
      Content = Content & "<td width='64%'><input type=radio name=Key value=0 Class=radio" & WRMPS.GetCheckVer(0, Rs("WM_Key"), 1) & ">禁用" & vbCrLf
      Content = Content & "<input type=radio name=Key value=1 Class=radio" & WRMPS.GetCheckVer(1, Rs("WM_Key"), 1) & ">启用</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" & WRMPS.GetCheckVer(0, Rs("WM_view"), 1) & ">隐藏 <input type=radio name=view value=1 Class=radio" & WRMPS.GetCheckVer(1, Rs("WM_view"), 1) & ">顶部 <input type=radio name=view value=2 Class=radio" & WRMPS.GetCheckVer(2, Rs("WM_view"), 1) & ">中部 <input type=radio name=view value=3 Class=radio" & WRMPS.GetCheckVer(3, Rs("WM_view"), 1) & ">底部" & 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" & WRMPS.GetCheckVer(1, Rs("WM_Target"), 1) & ">新窗口" & vbCrLf
      Content = Content & "<input type=radio name=Target value=0 Class=radio" & WRMPS.GetCheckVer(0, Rs("WM_Target"), 1) & ">原窗口</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' value='" & Rs("WM_TitleClass") & "'></td></tr>" & vbCrLf

	  Content = Content & "<tr class=td2><td valign=top><strong>频道类型</strong></td>" & vbCrLf
      Content = Content & "<td><fieldset><legend><input name='ChannelType' type=radio value=0 class=radio Onclick=""Channel_Close()"""
      If Rs("WM_ChannelUrl") <> "" Then Content = Content & " checked" Else Content = Content & " disabled"
      Content = Content & "><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 Value='" & Rs("WM_ChannelUrl") & "'"
      If Rs("WM_ChannelDir") <> "" Then Content = Content & " disabled"
      Content = Content & ">　请填写绝对路径<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()"""
      If Rs("WM_ChannelDir") <> "" Then Content = Content & " checked" Else Content = Content & " disabled"
      Content = Content & "><strong>系统内部频道</strong></legend><br>" & vbCrLf
      Content = Content & "&nbsp; 系统内部频道指的是在本系统现有功能模块基础上添加新的频道，新频道具备和所使用功能模块完全相同的功能。<br>" & vbCrLf
      Content = Content & "&nbsp; 此功能需要服务器支持Fso才可用。<br><br>" & vbCrLf
      Content = Content & "<div id=Channel"
      If Rs("WM_ChannelUrl") <> "" Then Content = Content & " style='display:none'"
      Content = Content & ">" & 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></td>" & vbCrLf
      Content = Content & "<td width='63%'><select name='WM_Module' disabled>" & vbCrLf
      Rso.Open "Select * from WM_Module", Conn, 1, 1
        If Rso.EOF Then
          Content = Content & "<option value=''>没有任何模块</option>"
        Else
          Do While Not Rso.EOF
            Content = Content & "<option value=" & Rso("WM_ID") & "" & WRMPS.GetCheckVer(Rso("WM_ID"), Rs("WM_Module"), 0) & ">" & Rso("WM_Module") & "</option>"
          Rso.MoveNext
          Loop
        End If
      Rso.Close
      Content = Content & "</select></td></tr>" & vbCrLf
      Content = Content & "<tr class=td2>" & vbCrLf
      Content = Content & "<td><strong>频道目录</strong></td>" & vbCrLf
      Content = Content & "<td><input name='ChannelDir' type='text' style='width:150' maxlength=50 value=" & Rs("WM_ChannelDir") & " disabled> <font Class=Font2>*</font>　例：News</td></tr>" & vbCrLf
      Content = Content & "<tr class=td2><td><strong>本频道评论功能</strong><br>此功能只对部分模块有用</td><td>" & vbCrLf
      If Rs("WM_Re") <> "" Then Content = Content & "<input type=radio name=Re value=1 Class=radio" & WRMPS.GetCheckVer(1, Int(Split(Rs("WM_Re"), "§§§")(0)), 1) & ">开启　<input type=radio name=Re value=0 Class=radio" & WRMPS.GetCheckVer(0, Int(Split(Rs("WM_Re"), "§§§")(0)), 1) & ">关闭" & 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 value='" & Rs("WM_ChannelLogo") & "'></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' value='" & Rs("WM_MetaKey") & "'></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' value='" & Rs("WM_MetaContent") & "'></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" & WRMPS.GetCheckVer(1, Rs("WM_CreateHTML"), 1) & "> 不生成　　　<font class=font3>当频道中的信息量比较少（≤1000）时，可以选用此方式，最耗费系统资源。</font><br>" & vbCrLf
      Content = Content & "<input type=radio name=CreateHTML value=2 Class=radio" & WRMPS.GetCheckVer(2, Rs("WM_CreateHTML"), 1) & "> 全部生成　　<font class=font3>此方式在生成后将最节省系统资源，但当信息量大时，生成过程将比较长。</font><br>" & vbCrLf
      Content = Content & "<input type=radio name=CreateHTML value=3 Class=radio" & WRMPS.GetCheckVer(3, Rs("WM_CreateHTML"), 1) & "> 内容页为HTML，其他页为ASP </td></tr>" & vbCrLf
	  Content = Content & "<tr class=td3><td colspan=2><font Class=font2><b>以下参数仅当“生成HTML方式”设为后两者时才有效。<br>请谨慎选择！在每一次更改以下参数前，你最好先删除所有以前生成的文件，然后在保存参数设置后再重新生成所有文件。</b></font></td></tr>" & vbCrLf