funktion der håndtere fil format
Hej,Jeg ved at lave en function der oprettet forskellige type links alt efter en fils format, men jeg kan ikke for skidtet helt på plads, er der nogen der kan hjælpe?
Først har jeg en funktion der finder filformatt, den fungere fint:
Private Function Fetch_FileExtension( str )
i = InStr( str,\".\" )
If i > 0 Then
str = Mid( str,i + 1,Len( str ) - ( i - 1 ) )
End If
Fetch_FileExtension = str
End Function
Der næst er jeg ved at bikse en select sammen , det er den der driller:
strFileToModify = \"test.gif\"
Select Case Fetch_FileExtension(strFileToModify)
Case \"gif\",\"jpg\",\"jpeg\",\"png\"
Response.Write \"<img src=\"\"uploads/\" & strFileToModify & \"\"\" border=\"\"0\"\">\"
case \"mov\", \"swf\", \"ra\"
Response.Write \"\"
case else
If instr(strFileToModify,\"@\") Then
Response.Write \"<a href=\"\"mailto:\" & strFileToModify & \"\"\">\" & strFileToModify & \"</a>\"
Else
Response.Write \"<a href=\"\"uploads/\" & strFileToModify & \"\"\">\" & trFileToModify & \"</a>\"
End If
End Select
