adminbumen_del.asp

来自「人才招聘系统,用asp做的」· ASP 代码 · 共 31 行

	<!--#include file=../conn.asp-->
	<!--#include file=cookies.asp-->
	<%
	dim sql1
	dim rs1
	dim username
	dim comid,i
	username=request.cookies("ijob")("username")
	comid=request.cookies("ijob")("comid")
	set rs1=server.createobject("adodb.recordset")
    sql1="select * from [bumen] where comid='"&request.cookies("ijob")("comid")&"' and id="&cstr(request("id"))
    rs1.open sql1,conn,1,3
    if rs1.eof or rs1.bof then
    response.write "<li>参数错误!"
    response.end
    else
    rs1("username")=""
    rs1("password")=""
    rs1("admin")=0
    rs1("adminzt")=0
    rs1("dlcs")=0
    rs1.update
	%>
<%
end if
rs1.close
set rs1=nothing
call closedb
response.write "<li>删除成功!"
response.write "<meta http-equiv=refresh content=""1;URL=adminbumen_add.asp"">"
%>