📄 allface.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
response.Buffer = true
'****************************************************************
'* joinboard BBS Ver2.3.0/友盟论坛 Ver2.3.0
'*
'* 版权所有: JoinBoard V2.3
'*
'* 程序制作: 友盟工作室
'*
'* 主页地址: http://joinboard.com 友盟论坛
'*
'* 论坛地址: http://bbs.joinboard.com/、http://youmeng.com
'*
'****************************************************************
'* Powered by: JoinBoard V2.3
'* Copyright 2003－2004. - All Rights Reserved.
'* JoinBoard is a trademark of YouMeng Studio.
'****************************************************************
%>
<!--#include file="admin/BBSConfig.asp"-->
<!--#include file="INC/online.asp"-->
<!--#include file="INC/ShowMsg.asp"-->
<!--#include file="INC/header.asp"-->
<!--#include file="INC/style.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="keywords" content="joinboard,forum,bbs,youmeng,友盟论坛">
<title><%=BBS_Config(0)%> - 查看所有头像 </title>
<link href="<%=Css_path%>" rel="stylesheet" type="text/css">
</head>
<body leftmargin="0" topmargin="0">
<%
Call onlineuser()
call top()
response.Write "<table border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"" class=""path-table"">"
response.Write "<tr><td>"
response.write "<img src="""& BBS_Skin(3) &"JBB_bullet.gif""> <a href="""& BBSHomeUrl &""">"& BBS_Config(0) &"</a> <img src="""& BBS_Skin(3) &"JBB_bullet.gif""> 所有头像"
response.Write "</td></tr></table>"
set rs = server.CreateObject("adodb.recordset")
rs.open "select pic_Name From JBB_avatars order By ID asc",conn,1,1
if Not(rs.Eof and rs.Bof) then
'page = trim(request.QueryString("page"))
'if Not(IsNumeric(Page)) OR page = "0" then page = 1
'rs.pagesize = 25
'if page > rs.pageCount then page = rs.pageCount
'rs.absolutepage = page
%>
<br>
<table border="0" align="center" cellpadding="3" cellspacing="1" class="table">
<%
For i = 1 to rs.recordCount/5
if rs.Eof then Exit for
%>
<tr>
<%
For j = 1 to 5
if rs.Eof then Exit for
%>
<td class="table-light">
<div align="center"><img src="images/avatars/<%=rtrim(rs(0))%>">
<br><%=rtrim(rs(0))%></div></td>
<%
rs.MoveNext
Next'j
%>
</tr>
<%
Next'i
%>
</table>
<table border="0" align="center" cellpadding="0" cellspacing="0" class="table-noColor">
<tr>
<td height="30">
<%
'for p = 1 to rs.pageCount
'if p = page then
'response.Write(" <font color=red>["& p &"]</font> ")
'else
'response.Write(" <a href=?action=list&page="& p &">["& p &"]</a> ")
'End if
'Next
%> </td>
</tr>
</table>
<br>
<%
else
response.Write("<br><br> 暂时没有任何头像!~")
End if
rs.close
set rs = nothing
'=====================================
Call Bottom()
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -