gusucode.com > 学校共青团组织网站源代码 > 学校共青团组织网站源代码/626/news_view.asp
<% Response.Buffer = True %>
<!--#include file = admin_conn.asp -->
<!--#include file = language.asp -->
<!--#include file = titleb.asp -->
<!--#include file=head.asp-->
<%
newsid=chkhtm(trim(Request("newsid")))
page=chkhtm(trim(request("page")))
if newsid="" then newsid=chkhtm(trim(Request("id")))
id=newsid
if newsid="" then
Response.Write "<BR><BR><BR><center>参数不正确</center>"
response.end
end if
if (not isNumeric(newsid)) then
Response.Write "<Script Language=JavaScript>alert('ＩＤ参数错误或有非法字符或没指定参数，请勿随意提交数据！');location.href='/';</Script>"
response.end
end if
if (not isNumeric(page)) then
page=""
end if
sql = "select * from news where id="&newsid
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,1,1
if rs.recordcount=0 then
Response.Write "<BR><BR><Center>该新闻已经没有了，可能已经删除了！<BR><BR>"
rs.close:set rs=nothing
conn.close:set conn=nothing
Response.end
end if
title=rs("title")
title="<font color="&rs("titlecolor")&">"&trim(title)&"</font>"
webtitle=rs("title")
htitle=trim(rs("htitle"))&" "
dat=rs("time")
zz=trim(rs("zz"))&" "
laiyuan=rs("laiyuan")&" "
piczz=rs("piczz")&" "
yurl=rs("yurl")
hit=rs("hit")+1
hit=hit
webxgnews=trim(chkhtm(rs("xgnews")))
if webxgnews="" then webxgnews=left(rs("title"),3)
if webxgnews<>"" then
webxgnews=replace(webxgnews,"[","")
webxgnews=replace(webxgnews,"]","")
end if
SQL="select top 10 [id],[title],[xgnews] from [news] where ( [title] like '%"&webxgnews&"%' or [xgnews] like '%"&webxgnews&"%' ) and [id]<>"&chkhtm(trim(Request("newsid")))&" order by [id] desc"
Set xgrs = Server.CreateObject("ADODB.RecordSet")
xgrs.Open SQL,conn,1,1
while not xgrs.eof
xgnews=xgnews + "·<a href=news_view.asp?newsid="&xgrs("id")&" title='"&xgrs("title")&"'>"&xgrs("title")&"</a><BR>"
xgrs.movenext
wend
if xgrs.recordcount=0 then xgnews="没有相关信息"
xgrs.close
set xgrs=nothing
content=rs("content")
content=replace(content,"]","］")
content=replace(content,"[","［")
NewsWordKey=","&config("NewsWordKey")&","
aabb=split(NewsWordKey,",")
for jjj=0 to ubound(aabb)
content=replace(content,aabb(jjj),"<a target=_blank title='查看更多' href=so/?word="&aabb(jjj)&"><u>"&aabb(jjj)&"</u></a>")
next
if yurl<>"" then
content=content&" <BR><div align=right><a href="&yurl&" target=_blank>原贴地址</a></div>"
end if
if instr(content,"$$分页$$")<>0 then
if page="" then page=1
nrfy=split(content,"$$分页$$")
page=page-1
if page>ubound(nrfy) then page=0
if page<0 then page=0
content=nrfy(page)
fy=1
content=content&"<center>第 "
for i=0 to ubound(nrfy)
sss=""
if clng(page)=clng(i) then
sss="font-weight:700;background-color: #EEEEEE;"
end if
content=content&"<a href='?NewsID="&trim(NewsID)&"&page="&i+1&"' style='"&sss&"'> "&i+1&" </a>"
next
content=content&"页</center>"
end if
if config("ggso")="1" then
content=content&GoogleSo()
end if
if pl()=1 then ppll="<BR><hR size=1><script language='javascript' src='js_news_pl.asp?id="&id&"'></script>"
url=trim(rs("url"))
conn.Execute = "update news set hit=hit+1 where ID="&newsid
if url<>"" then
Response.Redirect url
end if
set rspl = Server.CreateObject("ADODB.RecordSet")
rspl.Open "select * from [NewsPL] where NewsID="&newsid&" and sh=1 order by id desc",conn,1,1
pls=rspl.recordcount
rspl.close
set rspl=nothing
pp=""
pp=pp&" "
pp=pp&"<a name=pl><img src=images/bbstitle.gif></a><a href=#pl onclick='window.open(""NewsPL.asp?id="&rs("id")&""",""newsview"",""width=680,height=400,top=70,left=150,scrollbars=yes"" )' title='"&rs("title")&"'>发表,查看评论("&pls&")</a> "
pp=pp&"<img border='0' src='images/print.gif' width='16' height='16'><a href='javascript:window.print()'>打印本页</a> "
response.flush
%>
<!--#include file = language.asp -->
<%
lmid=rs("lm3")
if lmid="0" or lmid="" then lmid=rs("lm2")
if lmid="0" or lmid="" then lmid=rs("lm")
sql2 = "select * from lm where mb<>'' and id="&clng(lmid)
Set rs2 = Server.CreateObject("ADODB.RecordSet")
rs2.Open sql2,conn,1,1
if rs2.recordcount<>0 then
lm=rs2("lm")&rs2("lm2")&rs2("lm3")
mbid=rs2("mb")
if laiyuan="" then laiyuan=" "
if piczz="" then piczz=" "
if zz="" then zz=" "
sql3 = "select * from newsmb where id="&mbid
Set rs3 = Server.CreateObject("ADODB.RecordSet")
rs3.Open sql3,conn,1,1
if htitle="" then htitle=" "
if rs3.recordcount<>0 then
updown=rs3("updown")
nr=rs3("mid")
nr=replace(nr,"$$路径$$",lmpath())
nr=replace(nr,"$$副标题$$",htitle)
nr=replace(nr,"$$标题$$",title)
nr=replace(nr,"$$栏目名$$",lm)
nr=replace(nr,"$$时间$$",dat)
nr=replace(nr,"$$访问量$$",hit)
nr=replace(nr,"$$内容$$",content)
nr=replace(nr,"$$来源$$",laiyuan)
nr=replace(nr,"$$作者$$",zz)
nr=replace(nr,"$$图片作者$$",piczz)
nr=replace(nr,"$$评论$$",ppll)
nr=replace(nr,"$$打印$$",pp)
nr=replace(nr,"$$工具栏$$",pp)
nr=replace(nr,"$$相关$$",xgnews)
nr=replace(nr,"$$NEWSID$$",newsid)
if updown=0 then
nr=replace(nr,"$$上下条$$","")
else
Set rs4 = Server.CreateObject("ADODB.RecordSet")
rs4.Open "select top 1 * from [news] where (lm2='"&lmid&"' or lm='"&lmid&"' or lm3='"&lmid&"') and id<"&newsid&" and sh=1 order by id desc",conn,1,1
if rs4.recordcount<>0 then
uuu="上一条：<a href="&hrefID(rs4("id"),rs4("filename"))&"><font color="&rs4("titlecolor")&">"&rs4("title")&"</font></a><BR>"
else
uuu="上一条：已经没有了<BR>"
end if
Set rs5 = Server.CreateObject("ADODB.RecordSet")
rs5.Open "select top 1 * from [news] where (lm2='"&lmid&"' or lm='"&lmid&"' or lm3='"&lmid&"') and id>"&newsid&" and sh=1 order by id asc",conn,1,1
if rs5.recordcount<>0 then
uuu=uuu&"下一条：<a href="&hrefID(rs5("id"),rs5("filename"))&"><font color="&rs5("titlecolor")&">"&rs5("title")&"</font></a>"
else
uuu=uuu&"下一条：已经没有了"
end if
nr=replace(nr,"$$上下条$$",uuu)
rs4.close
set rs4=nothing
rs5.close
set rs5=nothing
end if
response.write nr
response.flush
else
response.write "<center><BR><BR><BR>模版设置不正确。"
end if
rs3.close
set rs3=nothing
else
Response.Write "<center><BR><BR><BR>此栏目模版设置不正确"
mbid=1
end if
'rs.close
'set rs=nothing
rs2.close
set rs2=nothing
conn.close
set conn=nothing
%>
<!--#include file="top.asp"-->