db_tryinfo_del.asp

来自「这是一个用ASP写的在线考试系统.特别一点 就是考试试卷有两种考法,一种为系统」· ASP 代码 · 共 30 行

<!--#include file="conn2.asp"-->
<%
'on error resume next
tryInfoIdT=request("delId")
DelFlagSql="select DB_MODFIYFLAG,DB_ONOFFT from tryinfo1 where id="&tryinfoidt '要修改
set rsT=conn.execute(DelFlagSql)
DB_MODFIYFLAGT=rsT("DB_MODFIYFLAG")
DB_ONOFFTT=rsT("DB_ONOFFT")
if DB_MODFIYFLAGT=0 or DB_ONOFFTT=0 then
	Session("sa_help")="该题库数据正在修改，不能删除！"
server.Transfer("db_tryInfo_list.asp")
end if

listdbnameSql="select db_tryname,DB_NAME from tryInfo1 where id= "&tryinfoidt 
set rsT=conn.execute(listdbnameSql)
dbname=rsT("DB_NAME")


delSql="delete  from tryInfo1 where  id="&tryinfoidt
set rsT=conn.execute(delSql)

dropTableSql="drop table "&dbname 
set rsT=conn.execute(dropTableSql)
Session("sa_help")="该题库数据已删除！"
conn.close
set conn=nothing
server.Transfer("db_tryInfo_list.asp")
%>