index.asp

基于asp的 班级同学录主页源代码

<!--#include file="connpic.asp"-->
<!--#include file="../const.asp"-->
<%if session("user")="" then
response.redirect "../err.asp"
end if%>
<% dim rs,sql
set rs=server.createobject("ADODB.recordset")
sql="select * from images where id>0 and deleted=1 order by id desc"
rs.open sql,conn,1,1
if not rs.bof and not rs.eof then
rs.movefirst
lastuser=rs("user")
lastid=rs("id")
end if
totalcount=rs.recordcount
rs.close%>
<!--#include file="top.asp"-->
<TABLE border=0 cellPadding=0 cellSpacing=0 width=100% class=zy>
<TBODY>
<TR>
<TD background="image/bg1.gif" height="100%" vAlign=top
width=24><BR><BR><BR><BR><BR><BR><IMG
src="image/alumni1.gif"><IMG
src="image/corner1.gif"> </TD>
<TD align=middle background="image/bg2.gif" height="100%"
vAlign=top width=66><IMG src="image/class_album1.gif"> <IMG
border=0 src="image/album_idxbtn.gif" vspace=6><BR><a href="index.asp"><FONT
color=#cccccc>相册首页</FONT></a><BR><IMG border=0 height=31
src="image/modrec_btn.gif" vspace=6 width=31><BR><a href="update.asp"><FONT
color=#cccccc>更新记录</FONT></a><BR><IMG border=0
src="image/addpic_btn.gif" vspace=5><BR><a href="sendphoto.asp"><FONT
color=#cccccc>添加图片</FONT></a><BR><IMG border=0
src="image/addfile_btn.gif" vspace=5><BR><a href="addfile.asp"><FONT
color=#cccccc>添加文件</FONT></a><BR><IMG height=31
src="image/album_manbtn.gif" width=31> <BR><a href="user.asp"><FONT
color=#cccccc>相册管理</FONT></a><BR><IMG border=0 height=31
src="image/back_btn.gif" vspace=5 width=31><BR><a href="../main.asp"><FONT
color=#cccccc>返回班级</FONT></a><BR></TD>
<TD vAlign=top width=680>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
<TBODY>
<TR>
<TD bgColor=#b23f3c height=2></TD></TR></TBODY></TABLE>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
<TBODY>
<TR>
<TD align=middle bgColor=#f1efd9 vAlign=top width=298><BR><BR><BR>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="90%">
<TBODY>
<TR align=middle>
<TD>本相册现有图片 <%=totalcount%> 张<BR><IMG src="image/line1.gif"
vspace=12><BR><IMG src="image/arrow1.gif"> 最近更新 :
<%=lastuser%><BR><IMG src="image/line1.gif"
vspace=12><BR><A
href="openimg.asp?id=<%=lastid%>"
target=_blank><IMG src="show.asp?id=<%=lastid%>" width=95 height=70 border=0></a><BR><IMG src="image/line1.gif"
vspace=12><BR></TD></TR></TBODY></TABLE><BR>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="40%">
<TBODY>
<TR align=middle>
<TD><IMG border=0 height=76
src="image/skin5_pp.gif" width=112><BR><BR></TD></TR>
<TR>
<TD class=linespace>毕业时候的合影</TD></TR>
<TR>
<TD align=right>-----廖阳</TD></TR></TBODY></TABLE><BR><BR>
<TABLE bgColor=white border=0 cellPadding=0 cellSpacing=1
width="80%">
<TBODY>
<TR align=middle bgColor=#dddddd>
<TD height=20><FONT color=#000000>同  学  录</FONT><FONT
color=#000000> </FONT>个 人 相 册 精 品</TD></TR></TBODY></TABLE><!-- chinaren commend personal album -->
<TABLE border=0 cellSpacing=2 width="95%">
<TBODY>
<TR>
<TD align=middle><A
href="http://superalumni.chinaren.com/class_album_11.htm"
target=_blank><IMG border=0 height=48
src="image/a10.jpg" width=65></A></TD>
<TD style="LINE-HEIGHT: 150%">
<DIV align=left><FONT color=#0000cc>Rocky个人相册</FONT>
<BR>拥有者：齐小石
<BR>张数：54<BR>&nbsp;&gt;&gt;更多精品<BR></DIV></TD></TR></TBODY></TABLE><!-- end of chinaren commend personal album --></TD>
<TD background="image/bg4.gif" width=4></TD>
<TD align=middle bgColor=#ced8ca vAlign=top width=374><BR><BR>
<TABLE border=0 cellPadding=5 cellSpacing=5 width="80%">
<TBODY>
<% dim rs1,sql1
set rs1=server.createobject("ADODB.recordset")
sql1="select * from images where classid='同学合影' and deleted=1 order by id desc"
rs1.open sql1,conn,1,1
if not rs1.bof and not rs1.eof then
rs1.movefirst
id11=rs1("id")
rs1.movenext
if not rs1.eof then
id12=rs1("id")
end if
end if
count1=rs1.recordcount
rs1.close%>
<TR>
<TD><IMG align=absMiddle hspace=2
src="image/classmatesbtn.gif">同 学 合 影(共<%=count1%>张)</TD>
<TD align=right><a href="alumni.asp?classid=同学合影"><img src="image/more.gif" border="0"></a></TD></TR>
<TR align=right>
<TD><A
href="openimg.asp?id=<%=id11%>"
target=_blank><IMG border=1 height=70
src="show.asp?id=<%=id11%>"
style="BORDER-BOTTOM-COLOR: #426e72; BORDER-LEFT-COLOR: #426e72; BORDER-RIGHT-COLOR: #426e72; BORDER-TOP-COLOR: #426e72"
width=95></A></TD>
<TD><A
href="openimg.asp?id=<%=id12%>"
target=_blank><IMG border=1 height=70
src="show.asp?id=<%=id12%>"
style="BORDER-BOTTOM-COLOR: #426e72; BORDER-LEFT-COLOR: #426e72; BORDER-RIGHT-COLOR: #426e72; BORDER-TOP-COLOR: #426e72"
width=95></A></TD></TR>
<% dim rs2,sql2
set rs2=server.createobject("ADODB.recordset")
sql2="select * from images where classid='个人展示' and deleted=1 order by id desc"
rs2.open sql2,conn,1,1
if not rs2.bof and not rs2.eof then
rs2.movefirst
id21=rs2("id")
rs2.movenext
if not rs2.eof then
id22=rs2("id")
end if
end if
count2=rs2.recordcount
rs2.close%>
<TR>
<TD><IMG align=absMiddle hspace=2
src="image/person.gif">个 人 展 示(共<%=count2%>张)</TD>
<TD align=right><a href="alumni.asp?classid=个人展示"><img src="image/more.gif" border="0"></a></TD></TR>
<TR align=right>
<TD><A
href="openimg.asp?id=<%=id21%>"
target=_blank><IMG border=1 height=70
src="show.asp?id=<%=id21%>"
style="BORDER-BOTTOM-COLOR: #426e72; BORDER-LEFT-COLOR: #426e72; BORDER-RIGHT-COLOR: #426e72; BORDER-TOP-COLOR: #426e72"
width=95></A></TD>
<TD><A
href="openimg.asp?id=<%=id22%>" target="_blank"><IMG
border=1 height=70 src="show.asp?id=<%=id22%>"
style="BORDER-BOTTOM-COLOR: #426e72; BORDER-LEFT-COLOR: #426e72; BORDER-RIGHT-COLOR: #426e72; BORDER-TOP-COLOR: #426e72"
width=95></A></TD></TR>
<% dim rs3,sql3
set rs3=server.createobject("ADODB.recordset")
sql3="select * from images where classid='学校风采' and deleted=1 order by id desc"
rs3.open sql3,conn,1,1
if not rs3.bof and not rs3.eof then
rs3.movefirst
id31=rs3("id")
rs3.movenext
if not rs3.eof then
id32=rs3("id")
end if
end if
count3=rs3.recordcount
rs3.close%>
<TR>
<TD><IMG align=absMiddle hspace=2
src="image/school.gif">学 校 风 采(共<%=count3%>张)</TD>
<TD align=right><a href="alumni.asp?classid=学校风采"><img src="image/more.gif" border="0"></a></TD></TR>
<TR align=right>
<TD><A
href="openimg.asp?id=<%=id31%>"
target=_blank><IMG border=1 height=70
src="show.asp?id=<%=id31%>"
style="BORDER-BOTTOM-COLOR: #426e72; BORDER-LEFT-COLOR: #426e72; BORDER-RIGHT-COLOR: #426e72; BORDER-TOP-COLOR: #426e72"
width=95></A></TD>
<TD><A
href="openimg.asp?id=<%=id32%>"
target=_blank><IMG border=1 height=70
src="show.asp?id=<%=id32%>"
style="BORDER-BOTTOM-COLOR: #426e72; BORDER-LEFT-COLOR: #426e72; BORDER-RIGHT-COLOR: #426e72; BORDER-TOP-COLOR: #426e72"
width=95></A></TD></TR>
<% dim rs4,sql4
set rs4=server.createobject("ADODB.recordset")
sql4="select * from images where classid='外面世界' and deleted=1 order by id desc"
rs4.open sql4,conn,1,1
if not rs4.bof and not rs4.eof then
rs4.movefirst
id41=rs4("id")
rs4.movenext
if not rs4.eof then
id42=rs24("id")
end if
end if
count4=rs4.recordcount
rs4.close%>
<TR>
<TD><IMG align=absMiddle hspace=2
src="image/outside.gif">外 面 世 界(共<%=count4%>张)</TD>
<TD align=right><a href="alumni.asp?classid=外面世界"><img src="image/more.gif" border="0"></a></TD></TR>
<TR align=right>
<TD><A
href="openimg.asp?id=<%=id41%>"
target=_blank><IMG border=1 height=70
src="show.asp?id=<%=id41%>"
style="BORDER-BOTTOM-COLOR: #426e72; BORDER-LEFT-COLOR: #426e72; BORDER-RIGHT-COLOR: #426e72; BORDER-TOP-COLOR: #426e72"
width=95></A></TD>
<TD><A
href="openimg.asp?id=<%=id42%>"
target=_blank><IMG border=1 height=70
src="show.asp?id=<%=id42%>"
style="BORDER-BOTTOM-COLOR: #426e72; BORDER-LEFT-COLOR: #426e72; BORDER-RIGHT-COLOR: #426e72; BORDER-TOP-COLOR: #426e72"
width=95></A></TD></TR></TBODY></TABLE></TD>
<TD bgColor=#9a9e8a width=4></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
<TABLE border=0 cellPadding=0 cellSpacing=0 width=100% class=xzy>
<TBODY>
<TR>
<TD background="image/bg1.gif" width=24></TD>
<TD width=66><IMG src="image/corner2.gif"></TD>
<TD background="image/bg6_a.gif" width=299></TD>
<TD background="image/bg6_c.gif" width=4></TD>
<TD background="image/bg6_b.gif" width=369></TD>
<TD bgColor=#9a9e8a width=4></TD></TR></TBODY></TABLE>
<%conn.close
set conn=nothing%>
<!--#include file="../end.asp"-->