<%Checklogin("信息管理")%> 管理区域
<% Act = Request.QueryString("act") IF act="save" Then Isedit=False '用于判断编辑的合理性 Id=Request.Form("id") If id<>"" and IsNumeric(id) then Isedit=True em_user=TextEnCode(Request.Form("em_user")) em_password=TextEnCode(Request.Form("em_password")) re_password=TextEnCode(Request.Form("re_password")) em_role=Request.Form("em_role") em_code=TextEnCode(Request.Form("em_code")) em_email=TextEnCode(Request.Form("em_email")) em_tel=TextEnCode(Request.Form("em_tel")) NullPwd=False If em_password="" or IsNull(em_password) Then NullPwd=True End If If em_password<>re_password Then conn.close Set conn=Nothing Response.write "" Response.End End If If Isedit Then Set Rs=Server.CreateObject("ADODB.RecordSet") Rs.Open "Select * From employee where Id="&Id,conn,1,3 If Not Rs.bof and Not Rs.eof Then Rs("em_user")=em_user If NullPwd Then Rs("em_password")=Rs("em_password") Else Rs("em_password")=MD5(em_password) End If Rs("em_role")=em_role Rs("em_code")=em_code Rs("em_email")=em_email Rs("em_tel")=em_tel Rs.Update End If Rs.Close:Set Rs=Nothing:Conn.Close:Set Conn=Nothing Page = Request.QueryString("Page") Keys=Server.UrlEnCode(Request.QueryString("Keys")) Ord=Server.UrlEnCode(Request.QueryString("Ord")) Response.Redirect "?keys="&Keys&"&Ord="&Ord&"&Page="&Page Response.End Else If NullPwd Then em_password="MTB"&em_code End If Conn.Execute("Insert into employee(em_user,em_password,em_role,em_code,em_email,em_tel) values('"&em_user&"','"&MD5(em_password)&"',"&em_role&",'"&em_code&"','"&em_email&"','"&em_tel&"')") Conn.Close:Set Conn=Nothing:Response.Redirect "?" End If Conn.Close:Set Conn=Nothing Response.End End If'End save If Act = "add" Or Act = "edit" Then id = Request.QueryString("id") isedit = False If id<>"" And IsNumeric(id) Then isedit=True If isedit Then Set Rs = Server.CreateObject("ADODB.RecordSet") Rs.Open "Select * From employee Where id="&id,Conn,1,1 If Not Rs.Bof And Not Rs.Eof Then em_user=TextUnCode(Rs("em_user")) em_role=Rs("em_role") em_code=TextUnCode(Rs("em_code")) em_email=TextUnCode(Rs("em_email")) em_tel=TextUnCode(Rs("em_tel")) Else isedit = False End If Rs.Close:Set Rs=Nothing End If Page = Request.QueryString("Page") Keys=Server.UrlEnCode(Request.QueryString("Keys")) Ord=Server.UrlEnCode(Request.QueryString("Ord")) hrefstr = "?keys="&Keys&"&Ord="&Ord&"&Page="&Page %>
用户名
密码
重复密码
工号
角色
邮箱
手机
<% Response.End End If'End add If Act="postchk" Then Keys = Server.UrlEnCode(Request.QueryString("Keys")) Ord = Server.UrlEnCode(Request.QueryString("Ord")) Page = Request.QueryString("Page") chkact = Request.Form("chkact") SqlStr = "" For i = 1 To Request.Form("chkbox").Count If SqlStr<>"" Then SqlStr = SqlStr & " Or id="&Request.Form("chkbox")(i) Else SqlStr = " Where id="&Request.Form("chkbox")(i) End If Next SqlStr = "Delete From employee"&SqlStr Conn.Execute(SqlStr):Conn.Close:Set Conn=Nothing Response.Redirect "?Keys="&Keys&"&Ord="&Ord&"&Page="&Page Response.End End If 'End postchk Keys=Request.QueryString("Keys") Keyscode=TextEnCode(Keys) Ord=Request.QueryString("Ord") Page = Request.QueryString("Page") Set Rs=Server.CreateObject("ADODB.RecordSet") Rs.Open "Select id,em_user,em_code,em_role from employee where em_user like '%"&Keyscode&"%' or em_code like '%"&Keyscode&"%' Order By Id Desc",Conn,1,1 Keys=Server.UrlEnCode(Keys) Ord=Server.UrlEnCode(Ord) hrefstr = "?keys="&Keys %>
<% If Not Rs.Bof And Not Rs.Eof Then Rs.PageSize = 13 If Page = "" Then Page = 1 If Page = "end" Then Page = Rs.PageCount If Not IsNumeric(Page) Or Page < 1 Then Page = 1 Page = Cint(Page) If Page > Rs.PageCount Then Page = Rs.PageCount Rs.AbsolutePage = Page TempNum = Rs.PageSize * (Page - 1) Set Rs1=Server.CreateObject("ADODB.RecordSet") For i=1 To Rs.PageSize If Rs.Bof Or Rs.Eof Then Exit For TempNum=TempNum+1:classid=Rs(1) %> <% Rs.MoveNext Next Else If Keys="" Then %> <% Else %> <% End If End If %>
序号 姓名 工号 角色 操作
<%=TempNum%> <%=Rs("em_user")%> <%=Rs("em_code")%> <%if Rs("em_role")=0 Then response.write "组长" Else response.write "组员"%> ">修改
Sorry，当前暂无信息
Sorry，没有找到“<%=Keyscode%>”相关的信息，点击返回
<% If Rs.PageCount > 1 Then PageName="?Keys="&Keys&"&Ord="&Ord&"&" Pagelen=3 If Page>1 Then Response.Write "首页" Response.Write "上一页" End If If Pagelen*2+1 >= Rs.PageCount Then StartPage=1:EndPage=Rs.PageCount Else If Page<=Pagelen+1 Then StartPage=1 EndPage=Pagelen*2+1 Else StartPage=Page-Pagelen EndPage=Page+Pagelen End If If Page+Pagelen>Rs.PageCount Then StartPage=Rs.PageCount-Pagelen*2:EndPage=Rs.PageCount End If For i = StartPage To EndPage If i = Page Then Response.Write ""&i&"" Else Response.Write ""&i&"" End If Next If Page Pagelen Then Response.Write "..."&Rs.PageCount&"" Response.Write "下一页" Response.Write "尾页" End If Response.Write "" End If %>
" onFocus="if(this.value == '<%If Keyscode="" Then Response.Write "请输入搜索关键词" Else Response.Write Keyscode%>'){this.value='';}" onBlur="if(this.value == ''){this.value='<%If Keyscode="" Then Response.Write "请输入搜索关键词" Else Response.Write Keyscode%>';}" onKeyDown="if(event.keyCode==13){location.href='?Keys='+escape(document.getElementById('keys').value)}" />
<%Rs.Close:Set Rs=Nothing:Set Rs1=Nothing:Conn.Close:Set Conn=Nothing%>