del.asp

来自「很好的一个学生成绩管理系统」· ASP 代码 · 共 31 行

<%if Session.Contents("thegbmaster")="enshi" then%>
<%
dim id
id=Request("id")
If id="" Then
response.write "非法的请求"
Else
%>
<%
set conn=server.createobject("adodb.connection")
DBPath = Server.MapPath("hljcar.com.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM c1 where id="+id
rs.Open sql,conn,3,2
%>
<%
if rs.bof and rs.eof then
response.write "错误的请求"
Else
rs.Delete
rs.Close
set rs=nothing
response.redirect "admin.asp"
end if
%>
<%end if%>
<%
Else
response.redirect "login.asp"
end if%>