admin_ontop.asp

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

<!--#include file="session.asp"-->
<%checkAdmin1%>
<!--#include file="conn.asp"-->
<%
if Session("KEY")="input" then
%>
<script language=javascript>
history.back()
alert("你没有权限！")
</script>
<%
end if
NewsID=request("NewsID")
OnTop=request("OnTop")

set rs=server.createobject("adodb.recordset")
sqlo="select * from News where NewsID="&NewsID
rs.open sqlo,conn,3,3
if OnTop="" then
rs("OnTop")=false
else
rs("OnTop")=true
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")
%>