<!--#include file ="Conn.asp"-->
<!--#include file ="Check_Manager.asp"-->
<%
Dim tname
DIm sql
If Request.QueryString("action")="delc" Then 
Dim cname
cname = Trim(Request.QueryString("cname"))
tname = trim(Request.QueryString("tname"))
Sql = "ALTER TABLE "&tname&" DROP COLUMN "&cname&""  
Conn.ExeCute(sql)
JaSys("管理员" & session("ManagerUser")&"删除字段在表<font color=red>["&tname&"]["&cname&"]</font>")
Set Conn = nothing
Response.write "<script language='javascript'>" & chr(13)
		Response.write "alert('数据表字段"&cname&"删除成功!');" & Chr(13)
		Response.write "window.document.location.href='JaAcc_Edit.asp?tname="&tname&"';"&Chr(13)
		Response.write "</script>" & Chr(13)
    Response.End
Else
tname=trim(Request.QueryString("tname"))
If tname<>"" then
sql = "drop table "&tname&""
Conn.ExeCute(Sql)
JaSys("管理员" & session("ManagerUser")&"删除数据表<font color=red>["&tname&"]</font>")
Set Conn = nothing
Response.write "<script language='javascript'>" & chr(13)
		Response.write "alert('数据表删除成功!');" & Chr(13)
		Response.write "window.document.location.href='JaAcc_Manage.asp';"&Chr(13)
		Response.write "</script>" & Chr(13)
    Response.End
End If
End If
%> 