<% dim gettxt gettxt="where vipface=1 " set rs=Server.CreateObject("ADODB.Recordset") rsppl="select * from Users "&gettxt&" order by id desc" rs.open rsppl,conn,1,1 If Not rs.eof Then Dim PageSize,i PageSize=10 Dim Count,page,pagecount,gopage gopage="vippst.asp?p="&p&"&sid="&sid&"&" Count=rs.recordcount page=int(request.QueryString ("page")) if page<=0 or page="" then page=1 pagecount=(count+pagesize-1)\pagesize if page>pagecount then page=pagecount rs.move(pagesize*(page-1)) For i=1 To PageSize If rs.eof Then Exit For Response.write ""&i+(page-1)*PageSize&"." Response.write ""&ubb(rs("name"))&"(ID:"&usb(rs("id"))&")" if rs("vipdate")<>""then txtname="自定义" else txtname="系统定" end if if rs("vipdj")<>0 then Response.write txtname&"
" else Response.write txtname&"
" end if rs.moveNext Next if page-pagecount<0 then response.write "下页" if page>1 then response.write "上页" if pagecount>1 then response.write "
"&page&"/"&pagecount&"页跳转" Else Response.write "暂时没有VIP会员！" end if rs.close set rs=nothing conn.close set conn=Nothing %>VIP会员除了有足够<%=getcent%>和经验自动生成还可以自行添加。
自定义-->自行添加的VIP会员
系统定-->足够<%=getcent%>和经验自动生成
星星图-->一个星代表VIP一级
[添加VIP会员]