<%
Function RegExp_Execute(patrn, strng)
Dim regEx, Match, Matches,values '建立变量。
Set regEx = New RegExp '建立正则表达式。
regEx.Pattern = patrn '设置模式。
regEx.IgnoreCase = true '设置是否区分字符大小写。
regEx.Global = True '设置全局可用性。
Set Matches = regEx.Execute(strng) '执行搜索。
For Each Match in Matches '遍历匹配集合。
values=values&Match.Value&","
Next
RegExp_Execute = values
End Function
function nohtml(str)
dim re
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,"")
nohtml=str
set re=nothing
end function
Set rs = Server.CreateObject("ADODB.Recordset")
sql="Select * from pro where show=1 order by id desc"
rs.open sql,conn,3,2%>
<%do while not Rs.eof
strurl=rs("content")
regstr="src\=.+?\.(gif|jpg)"
'response.write
b= RegExp_Execute(regstr,strurl)
a=split(b,",")
if b="" then%>
No Picture!
<%else%>
" target="_blank">![]()
" title="<%=rs("title")%>" /><%end if%>
<% Rs.movenext
loop%>
企业简介
苏州众力仪表有限公司专业生产各类压力表，以及各种金属铭牌、标牌，公司创办于1995年，座落在江苏省苏州市虎丘工业区。公司现拥有员工100人，注册资产100万元，总资产300万元。本公司主要生产普通压力表、不锈钢压力表、抗震压力表、氨气压力表、电接点压力表、制冷压力表等特种压力表，广泛应用于石油、化工、化肥、治金、纺织、科研等多个领域，产品质量稳定，销往国内外省、市、自治区 , 并常年出口美国、德国、意大利、韩国、日本、加拿大及东南亚地区，深受广大国内外客商的好评！
