📄 showpic.asp
字号:
<!--#include file="syssetup.asp"-->
<!--#include file="inc/func.INC"-->
<%
userid=session("myuserid")
password=session("mypwd")
keytype=Request.QueryString ("keytype")
if keytype="" then
keytype="all"
end if
%>
<html>
<head>
<title>班级相册</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="jscs/css.CSS" type=text/css rel=stylesheet>
</head>
<script language="JavaScript" src="jscs/pop_pic.js"></script>
<script language="VBScript" src="jscs/LOAD.JS"></script>
<body topmargin=0>
<%bgcolor="#CED8CA"%>
<!--#include file='header.inc'-->
<br>
<TABLE width='98%' border=0 align="center" cellPadding=0 cellSpacing=0>
<TBODY>
<TR><!--class_albumleft.inc-->
<TD vAlign=top width=24 background="IMAGES/bg1.gif"
height="100%"><BR><BR><BR><BR><BR><BR><IMG src="IMAGES/alumni1.gif" width="24" height="210" align="top"><img src="IMAGES/corner1.gif" width="24" height="179"> </TD>
<TD vAlign=top align=middle width=66 background="IMAGES/bg2.gif"
height="100%"><div align="center"><IMG src="IMAGES/class_album1.gif" width="67" height="159">
<IMG src="IMAGES/album_idxbtn.gif" width="31" height="31" vspace=6 border=0><BR>
<a href="showpic.asp"><FONT color=#ffff99>相册首页</FONT></a><BR>
<IMG src="iMAGES/addpic_btn.gif" width="31" height="31" vspace=6 border=0><BR>
<a href="addpic.asp"><FONT color=#ffff99>上传图片</FONT></a>
<IMG src="IMAGES/album_manbtn.gif" width=31 vspace="6"><br>
<FONT color=#ffff99>相册管理</FONT><BR>
<IMG src="IMAGES/back_btn.gif" width=31 vspace=6 border=0><BR>
<a href="main.asp"><FONT color=#ffff99>返回班级</FONT></a><BR>
</div></TD><!--end class_albumleft.inc-->
<TD vAlign=top width=680>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD bgColor=#b23f3c height=2></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD vAlign=top align=middle width=298 bgColor=#f1efd9><BR><BR>
<BR>
<TABLE cellSpacing=0 cellPadding=0 width="40%" border=0>
<TBODY>
<TR align=middle>
<TD><IMG height=100 width=140 src="images/9872.jpg"
border=1><BR><BR></TD></TR>
<TR>
<TD class=linespace>四年寒窗，学业有成<br>
一帆风顺，事业有成</TD>
</TR>
<TR>
<TD align=right>-----王世瑗</TD>
</TR></TBODY></TABLE>
<br>
<table width="80%" border="0" align="center" cellpadding="1" cellspacing="0" bgcolor="#ffffff">
<tr>
<td><table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#DDDDDD">
<tr>
<td height="17"><div align="center">:::相册统计:::</div></td>
</tr>
</table></td>
</tr>
</table>
<table width="90%" border="0" align="center" cellpadding="5" cellspacing="3" bgcolor="#f1efd9">
<tr>
<td width="50%"><div align="right"><img src="IMAGES/arrow1.gif" width="12" height="7">相片总数
: </div>
<div align="left"></div></td>
<td width="50%"><%=allphotoes("all")%>张</td>
</tr>
<tr>
<td><div align="right"><img src="IMAGES/arrow1.gif" width="12" height="7">校园风光
: </div>
<div align="left"></div></td>
<td><%=allphotoes("校园风光")%>张</td>
</tr>
<tr>
<td><div align="right"><img src="IMAGES/arrow1.gif" width="12" height="7">同学合影
: </div>
<div align="left"></div></td>
<td><%=allphotoes("同学合影")%>张</td>
</tr>
<tr>
<td><div align="right"><img src="IMAGES/arrow1.gif" width="12" height="7">真我风采
: </div></td>
<td><%=allphotoes("个人照片")%>张</td>
</tr>
<tr>
<td height="26"><div align="right"><img src="IMAGES/arrow1.gif" width="12" height="7">其他相片
: </div></td>
<td><%=allphotoes("其它照片")%>张</td>
</tr>
<tr>
<td height="26"><div align="right"><img src="IMAGES/arrow1.gif" width="12" height="7">新进相片
:</div></td>
<td><%=lastone("classpic","remark","posttime")%></td>
</tr>
</table>
<p><table width="80%" border="0" align="center" cellpadding="1" cellspacing="0" bgcolor="#ffffff">
<tr>
<td><table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#DDDDDD">
<tr>
<td height="17"><div align="center">:::选择浏览类型:::</div></td>
</tr>
</table></td>
</tr>
</table>
<p align="center"><table width="50%" border="0" align="center" cellpadding="0" cellspacing="0">
<form name="form1" method="get" action="showpic.asp"><tr>
<td height="17"><div align="center">
<select name="keytype">
<option value=all> 所有照片 </option>
<option value=校园风光> 校园风光 </option>
<option value=同学合影 selected> 同学合影 </option>
<option value=个人照片> 真我风采 </option>
<option value=其它照片> 其它照片 </option>
</select> <input type="submit" value="Go"><br><br></div></td></tr></form>
</table></p></TD>
<TD width=4 background="IMAGES/bg4.gif"></TD>
<TD vAlign=top align=middle width=374 bgColor=#ced8ca>
<%dim rs,sql
set rs=server.createobject("adodb.recordset")
if keytype="all" then
sql="select classpic.*,txluser.truename from [classpic],[txluser] where txluser.userid=classpic.name order by picid desc"
else
sql="select classpic.*,txluser.truename from [classpic],[txluser] where txluser.userid=classpic.name and classpic.type='"&keytype&"' order by picid desc"
end if
rs.open sql,conn,1,1
if rs.eof and rs.bof then
%><BR><BR>目前没有相片
<%
else
Rs.Pagesize =10
Pageno = CLng(Request("page")) '取得用page信息，并处理
If Pageno < 1 Then Pageno = 1
If Pageno > Rs.PageCount Then Pageno = Rs.PageCount
If pageNo = "" Then Pageno = 1
%>
<TABLE cellSpacing=5 cellPadding=5 width="80%" border=0>
<TBODY>
<TR>
<TD width="45%">
<%if keytype="all" then
%><IMG
src="IMAGES/classmatesbtn.gif" width="21" height="21" hspace=2 align=absMiddle>所
有 相 片
<%elseif keytype="校园风光" then%>
<IMG
src="IMAGES/school.gif" width="21" height="21" hspace=2 align=absMiddle>校 园 风 光
<%elseif keytype="同学合影" then%>
<IMG
src="IMAGES/classmatesbtn.gif" width="21" height="21" hspace=2 align=absMiddle>同 学 合 影
<%elseif keytype="个人照片" then%>
<IMG
src="IMAGES/school.gif" width="21" height="21" hspace=2 align=absMiddle>真 我 风 采
<%else%>
<IMG
src="IMAGES/school.gif" width="21" height="21" hspace=2 align=absMiddle>其 它 照 片
<%end if%>
</TD>
<form name="form2" method="get" action="showpic.asp"><TD align=right>
第<select name="page">
<%
For I = 1 To Rs.PageCount
Response.Write "<option>" & I & "</option>"
Next
%>
</select>
<input type="hidden" name="keytype" value="<%=keytype%>">页 <input type="submit" value="Go">
</TD></form>
</TR>
<%
Sub Showpage(Rs,pageno) '接受参数，显示记录
Rs.AbsolutePage = Pageno
for i=1 to 5
if rs.eof then
exit for
end if
%><TR align=right>
<TD><a href=javascript:doPopUp("look.asp?id=<%=rs("picid")%>")><IMG class=hand
style="BORDER-LEFT-COLOR: #426e72; BORDER-BOTTOM-COLOR: #426e72; BORDER-TOP-COLOR: #426e72; BORDER-RIGHT-COLOR: #426e72"
height=70 src="photo/<%=rs("filename")%>" width=95
border=1 dypop="图片名称:<%=rs("remark")%><br>所有者:<%=rs("name")%><br>描述:<%=rs("detail")%>" dyclass="red"></A></TD>
<%rs.movenext
if rs.eof then
exit for
end if
%>
<TD><a href=javascript:doPopUp("look.asp?id=<%=rs("picid")%>")><IMG class=hand
style="BORDER-LEFT-COLOR: #426e72; BORDER-BOTTOM-COLOR: #426e72; BORDER-TOP-COLOR: #426e72; BORDER-RIGHT-COLOR: #426e72"
height=70 src="photo/<%=rs("filename")%>" width=95
border=1 dypop="图片名称:<%=rs("remark")%><br>所有者:<%=rs("name")%><br>描述:<%=rs("detail")%>" dyclass="red"></A></TD>
</TR>
<%
rs.movenext
next
end sub
%>
<% showpage rs,pageno %>
</TBODY>
</TABLE><%end if%>
<br>
</TD>
<TD width=4 bgColor=#9a9e8a></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
<TABLE width=98% border=0 align="center" cellPadding=0 cellSpacing=0>
<TBODY>
<TR>
<TD bgColor=#9a9e8a height=3></TD></TR></TBODY></TABLE>
</body>
<!--#include file="inc/footer.inc"-->
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -