linkunpass.asp

来自「zheng fu wang zhan gong neng qi quan」· ASP 代码 · 共 29 行

<!--#include file="conn.asp"-->
<!--#include file="ConnUser.asp"-->
<!--#include file="config.asp"-->
<!--#include file="char.inc"-->
<!--#include file="ChkUser.asp" -->
<!--#include file="ChkManage.asp" -->
<!--#include file="ChkURL.asp"-->
<%
if not(request.cookies(eChuang)("ManageKEY")="super" or request.cookies(eChuang)("ManageKEY")="bigmaster" or request.cookies(eChuang)("ManageKEY")="check" or request.cookies(eChuang)("ManageKEY")="typemaster") then
	Show_Err("对不起，您的管理权限不够！")
	response.end
else
	if linkmana="1" or (request.cookies(eChuang)("ManagePurview")="99999" and request.cookies(eChuang)("purview")="99999") then
		ID=trim(request.QueryString("id"))
		set rs=server.createobject("adodb.recordset")
		sql="Select * from E_link where ID="&ID
		rs.open sql,conn,1,3
		rs("pass")="0" 
		rs.update
		rs.close
		set rs=nothing
		conn.close
		set conn=nothing
		Response.Redirect "LinkManage.asp"
	else
		Show_Err("对不起，该功能已经被超级系统管理员关闭，您没有权限操作！")
		response.end
	end if
end if%>