📄 index_subuser.asp
字号:
<!--#include file="../manage/mConn.asp"-->
<!--#include file="../manage/mConst.asp"-->
<!--#include file="../manage/sk2.asp"-->
<%
If Session("SK2B")="" Then
Response.Redirect "888_Login.Asp"
Response.End
End If
If Not Isnumeric(Request("Page")) Then
Response.Write ("<script language=javascript>alert('非法参数！');history.go(-1)</script>")
Response.End
End If
If Not Isnumeric(Request("K2")) Then
Response.Write ("<script language=javascript>alert('非法参数！');history.go(-1)</script>")
Response.End
End If
If Not Isnumeric(Request("K3")) Then
Response.Write ("<script language=javascript>alert('非法参数！');history.go(-1)</script>")
Response.End
End If
Set Rs6=Server.CreateObject("Adodb.RecordSet")
Set Rs6=Conn.Execute("Select Top 1 ID From m_agent Where Login_Name='"&Session("SK2B")&"'")
If Rs6.Eof Then
Set Rs6=Nothing
Response.Redirect "Index_Logout.asp"
Response.End
End If
P_AgentID=Rs6("ID")
SQL6="Select ID,Login_Name,Login_Pwd,TrueName,RegTime,Stat From m_reportuser"
Dim Manager
If Request("Manager")="" Then
Manager=CheckStr(Cstr(Session("SK2B")))
Else
Manager=CheckStr(Request("Manager"))
End If
SQL6=SQL6&" Where Manager='"&Manager&"'"
Dim K2,K3
If Request("K2")="" Or Request("K2")=0 Then
K2=0
SQL6=SQL6&" Order By Login_Name"
Else
K2=1
SQL6=SQL6&" Order By RegTime"
End If
If Request("K3")="" Or Request("K3")=0 Then
K3=0
Else
K3=1
SQL6=SQL6&" Desc"
End If
Dim Page,StartList,EndList,DiffList,Page_Count,Record_Count,I
StartList=1:EndList=1:DiffList=30:Page_Count=1:Record_Count=-1
If Request("Page")="" Then
Page=1
Else
Page=CInt(Request("Page"))
End If
Set Rs6=Conn.Execute(SQL6)
If Not Rs6.Eof Then
Dim TabLeList
TableList=Rs6.GetRows(-1)
Record_Count=Ubound(TableList,2)
If (Record_Count+1)-DiffList<=0 Then
Page_Count=1
Else
Page_Count=(Record_Count+1)\DiffList
If (Record_Count+1) Mod DiffList >0 Then
Page_Count=Page_Count+1
End If
End If
If Page<=0 Then
Page=1
End If
If Page>Page_Count Then
Page=Page_Count
End If
If Page=1 Then
StartList=0
EndList=DiffList-1
Else
StartList=(Page-1)*DiffList
EndList=DiffList*Page-1
End If
If StartList>Record_Count Then
StartList=Record_Count
End If
If EndList>Record_Count Then
EndList=Record_Count
End If
End If
Dim Agent,Agent_Count
Agent_Count=-1
Set Rs6=Conn.Execute("Select Login_Name,TrueName From m_reportuser Where ID="&P_AgentID&" Order By ID")
If Not Rs6.Eof Then
Agent=Rs6.GetRows(-1)
Agent_Count=Ubound(Agent,2)
End If
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE>main</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312"><LINK
href="../images/control_main.css" type=text/css rel=stylesheet>
<SCRIPT language=javaScript>
function show_win() {
acc_window.style.top=document.body.scrollTop+event.clientY+15;
acc_window.style.left=document.body.scrollLeft+event.clientX-20;
document.all["acc_window"].style.display = "block";
}
function close_win() {
document.all["acc_window"].style.display = "none";
}
function Chk_acc(){
if(document.all.new_user.value==''){
document.all.new_user.focus();
alert("帐号请务必输入!!");
return false;
}
if(document.all.new_pass.value==''){
document.all.new_pass.focus();
alert("密码请务必输入!!");
return false;
}
if(document.all.new_alias.value==''){
document.all.new_alias.focus();
alert("请输入名称!!");
return false;
}
close_win();
return true;
}
function ChkData(i){
e_user=eval("document.s"+i+".username_cut_name.value");
e_pass=eval("document.s"+i+".password.value");
if(e_user.length==0)
{
alert('帐号请务必输入!!');
eval("document.s"+i+".username_cut_name.focus()");
return false;
}
if(e_pass.length==0)
{
alert('密码请务必输入!!');
eval("document.s"+i+".password.focus()");
return false;
}
eval("document.s"+i+".submit()");
return true;
}
</SCRIPT>
<META content="MSHTML 6.00.2800.1476" name=GENERATOR></HEAD>
<BODY text=#000000 vLink=#0000ff aLink=#0000ff bgColor=#ffffff leftMargin=0
topMargin=0>
<TABLE cellSpacing=0 cellPadding=0 width=780 border=0>
<FORM name=myFORM action=index_subuser.asp method=post>
<TBODY>
<TR>
<TD class=sbuser_index_ctrl_line height=1></TD></TR>
<TR>
<TD class=sbuser_index_ctrl_bg>
<TABLE cellSpacing=0 cellPadding=0 border=0>
<TBODY>
<TR>
<TD>排序: <SELECT class=za_select onchange=document.myFORM.submit();
name=K2>
<OPTION value=0 <%If K2=0 Then Response.Write (" Selected ")%>>帐号</OPTION>
<OPTION value=1 <%If K2=1 Then Response.Write (" Selected ")%>>新增日期</OPTION>
</SELECT> <SELECT class=za_select onchange=self.myFORM.submit() name=K3>
<OPTION value=0 <%If K3=0 Then Response.Write (" Selected ")%>>升幂(由小到大)</OPTION>
<OPTION value=1 <%If K3=1 Then Response.Write (" Selected ")%>> 降幂(由大到小)</OPTION></SELECT> -- 总页数: <SELECT
class=zaselect_ste onchange=self.myFORM.submit() name=Page>
<%For I=1 To Page_Count
Response.Write ("<OPTION value="&I&"")
If Page=I Then
Response.Write (" selected ")
End If
Response.Write (">"&I&"</OPTION>")
Next
%>
</SELECT> / <%=Page_Count%> 页 --
<INPUT class=za_button onclick=show_win(); type=button value=新增 name=append>
<FONT color=#ff0000></FONT></TD></TR></TBODY></TABLE></TD></TR>
<TR>
<TD class=sbuser_index_ctrl_line height=1></TD></TR>
<TR>
<TD colSpan=2 height=4></TD></TR></FORM></TBODY></TABLE>
<TABLE class=sbuser_index_tab cellSpacing=1 cellPadding=0 width=780 border=0>
<TBODY>
<TR class=sbuser_index_title>
<TD width=150>帐号</TD>
<TD width=150>密码</TD>
<TD width=150>名称</TD>
<TD width=150>新增日期</TD>
<TD width=180>功能</TD></TR>
<%
If Record_Count=-1 Then
Response.Write ("<TR class=ag_index_cen><TD><Input type='text' value='未找到指定的记录' size=15 class=za_text></TD><TD><Input type='text' size=10 class=za_text></TD><TD><Input type='text' size=10 class=za_text></TD><TD></TD><TD></TD></TR>")
Else
Dim nstat,snum
For I=StartList To EndList
response.Write "<FORM name=s"&TableList(1,I)&" action=subuser_act.asp?action=mod method=post>"
Response.Write ("<TR class=mem_index_cen><TD>")
if session("SK2F")=0 then
response.Write "<INPUT class=za_text_00 readOnly type=hidden size=1 value=h name=username_cut_level><FONT size=3>h</FONT>"
else
response.Write "<INPUT class=za_text_00 readOnly type=hidden size=1 value=i name=username_cut_level><FONT size=3>i</FONT>"
end if
response.Write ("<INPUT type=hidden value= "&TableList(0,I)&" name=rid><input name=username_cut_name class=za_text maxlength=15 size=8 value="&trim(mid(TableList(1,I),2,20))&"></TD><TD><INPUT name=password class=za_text maxlength=10 size=8 value="&TableList(2,I)&"></TD><TD><INPUT name=truename class=za_text maxlength=10 size=8 value="&TableList(3,I)&"></TD><TD align=center>")
response.Write FormatTime(TableList(4,I),"ymdt")
response.Write ("</TD><TD align=left><A style='CURSOR: hand' onclick=")
response.Write ("javascript:ChkData('"&TableList(1,I)&"')>修改</A> / <A style='CURSOR: hand' href=subuser_act.asp?action=del&rid="&TableList(0,I)&">删除</A></TD></TR>")
response.Write "</form>"
Next
End If
%></TBODY></TABLE><!----------------------结帐视窗---------------------------->
<DIV id=acc_window style="DISPLAY: none; POSITION: absolute">
<FORM name=addUSER onsubmit="return Chk_acc();" action=subuser_add_act.asp
method=post target=_self>
<TABLE cellSpacing=1 cellPadding=2 width=250 bgColor=#00558e border=0>
<TBODY>
<TR>
<TD bgColor=#ffffff>
<TABLE class=m_tab_fix cellSpacing=0 cellPadding=0 width=250
bgColor=#a4c0ce border=0>
<TBODY>
<TR bgColor=#0163a2>
<TD id=r_title width=200><FONT color=#ffffff>新增使用者</FONT></TD>
<TD vAlign=top align=right><A style="CURSOR: hand"
onclick=close_win();><IMG height=14 src="../images/edit_dot.gif"
width=16></A></TD></TR>
<TR>
<TD bgColor=#000000 colSpan=2 height=1></TD></TR>
<TR>
<TD colSpan=2>帐号 <%if session("SK2F")=0 then%><INPUT class=za_text_00 readOnly
type=hidden size=1 value=h name=new_username_cut_level>
<FONT size=3>h</FONT><%else%><INPUT class=za_text_00 readOnly
type=hidden size=1 value=i name=new_username_cut_level>
<FONT size=3>i</FONT><%end if%><INPUT class=za_text maxLength=10 size=12
name=new_user> </TD></TR>
<TR bgColor=#000000>
<TD colSpan=2 height=1></TD></TR>
<TR>
<TD colSpan=2>密码 <INPUT class=za_text maxLength=10
size=12 name=new_pass> </TD></TR>
<TR bgColor=#000000>
<TD colSpan=2 height=1></TD></TR>
<TR>
<TD colSpan=2>名称 <INPUT class=za_text maxLength=10
size=12 name=new_alias> </TD></TR>
<TR bgColor=#000000>
<TD colSpan=2 height=1></TD></TR>
<TR align=middle>
<TD colSpan=2><INPUT class=za_button type=submit value=确定 name=acc_ok>
</TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></FORM></DIV>
<!----------------------结帐视窗----------------------------></BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -