<!--#include file = "Startup.asp"-->
<!-- #include file="Function.asp" -->
<%

' ======================
' 功能：新闻列表
' ======================
call adminer()
Call Header()
Call ComeUrl()

%>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

<SCRIPT language=javascript>
function ConfirmDel()
{
	if(confirm("确定要彻底删除选中的资讯吗？一旦删除将不能恢复！"))
			return true;
		else
			return false;
		
}
function RecycleDel()
{
   if(confirm("确定要删除选中的资讯吗？本操作将把选中的资讯移到回收站中。必要时您可从回收站中恢复！"))
     return true;
   else
     return false;
}

</SCRIPT>

<%
dim sNewsID
sNewsID=Trim(Request("newsid"))

' 新闻ID有效性验证，防止有些人恶意的破坏此演示程序
If IsNumeric(sNewsID) = False Then
	GoError "请通过页面上的链接进行操作，不要试图破坏此演示系统。"
End If

Dim sTitle,sClassID,sEditor,sContent,sPicture,sTime,sCount,sOriginalFileName,sSaveFileName,sSavePathFileName,FoundErr,ErrMsg
sSql = "SELECT * FROM NewsData WHERE D_ID=" & sNewsID
oRs.Open sSql,oConn,1,1
If Not oRs.Eof Then
	sTitle=oRs("d_title")
	sClassID=oRs("d_classid")
	sEditor=oRs("d_editor")
	sContent=oRs("d_content")
	sTime=oRs("d_time")
	sCount=oRs("d_count")
Else
	FoundErr=True
	ErrMsg=ErrMsg & "<br><li>无此新闻信息或已被删除</li>"
End If
if FoundErr=True then
	WriteErrMsg()
end if
oRs.Close
' 禁用某些标签，如出于安全考虑的Script标签，等
' 使用此功能需要先包含"Include/DeCode.asp"文件。
' 此例只过滤SCRIPT标签，即意味着内容中的客户端脚本不会生效，您可根据实际的需要加入其它标签。
' 当前支持过滤的标签，可以查看DeCode.asp文件中的说明。
'sContent = eWebEditor_DeCode(sContent, "SCRIPT, OBJECT, TABLE, CLASS, STYLE, XML, NAMESPACE, FONT, MARQUEE")
%>

<table width="100%"  border="0" cellspacing="0" cellpadding="3" style="table-layout:fixed;word-break:break-all;">
  <tr>
    <td><div align="center"><strong><font color="#FF0000">资 讯 预 览</font></strong></div></td>
  </tr>
  <tr>
    <td>
	<%
	dim zClassID,zClassName,zParentPath,ParentPath1
	sSql="Select ClassID,ClassName,ParentPath From NewsClass Where ClassID="&sClassID
	oRs.Open sSql,oConn,1,1
	If Not oRs.Eof Then
		zClassID=oRs("ClassID")
		zParentPath=oRs("ParentPath")
		zClassName=oRs("ClassName")
	End If
	oRs.Close
	response.write "&nbsp;&nbsp;您现在的位置：&nbsp;<a href='News_Manage.asp'>资讯管理</a>&nbsp;&gt;&gt;&nbsp;"
	If zParentPath<>0 Then
		zParentPath=Replace(zParentPath,"0,","")
		sSql="Select ClassID,ClassName,ParentPath From NewsClass Where ClassID in ("&zParentPath&")"
		oRs.Open sSql,oConn,1,1
		Do While Not oRs.Eof
			Response.Write "<a href='News_Manage.asp?ManageType=ClassForm&ClassID="&oRs("ClassID")&"'>"&oRs("ClassName")&"</a>&nbsp;&gt;&gt;&nbsp;"
			oRs.MoveNext
		Loop
		oRs.Close
	End If
	
	Response.Write "<a href='News_Manage.asp?ManageType=ClassForm&ClassID="&zClassID&"'>"&zClassName&"</a>&nbsp;&gt;&gt;&nbsp;"
	Response.Write "<a href='News_Show.asp?newsid="&snewsid&"'>"&sTitle&"</a>"
	
	%></td>
  </tr>
  <tr>
    <td style="font-size:12pt"><hr width="100%" size="1" noshade color="#000000"></td>
  </tr>
  <tr>
    <td style="font-size:12pt"><div align="center"><b><%=sTitle%></b></div></td>
  </tr>
  <tr>
    <td><div align="center">加入时间：<font color="#FF0000"><%=stime%></font>　　点击数：<font color="#FF0000"><%=sCount%></font>次　　资讯录入：<font color="#FF0000"><%=sEditor%></font></div></td>
  </tr>
  <tr>
    <td><hr width="100%" size="1" noshade color="#000000"></td>
  </tr>
  <tr>
    <td><div align="right">
      <table width="100%"  border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td><font color="#FF0000">可用操作：[<a href="News_Modify.asp?id=<%=sNewsID%>"><font color="#FF0000">修改</font></a>]　[<a href="News_Del.asp?NewsID=<%=sNewsID%>&Action=Del" onclick="return RecycleDel();"><font color="#FF0000">删除到回收站</font></a>]<%If session("userclass")=1 Then%>　[<a href="News_Del.asp?NewsID=<%=sNewsID%>&Action=ConfirmDel" onclick="return ConfirmDel();"><font color="#FF0000">彻底删除</font></a>]<%End If%></font></td>
          <td><div align="right">文字 〖 <a href="javascript:doZoom(16)" class=tt1>大</a> <a href="javascript:doZoom(14)" class=tt1>中</a> <a href="javascript:doZoom(12)" class=tt1>小</a> 〗
                <input type="checkbox" name="auto" value="on" onClick="MM_callJS('scroller() ; ')">
            自动滚屏（右键暂停）&nbsp;&nbsp;</div></td>
        </tr>
      </table>
      </div></td>
  </tr>
  <tr>
    <td><hr width="100%" size="1" noshade color="#000000"></td>
  </tr>
  <tr>
    <td><font id="zoom"><%=sContent%></font></td>
  </tr>
  <tr>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td><hr width="100%" size="1" noshade color="#000000"></td>
  </tr>
  <tr>
    <td><li>上一篇资讯：
	        <%
	  sSql="Select Top 1 d_id,d_Title From NewsData Where D_Recycle=False and D_ID>" & sNewsID &"and d_classid="&sClassID
	  oRs.open sSql,oConn,1,1
	  if oRs.Eof then
	  	response.write "没有了"
	  else
	  	response.write "<a href='News_Show.asp?newsid="&oRs("D_ID")& "'>"&oRs("D_Title") & "</a>"
	  end if
	  oRs.close
	  %></td>
  </tr>
  <tr>
    <td><li> 下一篇资讯：<%
	  sSql="Select Top 1 d_id,d_Title From NewsData Where D_Recycle=False and D_ID<" & sNewsID &"and d_classid="&sClassID
	  oRs.open sSql,oConn,1,1
	  if oRs.Eof then
	  	response.write "没有了"
	  else
	  	response.write "<a href='News_Show.asp?newsid="&oRs("D_ID")& "'>"&oRs("D_Title") & "</a>"
	  end if
	  oRs.close
	  %></td>
  </tr>
  <tr>
    <td><hr width="100%" size="1" noshade color="#000000"></td>
  </tr>
  <tr>
    <td><div align="right"><font color="#FF0000">可用操作：[<a href="News_Modify.asp?id=<%=sNewsID%>"><font color="#FF0000">修改</font></a>]　[<a href="News_Del.asp?NewsID=<%=sNewsID%>&Action=Del" onclick="return RecycleDel();"><font color="#FF0000">删除到回收站</font></a>]<%If session("userclass")=1 Then%>　[<a href="News_Del.asp?NewsID=<%=sNewsID%>&Action=ConfirmDel" onclick="return ConfirmDel();"><font color="#FF0000">彻底删除</font></a>]<%End If%></font>&nbsp;&nbsp;</div></td>
  </tr>
</table>

<%
'新闻阅读记数
'sSql="Select D_Count From NewsData Where D_ID="&sNewsID
'oRs.Open sSql,oConn,1,1
'If Not oRs.Eof Then
'oConn.execute "update NewsData set D_Count=D_Count+1 where D_ID="&sNewsID
'End If
'oRs.Close
%>

<script language="JavaScript"> 
<!--
function click() {
if (event.button==2) {
	if(document.all.auto.status==true){document.all.auto.status=false;}
	scroller();
	}
}
document.onmousedown=click

var position = 0; 
function scroller() {
if (document.all.auto.status==true){ 
	position++; 
	scroll(0,position); 
	clearTimeout(timer); 
	var timer = setTimeout("scroller()",50); 
	timer;
	}
else{
	clearTimeout(timer);
	}
}

function MM_callJS(jsStr) { //v2.0
  return eval(jsStr)
}

function doZoom(size){
	document.getElementById('zoom').style.fontSize=size+'px'
}

function mOvr(src,clrOver) {
   if (!src.contains(event.fromElement)) {
	  src.bgColor = clrOver;
	}
  }
  
function mOut(src,clrIn) {
	if (!src.contains(event.toElement)) {
	  src.bgColor = clrIn;
	}
  }
// -->	
</SCRIPT>