admin_list.asp

本程序采用ACC数据核心构件！！ 功能介绍： 程序代码重新设计与优化

<!--#include file="../inc/config.asp"-->
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/code.asp"-->
<!--#include file="../inc/SqlIn.Asp"-->
<!--#include file="../inc/check.asp"-->
<!--#include file="../inc/public.asp"-->
<%
if request.QueryString("╲、衡少゛")="ltop" then'=============批量固顶
dim ltopsel,utopsel,id,act,sel,sql
sel=htmlencode(request.form("sel"))
if sel="" then
response.write "<script>alert('没有选择任何记录，不能操作');history.back()</script>"
call CloseConn()
response.end
end if
set rs = server.createobject("adodb.recordset")
sel=split(sel,",")
for i= 0 to ubound(sel)
	sql="select * from Gq_sfdata where id="&sel(i)
	rs.open sql,conn,1,3
	if rs.bof and rs.eof then
	rs.close
	else
	rs("toptime")=now()
	rs("ulock")=1
	rs("top")=1
	rs.update
	rs.close
	end if
next
set rs=nothing
conn.close
set conn=nothing
response.redirect request.ServerVariables("HTTP_REFERER")
end if
if request.QueryString("╲、衡少゛")="utop" then'=============批量解固
sel=htmlencode(request.form("sel"))
if sel="" then
response.write "<script>alert('没有选择任何记录，不能操作');history.back()</script>"
call CloseConn()
response.end
end if
set rs = server.createobject("adodb.recordset")
sel=split(sel,",")
for i= 0 to ubound(sel)
	sql="select * from Gq_sfdata where id="&sel(i)
	rs.open sql,conn,1,3
	if rs.bof and rs.eof then
	rs.close
	else
	rs("top")=0
	rs("time")=0
	rs.update
	rs.close
	end if
next
set rs=nothing
conn.close
set conn=nothing
response.redirect request.ServerVariables("HTTP_REFERER")
end if
if request.QueryString("╲、衡少゛")="ulock" then'=============批量审核
sel=htmlencode(request.form("sel"))
if sel="" then
response.write "<script>alert('没有选择任何记录，不能操作');history.back()</script>"
call CloseConn()
response.end
end if
set rs = server.createobject("adodb.recordset")
sel=split(sel,",")
for i= 0 to ubound(sel)
	sql="select * from Gq_sfdata where id="&sel(i)
	rs.open sql,conn,1,3
	if rs.bof and rs.eof then
	rs.close
	else
	rs("ulock")=1
	rs("time")=4
	rs.update
	rs.close
	end if
next
set rs=nothing
conn.close
set conn=nothing
response.redirect request.ServerVariables("HTTP_REFERER")
end if
if request.QueryString("╲、衡少゛")="lhot" then'=============批量通宵
sel=htmlencode(request.form("sel"))
if sel="" then
response.write "<script>alert('没有选择任何记录，不能操作');history.back()</script>"
call CloseConn()
response.end
end if
set rs = server.createobject("adodb.recordset")
sel=split(sel,",")
for i= 0 to ubound(sel)
	sql="select * from Gq_sfdata where id="&sel(i)
	rs.open sql,conn,1,3
	if rs.bof and rs.eof then
	rs.close
	else
	rs("hot")=1
	rs("ulock")=1
	rs("hottime")=now()
	rs.update
	rs.close
	end if
next
set rs=nothing
conn.close
set conn=nothing
response.redirect request.ServerVariables("HTTP_REFERER")
end if
if request.QueryString("╲、衡少゛")="uhot" then'=============批量解通宵
sel=htmlencode(request.form("sel"))
if sel="" then
response.write "<script>alert('没有选择任何记录，不能操作');history.back()</script>"
call CloseConn()
response.end
end if
set rs = server.createobject("adodb.recordset")
sel=split(sel,",")
for i= 0 to ubound(sel)
	sql="select * from Gq_sfdata where id="&sel(i)
	rs.open sql,conn,1,3
	if rs.bof and rs.eof then
	rs.close
	else
	rs("hot")=0
	rs.update
	rs.close
	end if
next
set rs=nothing
conn.close
set conn=nothing
response.redirect request.ServerVariables("HTTP_REFERER")
end if
if request.QueryString("╲、衡少゛")="lfine" then'=============批量精品
sel=htmlencode(request.form("sel"))
if sel="" then
response.write "<script>alert('没有选择任何记录，不能操作');history.back()</script>"
call CloseConn()
response.end
end if
set rs = server.createobject("adodb.recordset")
sel=split(sel,",")
for i= 0 to ubound(sel)
	sql="select * from Gq_sfdata where id="&sel(i)
	rs.open sql,conn,1,3
	if rs.bof and rs.eof then
	rs.close
	else
	rs("fine")=1
	rs("ulock")=1
	rs("time")=0
	rs.update
	rs.close
	end if
next
set rs=nothing
conn.close
set conn=nothing
response.redirect request.ServerVariables("HTTP_REFERER")
end if
if request.QueryString("╲、衡少゛")="ufine" then'=============批量解精品
sel=htmlencode(request.form("sel"))
if sel="" then
response.write "<script>alert('没有选择任何记录，不能操作');history.back()</script>"
call CloseConn()
response.end
end if
set rs = server.createobject("adodb.recordset")
sel=split(sel,",")
for i= 0 to ubound(sel)
	sql="select * from Gq_sfdata where id="&sel(i)
	rs.open sql,conn,1,3
	if rs.bof and rs.eof then
	rs.close
	else
	rs("fine")=0
	rs("time")=0
	rs.update
	rs.close
	end if
next
set rs=nothing
conn.close
set conn=nothing
response.redirect request.ServerVariables("HTTP_REFERER")
end if
if request.QueryString("╲、衡少゛")="del" then'=============批量删除
sel=htmlencode(request.form("sel"))
if sel="" then
response.write "<script>alert('没有选择任何记录，不能操作');history.back()</script>"
call CloseConn()
response.end
end if
set rs = server.createobject("adodb.recordset")
sel=split(sel,",")
for i= 0 to ubound(sel)
	sql="delete * from Gq_sfdata where id="&sel(i)
	conn.execute sql
next
set rs=nothing
conn.close
set conn=nothing
response.redirect request.ServerVariables("HTTP_REFERER")
end if
if request.QueryString("╲、衡少゛")="top" then'=============普通固顶，解固
id=htmlencode(request("id"))
act=htmlencode(request("act"))
if id="" then
response.write "<script>alert('变量参数不正确，请检查后再试');history.back()</script>"
call CloseConn()
response.end
end if
set rs = server.createobject("adodb.recordset")
	sql="select * from Gq_sfdata where id="&id
	rs.open sql,conn,1,3
	if rs.bof and rs.eof then
	rs.close
	response.write "<script>alert('无此记录');history.back()</script>"
	else
	select case act
	case "top"
	rs("top")=1
	rs("ulock")=1
	rs("toptime")=now()
	case "utop"
	rs("top")=0
	rs("time")=0
	end select
	rs.update
	rs.close
	end if
set rs=nothing
conn.close
set conn=nothing
response.redirect request.ServerVariables("HTTP_REFERER")
end if
if request.QueryString("╲、衡少゛")="fine" then'=============解，固精品推荐
id=htmlencode(request("id"))
act=htmlencode(request("act"))
if id="" then
response.write "<script>alert('变量参数不正确，请检查后再试');history.back()</script>"
call CloseConn()
response.end
end if
set rs = server.createobject("adodb.recordset")
	sql="select * from Gq_sfdata where id="&id
	rs.open sql,conn,1,3
	if rs.bof and rs.eof then
	rs.close
	response.write "<script>alert('无此记录');history.back()</script>"
	else
	select case act
	case "fine"
	rs("fine")=1
	rs("ulock")=1
	rs("time")=time
	case "ufine"
	rs("fine")=0
	rs("time")=0
	end select
	rs.update
	rs.close
	end if
set rs=nothing
conn.close
set conn=nothing
response.redirect request.ServerVariables("HTTP_REFERER")
end if
if request.QueryString("╲、衡少゛")="hot" then'=============解，固通宵推荐
id=htmlencode(request("id"))
act=htmlencode(request("act"))
if id="" then
response.write "<script>alert('变量参数不正确，请检查后再试');history.back()</script>"
call CloseConn()
response.end
end if

set rs = server.createobject("adodb.recordset")
	sql="select * from Gq_sfdata where id="&id
	rs.open sql,conn,1,3
	if rs.bof and rs.eof then
	rs.close
	response.write "<script>alert('无此记录');history.back()</script>"
	else
	select case act
	case "hot"
	rs("hot")=1
	rs("ulock")=1
	rs("hottime")=now()
	case "uhot"
	rs("hot")=0
	rs("time")=0
	end select
	rs.update
	rs.close
	end if
set rs=nothing
conn.close