admin_checknews.asp

来自「庐江二中」· ASP 代码 · 共 33 行

<!--#include file="session.asp"-->
<%checkAdmin1%>
<!--#include file="conn.asp"-->
<%
founderr=false

if Session("KEY")="input" then
	errmsg=errmsg+"<li>你的权限不够！"
	founderr=true
end if

if founderr=true then
	call error()
	conn.close
	set conn=nothing
else
	checked=request("checked")

	sql="select * from News where NewsID="&request("NewsID")
	rs.open sql,conn,3,3
	if checked="" then
		rs("checked")=true
	else
		rs("checked")=false
	end if
	rs.update
	rs.close
	set rs=nothing
	conn.close
	set conn=nothing
	Response.Redirect request("PageUrl")&"?Page="&request("Page")&"&BigClassName="&Request("BigClassName")&"&SmallClassID="& Request("SmallClassID")&"&List="&Request("list")
end if
%>