%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 %>