config.inc

来自「物业管理和办公自动化系统」· INC 代码 · 共 18 行

<%
Dim bDebug : bDebug = false
'if bDebug then
'	SetUserId("s10072")			'' 用户名，即登录账号
'	SetEmpSerial(54)			'' 用户流水号，即用户在T_Employee中的唯一标识
'	SetUserName("周秋舫")		'' 用户姓名	
'	SetRoleID(1)				'' 用户角色标识
'	SetCoId(1)				'' 用户所在公司的公司标识
'	SetCoName("上海阿尔卡特")	'' 用户所在公司的公司名称
'	SetOnline()				'' 用户在岗状态
'end if

'===============================
' Obtain the path where this site is located on the server
'-------------------------------
'Dim sAppPath : sAppPath = left(Request("PATH_TRANSLATED"), instrrev(Request("PATH_TRANSLATED"), "\"))
'===============================
%>