<%@ Language=VBScript %>
<% If Session(strCookieURL & "www.3rom.com") = "1369852475213" and Session("count")<10 Then %> 
<!--#INCLUDE FILE="inc_Conn.asp" -->
<html>

<head>
<meta http-equiv="Content-Language" content="zh-cn">
<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>
  <% If Request.QueryString("active")<>"DoIt" Then %>
  <form method="POST" action="Setup.asp?active=DoIt">
  <div align="center">
    <center>
  <table border="1" cellpadding="0" cellspacing="0" width="75%">
    <tr>
      <td width="100%" colspan="3"><font color="#FF0000"><b>警告：</b></font></td>
    </tr>
    <tr>
      <td width="100%" colspan="3">　　执行系统初始化会删除数据库中所有新闻数据（包括News表和Class表中的所有数据）。由于本功能模块比较危险，建议安装完后删除本文件Setup.asp。</td>
    </tr>
    <tr>
      <td width="25%">确认删除请输入</td>
      <td width="25%"><font color="#FF0000">www.3rom.com</font></td>
      <td width="50%"><input type="text" name="Deltree" size="20"> <input type="submit" value="确认删除" name="B1"></td>
    </tr>
    <tr>
      <td width="100%" colspan="3" align="center"><a href="Index.asp">返回管理</a></td>
    </tr>
  </table>
    </center>
  </div>
  </form>
  <% Else %>
    <%
    If Request.form("Deltree")="www.3rom.com" Then
    MyCon.execute("Delete * from News")
    MyCon.execute("Delete * from Class")
    Response.redirect "Index.asp"
    Else
    %>
    <div align="center"><font color="red">你无权进行系统初始化!!!</font></div>
    <div align="center"><a href="Index.asp">返回管理</a></div>
    <%
    End If
    %>
  <% End If %>
  </center>
</div>

</body>

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