📄 lhb_user.asp
字号:
<!-- #include file="../inc/LHB_Check_Session.asp" -->
<!--#include file="../inc/LHB_copy.asp"-->
<!-- #include file="../inc/Conn.asp"-->
<!-- #include file="MyDesk.asp"-->
<!--#include file="../inc/LHB_head.asp"-->
<!--#include file="../inc/LHB_DHT_01.asp"-->
<!--#include file="../inc/LHB_DHT_02.asp"-->
<%
'==================================================================
'中中中中中中中中中中中中中中中中中中中中中中中中中中中中中中中中中
'中 ************** 思翔 实用办公系统 *************** 国
'中 文件名: 国
'中 作用: 国
'中 作者:搜捕者 国
'中 网站:思翔 http://www.sxang.cn 国
'中 联系:QQ:7937080 国
'中 邮件:soubuzhe@hotmail.com MSN 国
'中 更新日期:2008年6月14日(搜捕者) 国
'中 版权:源代码公开,允许自行修改,但自行修改造成的后果自负 国
'中 使用该软件必须保留软件作者的版权声明,将该软件从原有自然 国
'中 语言文字转换成另一自然语言文字的,仍应注明出处。 国
'中 ************************************************ 国
'国国国国国国国国国国国国国国国国国国国国国国国国国国国国国国国国国
'==================================================================
L_Action=Request("LouHB_Action")
Select Case L_Action
Case "LiuLan"
L_ZuBM = Session("LHB_Group")
QX_CaiDanID=Request("QX_CaiDanID")
If QX_CaiDanID="" Then QX_CaiDanID=1234567890
Set AC_Rs=Server.Createobject("adodb.recordset")
Check="Select L_YesNo From LHB_GongYong_ZuCD where L_ZuBM="&L_ZuBM&" And L_CaiDanID="&QX_CaiDanID
AC_Rs.Open Check,LouConn,1,1
If AC_Rs.EOF And AC_Rs.BOF Then
L_YesNo=2
Else
L_YesNo=AC_Rs("L_YesNo")
End If
AC_Rs.Close
Set AC_Rs=Nothing
If L_YesNo=1 Then
Call MyDesk("有管理权限")
ElseIf L_YesNo=2 Then
Call MyDesk("无管理权限")
End If
Case ""
Call MyDesk("无管理权限")
End Select
Call Copy()
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -