delshiti.asp

来自「该系统实现居域网网络考试和,系统平分轻松实现」· ASP 代码 · 共 17 行

<!--#include file="conn.asp"-->
<%
dim id
id=request.querystring("id")
if id<>"" then
set rs=server.createobject("adodb.recordset")
cmd="select * from test where id like '"&id&"'"
rs.open cmd,conn,1,3
rs.delete
rs.update
response.Write("<script>alert('试题删除成功');window.location.href('Manageshiti.asp')</script>")
else
response.Write("<script>alert('请至少选择一道试题');window.location.href('Manageshiti.asp')</script>")
response.end
end if
%>