admin_batch.asp

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

	if OnTop="yes" then
		OnTop=TrueType
	else
		OnTop=FalseType
	end if
	if Hot="yes" then
		Hot=TrueType
	else
		Hot=FalseType
	end if
	if Elite="yes" then
		Elite=TrueType
	else
		Elite=FalseType
	end if
	sSQL=",,"
	if MKeyword="Yes" then sSQL=sSQL & ",Keyword='"&Cl.CheckStr(Keyword)&"' "
	if MAuthorName="Yes" then sSQL=sSQL & ",Author='"&Cl.CheckStr(Author)&"' "
	if MCopyFrom="Yes" then sSQL=sSQL & ",CopyFrom='"&Cl.CheckStr(CopyFrom)&"' "
	if MPaginationType="Yes" then
		sSQL=sSQL & ",PaginationType="&PaginationType&" ,MaxCharPerPage="&MaxCharPerPage&" "
	end if
	if MInfoGroup="Yes" then sSQL=sSQL & ",InfoGroup='"&Cl.CheckStr(InfoGroup)&"' "
	if MInfoPoint="Yes" then sSQL=sSQL & ",InfoPoint="&InfoPoint&" "
	if MOnTop="Yes" then sSQL=sSQL & ",OnTop="&OnTop&" "
	if MHot="Yes" then sSQL=sSQL & ",Hot="&Hot&" "
	if MElite="Yes" then sSQL=sSQL & ",Elite="&Elite&" "
	if MStars="Yes" then sSQL=sSQL & ",Stars="&Stars&" "
	if MHits="Yes" then sSQL=sSQL & ",Hits="&Hits&" "
	if MInfoMoney="Yes" then sSQL=sSQL & ",InfoMoney="&InfoMoney&" "
	if MBackPoint="Yes" then sSQL=sSQL & ",BackPoint="&BackPoint&",BackPointRate="&BackPointRate&" "
	if MBackMoney="Yes" then sSQL=sSQL & ",BackMoney="&BackMoney&",BackMoneyRate="&BackMoneyRate&" "

	if sSQL=",," then Cl.ShowErr("参数错误，请最少选择一项作为修改！")
	sSQL=Replace(sSQL,",,,","")
	if BatchType=1 then
		if Not IsNumeric(Replace(Replace(TempID,",","")," ","")) then Cl.ShowErr("参数中含有非法ID！")
		TempID=Replace(TempID," ","")
		sSQL="update Cl_Article set "&sSQL&" where InfoID In ("&TempID&")"
	Elseif BatchType=2 then
		if Not IsNumeric(Replace(Replace(TempClassID,",","")," ","")) then Cl.ShowErr("参数中含有非法ID！")
		TempClassID=Replace(TempClassID," ","")
		sSQL="update Cl_Article set "&sSQL&" where ClassID In ("&TempClassID&")"
	else
		Cl.ShowErr("参数错误！")
	end if
	Cl.Execute sSQL
End Sub

Sub SaveBatch_2()
	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_Soft 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_Soft where ClassID In ("&TempClassID&") Order By InfoID desc"
	else
		Cl.ShowErr("参数错误！")
	end if

	Dim MKeyword,MAuthor,MSoftSize,MPassword,MOnTop,MElite,MStars,MHits,MInfoGroup,MInfoPoint,MDownLoadUrl
	Dim Keyword,Author,AuthorEmail,AuthorHomepage,DemoUrl,SoftSize,SizeUnit,SoftPassword
	Dim OnTop,Elite,Stars,Hits,DayHits,WeekHits,MonthHits,InfoGroup,InfoPoint,CharString,CharStringR

	Dim MInfoMoney,MBackPoint,MBackMoney
	Dim InfoMoney,BackPoint,BackPointRate,BackMoney,BackMoneyRate

	MKeyword		= Trim(Request("MKeyword"))
	MAuthor			= Trim(Request("MAuthor"))
	MSoftSize		= Trim(Request("MSoftSize"))
	MPassword		= Trim(Request("MPassword"))
	MOnTop			= Trim(Request("MOnTop"))
	MElite			= Trim(Request("MElite"))
	MStars			= Trim(Request("MStars"))
	MHits			= Trim(Request("MHits"))
	MInfoGroup		= Trim(Request("MInfoGroup"))
	MInfoPoint		= Trim(Request("MInfoPoint"))
	MDownLoadUrl	= Trim(Request("MDownLoadUrl"))
	MInfoMoney		= Trim(Request("MInfoMoney"))
	MBackPoint		= Trim(Request("MBackPoint"))
	MBackMoney		= Trim(Request("MBackMoney"))

	if MKeyword<>"Yes" and MAuthor<>"Yes" and MSoftSize<>"Yes" and MPassword<>"Yes" and MOnTop<>"Yes" and MElite<>"Yes" and MStars<>"Yes" and MHits<>"Yes" and MInfoGroup<>"Yes" and MInfoPoint<>"Yes" and MDownLoadUrl<>"Yes" and MInfoMoney<>"Yes" and MBackPoint<>"Yes" and MBackMoney<>"Yes" then
		Cl.ShowErr("参数错误，请最少选择一项作为修改！")
	end if
	Keyword			= Trim(Request("Keyword"))
	Author			= Trim(Request("Author"))
	AuthorEmail		= Trim(Request("AuthorEmail"))
	AuthorHomepage	= Trim(Request("AuthorHomepage"))
	DemoUrl			= Trim(Request("DemoUrl"))
	SoftSize		= Cl.GetClng(Request("SoftSize"))
	SizeUnit		= Trim(Request("SizeUnit"))
	SoftPassword=Trim(Request("SoftPassword"))
	OnTop			= Trim(Request("OnTop"))
	Elite			= Trim(Request("Elite"))
	Stars			= Cl.GetClng(Request("Stars"))
	Hits			= Cl.GetClng(Request("Hits"))
	DayHits			= Cl.GetClng(Request("DayHits"))
	WeekHits		= Cl.GetClng(Request("WeekHits"))
	MonthHits		= Cl.GetClng(Request("MonthHits"))
	InfoGroup		= Trim(Request("InfoGroup"))
	InfoPoint		= Cl.GetClng(Request("InfoPoint"))
	CharString		= Trim(Request("CharString"))
	CharStringR		= Trim(Request("CharStringR"))
	SoftSize		= Cl.CheckUnit(SoftSize,SizeUnit)
	InfoMoney		= Cl.GetClng(Request("InfoMoney"))
	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 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 MAuthor="Yes" then
			rsB("Author")=Author
			rsB("AuthorEmail")=AuthorEmail
			rsB("AuthorHomepage")=AuthorHomepage
			rsB("DemoUrl")=DemoUrl
		end if
		if MSoftSize="Yes" then rsB("SoftSize")=SoftSize
		if MPassword="Yes" then rsB("SoftPassword")=SoftPassword
		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 MInfoGroup="Yes" then rsB("InfoGroup")=InfoGroup
		if MInfoPoint="Yes" then rsB("InfoPoint")=InfoPoint
		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
		if MDownLoadUrl="Yes" then
			rsB("DownLoadUrl")=Replace(rsB("DownLoadUrl"),CharString,CharStringR)
		End if
		rsB.Update
		rsB.MoveNext
	Loop
	rsB.Close:Set rsB=Nothing
End Sub

Sub SaveBatch_3()
	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_Photo 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_Photo where ClassID In ("&TempClassID&") Order By InfoID desc"
	else
		Cl.ShowErr("参数错误！")
	end if
	Dim MKeyword,MAuthorName,MInfoGroup,MInfoPoint,MOnTop,MHot,MElite,MIsDownLoad,MStars,MHits
	Dim Keyword,AuthorName,InfoGroup,InfoPoint,OnTop,Hot,Elite,IsDownLoad,Stars,Hits,DayHits,WeekHits,MonthHits
	Dim AuthorEmail
	Dim Author
	Dim MInfoMoney,MBackPoint,MBackMoney
	Dim InfoMoney,BackPoint,BackPointRate,BackMoney,BackMoneyRate

	MKeyword		= Trim(Request("MKeyword"))
	MAuthorName		= Trim(Request("MAuthorName"))
	MInfoGroup		= Trim(Request("MInfoGroup"))
	MInfoPoint		= Trim(Request("MInfoPoint"))
	MOnTop			= Trim(Request("MOnTop"))
	MHot			= Trim(Request("MHot"))
	MElite			= Trim(Request("MElite"))
	MIsDownLoad		= Trim(Request("MIsDownLoad"))
	MStars			= Trim(Request("MStars"))
	MHits			= Trim(Request("MHits"))

	MInfoMoney		= Trim(Request("MInfoMoney"))
	MBackPoint		= Trim(Request("MBackPoint"))
	MBackMoney		= Trim(Request("MBackMoney"))
	if MKeyword<>"Yes" and MAuthorName<>"Yes" and MInfoGroup<>"Yes" and MInfoPoint<>"Yes" and MOnTop<>"Yes" and MElite<>"Yes" and MIsDownLoad<>"Yes" and MStars<>"Yes" and MHits<>"Yes" and MInfoMoney<>"Yes" and MBackPoint<>"Yes" and MBackMoney<>"Yes" then
		Cl.ShowErr("参数错误，请最少选择一项作为修改！")
	end if

	Keyword			= Trim(Request("Keyword"))
	AuthorName		= Trim(Request("AuthorName"))
	AuthorEmail		= Trim(Request("AuthorEmail"))
	InfoGroup		= Trim(Request("InfoGroup"))
	InfoPoint		= Cl.GetClng(Request("InfoPoint"))
	OnTop			= Trim(Request("OnTop"))
	'Hot			= Trim(Request("Hot"))
	Elite			= Trim(Request("Elite"))
	IsDownLoad		= Trim(Request("IsDownLoad"))
	Stars			= Cl.GetClng(Request("Stars"))
	Hits			= Cl.GetClng(Request("Hits"))
	DayHits			= Cl.GetClng(Request("DayHits"))
	WeekHits		= Cl.GetClng(Request("WeekHits"))
	MonthHits		= Cl.GetClng(Request("MonthHits"))
	InfoMoney		= Cl.GetClng(Request("InfoMoney"))
	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 AuthorName="" and AuthorEmail="" then
		Author="佚名"
	else
		if AuthorName<>"" then
			Author=AuthorName
			if AuthorEmail<>"" then
			 	Author=Author & "|" & AuthorEmail
			end if