function.asp

功能齐全的oa系统

<%
	Function GetTrueName(objDB,AccountID)
		Dim	objRS,strSQL
		Set	objRS	=	Server.CreateObject("ADODB.Recordset")
		strSQL = "Select TrueName from  t_OA_SYS_Account_Character where AccountID = " & AccountID
		objRS.Open strSQL,objDB,1,3 
		If Not objRS.EOF Then
			GetTrueName	=	objRS.Fields("TrueName")
		End If
		Set objRS = Nothing
	End Function
	
	Function GetTrueNames(objDB,AccountIDs)
		Dim	objRS,strSQL
		Dim StrNames
		Set	objRS	=	Server.CreateObject("ADODB.Recordset")
		strSQL = "Select TrueName from  t_OA_SYS_Account_Character where AccountID In (" & AccountIDs & ")"
		objRS.Open strSQL,objDB,1,3 
		While Not objRS.EOF
			StrNames	=	StrNames & objRS.Fields("TrueName") & " "
			ObjRS.MoveNext
		Wend
		Set objRS = Nothing
		GetTrueNames = StrNames
	End Function
	
	Function GetDepName(IntCode)
		If		IntCode	=	1	Then
			GetDepName	=	"生产运行科"
		ElseIF	IntCode	=	2	Then
			GetDepName	=	"综合办公室"
		ElseIF	IntCode	=	3	Then
			GetDepName	=	"技术安全科"
		ElseIF	IntCode	=	4	Then
			GetDepName	=	"计划财务科"
		ElseIF	IntCode	=	5	Then
			GetDepName	=	"车辆管理科"
		ElseIF	IntCode	=	6	Then
			GetDepName	=	"保  卫  科"
		Else
			GetDepName	=	"输 入错 误"
		End If
	End Function
	
	Function IsExistFold(Path,Name)	
		Set Fs = Server.CreateObject("Scripting.FileSystemObject")
		NewFold = Path & "\" & Name
		If Fs.FolderExists(NewFold) Then
			IsExistFold = True
		Else
			IsExistFold = False
		End If		
	End Function					
	
	Function CreateFold(Path,Name)	'	Paht	=	"E:\jj\dd\"
		Dim Fs,NewFold
		NewFold = Path & "\" & Name
		Set Fs = Server.CreateObject("Scripting.FileSystemObject")
	'	Response.Write "NewFold="&NewFold&"<br>"
		If Fs.FolderExists(NewFold) Then
			CreateFold = ""
		Else
			Fs.CreateFolder(NewFold)
			CreateFold = NewFold
		End If	
	End Function					'	创建文件夹 "E:\jj\dd\kk"	并返回 "E:\jj\dd\kk"


	Function GetPassType(IntT)
	GetPassType="Need"
	End Function
	Function GetIsNeed(IntT)
	GetIsNeed="Need"
	End Function
%>