bs_user_lock.asp

来自「ChinaWeb标准企业网站管理系统 V3.01」· ASP 代码 · 共 28 行

<!--#include file="bsconfig.asp"-->
<%
'=========================================================
'
' 产品名称：良精科技 公司(企业)网站管理系统（简称：myszw.com）
' 版权所有: myszw.com 
' 程序制作：myszw.com开发团队
' Copyright 2004-2005 myszw.com - All Rights Reserved. 
'
'========================================================
%>
<%
dim UserID,Action,sql

UserID=trim(Request("UserID"))
Action=trim(request("Action"))
if UserID<>"" then
	if Action="Lock" then
		sql="Update [Bs_User] set LockUser=true where UserID=" & CLng(UserID)
	else
		sql="Update [Bs_User] set LockUser=false where UserID=" & CLng(UserID)
	end if
	conn.Execute sql
    call CloseConn()      
end if
response.redirect "Bs_User.asp"
%>