📄 index_agent.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_agent"
Dim P_AgentID
If Request("P_AgentID")="" Then
P_AgentID=0
SQL6=SQL6&" Where P_AgentID=0"
Else
P_AgentID=cInt(Request("P_AgentID"))
SQL6=SQL6&" Where P_AgentID="&P_AgentID&""
End If
Dim K1,K2,K3
If Request("K1")="" Or Request("K1")=0 Then
K1=0
SQL6=SQL6&" And Stat=0"
Else
K1=1
SQL6=SQL6&" And Stat=1"
End If
If Request("K2")="" Or Request("K2")=0 Then
K2=0
SQL6=SQL6&" Order By Login_Name"
Else
if request("K2")=1 then
K2=1
SQL6=SQL6&" Order By RegTime"
end if
if request("K2")=2 then
K2=2
SQL6=SQL6&" Order By P_AdminID"
end if
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=500: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
%>
<!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>
<STYLE type=text/css></STYLE>
<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_agent.asp method=post>
<TABLE cellSpacing=0 cellPadding=0 width=780 border=0>
<TBODY>
<TR>
<TD class=ag_index_ctrl_line height=1></TD></TR>
<TR>
<TD class=ag_index_ctrl_bg>
<TABLE cellSpacing=0 cellPadding=0 border=0>
<TBODY>
<TR>
<TD>
<%If P_AgentID=0 Then
Response.Write ("总代理商管理")
Else
Response.Write ("代理商管理")
End If
%>:
<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=2 <%If K2=0 Then Response.Write (" Selected ")%>>代理商名称</OPTION>
<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='ag_add.asp?P_AgentID=<%=P_AgentID%>'" type=button value=新增 name=append>
<%If P_AgentID>0 Then
Response.Write ("-- <A href=javascript:history.go(-1)>回上一页</A>")
End If
%>
<FONT color=#ff0000></FONT></TD></TR></TBODY></TABLE></TD></TR>
<TR>
<TD class=ag_index_ctrl_line height=1></TD></TR>
<TR>
<TD height=4></TD></TR></TBODY></TABLE>
<TABLE class=ag_index_tab cellSpacing=1 cellPadding=0 width=780 border=0>
<TBODY>
<TR class=ag_index_title>
<TD width=110><%If P_AgentID=0 Then
Response.Write ("总代理商名称")
Else
Response.Write ("代理商名称")
End If
%></TD>
<TD width=110>帐号</TD>
<TD width=110>信用额度</TD>
<TD width=50>
<%If P_AgentID=0 Then
Response.Write ("代理数")
Else
Response.Write ("会员数")
End If
%></TD>
<TD width=80>新增日期</TD>
<TD width=64>帐号状况</TD>
<TD width=220>功能</TD></TR>
<%
If Record_Count=-1 Then
Response.Write ("<TR class=ag_index_cen><TD><Input type='text' value='未找到指定的记录' size=10></TD><TD><Input type='text' size=10></TD><TD align=right><Input type='text' size=10></TD><TD></TD><TD></TD><TD></TD><TD align=left></TD></TR>")
Else
Dim memnum,stat,nstat,snum
For I=StartList To EndList
memnum=0
If P_AgentID=0 Then
Set Rs6=Conn.Execute("Select Count(ID) As memnum From m_agent Where P_AgentID="&TableList(0,I))
Else
Set Rs6=Conn.Execute("Select Count(ID) As memnum From m_member Where Manager='"&TableList(1,I)&"'")
End If
If Not Rs6.Eof Then
memnum=Rs6("memnum")
End If
If TableList(5,I)=0 Then
stat="启动"
nstat="停用"
snum=1
Else
stat="<SPAN STYLE='background-color: rgb(255,0,0);'>停用 </SPAN>"
nstat="启用"
snum=0
End If
If P_AgentID=0 Then
Response.Write ("<TR class=ag_index_cen><TD><a href=index_agent.asp?P_AgentID="&TableList(0,I)&">"&TableList(2,I)&"</a></TD><TD>"&TableList(1,I)&"</TD><TD align=right>"&TableList(3,I)&"</TD><TD>"&memnum&"</TD><TD>"&FormatDateTime(TableList(4,I),vbShortDate)&"</TD><TD>"&stat&"</TD><TD align=left> <A href=ag_stat.asp?P_AgentID="&TableList(0,I)&"&stat="&snum&">"&nstat&"</A> / <A href=ag_edit.asp?P_AgentID="&TableList(0,I)&">修改资料</A> / <A href=ag_dt.asp?P_AgentID="&TableList(1,I)&">详细设定</A> </TD></TR>")
Else
Response.Write ("<TR class=ag_index_cen><TD>"&TableList(2,I)&"</TD><TD>"&TableList(1,I)&"</TD><TD align=right>"&TableList(3,I)&"</TD><TD>"&memnum&"</TD><TD>"&FormatDateTime(TableList(4,I),vbShortDate)&"</TD><TD>"&stat&"</TD><TD align=left> <A href=ag_stat.asp?P_AgentID="&TableList(0,I)&"&stat="&snum&">"&nstat&"</A> / <A href=ag_edit.asp?P_AgentID="&TableList(0,I)&">修改资料</A> / <A href=ag_dt.asp?P_AgentID="&TableList(1,I)&">详细设定</A> </TD></TR>")
End If
Next
End If
Set Rs6=Nothing
%>
</TBODY></TABLE></FORM>
</BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -