huiyuan5.asp

来自「网佳网络办公系统（以下简称OA）是一套基于B/S模式的无纸化办公系统。[显著特点」· ASP 代码 · 共 40 行

<%
Response.Buffer=true
xian=session("xian")
ljl_xian=mid(xian,3,1)
if ljl_xian<>1 then%>
<script language=vbscript> 
MsgBox "错误：您无权使用本功能模块，如果确实需要操作本模块的权限，请与管理员联系！"
location.href = "txt.asp"
</script>
<%end if%>
<%
username=session("hxf_u_nickname")
grade=session("hxf_u_grade")
mykind=session("mykind")
mypai=session("mypai")
if username=""  then  Response.Redirect "../error.asp?id=440"
Set conn=Server.CreateObject("ADODB.CONNECTION")     
Set rs=Server.CreateObject("ADODB.RecordSet")     
connstr=Application("hg_connstr")     
conn.open connstr     
if request.querystring("id")="" then
response.write "没有正确的ID号"
else
uid=clng(request.querystring("id"))
end if
	    Set rs=server.createobject("adodb.recordset")
        SQL="select * from 用户 where id=" &uid
        rs.open sql,conn,1,3
       do while not rs.eof
       conn.Execute(SQL)
	   rs.delete
	rs.update
    rs.movenext
   loop
    set rs=nothing
    conn.close
    set conn=nothing
response.Redirect"huiyuan.asp"
response.end
%>