📄 wm.skin_label.asp

📁 网人分类信息5.0商业版。非常优秀的分类信息系统。比较少见。
💻 ASP
📖 第 1 页 / 共 5 页
字号:
上一页 1 2 3 45
	    	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 = "{$GetCompanySort("&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,"CompanySort")
		Else
          Call SaveData(LSort,WM_Type,WM_Name,WM_Explain,WM_Content,WM_Taxis,Tit,"CompanySort")
		End If

	  Case "SaveInCompanySort" '个性店铺分类标签
        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 1
		    TDCSS = WRMPS.CheckStr(Request.Form("TDCSS"),0)
		    TDCSS1 = ""
			TDCSS2 = ""
		    CTDCSS = WRMPS.CheckStr(Request.Form("CTDCSS"),0)
		    CTDCSS1 = ""
			CTDCSS2 = ""
		  Case 2
		    TDCSS = WRMPS.CheckStr(Request.Form("TDCSS0"),0)
		    TDCSS1 = WRMPS.CheckStr(Request.Form("TDCSS1"),0)
			TDCSS2 = WRMPS.CheckStr(Request.Form("TDCSS2"),0)
		    CTDCSS = WRMPS.CheckStr(Request.Form("CTDCSS0"),0)
		    CTDCSS1 = WRMPS.CheckStr(Request.Form("CTDCSS1"),0)
			CTDCSS2 = WRMPS.CheckStr(Request.Form("CTDCSS2"),0)
		End Select
	    BNum = WRMPS.CheckStr(Request.Form("BNum"),1)
		If BNum = "" Then BNum = 0
	    BCols = WRMPS.CheckStr(Request.Form("BCols"),1)
		If BCols = "" Then BCols = 1
	    BFontNum = WRMPS.CheckStr(Request.Form("BFontNum"),1)
		If BFontNum = "" Then BFontNum = 0
	    BCss = WRMPS.CheckStr(Request.Form("BCss"),0)
	    BCompart = WRMPS.CheckStr(Request.Form("BCompart"),6)&"§"&WRMPS.CheckStr(Request.Form("BCompart_1"),6)
		BCompartCss = WRMPS.CheckStr(Request.Form("BCompartCss"),0)
		Target = WRMPS.CheckStr(Request.Form("Target"),0)
	    Child = WRMPS.CheckStr(Request.Form("Child"),1)
	    BigID = WRMPS.CheckStr(Request.Form("BigID"),0)
	    CNum = WRMPS.CheckStr(Request.Form("CNum"),1)
		If CNum = "" Then CNum = 0
	    CCols = WRMPS.CheckStr(Request.Form("CCols"),1)
		If CCols = "" Then CCols = 1
	    CCss = WRMPS.CheckStr(Request.Form("CCss"),0)
	    CFontNum = WRMPS.CheckStr(Request.Form("CFontNum"),1)
		If CFontNum = "" Then CFontNum = 0
	    CCompart = WRMPS.CheckStr(Request.Form("CCompart"),6)&"§"&WRMPS.CheckStr(Request.Form("CCompart_1"),6)
		CCompartCss = WRMPS.CheckStr(Request.Form("CCompartCss"),0)
		CTarget = WRMPS.CheckStr(Request.Form("CTarget"),0)
	    BShow = WRMPS.CheckStr(Request.Form("BShow"),1)
		BShowCss = WRMPS.CheckStr(Request.Form("BShowCss"),0)
		CShow = WRMPS.CheckStr(Request.Form("CShow"),1)
		CShowCss = WRMPS.CheckStr(Request.Form("CShowCss"),0)
		
		WM_Content = Export&","&TDCSS&","&TDCSS1&","&TDCSS2&","&CTDCSS&","&CTDCSS1&","&CTDCSS2&","&BNum&","&BCols&","&BFontNum&","&BCss&","&BCompart&","&BCompartCss&","&Target&","&Child&","&BigID&","&CNum&","&CCols&","&CCss&","&CFontNum&","&CCompart&","&CCompartCss&","&CTarget&","&BShow&","&BShowCss&","&CShow&","&CShowCss
        WM_Content = "{$GetInCompanySort("&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,"InCompanySort")
		Else
          Call SaveData(LSort,WM_Type,WM_Name,WM_Explain,WM_Content,WM_Taxis,Tit,"InCompanySort")
		End If

	  Case "SaveCouponSort" '店铺分类标签
        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 = "{$GetCouponSort("&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,"CouponSort")
		Else
          Call SaveData(LSort,WM_Type,WM_Name,WM_Explain,WM_Content,WM_Taxis,Tit,"CouponSort")
		End If

	  Case "SaveInCouponSort" '个性店铺分类标签
        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 1
		    TDCSS = WRMPS.CheckStr(Request.Form("TDCSS"),0)
		    TDCSS1 = ""
			TDCSS2 = ""
		    CTDCSS = WRMPS.CheckStr(Request.Form("CTDCSS"),0)
		    CTDCSS1 = ""
			CTDCSS2 = ""
		  Case 2
		    TDCSS = WRMPS.CheckStr(Request.Form("TDCSS0"),0)
		    TDCSS1 = WRMPS.CheckStr(Request.Form("TDCSS1"),0)
			TDCSS2 = WRMPS.CheckStr(Request.Form("TDCSS2"),0)
		    CTDCSS = WRMPS.CheckStr(Request.Form("CTDCSS0"),0)
		    CTDCSS1 = WRMPS.CheckStr(Request.Form("CTDCSS1"),0)
			CTDCSS2 = WRMPS.CheckStr(Request.Form("CTDCSS2"),0)
		End Select
	    BNum = WRMPS.CheckStr(Request.Form("BNum"),1)
		If BNum = "" Then BNum = 0
	    BCols = WRMPS.CheckStr(Request.Form("BCols"),1)
		If BCols = "" Then BCols = 1
	    BFontNum = WRMPS.CheckStr(Request.Form("BFontNum"),1)
		If BFontNum = "" Then BFontNum = 0
	    BCss = WRMPS.CheckStr(Request.Form("BCss"),0)
	    BCompart = WRMPS.CheckStr(Request.Form("BCompart"),6)&"§"&WRMPS.CheckStr(Request.Form("BCompart_1"),6)
		BCompartCss = WRMPS.CheckStr(Request.Form("BCompartCss"),0)
		Target = WRMPS.CheckStr(Request.Form("Target"),0)
	    Child = WRMPS.CheckStr(Request.Form("Child"),1)
	    BigID = WRMPS.CheckStr(Request.Form("BigID"),0)
	    CNum = WRMPS.CheckStr(Request.Form("CNum"),1)
		If CNum = "" Then CNum = 0
	    CCols = WRMPS.CheckStr(Request.Form("CCols"),1)
		If CCols = "" Then CCols = 1
	    CCss = WRMPS.CheckStr(Request.Form("CCss"),0)
	    CFontNum = WRMPS.CheckStr(Request.Form("CFontNum"),1)
		If CFontNum = "" Then CFontNum = 0
	    CCompart = WRMPS.CheckStr(Request.Form("CCompart"),6)&"§"&WRMPS.CheckStr(Request.Form("CCompart_1"),6)
		CCompartCss = WRMPS.CheckStr(Request.Form("CCompartCss"),0)
		CTarget = WRMPS.CheckStr(Request.Form("CTarget"),0)
	    BShow = WRMPS.CheckStr(Request.Form("BShow"),1)
		BShowCss = WRMPS.CheckStr(Request.Form("BShowCss"),0)
		CShow = WRMPS.CheckStr(Request.Form("CShow"),1)
		CShowCss = WRMPS.CheckStr(Request.Form("CShowCss"),0)
		
		WM_Content = Export&","&TDCSS&","&TDCSS1&","&TDCSS2&","&CTDCSS&","&CTDCSS1&","&CTDCSS2&","&BNum&","&BCols&","&BFontNum&","&BCss&","&BCompart&","&BCompartCss&","&Target&","&Child&","&BigID&","&CNum&","&CCols&","&CCss&","&CFontNum&","&CCompart&","&CCompartCss&","&CTarget&","&BShow&","&BShowCss&","&CShow&","&CShowCss
        WM_Content = "{$GetInCouponSort("&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,"InCouponSort")
		Else
          Call SaveData(LSort,WM_Type,WM_Name,WM_Explain,WM_Content,WM_Taxis,Tit,"InCouponSort")
		End If

	  Case "SaveInCoupon"
        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
上一页 1 2 3 45
💿 文件大小 4665 K
👤 上传用户 zergwyk
📂 所属分类其他行业
🏷️ 相关标签

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

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