www.gusucode.com > 绿色环保工作企业网站源码程序 > admin/UserLock.asp
<%@language=vbscript codepage=936 %> <!--#include file="conn.asp"--> <!--#include file="admin.asp"--> <% 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 call CloseConn() end if response.redirect "UserManage.asp" %>