ASP常用函数:ReplaceHTML_ASP基础

<%
'去掉HTML标记

Public Function ReplaceHTML(Textstr)
    Dim Str, re
    Str = Textstr
    Set re = New RegExp
    re.IgnoreCase = True
    re.Global = True
    re.Pattern = "<(.[^>]*)>"
    Str = re.Replace(Str, "")
    Set Re = Nothing
    ReplaceHTML = Str
End Function
%>

时间： 2024-12-22 21:30:22

ASP常用函数:ReplaceHTML_ASP基础的相关文章

ASP常用函数:XMLEncode_ASP基础

输出RSS和XML时经常用到,和HTMLEncode还不完全一样原理: Character Converted To " " ' ' & & < < > > 代码<%Function XMLEncode(byVal sText) sText = Replace(sText, "&" , "&") sText = Replace(sText, "<"

ASP常用函数:ArrayToxml_ASP基础

<% Public Function ArrayToxml(DataArray, Recordset, row, xmlroot) Dim i, node, rs, j If xmlroot = "" Then xmlroot = "xml" Set ArrayToxml = Server.CreateObject("msxml2.FreeThreadedDOMDocument"& MsxmlVersion)

[转]ASP常用函数:TimeZone_ASP基础

功能:获取服务器所在时区复制代码代码如下: <% Function TimeZone() Set oShell = CreateObject("WScript.Shell") atb = "HKEY_LOCAL_MACHINE\System\CurrentControlSet\" & _ "Control\TimeZoneInformation\ActiveTimeBias"

ASP常用函数:HTMLDecode_ASP基础

<% Function HTMLDecode(sText) Dim I sText = Replace(sText, "&" , Chr(38)) sText = Replace(sText, """", Chr(34)) sText = Replace(sText, "<" , Chr(60)) sText = Replace(sText, ">&q

ASP常用函数收藏乱七八糟未整理版_ASP基础

<% '******************************************************************* '取得IP地址 '******************************************************************* Function Userip() Dim GetClientIP '如果客户端用了代理服务器,则应该用ServerVariables("HTTP_X_FORWARDED_FOR&

ASP常用函数:Delay()_ASP基础

代码很短,但是很经典,单位是秒,就是未测试过服务器资源消耗怎么样: <% Function Delay(s) Dim t = Now() While DateDiff("s", t, Now) < s Wend End Function %> 转载自:http://jorkin.reallydo.com/article.asp?id=224

ASP常用函数:CStrIP()_ASP基础

作用:把长整型数字转为IP地址 <% Function CStrIP(ByVal anNewIP) Dim lsResults Dim lnTemp Dim lnIndex For lnIndex = 3 To 0 Step -1 lnTemp = Int(anNewIP / (256 ^ lnIndex)) lsResults = lsResults & lnTemp & "." a

Asp.Net常用函数_基础应用

Abs(number) 取得数值的绝对值. Asc(String) 取得字符串表达式的第一个字符ASCII 码. Atn(number) 取得一个角度的反正切值. CallByName (object, procname, usecalltype,[args()]) 执行一个对象的方法.设定或传回对象的属性. CBool(expression) 转换表达式为Boolean 型态. CByte(expression) 转换表达式为Byte 型态. CChar(e

ASP常用函数:CLngIP()_ASP基础

作用:把IP地址转为长整型 <% Function CLngIP(ByVal asNewIP) Dim lnResults Dim lnIndex Dim lnIpAry lnIpAry = Split(asNewIP, ".", 4) For lnIndex = 0 To 3 If Not lnIndex = 3 Then lnIpAry(lnIndex) = lnIpAry(lnIndex) *