file.asp

功能齐全的oa系统

<%
	Function GetExtName(Str)
		Dim FileName,Pos1
		Pos1 = InStr(1,Str,".")
		FileName = Right(Str,Len(Str)-Pos1)
		Pos1 = InStr(1,FileName,Chr(34))
		FileName = Left(FileName,Pos1-1)
		GetExtName = FileName
	End Function
	
	
	Function GetFilePath(ID,ContentType)
		GetFilePath = Server.MapPath("/photo/") & "\" & GetFileName(ID,ContentType)
	End Function
	
	Function GetFileURL(ID,ContentType)
		GetFileURL = "/photo/" & GetFileName(ID,ContentType)
	End Function
	
	Function GetFileFolder()
		GetFileFolder = Server.MapPath("/Photo/")
	End Function

%>