department_function.asp

北京华信东方网络办公系统

<%
'=====================返回指定部门数组,通过部门编码
function DepartmentArray(DepartmentCode)
dim rs
set rs=server.CreateObject("adodb.recordset")
sql=" SELECT v_DepartmentCode, v_DepartmentName, isnull(v_logo,'images/default.gif') as v_logo, "&_
	" n_ID, isnull(t_DepartmentRule,'暂缺') as t_DepartmentRule, "&_
	" (case v_DepartmentCode when '"& DepartmentCode &"' then 'selected' else '' end) as state "&_
	" FROM hxdf_department_form "&_
	" WHERE v_DepartmentCode like '"& DepartmentCode &"%'"&_
	" ORDER BY v_DepartmentCode " 
	rs.Open sql,conn,1,1
if not rs.EOF then
rstree=rs.GetRows
else
rstree=null
end if
rs.Close: set rs=nothing
DepartmentArray=rstree
end function
'======================返回指定部门数组,通过部门名称
function SelectDepartmentArray(DepartmentName)
dim rs
set rs=server.CreateObject("adodb.recordset")
sql=" SELECT v_DepartmentCode, v_DepartmentName, isnull(v_logo,'images/default.gif') as v_logo, "&_
	" n_ID, isnull(t_DepartmentRule,'暂缺') as t_DepartmentRule, "&_
	" (case v_DepartmentName when '"& DepartmentName &"' then 'selected' else '' end) as state "&_
	" FROM hxdf_department_form "&_
	" ORDER BY v_DepartmentCode " 
	rs.Open sql,conn,1,1
if not rs.EOF then
rstree=rs.GetRows
else
rstree=null
end if
rs.Close: set rs=nothing
SelectDepartmentArray=rstree
end function

function inspectDepartment(DepartmentNameStr)
dim rs
set rs=server.CreateObject("adodb.recordset")
sql=" SELECT v_DepartmentCode, v_DepartmentName, isnull(v_logo,'images/default.gif') as v_logo, "&_
	" n_ID, isnull(t_DepartmentRule,'暂缺') as t_DepartmentRule, "&_
	" (case when v_DepartmentName in ("& DepartmentNameStr &") then 'selected' else '' end) as state "&_
	" FROM hxdf_department_form "&_
	" ORDER BY v_DepartmentCode " 
	rs.Open sql,conn,1,1
if not rs.EOF then
rstree=rs.GetRows
else
rstree=null
end if
rs.Close: set rs=nothing
inspectDepartment=rstree
end function

sub DepartmentTree(DepartmentArrayName,frame,url)
response.Write ("<table width=""100%"">")
for i= 0 to ubound(DepartmentArrayName,2)
response.Write ("<tr><td>")
response.Write ("<label style='width: "& (len(DepartmentArrayName(0,i))-2)*8 &"px; cursor: default;' align='right'></label>")
response.Write ("<img style='width: 16px; height: 16px;' src='"& DepartmentArrayName(2,i)&"'><label language=javascript onclick="""&frame&".location.href='"& url &"?department="& DepartmentArrayName(0,i)&"';"">"&DepartmentArrayName(1,i)&"</label>")
response.Write ("</td></tr>")
next
response.Write ("</table>")
end sub

sub DepartmentSelect(DepartmentArrayName, Way)
for i= 0 to ubound(DepartmentArrayName,2)
if Way="ID" then
response.Write ("<option value='"& DepartmentArrayName(3,i) &"' "& DepartmentArrayName(5,i) &">")
elseif Way="Name" then
response.Write ("<option value='"& DepartmentArrayName(1,i) &"' "& DepartmentArrayName(5,i) &">")
elseif Way="Code" then
response.Write ("<option value='"& DepartmentArrayName(0,i) &"' "& DepartmentArrayName(5,i) &">")
end if
s=string(len(DepartmentArrayName(0,i))/2-1,"　")
'for j= 1 to (len(DepartmentArrayName(0,i))-2)
's=s&"&nbsp;"
'next
response.Write (s & "┣" & DepartmentArrayName(1,i))
response.Write ("</option>")
next
end sub%>