syscode_news.asp

后台登陆admin.asp

hx01.close
set hx01=nothing
if request("cat_id")<>"" then
   sql="select * from news where (cat_id="&cat_id&hx66010&") and passed=0 order by istop desc,news_id DESC"
   Url_Add=Url_Add&"cat_id="&cat_id&"&"
elseif request("keyword")<>"" and (request("select")="news_title" or request("select")="news_content" or request("select")="review") then
   sql="select * from news where "&request("select")&" like '%"&Jencode(checkspace(request("keyword")))&"%' order by istop desc,news_id DESC"
   Url_Add=Url_Add&"select="&request("select")&"&keyword="&Server.URLEncode(request("keyword"))&"&"
else
sql="select * from news where passed=0 order by istop desc,news_id DESC"
end if
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
Response.Write "<table width='100%' border='1' align='center' cellspacing='0' cellpadding='0' bgcolor='#FFFFFF' bordercolor='#f0f0f0' style='border-collapse: collapse'>" & vbCrLf
Response.Write "<tr>" & vbCrLf
Response.Write "<td height=30 colSpan=4><FONT color=#b70000>&nbsp;<B>·</B></FONT>"
if request("cat_id")<> "" then
Response.Write "本分类共有"
elseif request("select")<>"" then
Response.Write "共搜索到"
else
Response.Write "当前共有"
end if
Response.Write "<span>"&rs.recordcount&"</span>篇新闻</td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
Response.Write "<tr align='center'>" & vbCrLf
Response.Write "<TD width='6%' height='26'>状态</TD><td width='*'>主 题</td><TD width='10%'>人气</TD><td width='22%'>发表时间</td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
if not rs.eof then
   Dim Hx_Nums,MultiPages,i
   Rs.PageSize=Hxperpage
   Rs.AbsolutePage=CurPage
   Hx_Nums=Rs.RecordCount
   MultiPages="<tr><td colspan=""4"" height='28' align=""center"">"&MultiPage(Hx_Nums,Hxperpage,CurPage,Url_Add)&"</td></tr>"
Do Until Rs.EOF OR i=Hxperpage
sql="select cat_id,cat_name from newcat where cat_id="&rs("cat_id")
set rscat=server.createobject("adodb.recordset")
rscat.open sql,conn,1,1    
if rs("istop")="1" then      
folder="<img src=""img/1.gif"" title=固顶新闻>"       
else
folder="<img src=""img/4.gif"">"       
end if      
dim nnn
if NewWindows=True then
nnn="target='_blank'"
else
nnn=""				
end if
Response.Write "<tr>" & vbCrLf
Response.Write "<TD align=Center height='26'>"&folder&"</TD><td>" & vbCrLf
if classyes=True then Response.Write "<a href='news.asp?cat_id="&rs("cat_id")&"'>『"&left(rscat("cat_name"),10)&"』</a>"
Response.Write "<a href='shownews.asp?news_id="&rs("news_id")&"' Title='新闻标题："&rs("news_title")&"&#13&#10发表时间："&rs("news_date")&"&#13&#10阅读次数："&rs("news_count")&"次' "& nnn &">"&gotTopic(rs("news_title"),nn)&"</a>"
if rs("isimg")=1 then
Response.Write "&nbsp;<img src='img/img.gif' alt='图片新闻' align=absmiddle border=0>" & vbCrLf
end if
if DateDiff("h",rs("news_date"),now())<=24 then
Response.Write "<img src='img/new.gif' alt='24小时内新闻'>" & vbCrLf
end if
Response.Write "</td>"
Response.Write "<TD align=Center>"&rs("news_count")&"</TD>" & vbCrLf
Response.Write "<TD align=left>&nbsp;"&rs("news_date")&"</td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
i=i+1
rs.movenext
loop
else
if rs.eof and rs.bof then
Response.Write "<tr align='center'>" & vbCrLf
Response.Write "<td align=middle height='60' colSpan=4>"
if request("cat_id")<> "" then
Response.Write "该分类暂时没有新闻"
elseif request("keyword")<>"" then
Response.Write "没有找到包含[<b><font color=red>"&request("keyword")&"</font></b>]的新闻！"
else
Response.Write "没有任何新闻，请管理员到后台添加！"
end if
Response.Write "</td></tr>" & vbCrLf
end if
end if
Response.Write(MultiPages)
Response.Write "</table>" & vbCrLf
rs.close
set rs=nothing
end sub

'=================================================
'过程名：content_news
'作  用：显示文章标题、内容
'参  数：无
'Web:    www.ynsky.com.cn
'=================================================
sub content_news()
%>     
<script language = "JavaScript">
function fontColor(objname)
{
	var arr = showModalDialog("inc/selcolor.htm", "", "dialogWidth:18.5em; dialogHeight:17.5em; status:0; help:0");
	if (arr != null) setColor(objname,arr);
}
</script>
<%
Response.Write "<table width='100%' align='center' cellspacing='0' cellpadding='0'>" & vbCrLf
Response.Write "<tr>" & vbCrLf
Response.Write "<td valign='top'><br><div align='center'><font style=""font-size:16px""><b>"&rs("news_title")&"</b></font></div><br></td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
Response.Write "<tr>" & vbCrLf
Response.Write "<td>" & vbCrLf
Response.Write "<table width='95%' align='center' class=""table-top"">" & vbCrLf
Response.Write "<tr>" & vbCrLf
Response.Write "<td align='center'>［作者："&rs("news_author")&"&nbsp;&nbsp;来源："&rs("news_ahome")&"&nbsp;&nbsp;时间："&rs("news_date")&"&nbsp;&nbsp;阅读："&rs("news_count")&"次］</td>"
Response.Write "<td width='150' align='right'>[字体:"
Response.Write "<input type=button style='height:17' value='小' title='把正文字体缩小' onclick=fontSize('m','NewsBody')>" 
Response.Write "<input type=button style='height:17' value='大' title='把正文字体扩大' onclick=fontSize('b','NewsBody')>" 
Response.Write "<input type=button style='height:17' value='简' title='转为简体中文模式' onclick=bodytojt('NewsBody')>" 
Response.Write "<input type=button style='height:17' value='繁' title='转为繁体中文模式' onclick=bodytoft('NewsBody')>" 
Response.Write "<a href=""javascript:fontColor('NewsBody')""><img src='img/fgcolor.gif' alt='字体颜色' border=0 align='absmiddle'></a>]"
Response.Write "</td></tr>" & vbCrLf
Response.Write "</table>" & vbCrLf
Response.Write "</td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
Response.Write "</table>" & vbCrLf
Response.Write "<table width='95%' align='center' border='0' style=""word-break:break-all;table-layout:fixed;text-align:left"">" & vbCrLf
Response.Write "<tr>" & vbCrLf
Response.Write "<td><div id=""NewsBody"" style=""display:block;padding:5px 20px;LINE-HEIGHT: 180%"">" & vbCrLf
if news_images<>"" and news_imgyes=1 then response.write "<BR><a href="&news_images&" target=_blank><img src="&news_images&" align=right onload=""javascript:if(this.width>screen.width-666)this.width=screen.width-666"" border=0 alt=按此在新窗口浏览图片></a>" & vbCrLf
Response.Write ""&rs("news_content")&"" & vbCrLf
Response.Write "</div></td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
Response.Write "</table>" & vbCrLf
end sub

'=================================================
'过程名：contextual_news
'作  用：显示文章上下篇
'参  数：无
'Web:    www.ynsky.com.cn
'=================================================
sub contextual_news()
set RelationArt = conn.execute("select top 1 news_id,news_title from news where news_id<"&news_id&" and passed=0 order by news_id desc")
IF RelationArt.eof and relationArt.bof Then
Response.Write "<font color=red>·上篇新闻：</font>已经没有了<BR> "    
else
Response.Write "<font color=red>·上篇新闻：</font><a href=""shownews.asp?news_id=" & RelationArt(0) & """>" & relationArt(1) & "</a><BR>"   
end if   
Set RelationArt=Nothing
set RelationArt = conn.execute("select top 1 news_id,news_title from news where news_id>"&news_id&" and passed=0 order by news_id")
IF RelationArt.eof and relationArt.bof Then
Response.Write "<font color=red>·下篇新闻：</font>已经没有了"   
else
Response.Write "<font color=red>·下篇新闻：</font><a href=""shownews.asp?news_id=" & RelationArt(0) & """>" & relationArt(1) & "</a></td>"  
end if  
RelationArt.close
Set RelationArt=Nothing 
end sub

'=================================================
'过程名：pertinent_news
'作  用：显示相关新闻
'参  数：无
'Web:    www.ynsky.com.cn
'=================================================
sub pertinent_news(n)
Response.Write "<table width=""97%"" align=""center"" bgcolor=""#FCFCFC"">" & vbCrLf
Response.Write "<tr><td background=""img/bg.gif"" style=""display:block;padding:0px 4px;LINE-HEIGHT: 210%"">"
dim strKey,arrKey,i
strKey=rs("news_keyword")
	if instr(strkey,"|")>1 then
		arrKey=split(strKey,"|")
		strKey="((news_keyword like '%" & arrKey(0) & "%')"
		for i=1 to ubound(arrKey)
			strKey=strKey & " or (news_keyword like '%" & arrKey(i) & "%')"
		next
		strKey=strKey & ")"
	else
		strKey="(news_keyword like '%" & strKey & "%')"
	end if
sql="select top " & n & " * from news where " & strKey & " and news_id <> "&rs("news_id")&" and passed=0 order by news_id DESC"
set rs2=server.createobject("adodb.recordset")
rs2.open sql,conn,1,1
do while not rs2.eof
Response.Write "·<a href='shownews.asp?news_id="&rs2("news_id")&"'>"&rs2("news_title")&"</a> "&rs2("news_date")&"<br>"  
rs2.movenext
loop
if rs2.eof and rs2.bof then
response.write "没有相关新闻<br>"
end if
rs2.close
set rs2=nothing
Response.Write "</td></tr>" & vbCrLf
Response.Write "</table>" & vbCrLf
end sub

'=================================================
'过程名：review_news
'作  用：显示相关评论
'参  数：n-显示条数；point_news-评论开关,1-开启，0-关闭
'Web:    www.ynsky.com.cn
'=================================================
sub review_news(n)
dim temp,i,j
if point_news="1" then
Response.Write "<table align=""center"" width=""98%"" cellspacing=""0"" cellpadding=""0"" style=""word-break:break-all;table-layout:fixed;text-align:left"">"
if rs("review")<>"" then
temp=split(Trim(rs("review")),"|")
if n>=ubound(temp) then
j=ubound(temp)
else
j=n
end if
for i=1 to j
Response.Write "<tr><td style=""display:block;padding:0px 10px;LINE-HEIGHT: 180%"">"& temp(i) &"</td></tr>"
next
else
Response.Write "<tr><td style=""display:block;padding:0px 10px;LINE-HEIGHT: 180%"">当前没有评论</td></tr>"
end if
Response.Write "<tr><td align=""right"">相关评论<font color=#CC0000> "&rs("reviewcount")&" </font>篇，当前显示最新的<font color=#CC0000> "&n&" </font>篇。&nbsp;&nbsp;<a href=""view.asp?action=news&news_id="&rs("news_id")&""">[查看更多评论] [发表我的评论]</a>&nbsp;&nbsp;</td></tr>"
Response.Write "</table>"
elseif point_news="0" then
Response.Write "<table width=""100%"" cellpadding=""5"" cellspacing=""0"" border=""0"">"
Response.Write "<tr><td  align=""center"">【新闻评论已关闭】"
Response.Write "</td></tr>"
Response.Write "</table>"
End If
rs.close
set rs=nothing
end sub

'****************************************************
%>