search_users.asp

. 缓存处理技术

<!-- #include file="SysConfig.asp" -->
<!-- #include file="CheckAdmin.asp" -->
<!-- #include file="Sql_UserFunction.asp" -->

<script src="js/CheckAll.js"></script>
<script src="js/DelTrue.js"></script>
<%
With Response
  .Write"<table width=98% border=0 align=center cellpadding=0 cellspacing=0>"& vbcrlf
  .Write" <tr> "& vbcrlf
  .Write"	 <td colspan=2 width=100% align=center height=2 class=menutdbg_1></td> "& vbcrlf
  .Write"	</tr> "& vbcrlf
  .Write" <tr height=32> "& vbcrlf
  .Write"  <td width=100% colspan=2 background=""../Skins/"& SKINS_FOLDER &"/GrayBg.gif"">&nbsp;<img src=""../Skins/"& Skins_Folder &"/Go.gif"" border=""0""><a href=""help.asp"" class=menuColor_1><b>后台管理</b></a>&gt;&gt;&gt; <a href=""search.asp"" class=menuColor_1><b>搜索中心</b></a>&gt;&gt;&gt; <a href=""search_Users.asp"" class=menuColor_1><b>用户列表</b></a> </td>"& vbcrlf
  .Write"  </tr>"& vbcrlf
  .Write"</table>" & Vbcrlf
End With

Function Disp_UserAdminMenu()
  Dim TempStr
  TempStr="<input name=deltrue type=button value=""确定删除"" OnClick=""return DelTrue(document.searchform,'del.asp')"">&nbsp;<input name=deltrue type=button value=""审核"" OnClick=""return DelTrue(document.searchform,'ChangeUserStatus.asp?act=yes&act2=zl')"">&nbsp;<input name=deltrue type=button value=""取消审核"" OnClick=""return DelTrue(document.searchform,'ChangeUserStatus.asp?act=no&act2=zl')"">&nbsp;<input name=deltrue type=button value=""认证"" OnClick=""return DelTrue(document.searchform,'ChangeUserStatus.asp?act=yes&act2=sf')"">&nbsp;<input name=deltrue type=button value=""取消认证"" OnClick=""return DelTrue(document.searchform,'ChangeUserStatus.asp?act=no&act2=sf')"">&nbsp;<input name=deltrue type=button value=""锁定"" OnClick=""return DelTrue(document.searchform,'ChangeUserStatus.asp?act=yes&act2=lock')"">&nbsp;<input name=deltrue type=button value=""取消锁定"" OnClick=""return DelTrue(document.searchform,'ChangeUserStatus.asp?act=no&act2=lock')"">"
  Disp_UserAdminMenu=TempStr
End Function

Function DispAndOrder()

	Dim TempDispAndOrder
	TempDispAndOrder=" <img src=""../skins/"& SKINS_FOLDER &"/search_mirror.gif"" border=""0"" width=15 height=15 align=""absmiddle"">"
	TempDispAndOrder=TempDispAndOrder &" 显示方式： <a href="&Page_QueryStr&"CnPerBBrPage=20&page="&page&"><img src=""../skins/"& SKINS_FOLDER &"/Order_Amount_20.gif"" border=""0"" width=18 height=15 align=""absmiddle"" alt=""每页显示20条记录""></a> "& Vbcrlf
	TempDispAndOrder=TempDispAndOrder &" <a href="&Page_QueryStr&"CnPerBBrPage=40&page="&page&"><img src=""../skins/"& SKINS_FOLDER &"/Order_Amount_40.gif"" border=""0"" width=18 height=15 align=""absmiddle"" alt=""每页显示40条记录""></a> "& Vbcrlf
	TempDispAndOrder=TempDispAndOrder &" <a href="&Page_QueryStr&"CnPerBBrPage=80&page="&page&"><img src=""../skins/"& SKINS_FOLDER &"/Order_Amount_80.gif"" border=""0"" width=18 height=15 align=""absmiddle"" alt=""每页显示80条记录""></a> "& Vbcrlf
	TempDispAndOrder=TempDispAndOrder &" 排序方式： <a href="&Page_QueryStr&"cnAucBBrOrder=1&page="&page&"><img src=""../skins/"& SKINS_FOLDER &"/Order_price_Up.gif"" border=""0"" width=24 height=15 align=""absmiddle"" alt=""按注册时间升序排列""></a> "& Vbcrlf
	TempDispAndOrder=TempDispAndOrder &" <a href="&Page_QueryStr&"cnAucBBrOrder=2&page="&page&"><img src=""../skins/"& SKINS_FOLDER &"/Order_price_Down.gif"" border=""0"" width=24 height=15 align=""absmiddle"" alt=""按信用积分值降序排列""></a> "& Vbcrlf



	Select Case JsPerPage
	  Case 20: TempDispAndOrder=Replace(TempDispAndOrder,"Order_Amount_20.gif","Order_CAmount_20.gif")
	  Case 40: TempDispAndOrder=Replace(TempDispAndOrder,"Order_Amount_40.gif","Order_CAmount_40.gif")
	  Case 80: TempDispAndOrder=Replace(TempDispAndOrder,"Order_Amount_80.gif","Order_CAmount_80.gif")
	  Case else:
	End Select
	Select Case BBR_UserOrder
	  Case 1: TempDispAndOrder=Replace(TempDispAndOrder,"Order_price_Up.gif","Order_Cprice_Up.gif")
	  Case 2: TempDispAndOrder=Replace(TempDispAndOrder,"Order_price_Down.gif","Order_Cprice_Down.gif")
	  Case else:
	End Select
   
 	DispAndOrder=TempDispAndOrder
End Function


 Disp_UserSearch
%>
<!-- #include file="Vir_CnbbrPay.asp" -->