delcontent.asp

来自「生成html的ASP企业站点,可以进行二次开发的」· ASP 代码 · 共 421 行 · 第 1/2 页

<!--#include file="../Include/Const.asp" -->
<!--#include file="../Include/ConnSiteData.asp" -->
<!--#include file="CheckAdmin.asp"-->
<%
dim Result,Selectid
Dim ix,tempx,selectx,len_idx
Result=request.QueryString("Result")
SelectID=request.Form("SelectID")
select case Result
  case "Administrators"
    select case Trim(Request.Form("batch"))
	case "批量显示"
	if SelectID<>"" Then conn.execute "update LiangJingCMS_Admin set Working = 1 where id in ("&SelectID&")"
	response.redirect request.servervariables("http_referer")
	case "批量不显示"
	if SelectID<>"" Then conn.execute "update LiangJingCMS_Admin set Working = 0 where id in ("&SelectID&")"
	response.redirect request.servervariables("http_referer")
	case "删除所选"
    if SelectID<>"" then  conn.execute "delete from LiangJingCMS_Admin where id in ("&SelectID&")"
    response.redirect request.servervariables("http_referer")
	End Select
  case "LoginLog"
    if SelectID<>"" then  conn.execute "delete from LiangJingCMS_AdminLog where id in ("&SelectID&")"
    response.redirect request.servervariables("http_referer")
  case "MemGroup"
    if SelectID<>"" then  conn.execute "delete from LiangJingCMS_MemGroup where GroupID in ('"&SelectID&"')"
	conn.execute "Update LiangJingCMS_About set GroupID='200603281858588888' , Exclusive='>=' where GroupID = '"&SelectID&"'"
	conn.execute "Update LiangJingCMS_Download set GroupID='200603281858588888' , Exclusive='>=' where GroupID = '"&SelectID&"'"
	conn.execute "Update LiangJingCMS_Members set GroupID='200603281858588888' , GroupName='临时游客' where GroupID = '"&SelectID&"'"
	conn.execute "Update LiangJingCMS_News set GroupID='200603281858588888' , Exclusive='>=' where GroupID = '"&SelectID&"'"
	conn.execute "Update LiangJingCMS_Others set GroupID='200603281858588888' , Exclusive='>=' where GroupID = '"&SelectID&"'"
	conn.execute "Update LiangJingCMS_Products set GroupID='200603281858588888' , Exclusive='>=' where GroupID = '"&SelectID&"'"
    response.redirect request.servervariables("http_referer")
  case "Members"
    select case Trim(Request.Form("batch"))
	case "批量显示"
	if SelectID<>"" Then conn.execute "update LiangJingCMS_Members set Working = 1 where id in ("&SelectID&")"
	response.redirect request.servervariables("http_referer")
	case "批量不显示"
	if SelectID<>"" Then conn.execute "update LiangJingCMS_Members set Working = 0 where id in ("&SelectID&")"
	response.redirect request.servervariables("http_referer")
	case "删除所选"
    if SelectID<>"" Then conn.execute "delete from LiangJingCMS_Members where id in ("&SelectID&")"
    response.redirect request.servervariables("http_referer")
	End Select
  case "About"
	select case Trim(Request.Form("batch"))
	case "批量修改排序"
	Abo_id=request("Abo_id")
	Sequence=request("Sequence")
	arr_id=Split(Replace(Abo_id," ",""),",")
	arr_Sequence=Split(Replace(Sequence," ",""),",")
	For i = 0 To UBound(arr_id)
	conn.execute("update LiangJingCMS_About set Sequence='"&arr_Sequence(i)&"' where id="&arr_id(i)&"")
	Next
	response.redirect request.servervariables("http_referer")
	case "中文批量显示"
	if SelectID<>"" Then conn.execute "update LiangJingCMS_About set ViewFlagCH = 1 where id in ("&SelectID&")"
	response.redirect request.servervariables("http_referer")
	case "英文批量显示"
	if SelectID<>"" Then conn.execute "update LiangJingCMS_About set ViewFlagEN = 1 where id in ("&SelectID&")"
	response.redirect request.servervariables("http_referer")
	case "中文批量不显示"
	if SelectID<>"" Then conn.execute "update LiangJingCMS_About set ViewFlagCH = 0 where id in ("&SelectID&")"
	response.redirect request.servervariables("http_referer")
	case "英文批量不显示"
	if SelectID<>"" Then conn.execute "update LiangJingCMS_About set ViewFlagEN = 0 where id in ("&SelectID&")"
	response.redirect request.servervariables("http_referer")
	case "删除所选"
    if SelectID<>"" Then conn.execute "delete from LiangJingCMS_About where id in ("&SelectID&")"
	If ISHTML = 1 Then
		ix=0
		SelectID=replace(SelectID," ","")
		len_idx=len(SelectID)
		tempx=tempx&left(SelectID,1)
		Do While ix<len_idx
			ix=ix+1
			tempx=left(SelectID,1)
			If tempx="," Then
				Call DoDelslhtml(""&AboutNameDiy&""&Separated&""&selectx&"."&HTMLName&"")
				selectx=""
			Else
				selectx=selectx&tempx
			End If
			if len_idx-ix=0 Then Call DoDelslhtml(""&AboutNameDiy&""&Separated&""&selectx&"."&HTMLName&"")
			SelectID=right(SelectID,len_idx-ix)
		Loop
	End If
    response.redirect request.servervariables("http_referer")
	End Select

  case "Products"
    select case Trim(Request.Form("batch"))
	case "批量修改产品参数"
	pro_id=request("pro_id")
	ProductNo=request("ProductNo")
	ProductName=request("ProductName")
	N_Price=request("N_Price")
	P_Price=request("P_Price")
	ProductModel=request("ProductModel")
	Stock=request("Stock")
	arr_id=Split(Replace(pro_id," ",""),",")
	arr_ProductNo=Split(Replace(ProductNo," ",""),",")
	arr_ProductName=Split(Replace(ProductName," ",""),",")
	arr_N_Price=Split(Replace(N_Price," ",""),",")
	arr_P_Price=Split(Replace(P_Price," ",""),",")
	arr_ProductModel=Split(Replace(ProductModel," ",""),",")
	arr_Stock=Split(Replace(Stock," ",""),",")
	For i = 0 To UBound(arr_id)
	conn.execute("update LiangJingCMS_Products set ProductNo='"&arr_ProductNo(i)&"' where id="&arr_id(i)&"")
	conn.execute("update LiangJingCMS_Products set ProductName='"&arr_ProductName(i)&"' where id="&arr_id(i)&"")
	conn.execute("update LiangJingCMS_Products set N_Price="&arr_N_Price(i)&" where id="&arr_id(i)&"")
	conn.execute("update LiangJingCMS_Products set P_Price="&arr_P_Price(i)&" where id="&arr_id(i)&"")
	conn.execute("update LiangJingCMS_Products set ProductModel='"&arr_ProductModel(i)&"' where id="&arr_id(i)&"")
	conn.execute("update LiangJingCMS_Products set Stock="&arr_Stock(i)&" where id="&arr_id(i)&"")
	Next
	response.redirect request.servervariables("http_referer")
	case "中文批量显示"
	if SelectID<>"" Then conn.execute "update LiangJingCMS_Products set ViewFlagCH = 1 where id in ("&SelectID&")"
	response.redirect request.servervariables("http_referer")
	case "英文批量显示"
	if SelectID<>"" Then conn.execute "update LiangJingCMS_Products set ViewFlagEN = 1 where id in ("&SelectID&")"
	response.redirect request.servervariables("http_referer")
	case "中文批量不显示"
	if SelectID<>"" Then conn.execute "update LiangJingCMS_Products set ViewFlagCH = 0 where id in ("&SelectID&")"
	response.redirect request.servervariables("http_referer")
	case "英文批量不显示"
	if SelectID<>"" Then conn.execute "update LiangJingCMS_Products set ViewFlagEN = 0 where id in ("&SelectID&")"
	response.redirect request.servervariables("http_referer")
	case "删除所选"
    if SelectID<>"" Then conn.execute "delete from LiangJingCMS_Products where id in ("&SelectID&")"
	If ISHTML = 1 Then
		ix=0
		SelectID=replace(SelectID," ","")
		len_idx=len(SelectID)
		tempx=tempx&left(SelectID,1)
		Do While ix<len_idx
			ix=ix+1
			tempx=left(SelectID,1)
			If tempx="," Then
				Call DoDelslhtml(""&ProName&""&Separated&""&selectx&"."&HTMLName&"")
				selectx=""
			Else
				selectx=selectx&tempx
			End If
			if len_idx-ix=0 Then Call DoDelslhtml(""&ProName&""&Separated&""&selectx&"."&HTMLName&"")
			SelectID=right(SelectID,len_idx-ix)
		Loop
	End If
    response.redirect request.servervariables("http_referer")
	End Select
  case "News"
    select case Trim(Request.Form("batch"))
	case "中文批量显示"
	if SelectID<>"" Then conn.execute "update LiangJingCMS_News set ViewFlagCH = 1 where id in ("&SelectID&")"
	response.redirect request.servervariables("http_referer")
	case "英文批量显示"
	if SelectID<>"" Then conn.execute "update LiangJingCMS_News set ViewFlagEN = 1 where id in ("&SelectID&")"
	response.redirect request.servervariables("http_referer")
	case "中文批量不显示"
	if SelectID<>"" Then conn.execute "update LiangJingCMS_News set ViewFlagCH = 0 where id in ("&SelectID&")"
	response.redirect request.servervariables("http_referer")
	case "英文批量不显示"
	if SelectID<>"" Then conn.execute "update LiangJingCMS_News set ViewFlagEN = 0 where id in ("&SelectID&")"
	response.redirect request.servervariables("http_referer")
	case "删除所选"
    if SelectID<>"" Then conn.execute "delete from LiangJingCMS_News where id in ("&SelectID&")"
	If ISHTML = 1 Then
		ix=0
		SelectID=replace(SelectID," ","")
		len_idx=len(SelectID)
		tempx=tempx&left(SelectID,1)
		Do While ix<len_idx
			ix=ix+1
			tempx=left(SelectID,1)
			If tempx="," Then
				Call DoDelslhtml(""&NewName&""&Separated&""&selectx&"."&HTMLName&"")
				selectx=""
			Else
				selectx=selectx&tempx
			End If
			if len_idx-ix=0 Then Call DoDelslhtml(""&NewName&""&Separated&""&selectx&"."&HTMLName&"")
			SelectID=right(SelectID,len_idx-ix)
		Loop
	End If
    response.redirect request.servervariables("http_referer")
	End Select
  case "Download"
    select case Trim(Request.Form("batch"))
	case "中文批量显示"
	if SelectID<>"" Then conn.execute "update LiangJingCMS_Download set ViewFlagCH = 1 where id in ("&SelectID&")"
	response.redirect request.servervariables("http_referer")
	case "英文批量显示"
	if SelectID<>"" Then conn.execute "update LiangJingCMS_Download set ViewFlagEN = 1 where id in ("&SelectID&")"
	response.redirect request.servervariables("http_referer")
	case "中文批量不显示"
	if SelectID<>"" Then conn.execute "update LiangJingCMS_Download set ViewFlagCH = 0 where id in ("&SelectID&")"
	response.redirect request.servervariables("http_referer")
	case "英文批量不显示"
	if SelectID<>"" Then conn.execute "update LiangJingCMS_Download set ViewFlagEN = 0 where id in ("&SelectID&")"
	response.redirect request.servervariables("http_referer")
	case "删除所选"
    if SelectID<>"" Then conn.execute "delete from LiangJingCMS_Download where id in ("&SelectID&")"
	If ISHTML = 1 Then
		ix=0
		SelectID=replace(SelectID," ","")
		len_idx=len(SelectID)
		tempx=tempx&left(SelectID,1)
		Do While ix<len_idx
			ix=ix+1
			tempx=left(SelectID,1)