asp显示图片或者FLASH函数

'================================================
'作  用：读取图片或者FLASH
'参  数：url ----文件URL
'        height ----高度
'        width ----宽度
'================================================
Function GetFlashAndPic(url,height,width)
 Dim sExtName,ExtName,strTemp
 sExtName = Split(url, ".")
 ExtName = sExtName(UBound(sExtName))
 If LCase(ExtName) = "swf" Then
  strTemp = "<embed src=""" & url & """ width=""" & width & """ height=""" & height & """></embed>"
 Else
  strTemp = "<img src=""" & url & """ width=""" & width & """ height=""" & height & """ border=""0""/>"
 End If
 GetFlashAndPic = strTemp
End Function