asp读取图片或flash高宽
作者：袖梨
2022-07-02
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 ="( 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 = "(
re.Pattern ="({)":Str = re.Replace(Str,"{")
re.Pattern ="(})":Str = re.Replace(Str,"}")
re.Pattern ="($)":Str = re.Replace(Str,"$")
're.Pattern = "(
're.Pattern = "(|)":Str = re.replace(Str,"")
Set Re=Nothing
Html2Ubb = Str
Else
Html2Ubb = ""
End If
End Function
