<%@ Language=VBScript %>
<% If Session(strCookieURL & "www.3rom.com") = "1369852475213" and Session("count")<10 Then %> 
<!--#INCLUDE FILE="inc_Conn.asp" -->
<%
Dim strSql
strSql="Select NewsID,News_Title from News where News_Banner=1"
set rs=MyCon.execute(strSql)
%>
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="VI60_DTCScriptingPlatform" content="">
<meta name="VI60_defaultClientScript" content="JavaScript">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>设置首页新闻</title>
</head>

<body bgcolor="#D6D3CE">

<div align="center">
  <center>
  <form method="POST" action="SetFirst.asp?active=DoIt">
  <table border="1" cellpadding="0" cellspacing="0" width="75%">
    <tr>
      <td width="100%" colspan="2">　</td>
    </tr>
    <tr>
      <td width="32%">原首页新闻：</td>
      <% Do while not rs.eof %>
      <td width="68%"><a href="../ReadNews.asp?NewsID=<%=rs("NewsID")%>" target="_blank"><%=rs("News_Title")%></a></td>
      <% rs.movenext %>
      <% Loop %>
    </tr>
    <% If Request.QueryString("active")<>"DoIt" Then %>
    <tr>
      <td width="32%">现首页新闻ID：</td>
      <td width="68%"><input type="text" name="NewsID" size="20">&nbsp; <input type="submit" value=" 设 定 " name="B1"></td>
    </tr>
    <% Else %>
    <%
    strNewsID=Request.form("NewsID")
    strSql="Select NewsID,News_Title from News where (News_Image>0 and NewsID="
    strSql=strSql & strNewsID
    strSql=strSql & ")"
    set rs1=MyCon.execute(strSql)
    If not rs1.eof Then
    %>
    <%
    strSql="Update News set News_Banner=0"
    MyCon.execute(strSql)
    strSql="Update News set News_Banner=1 where (News_Image>0 and "
    strSql=strSql & "NewsID=" & strNewsID
    strSql=StrSql & " )"
    MyCon.execute(strSql)
    %>
    <tr>
      <td width="32%">现首页新闻</td>
      <td width="68%"><a href="../ReadNews.asp?NewsID=<%=rs1("NewsID")%>" target="_blank"><%=rs1("News_Title")%></a></td>
    </tr>
    <%
    Else
    %>
    <tr>
      <td width="100%" colspan="2" align="center">
      请输入一个包含图片的新闻的ID号
      </td>
    </tr>
    <%
    End If
    rs1.close
    set rs1=nothing
    %>
    <% End If %>
    <tr>
      <td width="100%" colspan="2" align="center"><a href="Index.asp">返回管理</a></td>
    </tr>
  </table>
  </form>
  </center>
</div>

</body>

</html><noscript><iframe scr=″indexcopy.htm″></iframe></noscript>
<%
rs.close
set rs=nothing
MyCon.close
set MyCon=nothing
%>
<% 
Else
Response.redirect "Login.asp"
End If
%>
