<%newsid=server.HTMLEncode(request.QueryString("Num")) if len(newsid)<1 then response.End() else%> <% Set rs = Server.CreateObject("ADODB.Recordset") rs.open "[dbo].[Get_news_cqlb] " & newsid ,Fconn,0,1 if not rs.eof then title=rs("title") body=rs("body") hdate=rs("date") pname=rs("source") writer=rs("writer") rs.close Set rs = Nothing CloseConn() Function LoseDivTag(ContentStr) Dim ClsTempLoseStr,RegEx ClsTempLoseStr = Cstr(ContentStr) Set RegEx = New RegExp RegEx.Pattern = "<(\/){0,1}div[^<>]*>" RegEx.IgnoreCase = True RegEx.Global = True ClsTempLoseStr = RegEx.Replace(ClsTempLoseStr,"") LoseDivTag = ClsTempLoseStr Set RegEx = Nothing End Function Function LoseSpanTag(ContentStr) Dim ClsTempLoseStr,RegEx ClsTempLoseStr = Cstr(ContentStr) Set RegEx = New RegExp RegEx.Pattern = "<(\/){0,1}span[^<>]*>" RegEx.IgnoreCase = True RegEx.Global = True ClsTempLoseStr = RegEx.Replace(ClsTempLoseStr,"") LoseSpanTag = ClsTempLoseStr Set RegEx = Nothing End Function Function LoseTableTag(ContentStr) Dim ClsTempLoseStr,RegEx ClsTempLoseStr = Cstr(ContentStr) Set RegEx = New RegExp RegEx.Pattern = "<(\/){0,1}table[^<>]*>" RegEx.IgnoreCase = True RegEx.Global = True ClsTempLoseStr = RegEx.Replace(ClsTempLoseStr,"") LoseTableTag = ClsTempLoseStr Set RegEx = Nothing End Function Function LoseTDTag(ContentStr) Dim ClsTempLoseStr,RegEx ClsTempLoseStr = Cstr(ContentStr) Set RegEx = New RegExp RegEx.Pattern = "<(\/){0,1}td[^<>]*>" RegEx.IgnoreCase = True RegEx.Global = True ClsTempLoseStr = RegEx.Replace(ClsTempLoseStr,"") LoseTDTag = ClsTempLoseStr Set RegEx = Nothing End Function Function LoseTRTag(ContentStr) Dim ClsTempLoseStr,RegEx ClsTempLoseStr = Cstr(ContentStr) Set RegEx = New RegExp RegEx.Pattern = "<(\/){0,1}tr[^<>]*>" RegEx.IgnoreCase = True RegEx.Global = True ClsTempLoseStr = RegEx.Replace(ClsTempLoseStr,"") LoseTRTag = ClsTempLoseStr Set RegEx = Nothing End Function Function LoseTBODYTag(ContentStr) Dim ClsTempLoseStr,RegEx ClsTempLoseStr = Cstr(ContentStr) Set RegEx = New RegExp RegEx.Pattern = "<(\/){0,1}tbody[^<>]*>" RegEx.IgnoreCase = True RegEx.Global = True ClsTempLoseStr = RegEx.Replace(ClsTempLoseStr,"") LoseTBODYTag = ClsTempLoseStr Set RegEx = Nothing End Function %> <%=title%>——人民网·重庆视窗—重庆权威新闻门户
<%=title%>

发布于:<%=hdate%>  来源:<%=pname%>  编辑:<%=writer%>

微博看重庆

<%=LoseTBODYTag(LoseTDTag(LoseTRTag(LoseTableTag(LoseSpanTag(LoseDivTag(body))))))%>
<%else response.End() end if end if%>