testdel.asp

来自「一篇不错的好论文」· ASP 代码 · 共 26 行

<!--#include file="CheckLogin.asp"-->
<!--#include file="Connections/StudentConn.asp" -->
<%
if Request("SheetName")<>"" and request("ID")<>"" then
	'删除记录
	MM_editConnection = MM_StudentConn_STRING
	MM_editQuery = "delete from TestName where ID = " & request("ID") & ""
	Set MM_editCmd = Server.CreateObject("ADODB.Command")
    MM_editCmd.ActiveConnection = MM_editConnection
    MM_editCmd.CommandText = MM_editQuery
    MM_editCmd.Execute
    MM_editCmd.ActiveConnection.Close

	' 删除表
	MM_DelConnection = MM_StudentConn_STRING
	MM_SheetName = Request("SheetName")
	MM_DelQuery = "Drop Table " & MM_SheetName
	Set MM_DelCmd = Server.CreateObject("ADODB.Command")
	MM_DelCmd.ActiveConnection = MM_DelConnection
	MM_DelCmd.CommandText = MM_DelQuery
	MM_DelCmd.Execute
	MM_DelCmd.ActiveConnection.Close

	response.redirect "TestManage.asp"
end if
%>