<%@ Language=VBScript %>
<% If Session(strCookieURL & "www.3rom.com") = "1369852475213" and Session("count")<10 Then %> 
<!--#INCLUDE FILE="inc_Conn.asp" -->
<%
  Dim strFile,strSql,strActive,strNewsID
  Dim strPath,strFettle
  
  strNewsID=Request.QueryString("NewsID")
  
  strSql="Select * from News where (NewsID="
  strSql=strSql & strNewsID
  strSql=strSql & " and News_Image>0 "
  strSql=strSql & ")"
  strSql=strSql & " order by NewsID Desc"
  set rs=MyCon.execute(strSql)

  strPath="../tools/Images/"
  
  Set Tools = Server.CreateObject("MSWC.Tools")

%>
<html>

<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<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="Upload2.asp" enctype="multipart/form-data" name="form1">
  <table border="1" cellpadding="0" cellspacing="0" width="75%">
    <tr>
      <td width="12%"><b><font color="#FF0000">状态</font></b></td>
      <td width="18%"><b><font color="#FF0000">图片序号</font></b></td>
      <td width="45%"></td>
      <td width="25%"></td>
    </tr>
    <% If not rs.eof Then %>
    <% for i=1 to rs("News_Image") %>
    <%
    strFileName=rs("NewsID") & "_" & i & "." & "jpg"
    strFilePath=strPath & strFileName
    If Tools.FileExists(strFilePath) Then
     strFettle="<font color=""#FF0000"">"
     strFettle=strFettle & "已上传"
     strFettle=strFettle & "</font>"
    Else
     strFettle="未上传"
    End If
    %>
    <tr>
      <td width="12%"><%=strFettle%></td>
      <td width="18%"><%=strFileName%></td>
      <td width="45%"><input type="file" name="file<%=i%>" size="20"></td>
      <td width="25%">　</td>
    </tr>
    <% next %>
    <tr>
      <td width="100%" colspan="4" align="center"><input type="submit" value=" 上 传 " name="Upload">&nbsp;   
        <input type="reset" value="全部重写" name="Reset"></td>
    </tr>
    <% Else %>
    <tr>
      <td width="100%" colspan="4" align="center">
      老大，你想干什么？
      </td>
    </tr>
    <% End If %>    
    <tr>
      <td width="100%" colspan="4" align="center"><a href="Index.asp">返回管理</a></td>
    </tr>
  </table>
  <input type="hidden" name="NewsID" value="<%=rs("NewsID")%>">
  <input type="hidden" name="Images" value="<%=rs("News_Image")%>">
  </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
%>
