userlock.asp

来自「网站的后台管理代码......内容比较全面....新手比较适合」· ASP 代码 · 共 21 行

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../inc/adconn.asp"-->
<!--#include file="../css.asp"-->
<%
if session("admin_name")="" then 
response.end
end if%>
<%
dim UserID,Action,sql
UserID=trim(Request("UserID"))
Action=trim(request("Action"))
if UserID<>"" then
	if Action="Lock" then
		sql="Update [User] set LockUser=true where UserID=" & CLng(UserID)
	else
		sql="Update [User] set LockUser=false where UserID=" & CLng(UserID)
	end if
	conn.Execute sql    
end if
response.redirect "UserManage.asp"
%>