admin_news_top.asp

来自「发布整站源码 可以再开发~ 本人实用中 效果嗷嗷滴~」· ASP 代码 · 共 43 行

<!--#include file="config.asp"-->
<!--#include file="conn.asp"-->
<!--#include file="code.asp"-->
<%
'检查管理员是否登录
AdminName = ReplaceBadChar(Trim(Request.Cookies(webkey)("AdminName")))
AdminPassword = ReplaceBadChar(Trim(Request.Cookies(webkey)("AdminPassword")))
RndPassword = ReplaceBadChar(Trim(Request.Cookies(webkey)("RndPassword")))
If AdminName = "" Or AdminPassword = "" Or RndPassword = "" Then
	Response.Redirect "Admin_login.asp"
End If
%>
<%
dim id,act
id=htmlencode(request("id"))
act=htmlencode(request("act"))
if id="" then
response.write "<script>alert('变量参数不正确，请检查后再试');history.back()</script>"
response.end
end if

set rs = server.createobject("adodb.recordset")
	sql="select * from News 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")=True
	case "utop"
		rs("top")=False
	end select
	rs.update
	rs.close
	end if

set rs=nothing
conn.close
set conn=nothing
response.redirect request.ServerVariables("HTTP_REFERER")
%>