asp取得flash高与宽

asp取得高与宽

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