?? userlock.asp
字號:
<%@language=vbscript codepage=936 %>
<!--#include file="Admin.asp"-->
<!--#include file="Conndb.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"
%>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -