asp读取图片或flash高宽

时间：2022-07-02 23:14:39 编辑：袖梨来源：一聚教程网

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
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 = "()":Str = re.Replace(Str,"")
  re.Pattern ="()":Str = re.Replace(Str,"")
  re.Pattern ="()":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 ="()":Str = re.Replace(Str,"")
  re.Pattern ="(   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 ="($)":Str = re.Replace(Str,"$")
  're.Pattern = "(
|
)":Str = re.replace(Str,"
")
  're.Pattern = "(|)":Str = re.replace(Str,"")
  Set Re=Nothing
  Html2Ubb = Str
Else
  Html2Ubb = ""
End If
End Function

推荐专题

最新下载

热门教程

asp读取图片或flash高宽

相关文章

热门栏目

php教程

asp.net教程

手机开发

css教程

网页制作

办公数码

jsp教程