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
Function Html2Ubb(str)//把html代码转换成ubb代码
 If Str<>"" And Not IsNull(Str) Then
  Dim re,tmpstr
  Set re=new RegExp
  re.IgnoreCase =True
  re.Global=True
  re.Pattern = "()":Str = re.Replace(Str,"")
  re.Pattern = "(<\/STRONG>)":Str = re.Replace(Str,"")
  re.Pattern ="()":Str = re.Replace(Str,"")
  re.Pattern ="(<\/TBODY>)":Str = re.Replace(Str,"")
  re.Pattern ="(   re.Pattern ="(TABLE>)":Str = re.Replace(Str,"table>")
  re.Pattern ="(   re.Pattern ="(TR>)":Str = re.Replace(Str,"tr>")
  re.Pattern ="(   re.Pattern ="(TD>)":Str = re.Replace(Str,"td>")
  re.Pattern ="(   re.Pattern ="(Div>)":Str = re.Replace(Str,"div>")
  re.Pattern ="(   re.Pattern ="(   re.Pattern ="(   re.Pattern ="(<\/A>)":Str = re.Replace(Str,"")
  re.Pattern ="(   re.Pattern ="(<\/FONT>)":Str = re.Replace(Str,"")
  re.Pattern = "()":Str = re.Replace(Str, "")
  re.Pattern ="(\{)":Str = re.Replace(Str,"{")
  re.Pattern ="(\})":Str = re.Replace(Str,"}")
  re.Pattern ="(\$)":Str = re.Replace(Str,"$")
  're.Pattern = "(