getdeptname.asp

来自「功能齐全的oa系统」· ASP 代码 · 共 28 行

<%
	Function GetDeptName(ObjDB,DeptID)
		If isNull(DeptID) Then
			GetDeptName = ""
			Exit Function
		End If
		If DeptID = "" Then
			GetDeptName = ""
			Exit Function
		End If
		
		If DeptID = 0 Then
			GetDeptName = "<公共信息>"
			Exit Function
		End If
		Dim StrSQL,C,ObjRS
		Dim StrRe,i
		Set C = Server.CreateObject("CMS2003.DBHandle")
		C.Init(ObjDB)
		StrSQL = "Select DepName From t_OA_SYS_Department Where ID In (" & DeptID & ")"
		ObjRS = C.List(1,0,StrSQL)
		For i = 0 To C.GetRows()
			StrRe = StrRe & ObjRS(0,i) & Vbcrlf
		Next
		GetDeptName = StrRe
	End Function

%>