<%thisclass="news"
thisid="default"
if request("id")<>"" then
id=request("id")
set rs=conn.execute("select * from data_news_class where id="&id&"")
if not rs.eof then
pid=rs("id")
Pname=rs("name")
if rs("title")<>"" then
title=rs("title")
else
title=rs("name")&"--"&sitename
end if
keywords=rs("keywords")
if keywords="" then
keywords=rs("name")
end if
Description=rs("Description")
if Description="" then
Description=rs("name")&","&sitename
end if
end if
rs.close
set rs=nothing
else
Pname="资讯中心"
title=Pname&"--"&sitename
keywords=Pname
Description=Pname&","&sitename
end if
function newslist()'新闻列表
set rs=server.CreateObject("adodb.recordset")
if request("id")<>"" then
rs.open "select * from data_news where classid="&id&" order by updatetime desc,id desc",conn,1,2
else
rs.open "select * from data_news order by updatetime desc,id desc",conn,1,2
end if
if not rs.eof then
PageSize=20
rs.PageSize=PageSize
recordcount=rs.recordcount
pagecount=rs.pagecount
'获得当前页码
if request("page") = "" then
page = 1
else
page = cint(request("page"))
if page > pagecount then page=pagecount
end if
rs.AbsolutePage=page
response.Write(" "&vbcrlf)
for i=1 to rs.PageSize
response.Write("- ")
updatetime=rs("updatetime")
name=rs("name")
if updatetime<>"" then
response.Write("(")
response.Write year(updatetime)&"-"&month(updatetime)&"-"&day(updatetime)
response.Write(")")
end if
response.Write(""&keyword_tag(name,keyword)&"")
response.Write("
"&vbcrlf)
response.Write("- ")
response.Write(""&keyword_tag(rs("Description"),keyword)&"")
response.Write("
"&vbcrlf)
rs.movenext
if rs.eof then exit for
next
response.Write("
")
response.Write("共"&recordcount&"条信息 ")
if sitehtmlid=2 then
filename=newsurl(id)
call showpage_fun3(pagecount,page,4,filename)
else
filename="news.asp"
call showpage_fun2(pagecount,page,4,filename)
end if
response.Write("
")
else
response.Write("无信息")
end if
rs.close
set rs=nothing
end function
function weizhi()'当前位置%>
当前位置：首页 -> <%=pname%>
<%end function%>
<%=include(temp&"news.html")%>