user_listshow.asp

易方4.0程序+邮局接口+序列号+销售系统

<!-- #include file="../inc_config.asp" -->
<!-- #include file="LoginCk.asp" -->
<%
Call PopCheck(3)
VPage = Request("VPage")
User_State = Request("User_State")
User_level = Request("User_level")
User_WUSer = Request("User_WUSer")
User_Unit = Request("User_Unit")
User_Addr = Request("User_Addr")
User_Pcode = Request("User_Pcode")
User_Prin = Request("User_Prin")
User_Mail = Request("User_Mail")
User_QQ = Request("User_QQ")
User_TelQu = Request("User_TelQu")
User_Tel = Request("User_Tel")
User_FaxQu = Request("User_FaxQu")
User_Fax = Request("User_Fax")
User_MPhone = Request("User_MPhone")
CTimeS = Request("CTimeS")
CTimeE = Request("CTimeE")
VDesc = Request("VDesc")
VNum = Request("VNum")
UserWhere = ""
If User_State <> "11" Then	UserWhere = UserWhere & "User_State=" & User_State & " And "
If Mid(session("SessAdminPOP"),38,1) = 0 Then UserWhere = UserWhere & "User_State <> 3 And "
If User_level <> "11" Then	UserWhere = UserWhere & "User_level='" & User_level & "' And "
If Len(User_WUSer)>0 Then	UserWhere = UserWhere & "User_WUSer='" & User_WUSer & "' And "
If Mid(session("SessAdminPOP"),42,1)="0" Then
	UserWhere = UserWhere & "(User_WUSer='" & LgData("Admin_User") & "' Or User_WUSer='') And "
End If
If Len(User_Unit)>0 Then
	UserWhere = UserWhere & "(User_Unit LIKE '%" & User_Unit & "%' Or User_Unit_Bak LIKE '%" & User_Unit & "%') And "	
End If
If Len(User_Addr)>0 Then
	UserWhere = UserWhere & "(User_Addr LIKE '%" & User_Addr & "%' Or User_Addr_Bak LIKE '%" & User_Addr & "%') And "
End If
If Len(User_Pcode)>0 Then
	UserWhere = UserWhere & "(User_Pcode LIKE '%" & User_Pcode & "%' Or User_Pcode_Bak LIKE '%" & User_Pcode & "%') And "
End If
If Len(User_Prin)>0 Then
	UserWhere = UserWhere & "(User_Prin LIKE '%" & User_Prin & "%' Or User_Prin_Bak LIKE '%" & User_Prin & "%') And "
End If
If Len(User_Mail)>0 Then
	UserWhere = UserWhere & "(User_Mail LIKE '%" & User_Mail & "%' Or User_Mail_Bak LIKE '%" & User_Mail & "%') And "
End If
If Len(User_QQ)>0 Then
	UserWhere = UserWhere & "(User_QQ LIKE '%" & User_QQ & "%' Or User_QQ_Bak LIKE '%" & User_QQ & "%') And "
End If
If Len(User_TelQu)>0 Then
	UserWhere = UserWhere & "(User_TelQu LIKE '%" & User_TelQu & "%' Or User_TelQu_Bak LIKE '%" & User_TelQu & "%') And "
End If
If Len(User_Tel)>0 Then
	UserWhere = UserWhere & "(User_Tel LIKE '%" & User_Tel & "%' Or User_Tel_Bak LIKE '%" & User_Tel & "%') And "
End If
If Len(User_FaxQu)>0 Then
	UserWhere = UserWhere & "(User_FaxQu LIKE '%" & User_FaxQu & "%' Or User_FaxQu_Bak LIKE '%" & User_FaxQu & "%') And "
End If
If Len(User_Fax)>0 Then
	UserWhere = UserWhere & "(User_Fax LIKE '%" & User_Fax & "%' Or User_Fax_Bak LIKE '%" & User_Fax & "%') And "
End If
If Len(User_MPhone)>0 Then
	UserWhere = UserWhere & "(User_MPhone LIKE '%" & User_MPhone & "%' Or User_MPhone_Bak LIKE '%" & User_MPhone & "%') And "
End If
If Len(CTimeS)>0 Then UserWhere = UserWhere & "User_CTime > #" & CTimeS & " 0:0:0# And "
If Len(CTimeE)>0 Then UserWhere = UserWhere & "User_CTime < #" & CTimeE & " 23:59:59# And "
If Len(UserWhere)>0 Then UserWhere = Left(UserWhere,Len(UserWhere)-5)
UserWhere = UserWhere & " Order By User_CTime"
If VDesc = "1" Then	UserWhere = UserWhere & " Desc"
AyData = Conn.TurnPage("EfangUser",UserWhere,"*",VPage,VNum)
'Response.Write AyData(2) & "<br>" : Response.End
StrWhere = ""
StrWhere = StrWhere & "User_State=" & User_State & "&"
StrWhere = StrWhere & "User_level=" & User_level & "&"
StrWhere = StrWhere & "User_WUSer=" & User_WUSer & "&"
StrWhere = StrWhere & "User_Unit=" & User_Unit & "&"
StrWhere = StrWhere & "User_Addr=" & User_Addr & "&"
StrWhere = StrWhere & "User_Pcode=" & User_Pcode & "&"
StrWhere = StrWhere & "User_Prin=" & User_Prin & "&"
StrWhere = StrWhere & "User_MPhone=" & User_MPhone & "&"
StrWhere = StrWhere & "User_Mail=" & User_Mail & "&"
StrWhere = StrWhere & "User_QQ=" & User_QQ & "&"
StrWhere = StrWhere & "User_TelQu=" & User_TelQu & "&"
StrWhere = StrWhere & "User_Tel=" & User_Tel & "&"
StrWhere = StrWhere & "User_FaxQu=" & User_FaxQu & "&"
StrWhere = StrWhere & "User_Fax=" & User_Fax & "&"
StrWhere = StrWhere & "CTimeS=" & CTimeS & "&"
StrWhere = StrWhere & "CTimeE=" & CTimeE & "&"
StrWhere = StrWhere & "VDesc=" & VDesc & "&"
StrWhere = StrWhere & "VNum=" & VNum & "&"
%>
<html>
<head>
<title>会员组合查询-搜索结果</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link id="style_sheet" href="css/save.css" type="text/css" rel="stylesheet">
	<script language="JavaScript">style_sheet.href = parent.parent.style_sheet.href;</script>
</head>
<script language="JavaScript" src="js/common_Efang.js"></script>
	<body class="NormalPage">
	<form id="form_help" action="help_content.asp" method="get" target="working_area">
		<input name="help_topic" type="hidden" value="会员组合查询">
	</form>
<form name="form1" method="post" action="">
 <table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
	<tr>
		<td id="headerToolBar" valign="middle" nowrap style="width:100%; height:22px;"><table cellpadding="0" cellspacing="0" class="HeaderPageControl">
				<tr>
					<td align="left" valign="middle" nowrap height="20">财务管理&gt;&gt; 财务操作 &gt;&gt; <b></b><b></b><b>会员组合查询</b></td>
					<td align="center" valign="middle" nowrap width="10" height="20"></td>
					<td align="right" valign="middle" width="100%" nowrap height="20"></td>
					<td align="center" valign="middle" nowrap width="10" height="20"></td>
					<td align="right" valign="middle" width="60" nowrap height="20"><img id="id_back" alt="返回上一页" onclick="JavaScript:history.back()" onmouseover="JavaScript:this.src=imgBackUp.src" onmouseout="JavaScript:this.src=imgBackDown.src" src="images/toolbar_back.gif" border="0" style="cursor:hand;width:22px; height:20px;"><img id="id_refresh" alt="刷新" onclick="JavaScript:fn_Refresh()" onmouseover="JavaScript:this.src=imgRefreshUp.src" onmouseout="JavaScript:this.src=imgRefreshDown.src" src="images/toolbar_refresh.gif" border="0" style="cursor:hand;width:22px; height:20px;"></td>
					<td align="right" valign="middle" width="25" nowrap height="20"><img src="images/toolbar_help.gif" alt="帮助" width="43" height="20" border="0" id="id_locate" style="cursor:hand;width:22px; height:20px;" onclick="JavaScript:fn_ShowHelp()" onmouseover="JavaScript:this.src=imgHelpUp.src" onmouseout="JavaScript:this.src=imgHelpDown.src"></td>
				</tr>
		</table></td>
	</tr>
	<tr>
		<td valign="top">
			<div id="viewPanel" style="visibility:visible; position:absolute; overflow:auto;">
		<br>  
	    <table width="85%" border="0" align="center" cellPadding="0" cellSpacing="0" class="datalist">
          <tr align="right">
            <td height="30" colspan="7" class="DataGroup"><a href="User_ListShow.asp?User_State=11&User_level=Level2&VDesc=1&VNum=20" class=commonface><font color="#FF0000"><b>普通代理</b></font></a> <font color="#000000">|</font> <a href="User_ListShow.asp?User_State=11&User_level=11&CTimeS=<%=Efang.DateTime("Y-m-d")%>&CTimeE=<%=Efang.DateTime("Y-m-d")%>&VDesc=1&VNum=20" class=commonface>今天新注册</a> <font color="#000000">|</font> <a href="User_ListShow.asp?User_State=11&User_level=11&User_WUSer=&User_WUSer_Pick=&User_Unit=&CTimeS=<%=Efang.DateTime("Y-m-1")%>&CTimeE=<%=DateAdd("d",-1,DateAdd("m",1,Efang.DateTime("Y-m-1")))%>&VDesc=1&VNum=20" class=commonface>本月新注册</a> <font color="#000000">| </font><a href="User_ListShow.asp?User_State=11&User_level=11&User_WUSer=&User_WUSer_Pick=&User_Unit=&CTimeS=<%=Efang.DateTime("Y-m-1",DateAdd("m",-1,date))%>&CTimeE=<%=DateAdd("d",-1,Efang.DateTime("Y-m-1"))%>&VDesc=1&VNum=20" class=commonface>上月新注册</a> <font color="#000000">| </font><a href="User_List.asp" class=commonface>组合查询</a></td>
          </tr>
          <tr align="right" bgcolor="#FFFFFF"> 
            <td height="30" colspan="7">共 <%=AyData(1)%> 条　第 <%=AyData(3)%> 页/共 
              <%=AyData(2)%> 页 <a href="?VPage=1&<%=StrWhere%>" class="CommonFace">首页</a> <a href=?VPage=<%=AyData(3)-1%>&<%=StrWhere%> class="CommonFace">上一页</a> 
              <a href=?VPage=<%=AyData(3)+1%>&<%=StrWhere%> class="CommonFace">下一页</a> <a href=?VPage=<%=AyData(2)%>&<%=StrWhere%> class="CommonFace">未页</a></td>
          </tr>
          <tr align="center"> 
            <th width="34" nowrap class="DataListHeader" height="26">序号</th>
            <th width="58" nowrap class="DataListHeader" height="26">会员帐号</th>
            <th width="143" nowrap class="DataListHeader" height="26">单位名称/姓名</th>
            <th nowrap class="DataListHeader" width="141">地址</th>
            <th nowrap class="DataListHeader" width="43">状态</th>
            <th nowrap class="DataListHeader" width="82">加入时间</th>
            <th nowrap class="DataListHeader" width="57">专员</th>
          </tr>
          <%
Set ULData = AyData(0)
XuNum = (AyData(3)-1)*VNum
Count=0
Do while not ULData.EOF And Count<Clng(VNum)
%>
          <tr align="center"> 
            <td width="34" align="center" nowrap class="DataListGrid" height="26"> 
              <%
XuNum = XuNum + 1
Response.Write XuNum
%>
            </td>
            <td width="58" align="center" nowrap class="DataListGrid" height="26"><a href=User_Upd.asp?User=<%=ULData("User_User")%> class="CommonFace"> 
              <%=ULData("User_User")%></a></td>
            <td width="143" align="center" nowrap class="DataListGrid" height="26" title="备份数据：<%=ULData("User_Unit_Bak")%>"><%=Efang.GBLeft(ULData("User_Unit"),20)%> 
            </td>
            <td align="center" nowrap class="DataListGrid" width="141" title="备份数据：<%=ULData("User_Addr_Bak")%>">&nbsp;<%=Efang.GBLeft(ULData("User_Addr"),20)%></td>
            <td align="center" nowrap class="DataListGrid" width="43"> 
              <%
If ULData("User_State") = 1 Then Response.Write "正常"
If ULData("User_State") = 2 Then Response.Write "锁定"
If ULData("User_State") = 3 Then Response.Write "删除"
%>
            </td>
            <td align="center" nowrap class="DataListGrid" width="82" title="<%=ULData("User_CTime")%>"><%=Mid(ULData("User_CTime"),3,Instr(ULData("User_CTime")," ")-3)%></td>
            <td align="center" nowrap class="DataListGrid" width="57">&nbsp;<a href=SysUser_Upd.asp?Admin_User=<%=ULData("User_WUser")%> class="CommonFace"><%=ULData("User_WUser")%></a></td>
          </tr>
          <%
Count = Count + 1
ULData.movenext 
Loop
Set ULData=Nothing
%>
        </table>
			</div></td>
    </tr>
  </table>
</form>
<% Call ExitEnd(False) %>
</body>
<script language="JavaScript">
<!--
	document.parentWindow.onresize = fn_RejustViewPanel ;
	fn_RejustViewPanel ( ) ;
	//alert ( document.body.clientWidth + ":" + viewPanel.clientWidth ) ;
//-->
</script>
</html>