asp取得flash高与宽

asp取得flash高与宽

Function GetFlashAndPic(url,height,width)
 Dim sExtName,ExtName,strTemp
 sExtName = Split(url, ".")
 ExtName = sExtName(UBound(sExtName))
 If LCase(ExtName) = "swf" Then
  strTemp = ""
 Else
  strTemp = ""
 End If
 GetFlashAndPic = strTemp
End Function