📄 wm.skin_label.asp

📁 网人分类信息5.0商业版。非常优秀的分类信息系统。比较少见。
💻 ASP
📖 第 1 页 / 共 5 页
字号:
		If A_NewSign = "" Then A_NewSign = 0
		A_NewNum = WRMPS.CheckStr(Request.Form("A_NewNum"),1)
		If A_NewNum = "" Then A_NewNum = 0
		A_Editor = WRMPS.CheckStr(Request.Form("A_Editor"),1)
		If A_Editor = "" Then A_Editor = 0
		A_Hits = WRMPS.CheckStr(Request.Form("A_Hits"),1)
		If A_Hits = "" Then A_Hits = 0
		A_TeilSymbol = WRMPS.CheckStr(Request.Form("A_TeilSymbol"),6)&"§"&WRMPS.CheckStr(Request.Form("A_TeilSymbol_1"),6)
		A_TeilSymbolColor = WRMPS.CheckStr(Request.Form("A_TeilSymbolColor"),0)
		A_ContentLen = WRMPS.CheckStr(Request.Form("A_ContentLen"),1)
		If A_ContentLen = "" Then A_ContentLen = 0
		A_ContentColor = WRMPS.CheckStr(Request.Form("A_ContentColor"),0)
		A_Width = WRMPS.CheckStr(Request.Form("A_Width"),1)
		If A_Width = "" Then A_Width = 0
		A_Height = WRMPS.CheckStr(Request.Form("A_Height"),1)
		If A_Height = "" Then A_Height = 0
		A_SearchKey = WRMPS.CheckStr(Request.Form("A_SearchKey"),0)
		A_Commend = WRMPS.CheckStr(Request.Form("A_Commend"),1)
		If A_Commend = "" Then A_Commend = 0
		WM_Content = A_Channel&","&Export&","&A_Type&","&A_Class&","&A_ChildClass&","&A_IsDefault&","&A_IsHot&","&A_IsElite&","&A_Num&","&A_ColsNum&","&A_InputerName&","&A_DayNum&","&A_TitleHand&","&A_HandLinkCss&","&A_HandOpenType&","&A_HandSymbol&","&A_HandSymbolColor&","&A_Len&","&A_TitleEllipsis&","&A_Tips&","&A_ShowIncludePic&","&A_OrderType&","&A_LinkCss&","&A_OpenType&","&A_CommentLink&","&A_CommentCss&","&A_HotSign&","&A_HotNum&","&A_DateType&","&A_NewSign&","&A_NewNum&","&A_Editor&","&A_Hits&","&A_TeilSymbol&","&A_TeilSymbolColor&","&A_ContentLen&","&A_ContentColor&","&A_Width&","&A_Height&","&TDCSS&","&A_Commend&","&TDCSS1&","&TDCSS2
		WM_Content = "{$GetArticle("&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,"Article")
		Else
          Call SaveData(LSort,WM_Type,WM_Name,WM_Explain,WM_Content,WM_Taxis,Tit,"Article")
		End If
		
	  Case "SaveInArticle" '个性化文章列表
        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 & "}"
		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(Replace(Replace(Request.Form("A_Channel")," ",""),",","|"),0)
		A_Class = WRMPS.CheckStr(Replace(Replace(Request.Form("A_Class")," ",""),",","|"),0)
		A_ChildClass = WRMPS.CheckStr(Request.Form("A_ChildClass"),1)
		If A_ChildClass = "" Then A_ChildClass = 0
		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_InputerName = WRMPS.CheckStr(Request.Form("A_InputerName"),0)
		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_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_CommentCss = WRMPS.CheckStr(Request.Form("A_CommentCss"),0)
		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_ContentLen = WRMPS.CheckStr(Request.Form("A_ContentLen"),1)
		If A_ContentLen = "" Then A_ContentLen = 0
	    Content = Replace(Replace(Replace(Request.Form("Content"),",","§№§"),"{$Get",""),")}","")
		WM_Content = Export&","&TDCSS&","&TDCSS1&","&TDCSS2&","&A_Channel&","&A_Class&","&A_ChildClass&","&A_IsDefault&","&A_IsHot&","&A_IsElite&","&A_InputerName&","&A_Num&","&A_ColsNum&","&A_DayNum&","&A_Len&","&A_TitleEllipsis&","&A_CommentCss&","&A_OrderType&","&A_HotNum&","&A_NewNum&","&A_ContentLen&","&Content
		WM_Content = "{$GetInArticle("&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,"InArticle")
		Else
          Call SaveData(LSort,WM_Type,WM_Name,WM_Explain,WM_Content,WM_Taxis,Tit,"InArticle")
		End If
		
	  Case "SaveInCompany" '个性化店铺列表
        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 & "}"
		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(Replace(Replace(Request.Form("A_Channel")," ",""),",","|"),0)
		A_Class = WRMPS.CheckStr(Replace(Replace(Request.Form("A_Class")," ",""),",","|"),0)
		A_ChildClass = WRMPS.CheckStr(Request.Form("A_ChildClass"),1)
		If A_ChildClass = "" Then A_ChildClass = 0
		A_Area = WRMPS.CheckStr(Request.Form("A_Area"),1)
		If A_Area = -1 Then A_Area = "Area"
		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_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_CommentCss = WRMPS.CheckStr(Request.Form("A_CommentCss"),0)
		A_OrderType = WRMPS.CheckStr(Request.Form("A_OrderType"),1)
		A_ContentLen = WRMPS.CheckStr(Request.Form("A_ContentLen"),1)
		If A_ContentLen = "" Then A_ContentLen = 0
	    Content = Replace(Replace(Replace(Request.Form("Content"),",","§№§"),"{$Get",""),")}","")
		A_User = WRMPS.CheckStr(Request.Form("A_User"),0)
		A_Commend = WRMPS.CheckStr(Request.Form("A_Commend"),1)
		If A_Commend = "" Then A_Commend = 0
		A_Map = WRMPS.CheckStr(Request.Form("A_Map"),1)
		If A_Map = "" Then A_Map = 0
		WM_Content = Export&","&TDCSS&","&TDCSS1&","&TDCSS2&","&A_Channel&","&A_Class&","&A_ChildClass&","&A_Area&","&A_Num&","&A_ColsNum&","&A_DayNum&","&A_Len&","&A_TitleEllipsis&","&A_CommentCss&","&A_OrderType&","&A_ContentLen&","&Content&","&A_User&","&A_Commend&","&A_Map
		WM_Content = "{$GetInCompany("&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,"InCompany")
		Else
          Call SaveData(LSort,WM_Type,WM_Name,WM_Explain,WM_Content,WM_Taxis,Tit,"InCompany")
		End If
		
	  Case "SaveCompanyDP" '个性化点评列表
        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 & "}"
		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_Area = WRMPS.CheckStr(Request.Form("A_Area"),1)
		If A_Area = -1 Then A_Area = "Area"
		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_CommentCss = WRMPS.CheckStr(Request.Form("A_CommentCss"),0)
		A_OrderType = WRMPS.CheckStr(Request.Form("A_OrderType"),1)
		A_ContentLen = WRMPS.CheckStr(Request.Form("A_ContentLen"),1)
		If A_ContentLen = "" Then A_ContentLen = 0
	    Content = Replace(Replace(Replace(Request.Form("Content"),",","§№§"),"{$Get",""),")}","")
		A_Com = WRMPS.CheckStr(Request.Form("A_Com"),1)
		If A_Com = "" Then A_Com = 0
		A_User = WRMPS.CheckStr(Request.Form("A_User"),0)
		A_Commend = WRMPS.CheckStr(Request.Form("A_Commend"),1)
		If A_Commend = "" Then A_Commend = 0
		WM_Content = Export&","&TDCSS&","&TDCSS1&","&TDCSS2&","&A_Com&","&Content&","&A_Area&","&A_Num&","&A_ColsNum&","&A_DayNum&","&A_Len&","&A_TitleEllipsis&","&A_CommentCss&","&A_OrderType&","&A_ContentLen&","&A_User&","&A_Commend
		WM_Content = "{$GetCompanyDP("&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,"CompanyDP")
		Else
          Call SaveData(LSort,WM_Type,WM_Name,WM_Explain,WM_Content,WM_Taxis,Tit,"CompanyDP")
		End If

	  Case "SaveArticleSortList" '循环栏目文章列表
        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
💿 文件大小 4665 K
👤 上传用户 zergwyk
📂 所属分类其他行业
🏷️ 相关标签

#5.0 #分类 #信息系统 #商
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -