<% on error resume next set basef=server.createobject("indexfunction.ifunction") set hospitalb=server.createobject("indexfunction.hospindex") set shop=server.createobject("indexfunction.shopf") set pv=server.createobject("indexfunction.playvideo") set zx=server.createobject("indexfunction.zixun") Function rplinfo(strHTML,keyword) Dim objRegExp, Match, Matches Set objRegExp = New Regexp objRegExp.IgnoreCase = True objRegExp.Global = true objRegExp.Pattern = keyword Set Matches = objRegExp.Execute(strHTML) for each matchs in matches strHtml=objregexp.Replace(strHTML,"") Next rplinfo=strHtml Set objRegExp = Nothing End Function %>

<%=basef.getMenu(" userpower=7 and status=0","20","menu_style")%>	<%=left(rplinfo(basef.getNpic(" id=61356","intro","info"),"<.*>"),138)%> >>>详细资料 <%=left(rplinfo(basef.getNpic(" id=61357","intro","info"),"<.*?>"),160)%> >>>详细资料 　 <%=left(rplinfo(basef.getNpic(" id=61363","intro","info"),"<.*?>"),113)%> >>>详细资料 <%=left(rplinfo(basef.getNpic(" id=61359","intro","info"),"<.*?>"),140)%> >>>详细资料	<%=pv.getVideodianguang(" tid=20","2","video_li","10")%> <%=basef.anli_list_condi("title"," userid=942","anli.asp")%> <%=basef.anli_list(" userid=942","anliul","anliulli","anli.asp?id=","1")%>