sendphoto.asp

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

<!--#include file="conn.asp"-->
<%if session("user")="" then
response.redirect "../err.asp"
end if%>
<%
dim rs_lar,rs
dim sql
dim i
Set rs_lar = Server.CreateObject("ADODB.Recordset")
sql="select * from user where user='"& session("user")&"'"
rs_lar.open sql,conn,1,1
if rs_lar.eof and rs_lar.bof then
response.redirect "../err.asp"
response.end
end if
%>
<!--#include file="connpic.asp"-->
<!--#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><br>
<form  action="addpic.asp" method=post>
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="331">
&nbsp&nbsp&nbsp<img src="image/step.gif">第一步：填写相片信息：<br><br>
&nbsp&nbsp&nbsp选择分类:<select name="classid" style="font-size:9pt">
<option value="同学合影">同学合影</option>
<option value="个人展示">个人展示</option>
<option value="学校风采">学校风采</option>
<option value="外面世界">外面世界</option>
</select>
</td>
</tr>
<tr>
<td width="331">
&nbsp&nbsp&nbsp相片主题:<input type="text" name="title" size="16" class=buttonface>
</td>
</tr>
</table>
<table width=100%><tr><td width=200 valign=top>&nbsp&nbsp相片说明:</td><td><textarea name="addinfo" rows="5" cols="20" onmouseover="window.document.form1.addinfo.select();">无</textarea>
</td></tr><tr><td></td>
<td width="337" valign=top>
<p align="center"><font color="#000000" size="2"><input type="image" src="../image/1-sub.gif" name="B3" class=buttomface></font></p>
</td>
</tr>
</table>
</form>
</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=373></TD>
<TD bgColor=#9a9e8a width=4></TD></TR></TBODY>
</TABLE>
<% conn.close
set conn=nothing%>
<!--#include file="../end.asp"-->