admin_top.asp

发布整站源码 可以再开发~ 本人实用中 效果嗷嗷滴~

<!--#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 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
	end select
	rs.update
	rs.close
	end if


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