wm.skin_label.asp

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

          If WM_Taxis = "" Then Call WRMPS.ErrView("·"&Tit&"排序不能为空<meta http-equiv=refresh content='1;URL=?Action=Add"&ESQL&"&LabelSort="&LabelSort&"&Type="&WM_Type&"&SaveType="&Request("SaveType")&"'>", 0): Exit Sub
        Else
		  If WM_Name = "" Then Call WRMPS.ErrView("·"&Tit&"名称不能为空<meta http-equiv=refresh content='1;URL=?Action=Edit"&ESQL&"&LabelSort="&LabelSort&"&WM_ID="&WM_ID&"&Type="&WM_Type&"&SaveType="&Request("SaveType")&"'>", 0): Exit Sub
          If WM_Taxis = "" Then Call WRMPS.ErrView("·"&Tit&"排序不能为空<meta http-equiv=refresh content='1;URL=?Action=Edit"&ESQL&"&LabelSort="&LabelSort&"&WM_ID="&WM_ID&"&Type="&WM_Type&"&SaveType="&Request("SaveType")&"'>", 0): Exit Sub
		End If
		WM_Name = "{$"&LabelHand&"_" & WM_Name & "}"
		Export = WRMPS.CheckStr(Request.Form("Export"),1)
		Select Case Export
		  Case 2
		    TDCSS = WRMPS.CheckStr(Request.Form("TDCSS"),0)
		    TDCSS1 = ""
			TDCSS2 = ""
		  Case 3
		    TDCSS = WRMPS.CheckStr(Request.Form("TDCSS0"),0)
	     	TDCSS1 = WRMPS.CheckStr(Request.Form("TDCSS1"),0)
	    	TDCSS2 = WRMPS.CheckStr(Request.Form("TDCSS2"),0)
		End Select
		A_Channel = WRMPS.CheckStr(Request.Form("A_Channel"),1)
		If A_Channel = "" Then A_Channel = 0
		A_Class = WRMPS.CheckStr(Request.Form("A_Class"),1)
        If A_Class = "" Then A_Class = -1
		A_IsDefault = WRMPS.CheckStr(Request.Form("A_IsDefault"),1)
		If A_IsDefault = "" Then A_IsDefault = 0
		A_IsHot = WRMPS.CheckStr(Request.Form("A_IsHot"),1)
		If A_IsHot = "" Then A_IsHot = 0
		A_IsElite = WRMPS.CheckStr(Request.Form("A_IsElite"),1)
		If A_IsElite = "" Then A_IsElite = 0
		A_Num = WRMPS.CheckStr(Request.Form("A_Num"),1)
		If A_Num = "" Then A_Num = 0
		A_ColsNum = WRMPS.CheckStr(Request.Form("A_ColsNum"),1)
		If A_ColsNum = "" Then A_ColsNum = 0
		A_DayNum = WRMPS.CheckStr(Request.Form("A_DayNum"),1)
		If A_DayNum = "" Then A_DayNum = 0
		A_Len = WRMPS.CheckStr(Request.Form("A_Len"),1)
		If A_Len = "" Then A_Len = 0
		A_TitleEllipsis = WRMPS.CheckStr(Request.Form("A_TitleEllipsis"),1)
		A_OrderType = WRMPS.CheckStr(Request.Form("A_OrderType"),1)
		A_HotNum = WRMPS.CheckStr(Request.Form("A_HotNum"),1)
		If A_HotNum = "" Then A_HotNum = 0
		A_NewNum = WRMPS.CheckStr(Request.Form("A_NewNum"),1)
		If A_NewNum = "" Then A_NewNum = 0
		A_SortNum = WRMPS.CheckStr(Request.Form("A_SortNum"),1)
		If A_SortNum = "" Then A_SortNum = 0
		Content = Replace(Replace(Replace(Request.Form("Content"),",","§№§"),"{$Get",""),")}","")
		WM_Content = Export&","&TDCSS&","&TDCSS1&","&TDCSS2&","&A_Channel&","&A_Class&","&A_IsDefault&","&A_IsHot&","&A_IsElite&","&A_Num&","&A_ColsNum&","&A_DayNum&","&A_Len&","&A_TitleEllipsis&","&A_OrderType&","&A_HotNum&","&A_NewNum&","&A_SortNum&","&Content
		WM_Content = "{$GetArticleSortList("&WM_Content&")}"
		If WM_ID > 0 Then
          Call EditSaveData(LSort,WM_Type,WM_Name1,WM_Name,WM_Explain,WM_Content,WM_Taxis,Tit,WM_ID,"ArticleSortList")
		Else
          Call SaveData(LSort,WM_Type,WM_Name,WM_Explain,WM_Content,WM_Taxis,Tit,"ArticleSortList")
		End If

	  Case "SaveLink" '友情链接标签
        If WM_ID = 0 Then
		  If WM_Name = "" Then Call WRMPS.ErrView("·"&Tit&"名称不能为空<meta http-equiv=refresh content='1;URL=?Action=Add"&ESQL&"&LabelSort="&LabelSort&"&Type="&WM_Type&"&SaveType="&Request("SaveType")&"'>", 0): Exit Sub
          If WM_Taxis = "" Then Call WRMPS.ErrView("·"&Tit&"排序不能为空<meta http-equiv=refresh content='1;URL=?Action=Add"&ESQL&"&LabelSort="&LabelSort&"&Type="&WM_Type&"&SaveType="&Request("SaveType")&"'>", 0): Exit Sub
        Else
		  If WM_Name = "" Then Call WRMPS.ErrView("·"&Tit&"名称不能为空<meta http-equiv=refresh content='1;URL=?Action=Edit"&ESQL&"&LabelSort="&LabelSort&"&WM_ID="&WM_ID&"&Type="&WM_Type&"&SaveType="&Request("SaveType")&"'>", 0): Exit Sub
          If WM_Taxis = "" Then Call WRMPS.ErrView("·"&Tit&"排序不能为空<meta http-equiv=refresh content='1;URL=?Action=Edit"&ESQL&"&LabelSort="&LabelSort&"&WM_ID="&WM_ID&"&Type="&WM_Type&"&SaveType="&Request("SaveType")&"'>", 0): Exit Sub
		End If
		WM_Name = "{$"&LabelHand&"_" & WM_Name & "}"
        eType = WRMPS.CheckStr(Request.Form("eType"),1)
	    Num = WRMPS.CheckStr(Request.Form("Num"),1)
		If Num = "" Then Num = 0
	    ColsNum = WRMPS.CheckStr(Request.Form("ColsNum"),1)
		If ColsNum = "" Then ColsNum = 0
		Commend = WRMPS.CheckStr(Request.Form("Commend"),1)
		Css = WRMPS.CheckStr(Request.Form("Css"),0)
		Taxis = WRMPS.CheckStr(Request.Form("Taxis"),1)
		IsRecruit = WRMPS.CheckStr(Request.Form("IsRecruit"),1)
        Symbol = WRMPS.CheckStr(WRMPS.GetReplace(Request.Form("Symbol"),",",""),6)
		Export = WRMPS.CheckStr(Request.Form("Export"),1)
		Select Case Export
		  Case 1
		    TDCSS = ""
		    TDCSS1 = ""
			TDCSS2 = ""
		  Case 2
		    TDCSS = WRMPS.CheckStr(Request.Form("TDCSS"),0)
		    TDCSS1 = ""
			TDCSS2 = ""
		  Case 3
		    TDCSS = WRMPS.CheckStr(Request.Form("TDCSS0"),0)
	     	TDCSS1 = WRMPS.CheckStr(Request.Form("TDCSS1"),0)
	    	TDCSS2 = WRMPS.CheckStr(Request.Form("TDCSS2"),0)
		End Select
		A_Area = WRMPS.CheckStr(Request.Form("A_Area"),1)
        WM_Content = eType&","&Num&","&ColsNum&","&Commend&","&Css&","&Taxis&","&Export&","&TDCSS&","&TDCSS1&","&TDCSS2&","&IsRecruit&","&Symbol&","&A_Area
		WM_Content = "{$GetLinks("&WM_Content&")}"
		If WM_ID > 0 Then
          Call EditSaveData(LSort,WM_Type,WM_Name1,WM_Name,WM_Explain,WM_Content,WM_Taxis,Tit,WM_ID,"Link")
		Else
          Call SaveData(LSort,WM_Type,WM_Name,WM_Explain,WM_Content,WM_Taxis,Tit,"Link")
		End If

	  Case "SaveGuestBook"
        If WM_ID = 0 Then
		  If WM_Name = "" Then Call WRMPS.ErrView("·"&Tit&"名称不能为空<meta http-equiv=refresh content='1;URL=?Action=Add"&ESQL&"&LabelSort="&LabelSort&"&Type="&WM_Type&"&SaveType="&Request("SaveType")&"'>", 0): Exit Sub
          If WM_Taxis = "" Then Call WRMPS.ErrView("·"&Tit&"排序不能为空<meta http-equiv=refresh content='1;URL=?Action=Add"&ESQL&"&LabelSort="&LabelSort&"&Type="&WM_Type&"&SaveType="&Request("SaveType")&"'>", 0): Exit Sub
        Else
		  If WM_Name = "" Then Call WRMPS.ErrView("·"&Tit&"名称不能为空<meta http-equiv=refresh content='1;URL=?Action=Edit"&ESQL&"&LabelSort="&LabelSort&"&WM_ID="&WM_ID&"&Type="&WM_Type&"&SaveType="&Request("SaveType")&"'>", 0): Exit Sub
          If WM_Taxis = "" Then Call WRMPS.ErrView("·"&Tit&"排序不能为空<meta http-equiv=refresh content='1;URL=?Action=Edit"&ESQL&"&LabelSort="&LabelSort&"&WM_ID="&WM_ID&"&Type="&WM_Type&"&SaveType="&Request("SaveType")&"'>", 0): Exit Sub
		End If
		WM_Name = "{$"&LabelHand&"_" & WM_Name & "}"
		A_Num = WRMPS.CheckStr(Request.Form("A_Num"),1)
		If A_Num = "" Then A_Num = 1
		If A_Num < 1 Then A_Num = 1
		A_ContentLen = WRMPS.CheckStr(Request.Form("A_ContentLen"),1)
		If A_ContentLen = "" Then A_ContentLen = 0
		A_Len = WRMPS.CheckStr(Request.Form("A_Len"),1)
		If A_Len = "" Then A_Len = 0
		A_TitleEllipsis = WRMPS.CheckStr(Request.Form("A_TitleEllipsis"),1)
		Content = Replace(Replace(Replace(Request.Form("Content"),",","§№§"),"{$Get",""),")}","")
        WM_Content = A_Num&","&A_ContentLen&","&A_Len&","&A_TitleEllipsis&","&Content
		WM_Content = "{$GetGuestBook("&WM_Content&")}"
		If WM_ID > 0 Then
          Call EditSaveData(LSort,WM_Type,WM_Name1,WM_Name,WM_Explain,WM_Content,WM_Taxis,Tit,WM_ID,"GuestBook")
		Else
          Call SaveData(LSort,WM_Type,WM_Name,WM_Explain,WM_Content,WM_Taxis,Tit,"GuestBook")
		End If

	  Case "SaveArticleSort" '文章分类标签
        If WM_ID = 0 Then
		  If WM_Name = "" Then Call WRMPS.ErrView("·"&Tit&"名称不能为空<meta http-equiv=refresh content='1;URL=?Action=Add"&ESQL&"&LabelSort="&LabelSort&"&Type="&WM_Type&"&SaveType="&Request("SaveType")&"'>", 0): Exit Sub
          If WM_Taxis = "" Then Call WRMPS.ErrView("·"&Tit&"排序不能为空<meta http-equiv=refresh content='1;URL=?Action=Add"&ESQL&"&LabelSort="&LabelSort&"&Type="&WM_Type&"&SaveType="&Request("SaveType")&"'>", 0): Exit Sub
        Else
		  If WM_Name = "" Then Call WRMPS.ErrView("·"&Tit&"名称不能为空<meta http-equiv=refresh content='1;URL=?Action=Edit"&ESQL&"&LabelSort="&LabelSort&"&WM_ID="&WM_ID&"&Type="&WM_Type&"&SaveType="&Request("SaveType")&"'>", 0): Exit Sub
          If WM_Taxis = "" Then Call WRMPS.ErrView("·"&Tit&"排序不能为空<meta http-equiv=refresh content='1;URL=?Action=Edit"&ESQL&"&LabelSort="&LabelSort&"&WM_ID="&WM_ID&"&Type="&WM_Type&"&SaveType="&Request("SaveType")&"'>", 0): Exit Sub
		End If
		WM_Name = "{$"&LabelHand&"_" & WM_Name & "}"
        BigID = WRMPS.CheckStr(Request.Form("BigID"),1)
		If BigID = "" Then BigID = 0
		Export = WRMPS.CheckStr(Request.Form("Export"),1)
		Select Case Export
		  Case 1
		    TDCSS = ""
		    TDCSS1 = ""
			TDCSS2 = ""
		    TDStopCSS = ""
		  Case 2
		    TDCSS = WRMPS.CheckStr(Request.Form("TDCSS"),0)
		    TDCSS1 = ""
			TDCSS2 = ""
		    TDStopCSS = WRMPS.CheckStr(Request.Form("TDStopCSS"),0)
		  Case 3
		    TDCSS = WRMPS.CheckStr(Request.Form("TDCSS0"),0)
	     	TDCSS1 = WRMPS.CheckStr(Request.Form("TDCSS1"),0)
	    	TDCSS2 = WRMPS.CheckStr(Request.Form("TDCSS2"),0)
		    TDStopCSS = WRMPS.CheckStr(Request.Form("TDStopCSS0"),0)
		End Select
        ColsNum = WRMPS.CheckStr(Request.Form("ColsNum"),1)
		If ColsNum = "" Then ColsNum = 0
        CSS = WRMPS.CheckStr(Request.Form("CSS"),0)
        Explain = WRMPS.CheckStr(Request.Form("Explain"),1)
        OpenType = WRMPS.CheckStr(Request.Form("OpenType"),0)
        Symbol = WRMPS.CheckStr(WRMPS.GetReplace(Request.Form("Symbol"),",",""),6)&"§"&WRMPS.CheckStr(Request.Form("Symbol_1"),6)
        SymbolCSS = WRMPS.CheckStr(Request.Form("SymbolCSS"),0)
		WM_Content = BigID&","&Export&","&TDCSS&","&TDCSS1&","&TDCSS2&","&TDStopCSS&","&ColsNum&","&CSS&","&Explain&","&OpenType&","&Symbol&","&SymbolCSS
        WM_Content = "{$GetArticleSort("&WM_Content&")}"
		If WM_ID > 0 Then
          Call EditSaveData(LSort,WM_Type,WM_Name1,WM_Name,WM_Explain,WM_Content,WM_Taxis,Tit,WM_ID,"ArticleSort")
		Else
          Call SaveData(LSort,WM_Type,WM_Name,WM_Explain,WM_Content,WM_Taxis,Tit,"ArticleSort")
		End If
	  
	  Case "SaveCompanySort" '店铺分类标签
        If WM_ID = 0 Then
		  If WM_Name = "" Then Call WRMPS.ErrView("·"&Tit&"名称不能为空<meta http-equiv=refresh content='1;URL=?Action=Add"&ESQL&"&LabelSort="&LabelSort&"&Type="&WM_Type&"&SaveType="&Request("SaveType")&"'>", 0): Exit Sub
          If WM_Taxis = "" Then Call WRMPS.ErrView("·"&Tit&"排序不能为空<meta http-equiv=refresh content='1;URL=?Action=Add"&ESQL&"&LabelSort="&LabelSort&"&Type="&WM_Type&"&SaveType="&Request("SaveType")&"'>", 0): Exit Sub
        Else
		  If WM_Name = "" Then Call WRMPS.ErrView("·"&Tit&"名称不能为空<meta http-equiv=refresh content='1;URL=?Action=Edit"&ESQL&"&LabelSort="&LabelSort&"&WM_ID="&WM_ID&"&Type="&WM_Type&"&SaveType="&Request("SaveType")&"'>", 0): Exit Sub
          If WM_Taxis = "" Then Call WRMPS.ErrView("·"&Tit&"排序不能为空<meta http-equiv=refresh content='1;URL=?Action=Edit"&ESQL&"&LabelSort="&LabelSort&"&WM_ID="&WM_ID&"&Type="&WM_Type&"&SaveType="&Request("SaveType")&"'>", 0): Exit Sub
		End If
		WM_Name = "{$"&LabelHand&"_" & WM_Name & "}"
        BigID = WRMPS.CheckStr(Request.Form("BigID"),1)
		If BigID = "" Then BigID = 0
		Export = WRMPS.CheckStr(Request.Form("Export"),1)
		Select Case Export
		  Case 1
		    TDCSS = ""
		    TDCSS1 = ""
			TDCSS2 = ""
		    TDStopCSS = ""
		  Case 2
		    TDCSS = WRMPS.CheckStr(Request.Form("TDCSS"),0)
		    TDCSS1 = ""
			TDCSS2 = ""
		    TDStopCSS = WRMPS.CheckStr(Request.Form("TDStopCSS"),0)
		  Case 3
		    TDCSS = WRMPS.CheckStr(Request.Form("TDCSS0"),0)
	     	TDCSS1 = WRMPS.CheckStr(Request.Form("TDCSS1"),0)