|
<script>ec(2);</script> asp取得flash高与宽 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 & ">"
Else
strTemp = "<img src=""" & url & """ width=" & width & " height=" & height & " border=0>"
End If
GetFlashAndPic = strTemp
End Function
|
