showattachs.asp

功能齐全的oa系统

<%
Function ShowAttachs(ObjDB,Attachs)
	Dim ObjRS,StrSQL
	Dim AttachIDs
	Dim StrTmp
	If IsNull(Attachs) Then Attachs = ""
	If Attachs = "" Then
		ShowAttachs = "<无附件>"
		Exit Function
	End If
	AttachIDs = "'" & Replace(Attachs,",","','") & "'"

	StrSQL = "Select * From t_OA_Attach Where KeyPath In (" & AttachIDs & ")"

	Set ObjRS = ObjDB.Execute(StrSQL)
	
	StrTmp = "<select name=ALLATTACHS>"
	While Not ObjRS.Eof
		StrTmp = StrTmp & "<option value=" & ObjRS("KeyPath") & ">" & ObjRS("FileName") & "</option>"
		
		ObjRS.MoveNext
	Wend
	

	StrTmp = StrTmp & "</select>"
	
	StrTmp = StrTmp & "<input value='查 &nbsp;&nbsp;&nbsp;看' type=button onclick=" & Chr(34) & "window.open('" & Application("RootPath") & "Hrms/TrainAttach/View.asp?ID='+ALLATTACHS.value)" & Chr(34) & ">"
	
	ShowAttachs = StrTmp
End Function

Function ShowAttachsH(ObjDB,Attachs)
	Dim ObjRS,StrSQL
	Dim AttachIDs
	Dim StrTmp
	If IsNull(Attachs) Then Attachs = ""
	If Attachs = "" Then
		ShowAttachsH= "<无附件>"
		Exit Function
	End If
	AttachIDs = "'" & Replace(Attachs,",","','") & "'"

	StrSQL = "Select * From t_Hrms_Attach Where KeyPath In (" & AttachIDs & ")"

	Set ObjRS = ObjDB.Execute(StrSQL)
	
	StrTmp = "<select class=SelectWidth name=ALLATTACHS>"
	While Not ObjRS.Eof
		StrTmp = StrTmp & "<option value=" & ObjRS("KeyPath") & ">" & ObjRS("FileName") & "</option>"
		
		ObjRS.MoveNext
	Wend
	

	StrTmp = StrTmp & "</select>"
	
	StrTmp = StrTmp & "<input class=button value='查 &nbsp;&nbsp;&nbsp;看' type=button onclick=" & Chr(34) & "window.open('" & Application("RootPath") & "Hrms/Attach/View.asp?ID='+ALLATTACHS.value)" & Chr(34) & ">"
	
	ShowAttachsH= StrTmp
End Function
%>