wm.sys_channel.asp

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

<!--#include file="WM.Sys_Cook.asp"-->
<%
If CheckAdminFlag("Channel") = False Then Call WRMPS.ErrView("·您没有权限进行此操作",0)
Call WM_Content
Sub WM_Content()
  Content = Content & "<table width='100%' cellpadding=3 cellspacing=1 class=td1>" & vbCrLf
  Content = Content & "<tr class=td2><td>&nbsp;<a href=WM.Sys_Channel.asp>管理首页</a> | <a href=?Action=Add>频道添加</a> | <a href=?Action=Taxis>频道排序</a></td></tr>" & vbCrLf
  Content = Content & "</table>" & vbCrLf
  Dim ChannelDir, ChannelUrl, WM_Module, WM_ID, NoSaveDir, u, WM_DefaultFolder, ChannelName, WM_Title, WM_DefaultFiles
  Dim BigOrderID, SmallOrderID, ChannelType, SaveType,i
  Dim Taxis, ID, MenuName, WM_Target, Key, OrderID, Re, view
  Dim WM_Name, WM_SkinFolder, WM_SortID, WM_Explain, WM_Content, WM_IsDefault
  Dim TitleClass,ChannelLogo,MetaKey,MetaContent,CreateHTML,StructureType,FileNameType,FileExt_Index,FileExt_Item
  Dim NewTempPath,WM_TempPath
  
  Call DBConnBegin()
  Set Rs = Server.CreateObject("ADODB.RecordSet")
  Set Rso = Server.CreateObject("ADODB.RecordSet")
  Select Case Request("Action")
    Case "SaveAdd"
    ChannelType = WRMPS.CheckStr(Request("ChannelType"), 1)
    OrderID = WRMPS.CheckStr(Request("OrderID"), 1)
    WM_Target = WRMPS.CheckStr(Request("Target"), 1)
    Key = WRMPS.CheckStr(Request("Key"), 1)
    WM_Title = WRMPS.CheckStr(Request("Title"), 0)
    MenuName = WRMPS.CheckStr(Request("MenuName"), 0)
    view = WRMPS.CheckStr(Request("view"), 1)
    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)

    If MenuName = "" Then Call WRMPS.ErrView("·请输入频道名称", 0): Exit Sub
    If OrderID = "" Then Call WRMPS.ErrView("·请输入排列序号", 0): Exit Sub
    Set Rs = Conn.Execute("select WM_OrderID from WM_Channel where WM_OrderID = " & OrderID & "")
      If Not Rs.BOF And Rs.EOF Then Call WRMPS.ErrView("·排列序号不能重复", 0): Exit Sub
    Rs.Close

    If ChannelType = 1 Then
      Re = WRMPS.CheckStr(Request("Re"), 1)
      ChannelDir = WRMPS.CheckStr(Request("ChannelDir"), 0)
        Set Rs = Conn.Execute("select WM_ChannelDir from WM_Channel where WM_ChannelDir='" & ChannelDir & "'")
          If Not Rs.BOF And Not Rs.EOF Then Call WRMPS.ErrView("·频道目录不能重复", 0): Exit Sub
        Rs.Close
      ChannelUrl = Null
      If ChannelDir = "" Then Call WRMPS.ErrView("·你选择的是系统内部频道，请填写频道目录", 0): Exit Sub
      WM_Module = WRMPS.CheckStr(Request("WM_Module"), 1)
      If WM_Module = "" Then Call WRMPS.ErrView("·请选择频道模块", 0): Exit Sub
	ElseIf ChannelType = 0 Then
      Re = Null
      ChannelDir = Null
      WM_Module = 0
      ChannelUrl = WRMPS.CheckStr(Request("ChannelUrl"), 0)
      If ChannelUrl = "" Then Call WRMPS.ErrView("·你选择的是外部连接，请填写连接地址",0): Exit Sub
    End If

    Conn.Execute ("insert into WM_Channel(WM_OrderID,WM_Key,WM_target,WM_ChannelName,WM_ChannelType,WM_Title,WM_ChannelDir,WM_ChannelUrl,WM_Module,WM_Re,WM_View,WM_TitleClass,WM_ChannelLogo,WM_MetaKey,WM_MetaContent,WM_CreateHTML,WM_StructureType,WM_FileNameType,WM_FileExt_Index,WM_FileExt_Item) Values(" & OrderID & "," & Key & "," & WM_Target & ",'" & MenuName & "'," & ChannelType & ",'" & WM_Title & "','" & ChannelDir & "','" & ChannelUrl & "'," & WM_Module & ",'" & Re & "'," & view & ",'" & TitleClass & "','" & ChannelLogo & "','" & MetaKey & "','" & MetaContent & "'," & CreateHTML & "," & StructureType & "," & FileNameType & ",'" & FileExt_Index & "','" & FileExt_Item & "')")
    
    '生成目录
    Call WRMPS.FsoBegin()
    If ChannelType = 1 Then
      Set Rs = Conn.Execute("Select Top 1 WM_ID,WM_ChannelName,WM_Title from WM_Channel Order By WM_ID Desc")
        WM_ID = Rs(0)
        ChannelName = Rs(1)
        WM_Title = Rs(2)
      Rs.Close
      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
	    If WRMPS.FsoIsTrue("Dir","../" & ChannelDir) = True Then
           Conn.Execute ("delete from WM_Channel Where WM_ID=" & WM_ID & "")
           Call WRMPS.ErrView("·新建频道出错，此频道目录可能已经存在", 0): Exit Sub
        Else
		  WRMPS.CreFolder "../" & ChannelDir
		  If WM_DefaultFiles <> "" Then
            WM_DefaultFiles = Split(WM_DefaultFiles, "|")
            For i = 0 To UBound(WM_DefaultFiles)
              WRMPS.FileCopy "../" & WM_DefaultFolder & "/" & WM_DefaultFiles(i),"../" & ChannelDir & "/" & WM_DefaultFiles(i)
            Next
          End If
         On Error Resume Next
		  CreateChannelConfig WM_ID,ChannelDir,WM_Module,ChannelName,WM_Title,re,Key,ChannelLogo,MetaKey,MetaContent,CreateHTML,StructureType,FileNameType,FileExt_Index,FileExt_Item
          If Err Then
		    Err.Clear
            Conn.Execute ("Delete from WM_Channel Where WM_ID=" & WM_ID & "")
            If ChannelDir <> "" Then WRMPS.FsoDel "Dir", "../" & ChannelDir
		    Call WRMPS.ErrView("·频道属性写入出错", 0): Exit Sub
          End If
		End If
    End If
    '复制模板
    If ChannelType = 1 Then
      Set Rso = Conn.Execute("Select WM_ID From WM_Channel Where WM_Module = " & WM_Module)
      If Not Rso.EOF Then
         Rs.Open "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) & "", Conn, 1, 1
         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 & "," & WM_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()
	If ChannelType = 1 Then Response.Write "<script>parent.left.document.location.reload();</script>"
    WRMPS.DelCache "Temp"
	WRTemp.CacheLabelCon "",""
    WRMPS.DelCache "Templates"
	Call WRMPS.ErrView("·新增频道成功<meta http-equiv=refresh content='1;URL=WM.Sys_Channel.asp'>",1)

    Case "RehTemplates"
      ID = WRMPS.CheckStr(Request("WM_ID"), 1)
	  WM_Module = 0
	  Call WRMPS.FsoBegin()
      Set Rs = Conn.Execute("Select WM_TempPath,WM_ModuleID from WM_Templates Where WM_SkinFolder = '"&WR_Setting(5)&"' and WM_ChannelID = "&ID)
	  Do While Not Rs.Eof
		WM_TempPath = Rs(0)
        WM_Module = Rs(1)
		WRMPS.FsoDel "File","../Skins/"&WR_Setting(5)&"/Templates/" & WM_TempPath
	  Rs.MoveNext
	  Loop
	  Rs.Close
      Conn.Execute ("Delete From WM_Templates Where WM_SkinFolder = '"&WR_Setting(5)&"' and WM_ChannelID=" & ID & "")
	  If WM_Module = 0 Then
        Set Rs = Conn.Execute("Select WM_Module From WM_Channel Where WM_ID = " & ID)
        If Not Rs.EOF Then
          WM_Module = Rs(0)
        End If
        Rs.Close
	  End If
	  If WM_Module > 0 Then
        Set Rso = Conn.Execute("Select WM_ID From WM_Channel Where WM_Module = " & WM_Module)
        If Not Rso.EOF Then