<%Checklogin("权限管理")%> 管理区域
<% Act = Request.QueryString("act") If act = "save" Then isedit = False id = Request.Form("id") If id<>"" And IsNumeric(id) Then isedit = True powername = TextEnCode(Request.Form("powername")) powercontent = Request.Form("powercontent") If isedit Then If Conn.Execute("Select Count(id) From power Where powername = '"&powername&"' And id<>"&id)(0)>0 Then Response.Write "":Conn.Close:Set Conn=Nothing:Response.End Set Rs = Server.CreateObject("ADODB.RecordSet") Rs.Open "Select powername,powercontent,powerstate From power Where id="&id,Conn,1,3 If Not Rs.Bof And Not Rs.Eof Then Rs(0) = powername Rs(1) = powercontent Else Rs.AddNew Rs(0) = powername Rs(1) = powercontent Rs(2) = 1 End If Rs.Update: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 Else If Conn.Execute("Select Count(id) From power Where powername = '"&powername&"'")(0)>0 Then Response.Write "":Conn.Close:Set Conn=Nothing:Response.End Conn.Execute("Insert into power(powername,powercontent,powerstate) values('"&powername&"','"&powercontent&"',1)") 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 powername,powercontent From power Where id="&id,Conn,1,1 If Not Rs.Bof And Not Rs.Eof Then powername=Rs(0):powercontent=Rs(1) Else isedit = False End If Rs.Close:Set Rs=Nothing:Conn.Close:Set Conn=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 %>
权限名称
可用权限
信息管理 0 Then Response.Write "checked=""checked"""%> /> 0 Then Response.Write "checked=""checked"""%> /> 0 Then Response.Write "checked=""checked"""%> /> 0 Then Response.Write "checked=""checked"""%> />
售后管理 0 Then Response.Write "checked=""checked"""%> /> 0 Then Response.Write "checked=""checked"""%> />
<% 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 Select Case chkact Case "0":SqlStr = "Update power Set powerstate="&chkact&SqlStr Case "1":SqlStr = "Update power Set powerstate="&chkact&SqlStr Case Else:SqlStr = "Delete From power"&SqlStr End Select 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") If Ord="powername" Or Ord="powername Desc" Or Ord="powerstate" Or Ord="powerstate Desc" Or Ord="powercontent" Or Ord="powercontent Desc" Then OrdStr=Ord&"," Else OrdStr="" End If Set Rs=Server.CreateObject("ADODB.RecordSet") Rs.Open "Select id,powername,powercontent,powerstate From power Where id<>1 And (powername like '%"&Keyscode&"%' Or powercontent like '%"&Keyscode&"%') Order By "&OrdStr&"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 = 10 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 %> <% Rs.MoveNext Next Else If Keys="" Then %> <% Else %> <% End If End If %>
序号 ">权限名称<%If Ord="powername" Then Response.Write "↓" Else If Ord="powername+Desc" Then Response.Write "↑"%> ">可用权限<%If Ord="powercontent" Then Response.Write "↓" Else If Ord="powercontent+Desc" Then Response.Write "↑"%> ">状态<%If Ord="powerstate" Then Response.Write "↓" Else If Ord="powerstate+Desc" Then Response.Write "↑"%> 操作
<%=TempNum%> <%=Rs(1)%> <%=Rs(2)%> <%If Rs(3)=1 Then Response.Write "正常" Else Response.Write "停用" End If%> 修改
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:Conn.Close:Set Conn=Nothing%>