getattachsstring.asp

功能齐全的oa系统

<%
Function GetAttachsString(ObjDB,Attachs)
	Dim ObjRS,StrSQL
	Dim AttachIDs
	Dim StrTmp,ShowAttachs
	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)
	While Not ObjRS.Eof
		StrTmp = StrTmp & ObjRS("FileName") & " "
		ObjRS.MoveNext
	Wend
	GetAttachsString = StrTmp
End Function
%>