<%
Function Get_SEO_news_title()
'网站新闻列表页SEO_news_title调用
Dim news_title
set rs_name = Server.CreateObject("ADODB.RecordSet")
sql_name="select * from CM_SEO_L"
rs_name.open sql_name, conn,1,1
if not rs_name.eof and not rs_name.bof then
news_title=rs_name("SEO_news_title")
else
news_title=""
end if
rs_name.close
set rs_name=nothing
If news_title = "" then
Get_SEO_news_title = News_nrfb_name(Trim(Request.QueryString("xx_nrfb_class_id"))) & "|" & get_title
Else
Get_SEO_news_title = news_title
End if
End Function
Function Get_SEO_news_description()
'网站新闻列表页SEO_news_description调用
Dim news_description
set rs_name = Server.CreateObject("ADODB.RecordSet")
sql_name="select * from CM_SEO_L"
rs_name.open sql_name, conn,1,1
if not rs_name.eof and not rs_name.bof then
news_description=rs_name("SEO_news_description")
else
news_description=""
end if
rs_name.close
set rs_name=nothing
If news_description = "" then
Get_SEO_news_description = News_nrfb_name(Trim(Request.QueryString("xx_nrfb_class_id"))) & "|" & get_description
Else
Get_SEO_news_description = news_description
End if
End Function
Function Get_SEO_news_keywords()
'网站新闻列表页SEO_news_keywords调用
Dim news_keywords_2
set rs_name = Server.CreateObject("ADODB.RecordSet")
sql_name="select * from CM_SEO_L"
rs_name.open sql_name, conn,1,1
if not rs_name.eof and not rs_name.bof then
news_keywords_2 = rs_name("SEO_news_keywords_2")
else
news_keywords_2 = ""
end if
If news_keywords_2 = "" then
Get_SEO_news_keywords = News_nrfb_name(Trim(Request.QueryString("xx_nrfb_class_id"))) & "|" & get_keywords
Else
If rs_name("SEO_news_keywords_1") = 1 then
news_keywords_2 = get_keywords & "," & news_keywords_2
End If
Get_SEO_news_keywords = news_keywords_2
End if
rs_name.close
set rs_name=nothing
End Function
%>
<%= News_nrfb_name(Trim(Request.QueryString("xx_nrfb_class_id")))&"_"&get_hostname %>
<%
if request("page")="" then
ThisPage=1
else
ThisPage=request("page")
end if
Set Rs_news_1 = Server.CreateObject("ADODB.RecordSet")
Rs_news_1.open "Select * from xx_nrfb_content where (xx_nrfb_content_class_id = "&CheckStr(request("xx_nrfb_class_id"))&" or xx_nrfb_content_class_id in (select xx_nrfb_class_id from xx_nrfb_class where xx_nrfb_class_sj = "&CheckStr(request("xx_nrfb_class_id"))&")) and xx_nrfb_content_shenhe = 1 and xx_nrfb_content_xianshi = 1 order by xx_nrfb_content_date_xs desc, xx_nrfb_content_id desc",conn,1,1
Rs_news_1.Pagesize=20
Pagesize=Rs_news_1.Pagesize
Allrecord=Rs_news_1.Recordcount
Allpage=Rs_news_1.Pagecount
if ThisPage<1 then
ThisPage=1
end if
On Error Resume Next
Rs_news_1.move (ThisPage-1)*Pagesize
k=0
If Not Rs_news_1.bof And Not Rs_news_1.eof Then
Do while Not Rs_news_1.eof
i=1
%>