adminbumen_editchk.asp

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

	<!--#include file=../conn.asp-->
	<!--#include file=cookies.asp-->
	<%
	dim sql,sql1
	dim rs,rs1
	dim username
	dim comid,i
if len(request("password"))<6 or len(request("password"))>15 then
response.write "<li><font color=""#ff0000"">密码输入错误！在6-15个字符内</font>!"
response.write "<meta http-equiv=refresh content=""2;URL=adminbumen_add.asp"">"
response.end
end if
	if request("bmid")=0 then
	response.write "<br>"+"<li><font color=""#ff0000"">你没有选择部门,请返回重新选择!</font>"
	response.write "<meta http-equiv=refresh content=""1;URL=adminbumen_add.asp"">"
	response.end
	else
	sub hao()
    response.write "<br>"+"<li><font color=""#ff0000"">操作成功!!!!!正在返回....</font>"
	response.write "<meta http-equiv=refresh content=""2;URL=adminbumen_add.asp"">"
	end sub
	username=request.cookies("ijob")("username")
	comid=request.cookies("ijob")("comid")
	set rs=server.createobject("adodb.recordset")
	sql="select * from [bumen] where comid='"&request.cookies("ijob")("comid")&"'and id="&cstr(request("bmid"))
	rs.open sql,conn,1,3
	if rs.eof or rs.bof then
	response.write "<br>"+"<li><font color=""#ff0000"">参数错误！</font>"
	response.end
	else
	rs("admin")=1   '1为添加了管理员
	rs("adminzt")=0 '0为有效管理员
	'rs("username")=request("username")
	rs("password")=request("password")
	rs("xgsj")=now()
	rs.update
	rs.close
	set rs=nothing
    end if
    closedb
    hao
    end if
    %>