📄 index_member.asp
字号:
<!--#include file="mConn.asp"-->
<!--#include file="mConst.asp"-->
<%
If Session("SK2Admin")="" Then
Response.Redirect "Admin_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("K1")) 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
Dim Rs6,Sql6
SQL6="Select ID,Login_Name,TrueName,Credits,RegTime,Stat From m_member"
Dim Manager
'If Request("Manager")="" Then
' SQL6=SQL6&" Where Manager='"&Cstr(Session("SK2Admin"))&"'"
' Manager=Cstr(Session("SK2Admin"))
'Else
' Manager=CheckStr(Request("Manager"))
' SQL6=SQL6&" Where Manager='"&Manager&"'"
'End If
if Request("Manager")="" then
SQL6=SQL6&" Where "
'SQL6=SQL6&" Where Manager='"&Cstr(Session("SK2Admin"))&"'"
'Manager=Cstr(Session("SK2Admin"))
else
If instr(Request("Manager"),"ihh")>0 Then
Manager=Cstr(Request("Manager"))
SQL6=SQL6&" Where Agent_first='"&Cstr(Request("Manager"))&"' And "
end if
If instr(Request("Manager"),"hhy")>0 Then
Manager=Cstr(Request("Manager"))
SQL6=SQL6&" Where Agent_second='"&Cstr(Request("Manager"))&"' And"
end if
end if
Dim K1,K2,K3
If Request("K1")="" Or Request("K1")=0 Then
K1=0
SQL6=SQL6&" Stat=0"
Else
K1=1
SQL6=SQL6&" Stat=1"
End If
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
'response.Write SQL6
Dim Page,StartList,EndList,DiffList,Page_Count,Record_Count,I
StartList=1:EndList=1:DiffList=50:Page_Count=1:Record_Count=-1
If Request("Page")="" Then
Page=1
Else
Page=CInt(Request("Page"))
End If
Set Rs6=Server.CreateObject("Adodb.RecordSet")
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 From m_agent Order By P_AgentID")
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 Chk_acc(){
if(document.agAcc.acc_date.value=='' || document.agAcc.acc_date.value.length != 10){
document.agAcc.acc_date.focus();
alert("请输入结帐日期(YYYY-MM-DD)!!");
return false;
}
close_win();
}
function show_win(mem_id,mem_name,checkout_date) {
agAcc.mid.value=mem_id;
if( checkout_date=='0000-00-00' ) agAcc.acc_date.value='2004-11-23';
else agAcc.acc_date.value=checkout_date;
document.all["acc_title"].innerHTML="<font color=#FFFFFF> 请输入结帐日期{"+mem_name+"}</font>";
acc_window.style.top=document.body.scrollTop+event.clientY+15;
acc_window.style.left=document.body.scrollLeft+event.clientX-20;
nowDate = new Date();
//document.all["acc_date"].value =cdate ;
//document.all["cdate"].value =cdate ;
document.all["acc_window"].style.display = "block";
document.agAcc.acc_date.focus();
}
function close_win() {
document.all["acc_window"].style.display = "none";
}
</SCRIPT>
<META content="MSHTML 6.00.2800.1476" name=GENERATOR></HEAD>
<BODY text=#000000 vLink=#0000ff aLink=#0000ff bgColor=#ffffff leftMargin=0
topMargin=0>
<FORM name=myFORM action=index_member.asp
method=get>
<TABLE cellSpacing=0 cellPadding=0 width=900 border=0>
<TBODY>
<TR>
<TD class=mem_index_ctrl_line height=1></TD></TR>
<TR>
<TD class=mem_index_ctrl_bg>
<TABLE cellSpacing=0 cellPadding=0 border=0>
<TBODY>
<TR>
<TD> 会员管理:选择代理商 <SELECT class=zaselect_ste
onchange=self.myFORM.submit() name=Manager>
<OPTION value="" selected></OPTION>
<%If Agent_Count>=0 Then
For I=0 To Agent_Count
Response.Write ("<OPTION value="&Agent(0,I)&"")
if Manager=Agent(0,I) Then
Response.Write (" selected ")
End If
Response.Write (">"&Agent(0,I)&"</OPTION>")
Next
End If
%>
</SELECT>
<SELECT class=za_select
onchange=self.myFORM.submit() name=K1>
<OPTION value=0 <%If K1=0 Then Response.Write (" Selected ")%>>启动</OPTION>
<OPTION value=1 <%If K1=1 Then Response.Write (" Selected ")%>>停用</OPTION></SELECT>
-- 排序:
<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="document.location='useradd.asp?Manager=<%=Manager%>'" type=button value=新增 name=append>
<FONT color=#ff0000></FONT></TD></TR></TBODY></TABLE></TD></TR>
<TR>
<TD class=mem_index_ctrl_line height=1></TD></TR>
<TR>
<TD height=4></TD></TR></TBODY></TABLE>
<TABLE class=mem_index_tab cellSpacing=1 cellPadding=0 width=900 border=0>
<TBODY>
<TR class=mem_index_title>
<TD width=130>会员名称</TD>
<TD width=130>会员帐号</TD>
<TD width=130>信用额度</TD>
<TD width=80>新增日期</TD>
<TD width=70>帐号状况</TD>
<TD width=240>功能</TD></TR>
<%
If Record_Count=-1 Then
'Response.Write ("<TR class=ag_index_cen><TD><Input type='text' value='未找到指定的记录' size=15></TD><TD><Input type='text' size=10></TD><TD align=right><Input type='text' size=10></TD><TD></TD><TD></TD><TD></TD></TR>")
Else
Dim stat,nstat,snum
For I=StartList To EndList
If TableList(5,I)=0 Then
stat="启动"
nstat="停用"
snum=1
Else
stat="<SPAN STYLE='background-color: rgb(255,255,0);'>停用 </SPAN>"
nstat="启用"
snum=0
End If
Response.Write ("<TR class=mem_index_cen><TD>"&TableList(2,I)&"</TD><TD>"&TableList(1,I)&"</TD><TD align=right>"&TableList(3,I)&"</TD><TD>"&TableList(4,I)&"</TD><TD>"&stat&"</TD><TD align=left><A href=userstat.asp?ID="&TableList(0,I)&"&stat="&snum&"&manager="&manager&">"&nstat&"</A> / <A href=useredit.asp?ID="&TableList(0,I)&"&manager="&manager&"&stat="&snum&">修改资料</A> / <A href=userdt.asp?rid="&TableList(1,I)&">详细设定</A> </TD></TR>")
'/ <A href=userdel.asp?rid="&TableList(1,I)&">删除</A>
Next
End If
%>
</TBODY></TABLE></FORM></BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -