📄 vip_user.asp
字号:
<!--#include file="Gaobei_head.asp" -->
<%
sub navigation()
response.write " >> "
response.write "本站高级会员名单"
end sub
%>
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="778" height="50" bgcolor="#EFEFE7">
<tr>
<td width="218" valign="top">
<% call Gaobei_userlogin() %>
<% call Gaobei_Search() %>
<% call Gaobei_VipSearch() %>
<% call Gaobei_vote() %>
</td>
<td width="560" valign="top">
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="550" height="20" id="table1" background="images/Gaobei_skin/gaobei_vip.gif">
<tr>
<td> </td>
</tr>
</table>
</div>
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="550" height="5">
<tr>
<td></td>
</tr>
</table>
</div>
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="550" height="160">
<tr>
<td bgcolor="#FFFFFF" width="100%">
<!--新闻文章开始-->
<%
'日期格式转换函数
function DateTimeFormat(DateTime,Format)
select case Format
case "1"
DateTimeFormat=""&year(DateTime)&"年"&month(DateTime)&"月"&day(DateTime)&"日"
case "2"
DateTimeFormat=""&month(DateTime)&"月"&day(DateTime)&"日"
case "3"
DateTimeFormat=""&year(DateTime)&"-"&month(DateTime)&"-"&day(DateTime)&""
case "4"
DateTimeFormat=""&year(DateTime)&"/"&month(DateTime)&"/"&day(DateTime)&""
case "5"
DateTimeFormat=""&month(DateTime)&"/"&day(DateTime)&""
case "6"
DateTimeFormat=""&year(DateTime)&"年"&month(DateTime)&"月"&day(DateTime)&"日<font color=red> "&FormatDateTime(DateTime,4)&"</font>"
case "7"
temp="星期日,星期一,星期二,星期三,星期四,星期五,星期六"
temp=split(temp,",")
DateTimeFormat=temp(Weekday(DateTime)-1)
case else
DateTimeFormat=DateTime
end select
end function
%>
<HTML><HEAD><TITLE>用户管理 </TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
</HEAD>
<BODY>
<%
dim totalPut
dim CurrentPage
dim TotalPages
dim pubUserName,j,selUserID
set rs=server.createobject("adodb.recordset")
%>
<table width="550" border=0 align="center" cellpadding=3 cellspacing=1 bgcolor="#CCCCCC">
<tr align="center" bgcolor="#EAEAEA" height=25>
<td width="53" class="forumRowHighlight">用户名</td>
<td width="37" nowrap class="forumRowHighlight">邮件</td>
<td width="104" nowrap class="forumRowHighlight">加入时间</td>
</tr>
<tr bgcolor="#FFFFFF">
<td colspan="7" >
<%
'分页内容
dim n,pagename,keyword,maxpagecount,TotalNumber
dim pagestart,pageend,strurl,ii
keyword=Trim(Request("keyword"))
if not isempty(request("page")) then
CurrentPage=cint(request("page"))
else
CurrentPage=1
end if
Set Rs = Server.CreateObject("ADODB.Recordset")
const MaxPerPage = 15 '每页显示数
pagename = "Vip_User.asp"
if not isnull(keyword) and keyword<>"" then
keyword=replace(replace(replace(keyword,"'","‘"),"<","<"),">",">")
sql="select * from "&Gaobei_DBTable&" where "&Gaobei_UserGrade&"=1 and "&Gaobei_IsActive&"=true and "&Gaobei_UserName&" like '%"&keyword&"%'"
sql=sql&" order by "&Gaobei_UserID&" desc"
else
sql = "select * from "&Gaobei_DBTable&" where "&Gaobei_UserGrade&"=1 and "&Gaobei_IsActive&"=true order by "&Gaobei_UserID&" desc"
end if
Rs.OPEN sql, Conn_User,1,3
if not(Rs.BOF or Rs.EOF) then
Rs.pagesize = MaxPerPage
maxpagecount=Rs.pagecount '记录总页数
TotalNumber=cint(Rs.RecordCount)'记录总数
Rs.absolutepage = CurrentPage '当前页数
ii=0
'显示多少页
pagestart=CurrentPage-3
pageend=CurrentPage+3
n=CurrentPage
if pagestart<1 then
pagestart=1
end if
if pageend>maxpagecount then
pageend=maxpagecount
end if
if n<maxpagecount then
n=maxpagecount
end if
%>
</td>
</tr>
<form name="selform" method="post" >
<% do while not Rs.eof and ii <Rs.pagesize %>
<tr height=30 bgcolor=#FFFFFF onmouseover=javascript:this.bgColor='#FFFBD6' onmouseout=javascript:this.bgColor='#FFFFFF'>
<td align=left nowrap class="forumRow"> <%=rs(Gaobei_UserName)%></a></td>
<td align=left nowrap class="forumRow"> <%=rs(Gaobei_UserEmail)%></td>
<td align=left nowrap class="forumRow"> <%=DateTimeFormat(rs(Gaobei_JoinDate),1)%></td>
</tr>
<%
Rs.movenext
ii=ii+1
loop
set Rs=nothing
%>
<%else%>
<p align="center">
<br>
暂时还没有VIP用户</p>
<%end if%>
</form>
<tr bgcolor="#FFFFFF">
<td colspan="7" class="forumRow"> <%call showpage()%> </td>
</tr>
</table>
</BODY></HTML>
<%sub showpage()%>
<table width="96%" border="0" align="center" cellpadding="0" cellspacing="2">
<tr><form method="POST" action="<%=PageName%>" >
<td class="td1" align="center">共有<%=TotalNumber%>位用户 <a href=<%=PageName%>?page=1 title=返回第一页><font face="Webdings">97</font></a> <% for i=pagestart to pageend
if i=0 then
i=1
end if
strurl="<a href="&pagename&"?page="&i&" title=第"&i&"页>["&i&"]</a>"
response.write strurl
response.write " "
next
%><a href=<%=PageName%>?page=<%=maxpagecount%> title=尾页><font face="Webdings">8:</font></a> 页次:<font color=red><%=CurrentPage%></font> / <%=maxpagecount%>页 每页:<%=MaxPerPage%>
转到:<select name='page' align="absmiddle" size='1' style="font-size: 9pt" onChange='javascript:submit()'>
<%for i = 1 to n%>
<option value='<%=i%>' <%if CurrentPage=cint(i) then%> selected <%end if%>>第<%=i%>页</option>
<%next%>
</select>
</td></form>
</tr>
</table>
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="500" height="50">
<tr>
<td valign="top">
<p align="center"><hr width="90%" size="1">
<span style="letter-spacing: 3pt"><font color="#FF0000">本站全体工作人员向你们给予高贝系统的支持与帮助表示衷心的感谢！</font></span></td>
</tr>
</table>
</div>
<% end sub %>
<!-- 新闻文章结束-->
</td>
</tr>
</table>
</div>
</td>
</tr>
</table>
</div>
<!--#include file="Gaobei_foot.asp" -->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -