wm.sys_channel.asp

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

         Set Rs = Conn.Execute("Select WM_Name,WM_SkinFolder,WM_SortID,WM_ModuleID,WM_ChannelID,WM_Explain,WM_TempPath,WM_IsDefault From WM_Templates Where WM_SkinFolder = '"&WR_Setting(5)&"' and WM_ModuleID = " & WM_Module & " and WM_ChannelID = " & Rso(0))
		 Do While Not Rs.EOF
            WM_Name = Rs(0)
            WM_SkinFolder = Rs(1)
            WM_SortID = Rs(2)
            WM_Explain = Rs(5)
            WM_TempPath = Rs(6)
            WM_IsDefault = Rs(7)
            If Instr(Split(WM_TempPath,".")(0),"_") > 0 Then
			  NewTempPath = Split(WM_TempPath,"_")(0)&"_"&Replace(Replace(Replace(Replace(Now()," ",""),"-",""),":",""),"/","")&"."&Split(WM_TempPath,".")(1)
			Else
			  NewTempPath = Split(WM_TempPath,".")(0)&"_"&Replace(Replace(Replace(Replace(Now()," ",""),"-",""),":",""),"/","")&"."&Split(WM_TempPath,".")(1)
            End If
			Conn.Execute ("insert into WM_Templates(WM_Name,WM_SkinFolder,WM_SortID,WM_ModuleID,WM_ChannelID,WM_Explain,WM_TempPath,WM_IsDefault) Values('" & WM_Name & "','" & WM_SkinFolder & "'," & WM_SortID & "," & WM_Module & "," & ID & ",'" & WM_Explain & "','" & NewTempPath & "'," & WM_IsDefault & ")")
	        If WRMPS.FsoIsTrue("File","../Skins/"&WR_Setting(5)&"/Templates/"&WM_TempPath) = True Then WRMPS.FileCopy "../Skins/"&WR_Setting(5)&"/Templates/"&WM_TempPath,"../Skins/"&WR_Setting(5)&"/Templates/"&NewTempPath
		 Rs.MoveNext
         Loop
         Rs.Close
        End If
        Rso.Close
	  End If
	  Call WRMPS.FsoEnd()
	  WRMPS.DelCache "Templates"
      Call WRMPS.ErrView("·频道模板刷新成功<meta http-equiv=refresh content='1;URL=WM.Sys_Channel.asp'>",1)

    Case "Del"
      ID = WRMPS.CheckStr(Request("WM_ID"), 0)
      Set Rs = Conn.Execute("Select WM_ChannelType,WM_ChannelDir,WM_Module from WM_Channel Where WM_ChannelType <> 2 And WM_ID=" & ID & "")
       If Not Rs.EOF Then
         If Rs(0) = 1 Then
           Call WRMPS.FsoBegin()
		     ChannelDir = Rs(1)
		     If ChannelDir <> "" Then WRMPS.FsoDel "Dir","../" & ChannelDir
             Set Rso = Conn.Execute("Select WM_TempPath from WM_Templates Where WM_SkinFolder = '"&WR_Setting(5)&"' and WM_ChannelID = "&ID)
		     Do While Not Rso.Eof
		       WM_TempPath = Rso(0)
			   WRMPS.FsoDel "File","../Skins/"&WR_Setting(5)&"/Templates/" & WM_TempPath
		     Rso.MoveNext
		     Loop
		     Rso.Close
             Conn.Execute ("Delete From WM_Templates Where WM_SkinFolder = '"&WR_Setting(5)&"' and WM_ChannelID = " & ID & "")
           Call WRMPS.FsoEnd()
           Response.Write "<script>parent.left.document.location.reload();</script>"
           If Rs(2) = 1 Then
		     Conn.Execute ("Delete From WM_ArticleSort Where WM_ChannelID = " & ID & "")
		     Conn.Execute ("Delete From WM_Article Where WM_ChannelID = " & ID & "")
		   End If
		 End If
         Conn.Execute ("Delete From WM_Channel Where WM_ID = " & ID & "")
       End If
	   Rs.Close
       WRMPS.DelCache "Temp"
	   WRTemp.CacheLabelCon "",""
	   WRMPS.DelCache "Templates"
       Call WRMPS.ErrView("·频道删除成功<meta http-equiv=refresh content='1;URL=WM.Sys_Channel.asp'>",1)

    Case "CreateChannel"
        ID = WRMPS.CheckStr(Request("WM_ID"), 1)
        Set Rs = Conn.Execute("Select WM_ChannelName,WM_ChannelType,WM_Title,WM_Module,WM_ChannelDir,WM_Re,WM_Key,WM_ChannelLogo,WM_MetaKey,WM_MetaContent,WM_CreateHTML,WM_StructureType,WM_FileNameType,WM_FileExt_Index,WM_FileExt_Item from WM_Channel Where WM_ID = " & ID & "")
          ChannelName = Rs(0)
          ChannelType = Rs(1)
          WM_Title = Rs(2)
          WM_Module = Rs(3)
          ChannelDir = Rs(4)
          Re = Rs(5)
          Key = Rs(6)
		  ChannelLogo = Rs(7)
		  MetaKey = Rs(8)
		  MetaContent = Rs(9)
		  CreateHTML = Rs(10)
		  StructureType = Rs(11)
		  FileNameType = Rs(12)
		  FileExt_Index = Rs(13)
		  FileExt_Item = Rs(14)
        Rs.Close
      If WM_Module > 0 Then
        Set Rso = Conn.Execute("Select WM_DefaultFolder,WM_DefaultFiles from WM_Module Where WM_ID=" & WM_Module & "")
          WM_DefaultFolder = Rso(0)
          WM_DefaultFiles = Rso(1)
        Rso.Close
        On Error Resume Next
		Call WRMPS.FsoBegin()
		  WRMPS.CreFolder "../" & ChannelDir
          If ChannelType = 1 And WM_DefaultFiles <> "" Then
            WM_DefaultFiles = Split(WM_DefaultFiles, "|")
            For i = 0 To UBound(WM_DefaultFiles)
              WRMPS.FsoDel "File","../" & ChannelDir & "/" & WM_DefaultFiles(i)
			  WRMPS.FileCopy "../" & WM_DefaultFolder & "/" & WM_DefaultFiles(i), "../" & ChannelDir & "/" & WM_DefaultFiles(i)
			Next
            If Err Then Call WRMPS.ErrView("·频道生成出错，请按规定操作", 0): Exit Sub
          End If
		  CreateChannelConfig ID,ChannelDir,WM_Module,ChannelName,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()
      Else
        Call WRMPS.ErrView("·此频道为外部连接，不能进行频道生成操作", 0): Exit Sub
      End If
      Call WRMPS.ErrView("·频道刷新成功<meta http-equiv=refresh content='1;URL=WM.Sys_Channel.asp'>",1)

    Case "TaxisSave"
      Taxis = WRMPS.CheckStr(Request("Taxis"), 0)
      ID = WRMPS.CheckStr(Request("ID"), 1)
      If Taxis = "Up" Then
         Conn.Execute ("Update WM_Channel Set WM_OrderID=0 Where WM_OrderID = " & ID - 1 & "")
         Conn.Execute ("Update WM_Channel Set WM_OrderID=" & ID - 1 & " Where WM_OrderID = " & ID & "")
         Conn.Execute ("Update WM_Channel Set WM_OrderID=" & ID & " Where WM_OrderID = 0")
      ElseIf Taxis = "Down" Then
         Conn.Execute ("Update WM_Channel Set WM_OrderID=0 Where WM_OrderID = " & ID + 1 & "")
         Conn.Execute ("Update WM_Channel Set WM_OrderID=" & ID + 1 & " Where WM_OrderID = " & ID & "")
         Conn.Execute ("Update WM_Channel Set WM_OrderID=" & ID & " Where WM_OrderID = 0")
      End If
      WRMPS.DelCache "Temp"
	  WRTemp.CacheLabelCon "",""
      Response.Write "<script>parent.left.document.location.reload();</script>"
      Response.Write "<script>window.location.href='?Action=Taxis';</script>"

    Case "Taxis"
      Set Rso = Conn.Execute("Select Top 1 WM_OrderID from WM_Channel Order By WM_OrderID Desc")
	   If Not Rso.Eof Then
         BigOrderID = Rso("WM_OrderID")
	   End If
      Rso.Close
      Set Rs = Conn.Execute("Select Top 1 WM_OrderID from WM_Channel Order By WM_OrderID")
	   If Not Rs.Eof Then
         SmallOrderID = Rs("WM_OrderID")
	   End If
      Rs.Close
      Content = Content & "<table width='100%' cellpadding=3 cellspacing=1 class=td1>" & vbCrLf
      Content = Content & "<tr><td colspan=3 class=td4><b>系统频道排序</b></td></tr>" & vbCrLf
      Content = Content & "<tr Align=center class=td3>" & vbCrLf
      Content = Content & "<td width='6%'>排序ID</td>" & vbCrLf
      Content = Content & "<td width='50%'>频道名称</td>" & vbCrLf
      Content = Content & "<td width='44%'>操作</td>" & vbCrLf
      Content = Content & "</tr>" & vbCrLf
       Rs.Open "select * from WM_Channel order by WM_OrderID", Conn, 1, 1
       If Rs.EOF Then
         Content = Content & "<tr class=td2><td align=center colspan=3>没有内容</td></tr></table>" & vbCrLf
       Else
         i = 0
         Do While Not Rs.EOF
            Content = Content & "<tr align=center class=td2>" & vbCrLf
            Content = Content & "<td>" & Rs("WM_OrderID") & "</td>" & vbCrLf
            Content = Content & "<td><Font Title=" & Rs("WM_Title") & ">" & Rs("WM_ChannelName") & "</Font></td>" & vbCrLf
            Content = Content & "<td>"
          If Rs("WM_OrderID") < BigOrderID Then
            Content = Content & "<a href=?Action=TaxisSave&Taxis=Down&ID=" & Rs("WM_OrderID") & "><img src='img/Down.gif' border=0></a>　　&nbsp;"
          Else
            Content = Content & "&nbsp;&nbsp;　　&nbsp;"
          End If
          If Rs("WM_OrderID") > SmallOrderID Then
            Content = Content & "&nbsp;　　<a href=?Action=TaxisSave&Taxis=Up&ID=" & Rs("WM_OrderID") & "><img src='img/Up.gif' border=0></a>"
          Else
            Content = Content & "&nbsp;&nbsp;　　&nbsp;"