📄 wm.skin_label.asp

📁 网人分类信息5.0商业版。非常优秀的分类信息系统。比较少见。
💻 ASP
📖 第 1 页 / 共 5 页
字号:
		If A_Num = "" Then A_Num = 1
		If A_Num < 1 Then A_Num = 1
		TypeID = WRMPS.CheckStr(Request.Form("TypeID"),1)
		A_ColsNum = WRMPS.CheckStr(Request.Form("ColsNum"),1)
		If A_ColsNum = "" Then A_ColsNum = 0
		A_Symbol = WRMPS.CheckStr(WRMPS.GetReplace(Request.Form("Symbol"),",",""),6)
		A_Css = WRMPS.CheckStr(Request.Form("Css"),0)
		A_OpenType = WRMPS.CheckStr(Request.Form("OpenType"),0)
		A_Hit = WRMPS.CheckStr(Request.Form("Hit"),1)
		HitCss = WRMPS.CheckStr(Request.Form("HitCss"),0)
		A_CSymbol = WRMPS.CheckStr(Request.Form("CSymbol"),6)&"§"&WRMPS.CheckStr(Request.Form("CSymbol_1"),6)
		Taxis = WRMPS.CheckStr(Request.Form("Taxis"),1)
		SymbolCss = WRMPS.CheckStr(Request.Form("SymbolCss"),0)
		Commend = WRMPS.CheckStr(Request.Form("Commend"),1)
        If Commend = "" Then Commend = 0
		WM_Content = Export&","&TDCSS&","&A_Num&","&TypeID&","&A_ColsNum&","&A_Symbol&","&A_Css&","&A_OpenType&","&A_Hit&","&HitCss&","&A_CSymbol&","&Taxis&","&SymbolCss&","&Commend
		WM_Content = "{$GetSearchKey("&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,"SearchKey")
		Else
          Call SaveData(LSort,WM_Type,WM_Name,WM_Explain,WM_Content,WM_Taxis,Tit,"SearchKey")
		End If

	  Case "SaveClassSortList"
        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_ParentID = WRMPS.CheckStr(Request.Form("A_ParentID"),1)
		A_AreaID = WRMPS.CheckStr(Request.Form("A_AreaID"),1)
		A_SortNum = WRMPS.CheckStr(Request.Form("A_SortNum"),1)
		If A_SortNum = "" Then A_SortNum = 0
		A_SortColsNum = WRMPS.CheckStr(Request.Form("A_SortColsNum"),1)
        If A_SortColsNum = "" Then A_SortColsNum = 0
		A_Num = WRMPS.CheckStr(Request.Form("A_Num"),1)
        If A_Num = "" Then A_Num = 0
		A_CNewDay = WRMPS.CheckStr(Request.Form("A_CNewDay"),1)
		If A_CNewDay = "" Then A_CNewDay = 0
		A_IsOver = WRMPS.CheckStr(Request.Form("A_IsOver"),1)
		A_IsElite = WRMPS.CheckStr(Request.Form("A_IsElite"),1)
		A_IsPic = WRMPS.CheckStr(Request.Form("A_IsPic"),1)
		A_Len = WRMPS.CheckStr(Request.Form("A_Len"),1)
		If A_Len = "" Then A_Len = 0
		A_Ellipsis = WRMPS.CheckStr(Request.Form("A_Ellipsis"),1)
		A_Desc = WRMPS.CheckStr(Request.Form("A_Desc"),1)
		Content = Replace(Replace(Replace(Request.Form("Content"),",","§№§"),"{$Get",""),")}","")
		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_ChildArea = WRMPS.CheckStr(Request.Form("A_ChildArea"),1)
		If A_ChildArea = "" Then A_ChildArea = 0
        WM_Content = A_ParentID&","&A_AreaID&","&A_SortNum&","&A_SortColsNum&","&A_Num&","&A_CNewDay&","&A_IsOver&","&A_IsElite&","&A_IsPic&","&A_Len&","&A_Ellipsis&","&A_Desc&","&Content&","&Export&","&TDCSS&","&TDCSS1&","&TDCSS2&","&A_ChildArea
		WM_Content = "{$GetClassSortList("&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,"ClassSortList")
		Else
          Call SaveData(LSort,WM_Type,WM_Name,WM_Explain,WM_Content,WM_Taxis,Tit,"ClassSortList")
		End If

	  Case "SaveInClassAD"
        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_BigID = WRMPS.CheckStr(Replace(Replace(Request.Form("A_BigID")," ",""),",","|"),0)
		A_Area = WRMPS.CheckStr(Request.Form("A_Area"),1)
		A_ComID = WRMPS.CheckStr(Request.Form("A_ComID"),1)
        If A_ComID = "" Then A_ComID = 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_IsOver = WRMPS.CheckStr(Request.Form("A_IsOver"),1)
		A_IsElite = WRMPS.CheckStr(Request.Form("A_IsElite"),1)
		A_IsPic = WRMPS.CheckStr(Request.Form("A_IsPic"),1)
		A_ColsNum = WRMPS.CheckStr(Request.Form("A_ColsNum"),1)
        If A_ColsNum = "" Then A_ColsNum = 0
		A_Author = WRMPS.CheckStr(Request.Form("A_Author"),0)
		A_DayNum = WRMPS.CheckStr(Request.Form("A_DayNum"),1)
		If A_DayNum = "" Then A_DayNum = 0
		A_Date = WRMPS.CheckStr(Request.Form("A_Date"),0)
		If A_Date <> "" And UCase(A_Date) <> "C" Then If IsDate(A_Date) = False Then A_Date = ""
		A_Len = WRMPS.CheckStr(Request.Form("A_Len"),1)
        If A_Len = "" Then A_Len = 0
		A_Ellipsis = WRMPS.CheckStr(Request.Form("A_Ellipsis"),1)
		A_Desc = WRMPS.CheckStr(Request.Form("A_Desc"),1)
		A_CNewDay = WRMPS.CheckStr(Request.Form("A_CNewDay"),1)
        If A_CNewDay = "" Then A_CNewDay = 0
		A_ContentLen = WRMPS.CheckStr(Request.Form("A_ContentLen"),1)
		If A_ContentLen = "" Then A_ContentLen = 0
		A_TagCss = WRMPS.CheckStr(Request.Form("A_TagCss"),0)
	    Content = Replace(Replace(Replace(Request.Form("Content"),",","§№§"),"{$Get",""),")}","")
        WM_Content = Export&","&TDCSS&","&TDCSS1&","&TDCSS2&","&A_BigID&","&A_Area&","&A_ComID&","&A_Num&","&A_IsOver&","&A_IsElite&","&A_IsPic&","&A_ColsNum&","&A_Author&","&A_DayNum&","&A_Date&","&A_Len&","&A_Ellipsis&","&A_Desc&","&A_CNewDay&","&A_ContentLen&","&A_TagCss&","&Content
		WM_Content = "{$GetInClassAD("&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,"InClassAD")
		Else
          Call SaveData(LSort,WM_Type,WM_Name,WM_Explain,WM_Content,WM_Taxis,Tit,"InClassAD")
		End If

	  Case "SaveArticle" '文章列表
        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_Type = WRMPS.CheckStr(Request.Form("A_Type"),1)
		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_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_InputerName = WRMPS.CheckStr(Request.Form("A_InputerName"),0)
		A_DayNum = WRMPS.CheckStr(Request.Form("A_DayNum"),1)
		If A_DayNum = "" Then A_DayNum = 0
		A_TitleHand = WRMPS.CheckStr(Request.Form("A_TitleHand"),0)
		A_TitleHand_1 = WRMPS.CheckStr(Request.Form("A_TitleHand_1"),0)
		If A_TitleHand_1 <> "" Then A_TitleHand = A_TitleHand_1
		A_HandLinkCss = WRMPS.CheckStr(Request.Form("A_HandLinkCss"),0)
		A_HandOpenType = WRMPS.CheckStr(Request.Form("A_HandOpenType"),0)
		A_HandSymbol = WRMPS.CheckStr(Request.Form("A_HandSymbol"),6)&"§"&WRMPS.CheckStr(Request.Form("A_HandSymbol_1"),6)
		A_HandSymbolColor = WRMPS.CheckStr(Request.Form("A_HandSymbolColor"),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_Tips = WRMPS.CheckStr(Request.Form("A_Tips"),1)
		If A_Tips = "" Then A_Tips = 0
		A_ShowIncludePic = WRMPS.CheckStr(Request.Form("A_ShowIncludePic"),1)
		If A_ShowIncludePic = "" Then A_ShowIncludePic = 0
		A_OrderType = WRMPS.CheckStr(Request.Form("A_OrderType"),1)
		A_LinkCss = WRMPS.CheckStr(Request.Form("A_LinkCss"),0)
		A_OpenType = WRMPS.CheckStr(Request.Form("A_OpenType"),0)
		A_CommentLink = WRMPS.CheckStr(Request.Form("A_CommentLink"),1)
		If A_CommentLink = "" Then A_CommentLink = 0
		A_CommentCss = WRMPS.CheckStr(Request.Form("A_CommentCss"),0)
		A_HotSign = WRMPS.CheckStr(Request.Form("A_HotSign"),1)
		If A_HotSign = "" Then A_HotSign = 0
		A_HotNum = WRMPS.CheckStr(Request.Form("A_HotNum"),1)
		If A_HotNum = "" Then A_HotNum = 0
		A_DateType = WRMPS.CheckStr(Request.Form("A_DateType"),1)
		A_NewSign = WRMPS.CheckStr(Request.Form("A_NewSign"),1)
💿 文件大小 4665 K
👤 上传用户 zergwyk
📂 所属分类其他行业
🏷️ 相关标签

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

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