admin_batch.asp

正版创力4.1SQL商业版!!!ASP版。

		end if
	end if
	if OnTop="yes" then
		OnTop=True
	else
		OnTop=False
	end if
	if Elite="yes" then
		Elite=True
	else
		Elite=False
	end if
	if IsDownLoad="yes" then
		IsDownLoad=True
	else
		IsDownLoad=False
	end if
	Set rsB=Server.CreateObject("Adodb.recordset")
	rsB.Open sSQL,Conn,1,3
	Do while not rsB.Eof
		
		if MKeyword="Yes" then rsB("Keyword")=Keyword
		if MAuthorName="Yes" then rsB("Author")=Author
		if MInfoGroup="Yes" then rsB("InfoGroup")=InfoGroup
		if MInfoPoint="Yes" then rsB("InfoPoint")=InfoPoint
		if MOnTop="Yes" then rsB("OnTop")=OnTop
		'if MHot="Yes" then rsB("Hot")=Hot
		if MElite="Yes" then rsB("Elite")=Elite
		if MIsDownLoad="Yes" then rsB("IsDownLoad")=IsDownLoad
		if MStars="Yes" then rsB("Stars")=Stars
		if MHits="Yes" then
			rsB("Hits")=Hits
			rsB("DayHits")=DayHits
			rsB("WeekHits")=WeekHits
			rsB("MonthHits")=MonthHits
		end if
		if MInfoMoney="Yes" then rsB("InfoMoney")=InfoMoney
		if MBackPoint="Yes"	then
			rsB("BackPoint")	= BackPoint
			rsB("BackPointRate")= BackPointRate
		End if
		if MBackMoney="Yes"	then
			rsB("BackMoney")	= BackMoney
			rsB("BackMoneyRate")= BackMoneyRate
		End if
		rsB.Update
		rsB.MoveNext
	Loop
	rsB.Close:Set rsB=Nothing
End Sub

Sub SaveBatch_4()
	Dim BatchType,TempID,TempClassID,sSQL,rsB
	BatchType=Trim(Request("BatchType"))
	if Not IsNumeric(BatchType) then BatchType=1
	BatchType=Cint(BatchType)
	TempID=Trim(Request("InfoID"))
	TempClassID=Trim(Request("ClassID"))
	if BatchType=1 then
		if Not IsNumeric(Replace(Replace(TempID,",","")," ","")) then Cl.ShowErr("参数中含有非法ID！")
		TempID=Replace(TempID," ","")
		sSQL="select * From Cl_Movie where InfoID In ("&TempID&") Order By InfoID desc"
	Elseif BatchType=2 then
		if Not IsNumeric(Replace(Replace(TempClassID,",","")," ","")) then Cl.ShowErr("参数中含有非法ID！")
		TempClassID=Replace(TempClassID," ","")
		sSQL="select * From Cl_Movie where ClassID In ("&TempClassID&") Order By InfoID desc"
	else
		Cl.ShowErr("参数错误！")
	end if

	Dim MKeyword,MMovieCorner,MMovieLanguage,MIsOnline,MIsDownLoad,MOnTop,MElite,MStars,MHits,MDownNums,MInfoGroup,MDownLoadGroup,MInfoPoint,MDownLoadPoint,MMovieUrl
	Dim Keyword,MovieCorner,MovieLanguage,IsOnline,IsDownLoad,OnTop,Elite,Stars
	Dim DayHits,WeekHits,MonthHits,Hits,DayDownNums,WeekDownNums,MonthDownNums,DownNums
	Dim InfoGroup,DownLoadGroup,InfoPoint,DownLoadPoint,MovieUrl
	Dim MInfoMoney,MDownLoadMoney,MBackPoint,MBackMoney
	Dim InfoMoney,DownLoadMoney,BackPoint,BackPointRate,BackMoney,BackMoneyRate
	MKeyword		= Trim(Request("MKeyword"))
	MMovieCorner	= Trim(Request("MMovieCorner"))
	MMovielanguage	= Trim(Request("MMovieLanguage"))
	MIsOnline		= Trim(Request("MIsOnline"))
	MIsDownLoad		= Trim(Request("MIsDownLoad"))
	MOnTop			= Trim(Request("MOnTop"))
	MElite			= Trim(Request("MElite"))
	MStars			= Trim(Request("MStars"))
	MHits			= Trim(Request("MHits"))
	MDownNums		= Trim(Request("MDownNums"))
	MInfoGroup		= Trim(Request("MInfoGroup"))
	MDownLoadGroup	= Trim(Request("MDownLoadGroup"))
	MInfoPoint		= Trim(Request("MInfoPoint"))
	MDownLoadPoint	= Trim(Request("MDownLoadPoint"))
	MMovieUrl		= Trim(Request("MMovieUrl"))
	MInfoMoney		= Trim(Request("MInfoMoney"))
	MDownLoadMoney	= Trim(Request("MDownLoadMoney"))
	MBackPoint		= Trim(Request("MBackPoint"))
	MBackMoney		= Trim(Request("MBackMoney"))

	if MKeyword<>"Yes" and MMovieCorner<>"Yes" and MMovieLanguage<>"Yes" and MIsOnline<>"Yes" and MIsDownLoad<>"Yes" and MOnTop<>"Yes" and MElite<>"Yes" and MStars<>"Yes" and MHits<>"Yes" and MDownNums<>"Yes" and MInfoGroup<>"Yes" and MDownLoadGroup<>"Yes" and MInfoPoint<>"Yes" and MDownLoadPoint<>"Yes" and MMovieUrl<>"Yes" and MInfoMoney<>"Yes" and MDownLoadMoney<>"Yes" and MBackPoint<>"Yes" and MBackMoney<>"Yes" then
		Cl.ShowErr("参数错误，请最少选择一项作为修改！")
	end if
	Keyword			= Trim(Request("Keyword"))
	MovieCorner		= Trim(Request("MovieCorner"))
	Movielanguage	= Trim(Request("MovieLanguage"))
	IsOnline		= Trim(Request("IsOnline"))
	IsDownLoad		= Trim(Request("IsDownLoad"))
	OnTop			= Trim(Request("OnTop"))
	Elite			= Trim(Request("Elite"))
	Stars			= Cl.GetClng(Trim(Request("Stars")))
	Hits			= Cl.GetClng(Trim(Request("Hits")))
	DayHits			= Cl.GetClng(Trim(Request("DayHits")))
	WeekHits		= Cl.GetClng(Trim(Request("WeekHits")))
	MonthHits		= Cl.GetClng(Trim(Request("MonthHits")))
	DownNums		= Cl.GetClng(Trim(Request("DownNums")))
	DayDownNums		= Cl.GetClng(Trim(Request("DayDownNums")))
	WeekDownNums	= Cl.GetClng(Trim(Request("WeekDownNums")))
	MonthDownNums	= Cl.GetClng(Trim(Request("MonthDownNums")))
	InfoGroup		= Trim(Request("InfoGroup"))
	DownLoadGroup	= Trim(Request("DownLoadGroup"))
	InfoPoint		= Cl.GetClng(Trim(Request("InfoPoint")))
	DownLoadPoint	= Cl.GetClng(Trim(Request("DownLoadPoint")))
	CharString		= Trim(Request("CharString"))
	CharStringR		= Trim(Request("CharStringR"))
	InfoMoney		= Cl.GetClng(Request("InfoMoney"))
	DownLoadMoney	= Cl.GetClng(Request("DownLoadMoney"))
	BackPoint		= Cl.GetClng(Request("BackPoint"))
	BackPointRate	= Cl.GetClng(Request("BackPointRate"))
	BackMoney		= Cl.GetClng(Request("BackMoney"))
	BackMoneyRate	= Cl.GetClng(Request("BackMoneyRate"))

	if KeyWord="" then
		Cl.ShowErr("<br /><li>请输入文章关键字</li>")
	else
		Keyword=Cl.ReplaceBadChar(Keyword)
		Keyword=Replace(Keyword,"||","|")
	end if
	if IsOnline="yes" then
		IsOnline=True
	else
		IsOnline=False
	end if
	if IsDownLoad="yes" then
		IsDownLoad=True
	else
		IsDownLoad=False
	end if
	if OnTop="yes" then
		OnTop=True
	else
		OnTop=False
	end if
	if Elite="yes" then
		Elite=True
	else
		Elite=False
	end if
	Set rsB=Server.CreateObject("Adodb.recordset")
	rsB.Open sSQL,Conn,1,3
	Do while not rsB.Eof
		if MKeyword="Yes" then rsB("Keyword")=Keyword
		if MMovieCorner="Yes" then rsB("MovieCorner")=MovieCorner
		if MMovielanguage="Yes" then rsB("MovieLanguage")=MovieLanguage
		if MIsOnline="Yes" then rsB("IsOnline")=IsOnline
		if MIsDownLoad="Yes" then rsB("IsDownLoad")=IsDownLoad
		if MOnTop="Yes" then rsB("OnTop")=OnTop
		if MElite="Yes" then rsB("Elite")=Elite
		if MStars="Yes" then rsB("Stars")=Stars
		if MHits="Yes" then
			rsB("Hits")=Hits
			rsB("DayHits")=DayHits
			rsB("WeekHits")=WeekHits
			rsB("MonthHits")=MonthHits
		end if
		if MDownNums="Yes" then
			rsB("DownNums")=DownNums
			rsB("DayDownNums")=DayDownNums
			rsB("WeekDownNums")=WeekDownNums
			rsB("MonthDownNums")=MonthDownNums
		end if
		if MInfoGroup="Yes" then rsB("InfoGroup")=InfoGroup
		if MInfoPoint="Yes" then rsB("InfoPoint")=InfoPoint
		if MDownLoadGroup="Yes" then rsB("DownLoadGroup")=DownLoadGroup
		if MDownLoadPoint="Yes" then rsB("DownLoadPoint")=DownLoadPoint
		if MInfoMoney="Yes" then rsB("InfoMoney")=InfoMoney
		if MDownLoadMoney="Yes" then rsB("DownLoadMoney")=DownLoadMoney
		if MBackPoint="Yes"	then
			rsB("BackPoint")	= BackPoint
			rsB("BackPointRate")= BackPointRate
		End if
		if MBackMoney="Yes"	then
			rsB("BackMoney")	= BackMoney
			rsB("BackMoneyRate")= BackMoneyRate
		End if
		if MMovieUrl="Yes" then
			rsB("MovieUrl")=Replace(rsB("MovieUrl"),CharString,CharStringR)
		End if
		rsB.Update
		rsB.MoveNext
	Loop
	rsB.Close:Set rsB=Nothing
End Sub

Sub SaveBatch_5()
	Dim BatchType,TempID,TempClassID,sSQL,rsB
	BatchType=Trim(Request("BatchType"))
	if Not IsNumeric(BatchType) then BatchType=1
	BatchType=Cint(BatchType)
	TempID=Trim(Request("InfoID"))
	TempClassID=Trim(Request("ClassID"))
	if BatchType=1 then
		if Not IsNumeric(Replace(Replace(TempID,",","")," ","")) then Cl.ShowErr("参数中含有非法ID！")
		TempID=Replace(TempID," ","")
		sSQL="select * From Cl_Product where InfoID In ("&TempID&") Order By InfoID desc"
	Elseif BatchType=2 then
		if Not IsNumeric(Replace(Replace(TempClassID,",","")," ","")) then Cl.ShowErr("参数中含有非法ID！")
		TempClassID=Replace(TempClassID," ","")
		sSQL="select * From Cl_Product where ClassID In ("&TempClassID&") Order By InfoID desc"
	else
		Cl.ShowErr("参数错误！")
	end if

	Dim MKeyword,MProducer,MTrademarkName,MDiscount,MStockNum,MOnTop,MElite,MStars,MHits,MUpdateTime
	Dim Keyword,Producer,TrademarkName
	Dim BeginDate,EndDate,Discount,LimitNum,StockNum,AlarmNum,OnTop,Elite,Stars,Hits,UpdateTime

	MKeyword=Trim(Request("MKeyword"))
	MProducer=Trim(Request("MProducer"))
	MTrademarkName=Trim(Request("MTrademarkName"))
	MDiscount=Trim(Request("MDiscount"))
	MStockNum=Trim(Request("MStockNum"))
	MOnTop=Trim(Request("MOnTop"))
	MElite=Trim(Request("MElite"))
	MStars=Trim(Request("MStars"))
	MHits=Trim(Request("MHits"))
	MUpdateTime=Trim(Request("MUpdateTime"))

	if MKeyword<>"Yes" and MProducer<>"Yes" and MTrademarkName<>"Yes" and MDiscount<>"Yes" and MStockNum<>"Yes" and MOnTop<>"Yes" and MElite<>"Yes" and MStars<>"Yes" and MHits<>"Yes" and MUpdateTime<>"Yes" then
		Cl.ShowErr("参数错误，请最少选择一项作为修改！")
	end if
	Keyword=Trim(Request("Keyword"))
	Producer=Trim(Request("Producer"))
	TrademarkName=Trim(Request("TrademarkName"))
	BeginDate=Trim(Request("BeginDate"))
	EndDate=Trim(Request("EndDate"))
	Discount=Cl.GetClng(Trim(Request("Discount")))
	LimitNum=Cl.GetClng(Trim(Request("LimitNum")))
	StockNum=Cl.GetClng(Trim(Request("StockNum")))
	AlarmNum=Cl.GetClng(Trim(Request("AlarmNum")))
	OnTop=Trim(Re