<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> 龙 虎 和 全 天 计 划 <%=tit%>
宏基简介
<% Set rs = Server.CreateObject("ADODB.Recordset") sql="select Content from Aboutus where id=17" rs.open sql,conn,1,3 c=rs("content") rs.close Function RemoveHTML(strHTML) Dim objRegExp, Match, Matches Set objRegExp = New Regexp objRegExp.IgnoreCase = True objRegExp.Global = True '取闭合的<> objRegExp.Pattern = "<.+?>" '进行匹配 Set Matches = objRegExp.Execute(strHTML) ' 遍历匹配集合,并替换掉匹配的项目 For Each Match in Matches strHtml=Replace(strHTML,Match.Value,"") Next RemoveHTML=strHTML Set objRegExp = Nothing End Function %> <% str=c str=RemoveHTML(str) ' set regex = new regexp 'regex.pattern = ".*?]*src\=[\'\""\s]{0,1}([^\s\'\""]*).*" 'str = regex.replace(str,"$1") 'str=gotTopic(str,120) str=left(str,288) response.write str&"..." %>
产品介绍
快速链接



版权所有 广州市宏基皮带厂 技术支持:十佳网络
广州市白云区均禾街石马桃源桃红工业区
Copyright © 广州市宏基皮带厂 All rights reserved.
粤ICP备05000067号 电话:020-36355789 36355798 36355796 传真:36355797