kemu_del.asp

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

<!--#include file=conn.asp-->
<!--#include file=checkuser.asp-->
<%
dim rs,sql
dim ID
ID=Request.QueryString("id")
sql="delete from kemu where id="&id&""
set rs=conn.execute(sql)
rs.open sql,conn,2,3
set conn=nothing 
%>
<script language=vbscript>
msgbox("恭喜你成功删除此科目的记录~!")
window.location.href"kemu_gl.asp"
</script>