⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 phbook.asp

📁 一个超级漂亮的班级主页asp代码
💻 ASP
字号:
🔍 
<!--插入html头部分以及数据库接口-->
<!--#include file="in_conn.asp"-->


<body>
<!--插入网站置顶-->
<% if u_name="" then
	Response.Redirect "log_err.asp"
else
%>
<!--#include file="in_topmb.asp"-->
<% end if %>

<%
'判断用户权限
IF u_power=0 THEN
	Response.Redirect "resp.asp?cmd=id_wait"
END IF
%>
<Script language="javascript">
function fanye(){
var strfanye;
	strfanye='phbook.asp?page='+txtfanye.value;
	location.href(strfanye);
}
</Script>

<table align="center" width="700" height="25" border="0" cellspacing="0" cellpadding="0" class="rdbar"><tr>
	<td width="25%" height="100%">
		&nbsp;<a href="index.asp">[首页]</a>-<a href="phbook.asp">[班级相册]</a>
	</td>
	<td align="right">
		跳到:<input type="text" ID="txtfanye" name="txtfanye" size="4" maxlength="5" class="kong" onKeypress="if (event.keyCode < 48 || event.keyCode > 57) event.returnValue=false;">页
		&nbsp;<input type="button" name="btnfan" value=" GO " class="an" onClick="JavaScript:fanye();" style="line-height:12px; font-size:12px; height:15px" align="absmiddle">

		&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="ph_seek.asp"><img src="img/seek.gif" border="0" hspace="0" vspace="0" align="absmiddle" alt="搜索照片"></a>&nbsp;
	</td>
</tr></table>


<%
'分页的统计
dim rdcount,pgcount,pgsize
pgsize=6
rdcount=conn.Execute("SELECT COUNT(p_ID) FROM tblphoto WHERE p_belong<0",0,1)(0)
pgcount=Abs(Int(rdcount/pgsize*(-1)))

'获取传值
dim curpage
curpage=Request.QueryString("page")

IF isNumeric(Request.QueryString("page")) THEN
	curpage=CLng(curpage)
	if curpage<1 OR curpage>pgcount then
		curpage=1
	end if
ELSE
	curpage=1
END IF

%>

<%
dim colnum,colmid,pg_i
'定义显示快捷页个数
colnum=5
colmid=colnum\2
'生成快捷页的函数
Sub PageQuick()
%>

<% if rdcount>0 then %>
<a href="phbook.asp?page=1"><font face="webdings" title="头页">9</font></a>
<% else %>
<font face="webdings" title="头页">9</font>
<% end if %>

<% If curpage>1 Then %>
<a href="phbook.asp?page=<% =curpage-1 %>"><font face="webdings" title="上页">7</font></a>
<% Else %>
<font face="webdings" title="上页">7</font>
<% End if %>

<%
'前省略号的使用
if pgcount>colnum AND curpage-colmid>1 then
	Response.Write "…"
end if

IF pgcount<colnum THEN
	for pg_i=1 to pgcount
		if pg_i<>curpage then
			response.write "<a href=phbook.asp?"&"page="&pg_i&">["&pg_i&"]</a>"
		else
			response.Write "["&pg_i&"]"
		end if
	next
ELSEIF curpage-1>=colmid AND pgcount-curpage>=colmid THEN
	for pg_i=curpage-colmid to curpage+colmid
		if pg_i<>curpage then
			response.write "<a href=phbook.asp?"&"page="&pg_i&">["&pg_i&"]</a>"
		else
			response.Write "["&pg_i&"]"
		end if
	next
ELSEIF curpage-1>=colmid AND pgcount-curpage<colmid THEN
	for pg_i=pgcount-colnum+1 to pgcount
		if pg_i<>curpage then
			response.write "<a href=phbook.asp?"&"page="&pg_i&">["&pg_i&"]</a>"
		else
			response.Write "["&pg_i&"]"
		end if
	next
ELSE
	for pg_i=1 to 5
		if pg_i<>curpage then
			response.write "<a href=phbook.asp?"&"page="&pg_i&">["&pg_i&"]</a>"
		else
			response.Write "["&pg_i&"]"
		end if
	next
END IF

'后省略号的使用
if pgcount>colnum AND curpage+colmid<pgcount then
	Response.Write "…"
end if
%>

<% If curpage<pgcount Then %>
<a href="phbook.asp?page=<% =curpage+1 %>"><font face="webdings" title="下页">8</font></a>
<% Else %>
<font face="webdings" title="下页">8</font>
<% End if %>

<% if rdcount>0 then %>
<a href="phbook.asp?page=<% =pgcount %>"><font face="webdings" title="尾页">:</font></a>
<% else %>
<font face="webdings" title="尾页">:</font>
<% end if %>

&nbsp;班级相册共有照片<font color="<% =cohover %>"><% =rdcount %></font>张&nbsp;分为<font color="<% =cohover %>"><% =pgcount %></font>页&nbsp;每页<font color="<% =cohover %>"><% =pgsize %></font>张&nbsp;第<font color="<% =cohover %>"><% =curpage %></font>页&nbsp;
<%
End Sub
%>

<table align="center" width="700" height="25" border="0" cellspacing="0" cellpadding="0" class="rdd">
	<tr>
		<td width="120" height="100%">
			&nbsp;<a href="photoup.asp">[↑上传照片]</a>
		</td>
		<td align="right">
			<% call PageQuick() %>
		</td>
	</tr>
</table>

<table align="center" width="700" height="25" border="0" cellspacing="0" cellpadding="0" class="rdkuang">
<%
IF rdcount<1 THEN
%>
<tr><th width="100%" class="rdkuang"><font class="ft1">抱歉，班级相册里目前没有照片！</font></th></tr>

<%
ELSE

sqlstr="SELECT m.ID,m.name,m.sex,m.power,p.* FROM tblmates AS m INNER JOIN tblphoto AS p ON m.name=p.p_author WHERE p.p_belong<0 ORDER BY p.p_idfre DESC"
rs.open sqlstr,conn,1,1

'给分页所需的中间变量赋值
rs.PageSize=pgsize

'当前页转到指定的页码
	rs.AbsolutePage=curpage

'开始读取数据
dim icn_sex
FOR i=1 to pgsize
		If rs.eof Then
			if i mod 2=0 then
				Response.Write "<th width='50%' class='rdkuang'>&nbsp;</th></tr>"
			end if
			EXIT FOR
		End If
	if i mod 2<>0 then
		Response.Write "<tr>"
	end if

	'身份和性别
	IF rs("power")>1 THEN
			icn_sex="img/icn_adm1.gif"
	ELSEIF rs("sex")=True THEN
			icn_sex="img/icn_gg.gif"
	ELSE
			icn_sex="img/icn_mm.gif"
	END IF
	'总管判断
	if DEF_sysadm=rs("name") then
		icn_sex="img/icn_admsys.gif"
	end if
%>
<td align="center" valign="top" width="50%" height="200" class="rdkuang" style="padding:6px;">
上传人：<img src="<% =icn_sex %>" border="0" align="absmiddle">&nbsp;<a href="viewinfo.asp?id=<% =rs("ID") %>" title="点击查看该同学详细资料"><% =rs("name") %></a>
日期：<% =rs("p_date") %>

<table align="center" width="255" height="260" border="0" cellpadding="0" cellspacing="0">
<tr><td width="100%" height="100%" align="center" valign="middle">
		<a href="photoview.asp?id=<% =rs("p_ID") %>" target="_blank"><img src="<% =rs("p_url") %>" width="<% =rs("p_w") %>" height="<% =rs("p_h") %>" alt="点击以原尺寸打开照片" vspace="1" border="0"></a>
</td></tr>
</table>

		<table align="center" width="100%" height="25" border="0" cellpadding="0" cellspacing="0" class="intbl">
		<tr><td width="100%" align="center" valign="top" class="rdbar">
<a href="photoview.asp?id=<% =rs("p_ID") %>" target="_blank">
		品头论足：
		<%

			if rs("p_belong")=-1 then
		%>
			<img src="img/phmark/1.gif" align="absmiddle" border="0">(<b>0</b>)
			<img src="img/phmark/2.gif" align="absmiddle" border="0">(<b>0</b>)
			&nbsp;点击：<% =rs("p_emo") %>
		<%
			else
				if ABS(rs("p_belong"))<100000 then
					phgood=0
					phbad=ABS(rs("p_belong"))-1
				else
					phgood=ABS(rs("p_belong"))\100000
					phbad=(ABS(rs("p_belong")) mod 100000)-1
				end if
		%>
			<img src="img/phmark/1.gif" align="absmiddle" border="0">(<b><% =phgood %></b>)
			<img src="img/phmark/2.gif" align="absmiddle" border="0">(<b><% =phbad %></b>)
			&nbsp;点击：<% =rs("p_emo") %>
<%
			end if
%>
</a>&nbsp;
<a href="photo_del.asp?id=<% =rs("p_ID") %>" title="删除该照片(前提：你必须是照片上传人或者班级管理员)" onClick='javaScript:return confirm("你确定要删除这张照片吗?");'>[删除]</a>
		</td></tr>

		<tr><td width="100%" valign="top" class="rde">
		注语：
		<% 
		if rs("p_tip")="" then
			Response.Write "无"
		else
			Response.Write unhtml(rs("p_tip"))
		end if
		%>
		</td></tr>
		</table>


</td>

<%
	if i mod 2=0 then
		Response.Write "</tr>"
	end if
	rs.MoveNext
Next
rs.close

END IF
%>
</table>

<table align="center" width="700" height="25" border="0" cellspacing="0" cellpadding="0" class="rdd">
	<tr>
		<td width="120" height="100%">
			&nbsp;<a href="photoup.asp">[↑上传照片]</a>
		</td>
		<td align="right">
			<% call PageQuick() %>
		</td>
	</tr>
</table>



<!--插入在线统计-->
<!--#include file="in_online.asp"-->
<!--插入网站置底-->
<!--#include file="in_bottom.asp"-->
</body>

</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -