📄 adminmembervip.asp
字号:
<%
dim dbpath
dbpath="../"
%>
<!--#include file="chk.asp"-->
<!--#include file="../db_conn.asp" -->
<!--#include file="../comm/my_request.asp" -->
<!--#include file="../comm/my_lib.asp" -->
<!--#include file="../comm/pages.asp" -->
<html>
<head>
<title>会员管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href=AdminStyle.css rel=stylesheet type=text/css>
<script language="javascript">
function confirmdel(cartbh,page){
if (confirm("此操作将删除用户的资料及所有订单,是否继续?"))
window.location.href="del_memeber.asp?id="+cartbh+"&page="+page
}
</script>
</head>
<body>
<div align="center">
<table border="0" width="100%" id="table1" cellspacing="1" cellpadding="3">
<form action=Adminmembervip.asp method=post>
<tr>
<td>
<p align="center">会员搜索：<select size="1" name="sflag">
<option selected value="1">会员帐号</option>
<option value="2">会员姓名</option>
</select><input type="text" name="skeyword" size="20"><input type="submit" value="搜索" name="B1"></td>
</tr></form>
<tr>
<td height=5></td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" style="border-collapse: collapse">
<tr>
<td>
<table width="100%" cellpadding="4" style="border: 1px solid #183789; padding-left: 4px; padding-right: 4px; padding-top: 1px; padding-bottom: 1px; " cellspacing="1">
<tr align="center" valign="middle">
<td height="25" background="Image/admin_bg_1.gif">
<font style="font-size: 14px" color="#FFFFFF"><b>ID</b></font></td>
<td height="25" background="Image/admin_bg_1.gif">
<font style="font-size: 14px" color="#FFFFFF">
<b>会员账号</b></font></td>
<td height="25" background="Image/admin_bg_1.gif">
<font style="font-size: 14px" color="#FFFFFF">
<b>真实姓名</b></font></td>
<td height="25" background="Image/admin_bg_1.gif">
<font color="#FFFFFF"><span style="font-size: 14px"><b>级别</b></span></font></td>
<td height="25" background="Image/admin_bg_1.gif">
<font style="font-size: 14px" color="#FFFFFF"><b>购物总金额</b></font></td>
<td height="25" background="Image/admin_bg_1.gif">
<font style="font-size: 14px" color="#FFFFFF">
<b>附加费用总计</b></font></td>
<td height="25" background="Image/admin_bg_1.gif">
<font style="font-size: 14px" color="#FFFFFF"><b>金额合计</b></font></td>
<td height="25" background="Image/admin_bg_1.gif">
<font style="font-size: 14px" color="#FFFFFF">
<b>注册时间</b></font></td>
<td height="25" background="Image/admin_bg_1.gif">
<font style="font-size: 14px" color="#FFFFFF"><b>删除</b></font></td>
</tr>
<%
sflag=my_request("sflag",1)
skeyword=my_request("skeyword",0)
select case sflag
case 1
sql="select * from user_info_list where txt_flag=1 and txt_login_name like '%"&skeyword&"%' order by dat_regtime DESC"
case 2
sql="select * from user_info_list where txt_flag=1 and txt_realname like '%"&skeyword&"%' order by dat_regtime DESC"
case else
sql="select * from user_info_list where txt_flag=1 order by dat_regtime DESC"
end select
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
if (rs.eof and rs.bof) then
response.write "<tr>"
response.write "<td width=500 colspan=4><font color=#FF0000>没有相应的数据</font></td>"
response.write "</tr>"
else
rs.PageSize =20 '每页记录条数
iCount=rs.RecordCount '记录总数
iPageSize=rs.PageSize
maxpage=rs.PageCount
page=request("page")
if Not IsNumeric(page) or page="" then
page=1
else
page=cint(page)
end if
if page<1 then
page=1
elseif page>maxpage then
page=maxpage
end if
rs.AbsolutePage=Page
if page=maxpage then
x=iCount-(maxpage-1)*iPageSize
else
x=iPageSize
end if
end if
ii=1
while not rs.eof and ii<=rs.pagesize
set id=rs("id")
set txt_login_name=rs("txt_login_name")
set txt_realname=rs("txt_realname")
set dat_regtime=rs("dat_regtime")
set txt_flag=rs("txt_flag")
sql1="select userid from buyer where userid='"&txt_login_name&"'"
set rs1=conn.execute (sql1)
if rs1.eof then
num=0
fy=0
zhq=0
else
ssql="select sum(product_price) as num,sum(yqj_cost) as fy,sum(yqj_money) as zhq from buyer where userid='"&txt_login_name&"'"
set rss=conn.execute (ssql)
num=rss("num")
fy=rss("fy")
zhq=rss("zhq")
rss.close
set rss=nothing
rs1.close
set rs1=nothing
end if
%> <tr align="center" valign="middle">
<td bgcolor="#FFFFFF" height="20" width="4%"><%=(page-1)*20+ii%></td>
<td bgcolor="#FFFFFF" height="20" width="12%"><%response.write "<a href=# >"&txt_login_name&"</a>"%></td>
<td bgcolor="#FFFFFF" height="20" width="12%"><%=txt_realname%></td>
<td bgcolor="#E7E7E7" height="20" width="11%"><%if txt_flag=0 then response.write "普通会员" else response.write "VIP会员" end if%></td>
<td bgcolor="#FFFFFF" height="20" width="12%">
<p align="left">￥<%=num%>元</td>
<td bgcolor="#FFFFFF" height="20" width="13%">
<p align="left">￥<%=fy%>元</td>
<td bgcolor="#FFFFFF" height="20" width="9%">
<p align="left"><font color="#FF0000">￥<%=zhq%>元</font></td>
<td bgcolor="#FFFFFF" height="20" width="14%"><%=dat_regtime%></td>
<td bgcolor="#FFFFFF" height="20" width="7%"><a href='javascript:confirmdel(<%=id%>,<%=page%>)'>删除</a></td>
</tr>
<%
rs.movenext
ii=ii+1
wend
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
<tr align="center" valign="middle">
<td colspan="9" height="20" bgcolor="#EFEFEF"><%call PageControl(iCount,maxpage,page,"border=0 align=right","<p align=right>")%></td>
</tr>
</table>
<div align="center"> </div></td>
</tr>
</table>
</div>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -