getgifurl.asp

功能齐全的oa系统

<%
	Function GetGifURL(FileName)
		Dim ff,RName
		If FileName = "" Then
			GetGifURL = "unknown.gif"
			Exit Function
		End If
		ff = LCase(Right(FileName,4))
		
		If ff = ".gif" Then 
			RName = "gif.gif"
		ElseIf ff = ".jpg" Then 
			RName = "jpg.gif"
		ElseIf ff = ".doc" Then 
			RName = "doc.gif"
		ElseIf ff = ".htm" Then 
			RName = "htm.gif"
		ElseIf ff = ".txt" Then 
			RName = "txt.gif"
		ElseIf ff = ".exe" Then
			RName = "exe.gif"
		Else
			RName = "unknown.gif"
		End If

		GetGifURL = RName
	End Function
%>