📄 member_list.asp
字号:
<!-- #include virtual="/admin/admin_head.asp" -->
<%
stype = trim(request("stype"))
if stype = "" then stype = "ALL"
searchstr = trim(request("searchstr"))
tmp_year = left(now, 4)
tmp_month = int(mid(now, 6, 2))
if len(tmp_month) = 1 then tmp_month = "0" & tmp_month
tmp_day = int(mid(now, 9, 2))
if len(tmp_day) = 1 then tmp_day = "0" & tmp_day
today = tmp_year &"-"& tmp_month &"-"& tmp_day
sql = "Select count(*) as count from ib_member"
if stype <> "" then
if stype = "Name" then
sql = sql & " where Name like '%" & searchstr & "%' "
elseif stype = "UserID" then
sql = sql & " where userid like '%" & searchstr & "%' "
elseif stype = "Email" then
sql = sql & " where Email like '%" & searchstr & "%' "
elseif stype = "ALL" then
else
sql = sql & " where partner_tag = '" & stype & "' "
end if
end if
set cnt_rs = DbCon.Execute(sql)
totalNum = cnt_rs("count")
PageSize = 50
curPage = request("page")
if curPage = "" then curPage = 1
sql = "SELECT Top " & PageSize * curPage & " idx, userid, userPWD, Name, GaipDate, Email, handPhone, partner_tag FROM ib_member "
if stype <> "" then
if stype = "Name" then
sql = sql & " where Name like '%" & searchstr & "%' "
elseif stype = "UserID" then
sql = sql & " where userid like '%" & searchstr & "%' "
elseif stype = "Email" then
sql = sql & " where Email like '%" & searchstr & "%' "
elseif stype = "ALL" then
else
sql = sql & " where partner_tag = '" & stype & "' "
end if
end if
sql = sql & " ORDER BY idx desc"
set rs = DbCon.Execute (sql)
if not rs.EOF then
rs.Move ((curPage-1) * PageSize)
LastPage = Round((totalNum-1) / PageSize + 0.51)%>
<script language="JavaScript">
<!--
function popup(name, name2, w, h, s)
{
var pop_name = name;
var win_name = name2;
var w_value = w;
var h_value = h;
var scroll = s;
window.open(pop_name,win_name,'toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=' + scroll +',resizable=no,width=' + w_value +',height=' + h_value +',left=11,top=5');
}
// -->
</script>
<table width="750" border="0" cellspacing="1" cellpadding="1" align="center">
<tr>
<td bgcolor="#CCCCCC" height="50">
<div align="center"><font size="5" face="蹈框"><b>航霸烙 雀盔 包府</b></font></div>
</td>
</tr>
</table><br>
<table width="750" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td height="26">
<form name="search" action="member_list.asp" method="post">
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="26" class="boardtext03">
<tr>
<td width="350"><font class=blue>殿废等 荤侩磊:<%=totalNum%>疙 泅犁<%=curPage%>/<%=LastPage%>其捞瘤 (其捞瘤寸 <%=PageSize%> 疙)</font></td>
<td width="400">
<div align="center">
<select size="1" name="stype" >
<option value="">急琶窍技夸</option>
<option value="ALL"<%if stype="ALL" then response.write(" selected")%>>傈眉 雀盔 焊扁</option>
<option value="Name"<%if stype="Name" then response.write(" selected")%>>雀盔 捞抚</option>
<option value="UserID"<%if stype="UserID" then response.write(" selected")%>>雀盔 酒捞叼</option>
<option value="Email"<%if stype="Email" then response.write(" selected")%>>雀盔 皋老林家</option>
<option value="BG"<%if stype="BG" then response.write(" selected")%>>航霸烙 雀盔</option>
<!-- <option value="NT"<%if stype="NT" then response.write(" selected")%>>匙捞飘 雀盔</option> -->
<option value="BM"<%if stype="BM" then response.write(" selected")%>>棍胶孤流 雀盔</option>
<option value="JC"<%if stype="JC" then response.write(" selected")%>>炼捞揪匙 雀盔</option>
<option value="LH"<%if stype="LH" then response.write(" selected")%>>扼弊窍烙 雀盔</option>
<option value="NM"<%if stype="NM" then response.write(" selected")%>>齿付喉 雀盔</option>
</select>
<input type="text" name="searchstr" size="20">
<input type="submit" value="八 祸" name="Search">
</div>
</td>
</tr>
</table>
</form>
</td>
</tr>
<tr>
<td height="25" align="center" class="boardtext03">齿付喉篮 ID 菊俊 NMB123456_ 眠啊!!!<br>
<table width="750" border="0" cellspacing="1" cellpadding="0" class="boardtext03">
<tr bgcolor="skyblue">
<td width="45" height="30"align="center"><b>index</b></td>
<td width="70" align="center"><b>捞抚</b></td>
<td width="70" align="center"><b>ID</b></td>
<td width="70" align="center" > <b>PWD</b></td>
<td width="150" align="center"><b>EMAIL</b></td>
<td width="115" align="center"><b>HandPhone</b></td>
<td width="80" align="center"><b>颇飘呈</b></td>
<td width="50" align="center"><b>昏 力</b></td>
</tr>
<%
i=1
while not rs.EOF
partner_tag = rs("partner_tag")
if partner_tag = "" then partner_tag = "BG"
if partner_tag = "BG" then partner_tag = "航霸烙"
'if partner_tag = "NT" then partner_tag = "<font color=FFCC00>匙捞飘</font>"
if partner_tag = "BM" then partner_tag = "<font color=red>棍胶孤流</font>"
if partner_tag = "JC" then partner_tag = "<font color=pink>炼捞揪匙</font>"
if partner_tag = "LH" then partner_tag = "<font color=pink>扼弊窍烙</font>"
if partner_tag = "NM" then partner_tag = "<font color=blue>齿付喉</font>"
userid = rs("userid")
%>
<tr bgcolor="#CCCCCC">
<td height="20"><div align="center"><%=rs("idx")%></div></td>
<td align="center" ><a href="javascript:popup('member_view.asp?index=<%=rs("idx")%>&user_id=<%=rs("userid")%>', 'member_view', 500, 700, 'no');"><%=rs("Name")%></a> <%if trim(left(rs("Gaipdate"),10))=trim(today) then %><img src="/community/images/new.gif" border=0><%end if%></td>
<td align="center"><%if rs("partner_tag") = "NM" then
response.write replace(userid,"NMB123456_","")
else
response.write userid
end if%></td>
<td align="center"><%=rs("userPWD")%></td>
<td align="center"><a href="mailto:<%=rs("Email")%>"><%=rs("Email")%></a></td>
<td align="center"><%=rs("handPhone")%></td>
<td align="center"><%=partner_tag%></td>
<td align="center"><a href="MemberDelete.asp?KeyCode=<%=rs("idx")%>&id=<%=rs("userid")%>">Delete</a></td>
</tr>
<%
rs.MoveNEXT
i=i+1
wend
rs.close
set rs = nothing
%>
<tr bgcolor="#CCCCCC">
<td colspan=8 align=center height="40">
<!-- page 何盒 甸绢哎 镑 -->
<%
count = 0
start = curPage - 5
if start < 1 then start = 1
response.write ("<a href=""member_list.asp?page=1&stype=" & stype & "&searchstr=" & searchstr & """>" & "[贸澜]</a> ")
for i=start to LastPage
if (CLng(i) <> CLng(curPage)) then
response.write ("<a href=""member_list.asp?page=" & i & "&stype=" & stype & "&searchstr=" & searchstr & """>[" & i & "]</a> ")
else
response.write ("<font color=red size=3>[" & i & "]</font> ")
end if
count = count + 1
if (count > 10) then exit for
next
response.write ("<a href=""member_list.asp?page=" & LastPage & "&stype=" & stype & "&searchstr=" & searchstr & """>[付瘤阜]</a>")
%>
<!-- page 何盒 甸绢哎 镑 -->
</td>
</tr>
</table>
</td>
</tr>
</table>
<%
else
%>
<script language="JavaScript">
<!--
alert('八祸 搬苞啊 绝嚼聪促.');
history.back();
// -->
</script>
<%
end if
%>
<!-- #include virtual="/admin/admin_bottom.asp" -->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -