龙盟编程博客 | 无障碍搜索 | 云盘搜索神器
快速搜索
主页 > web编程 > asp编程 >

asp取得flash高与宽

时间:2012-12-31 22:56来源:未知 作者:admin 点击:
分享到:

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


精彩图集

赞助商链接