<%if session("user")="" then
response.redirect "../err.asp"
end if%>
<%
title=request("title")
classid=request("classid")
addinfo=request("addinfo")
set connGraph=server.CreateObject("ADODB.connection")
connGraph.ConnectionString="driver={Microsoft Access Driver (*.mdb)};DBQ=" &server.MapPath("../db/pic.mdb") & ";uid=;PWD=;"
connGraph.Open
set rec=server.createobject("ADODB.recordset")
rec.Open "SELECT * FROM images where id is null",connGraph,1,3
rec.addnew
rec("regtime")=date()
rec("user")=session("user")
rec("title")=title
rec("classid")=classid
rec("addinfo")=addinfo
rec("deleted")="0"
rec.update
session("photoid")=rec("id")
rec.close
set rec=nothing
%>
<!--#include file="conn.asp"-->
<%
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
rs_lar.close
set rs_lar=nothing
conn.close
set conn=nothing
%>
<!--#include file="top.asp"-->
<Script language="javascript">
function mysubmit(theform)
{
if(theform.big.value=="")
{
alert("請(qǐng)點(diǎn)擊瀏覽按鈕，選擇您要上傳的jpg或gif文件!")
theform.big.focus;
return (false);
}
else
{
str= theform.big.value;
strs=str.toLowerCase();
lens=strs.length;
extname=strs.substring(lens-4,lens);
if(extname!=".jpg" && extname!=".gif")
{
alert("請(qǐng)選擇jpg或gif文件!");
return (false);
}
}
return (true);
}
</script>
<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>相冊(cè)首頁(yè)</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>相冊(cè)管理</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>返回班級(jí)</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 enctype="multipart/form-data" action="addpic1.asp" method=post onsubmit="return mysubmit(this)">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="331">
&nbsp&nbsp&nbsp<img src="image/step.gif">第二步：選擇圖片路徑：<br>
</tr><tr>
<td width="62" align="right" height="26">標(biāo)題：</td>
<td width="441" align=left><%=request("title")%> </td>
</tr>
<tr>
<td width="62" align="right" height="26">照片類型：</td>
<td height="26" width="441" align=left><%=request("classid")%></td>
</tr>
<tr>
<td width="62" align="right" height="26">照片說明：</td>
<td width=441 align=left><%=request("addinfo")%></td>
</tr><tr><td>
<input type="file" name="big" class=buttonface>
</td>
</tr>
</table>
<table width=100%><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='同學(xué)合影' and deleted=1 order by id desc"
rs1.open sql1,conngraph,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">同 學(xué) 合 影(共<%=count1%>張)</TD>
<TD align=right><a href="alumni.asp?classid=同學(xué)合影"><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='個(gè)人展示' and deleted=1 order by id desc"
rs2.open sql2,conngraph,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">個(gè) 人 展 示(共<%=count2%>張)</TD>
<TD align=right><a href="alumni.asp?classid=個(gè)人展示"><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='學(xué)校風(fēng)采' and deleted=1 order by id desc"
rs3.open sql3,conngraph,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">學(xué) 校 風(fēng) 采(共<%=count3%>張)</TD>
<TD align=right><a href="alumni.asp?classid=學(xué)校風(fēng)采"><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,conngraph,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>
<% conn.close
set conn=nothing
%>
</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=297></TD>
<TD background="image/bg6_c.gif" width=4></TD>
<TD background="image/bg6_b.gif" width=371></TD>
<TD bgColor=#9a9e8a width=4></TD></TR></TBODY></TABLE>
<center>
</center>
</body>

</html>