<!--#include file="../Inc/Consts.inc" -->
<!--#include file="../Inc/common.Asp" -->
<!--#include file="../Inc/sharefunc.Asp" -->
<!--#include file="CheckAdmin.Asp"-->
<%
' Ss简单网站管理系统-开源版 
'晴天设计www.xxzwz.com
If InStr(SsMasterPurview, "|37,") = 0 Then
    response.Write ("<br /><br /><div align=""center""><font style=""color:red; font-size:9pt; "")>您没有管理该模块的权限！</font></div>")
    response.End
End If
Dim act, tablename
act = Trim(request.QueryString("act"))
tablename = Trim(request.Form("tablename"))
If(act = "create") Then
conn.Execute("Create table "&tablename&"(id AUTOINCREMENT(1,1),primary key(id))")
response.Redirect("SQL.Asp")
End If
%>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<link rel="stylesheet" href="Images/Admin_style.css">
<script language="javascript" src="Admin.js"></script>
<style type="text/css">
<!--
.tb {
    float:left;
    margin:0;
    padding:0;
    text-align:center;
    width:128px;
}
-->
</style>
<br />
<table class="tableBorder" width="98%" border="0" align="center" cellpadding="5" cellspacing="1">
  <tr>
    <th height="22" sytle="line-height:150%">【数据库表管理】</th>
  </tr>
  <tr>
    <td class="forumRow" style="line-height:300%"><%
Dim i, Str,rsSchema
i = 1
Set rsSchema = conn.openSchema(20)
rsSchema.movefirst
Do Until rsSchema.EOF
    If rsSchema("TABLE_TYPE") = "TABLE" Then
        response.Write "<div class=""tb""><a href=""SQLEdit.Asp?tablename="&rsSchema("table_name")&"""><img src=""images/table.gif"" border=""0"" align=""absmiddle""><br />"&rsSchema("TABLE_NAME")&"</a></div>"
    End If
    rsSchema.movenext
    i = i + 1
Loop
%>
    </td>
  </tr>
  <form name="form1" method="post" action="?act=create">
    <tr>
      <td class="centerrow">数据库表名称：
        <input type="text" name="tablename">
        <input type="submit" name="Submit" value="创建新表"></td>
    </tr>
  </form>
</table>
<br />
<center>
  <font color="red">警告：本功能将直接操作您的数据库结构，不建议非专业人员使用。在进行任何操作前请备份您的数据！</font>
</center>
<br />