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 = "<embed src=""" & url & """ width=" & width & " height=" & height & ">"
Else
strTemp = "<img src=""" & url & """ width=" & width & " height=" & height & " border=0>"
End If
GetFlashAndPic = strTemp
End Function
- 上一篇:图片无缝滚动
- 下一篇:asp数据连接函数与关闭