shiti_del.asp

来自「吻宇考试管理系统源码 吻宇考试管理系统源码」· ASP 代码 · 共 25 行

<!--#include file="conn.asp"-->
<!--#include file="checkuser.asp"-->
<%sub del()%>
<script language="vbscript">
if confirm("你真的要删除此试题吗~?") then
else
window.history.go(-1)
end if
</script>
<%
end sub
call del()
dim rs,sql
dim id,mdb
id=request.QueryString("id")
mdb=request.querystring("mdb")
sql="delete from "&mdb&" where id="&id&""
conn.execute(sql)
conn.close
set conn=nothing
%>
<script language=vbscript>
msgbox("恭喜已经成功的删除此试题的信息~!")
window.history.go(-1)
</script>