您正在使用 IPV4 [3.17.6.75] 访问本站，您本次已经查看了 1 页
用户名：　密　码：　验证码：　 　　　用QQ登录本站
首页 软件 编程 笑话 知识 公告 台风 日历 计算器
悟空收录网       [公益]保护绿色环境，构建和谐社会      

【腾讯云】 爆款2核2G3M云服务器首年 61元，叠加红包再享折上折      
[公益] 地球是我家，绿化靠大家      
2024年 劳动节 剩 014 天
2024年 端午节 剩 054 天
2025年 元　旦 剩 259 天
2025年 春　节 剩 287 天
　
您现在的位置：首页 >> ASP/ASP.net >> 内容
本类新增
本类热门
asp从字符串里截取N个带HTML的字符的函数
内容摘要： '函数名:getHTMLContent'参数:NO--要取得的字符数,txtContent--要处理的字符串%FunctiongetHTMLContent(NO,txtContent)IfLen(txtContent)=NOThengetHTMLContent=txtContentExitFunctionEndIfSetre=NewRegExpre.Igno......
'函数名:getHTMLContent'参数:NO-->要取得的字符数,txtContent-->要处理的字符串

<%FunctiongetHTMLContent(NO,txtContent)

IfLen(txtContent)<=NOThen

getHTMLContent=txtContent

ExitFunction

EndIf

Setre=NewRegExp

re.IgnoreCase=True

re.Global=True

patrn="<p|<br|<li|<table"

patrn=Split(patrn,"|")

ForEachpinpatrn

re.Pattern=p

txtContent=re.Replace(txtContent,"||"&p)

Next

txtContent=Split(txtContent,"||")

ForEachEintxtContent

IfLen(s)>NOThenExitFor

s=s+E

Next

getHTMLContent=s

EndFunction

%>
版权声明：本内容来源于网络，如有侵犯您的版权，请联系站长，本站收到您的信息后将及时处理。
上一篇：asp下实现替换远程文件为本地文件并保存远程文件的代码

 

下一篇：用asp脚本实现限制IP访问
发布日期：2023/3/14
手机扫二维码直达本页
发布时间：13:22:52
点　　击：6
录　　入：齐天大圣
相关文章
Baidu
YiJiaCMS 7.3.8 build231228(MSSQL) 闽ICP备05000814号-1
本空间由腾讯云(轻量应用服务器)提供,Cloudflare提供加速防护
运行时间载入中.....