news_view

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>



<%call noid
Set rs = server.CreateObject("adodb.recordset")
sql = "select * from pf_news where id = "&request.QueryString("ID")&""
rs.Open sql, conn, 1, 1
If rs.EOF Then
Call infoback("不存在此数据，或者相关数据已被删除！")
Else
pf_news_name = rs("pf_news_name")
pf_news_sources = rs("pf_news_sources")
pf_news_author = rs("pf_news_author")
pf_news_category = rs("pf_news_category")
pf_news_keywords = rs("pf_news_keywords")
pf_news_content = rs("pf_news_content")
pf_news_date = rs("pf_news_date")
pf_news_hits = rs("pf_news_hits")
pf_news_modify_date = rs("pf_news_modify_date")
End If
rs.Close
Set rs = Nothing
Set rs = Nothing
sql = "update pf_news set pf_news_hits = pf_news_hits + 1 where id="&request.QueryString("ID")&""
conn.Execute sql
Set rs = server.CreateObject("adodb.recordset")
sql = "select * from pf_news where id < "&request.QueryString("ID")&" order by id desc "
rs.Open sql, conn, 1, 1
If rs.EOF Then
pf_next_news = "暂无"
Else
pf_next_news = (""&Left(rs("pf_news_name"), 8)&"")
End If
rs.Close
Set rs = Nothing
Set rs = server.CreateObject("adodb.recordset")
sql = "select * from pf_news where id > "&request.QueryString("ID")&""
rs.Open sql, conn, 1, 1
If rs.EOF Then
pf_previous_news = "暂无"
Else
pf_previous_news = (""&Left(rs("pf_news_name"), 8)&"")
End If
rs.Close
Set rs = Nothing

Set rs = server.CreateObject("adodb.recordset")
sql = "select * from pf_news_category where id="&pf_news_category&""
rs.Open sql, conn, 1, 1
pf_news_category = ""&rs("pf_news_category_name")&""
rs.Close
Set rs = Nothing
%>