📄 uploadpic.asp
字号:
<!--#INCLUDE FILE="conn.asp" -->
<!--#INCLUDE FILE="const.asp" -->
<!--#INCLUDE FILE="char.asp" -->
<!--#INCLUDE FILE="checkuser.asp" -->
<!--#INCLUDE FILE="theme.asp" -->
<html><head>
<meta NAME=GENERATOR Content="Microsoft FrontPage 4.0" CHARSET=GB2312>
<title><%=SchoolmateName%>——照片上载</title>
<link rel=stylesheet type=text/css href=txl.css>
</head>
<body alink=#333333 vlink=#333333 link=#333333 topmargin=0 bgcolor=<%=bodycolor%>>
<%
if request("action")="upload" then
dim upload,file,rs
dim founderr,Errmsg
call uploadphoto()
else
call showupform()
end if
set rs=nothing
call endconnection()
sub uploadphoto()
%>
<!--#INCLUDE FILE="script/upload.inc" -->
<%
if UploadFlag=false then
Errmsg=Errmsg+"<br>"+"<li>上传文件失败，系统管理员禁止使用此项功能."
call error()
else
set upload=new upload_5xSoft
if upload.form("remark")="" then
Errmsg=Errmsg+"<br>"+"<li>请输入图片说明."
founderr=true
else
remark=trim(upload.form("remark"))
end if
set file=upload.file("UpFile")
fileExt=lcase(right(file.filename,4))
if file.filesize<100 then
Errmsg=Errmsg+"<br>"+"<li>请先选择你要上传的文件."
founderr=true
elseif fileEXT<>".gif" and fileEXT<>".jpg" then
Errmsg=Errmsg+"<br>"+"<li>所要上传文件的格式错误！."
founderr=true
elseif file.filesize>MaxPhotoSize then
Errmsg=Errmsg+"<br>"+"<li>文件大小超过了"&MaxPhotoSize/1024&"K限制."
founderr=true
end if
if founderr=true then
call error()
else
if right(PhotoPath,1)<>"/" then PhotoPath=PhotoPath&"/"
datetime=year(date)&month(date)&day(date)&hour(now)&minute(now)&second(now)
filename=datetime&file.FileName
file.SaveAs Server.mappath(PhotoPath&FileName)
name=upload.form("name")
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open "photo",conn,1,3
rs.addnew
rs("filename")=filename
rs("filesize")=file.filesize
rs("type")=upload.form("pictype")
rs("datetime")=now()
rs("name")=name
rs("remark")=remark
rs("classid")=clng(upload.form("picloc"))
rs.update
rs.close
StrSQL = "update [student] set point=point+"&pAddPhoto&" where userid='"&name&"'"
conn.execute(StrSQL)
call success()
end if
set file=nothing
set upload=nothing
end if
end sub
sub showupform()
StrSQL = "select realname from student where userid='"&membername&"'"
set rs=conn.execute(StrSQL)
%>
<!--#INCLUDE FILE="script/sendnow.inc" -->
<div id="sponsorAdDiv" style="visibility:hidden">
<table width="300" height="50" bgcolor="<%=tablebordercolor%>" border=0 cellspacing=1><tr><td>
<table width="100%" height="100%" border=0 cellspacing=0><tr bgcolor="<%=tablebodycolor1%>"><td>
正在上传图片，请稍候......
</td></tr></table></td></tr></table></div>
<table border="0" cellspacing="1" width="100%">
<tr>
<td>
<table border="0" cellspacing="1" width="100%">
<tr>
<td align="center"><br>
</p>
<script language=javascript src=script/jsfun.js></script>
<form name="frmupload" action="uploadpic.asp?action=upload" method="post" enctype="multipart/form-data" onsubmit="submitonce(this);initAd();">
<input type="hidden" name="name" value="<%=membername%>">
<table border="0" cellspacing="1" width="470" cellpadding="4"
bgcolor="<%=tablebordercolor%>">
<tr bgcolor="<%=tabletitlecolor%>">
<td height="20" align="center" colspan=2>
<IMG SRC="IMAGES/upload.gif" WIDTH="149" HEIGHT="36" BORDER=0 ALT=""></td>
<tr bgcolor="<%=tablebodycolor2%>">
<td height="13" colspan=2><table width=100% border=0 cellspacing=16><tr><td><FONT color=#284654><SPAN
style="FONT-SIZE: 9pt"><b>注意事项：</b><BR>1. 请不要在此发布违反计算机信息网络安全相关条例的有害信息，一经发现，后果自负！<BR>2. 请不要在此发布和与本站内容无关的照片（如卡通、壁纸、电影剧照、海报、明星、球星、宠物、植物等），一经发现，立即删除。<BR>3. 仅接受.jpg
和.gif格式的图片，且文件名必须以.jpg或.gif为后缀,大小不超过<font color=brown><%=MaxPhotoSize/1024%>K</font>字节。<BR></SPAN></FONT></td></tr></table></td>
</tr>
<tr bgcolor="<%=tablebodycolor2%>">
<td height="13" width=100 align=right>提 供 者 </td><td>
<%=htmlencode(rs("realname"))%></td>
</tr>
<tr bgcolor="<%=tablebodycolor2%>">
<td height="13" align=right>照片说明 </td><td> <input size="41" name="remark" maxlength=30></td>
</tr>
<tr bgcolor="<%=tablebodycolor2%>">
<td height=13 align=right>照片位置 </td>
<td> <INPUT
type=file size=30 name=UpFile></td>
</tr>
<tr bgcolor="<%=tablebodycolor2%>">
<td height="13" align=right>照片类型 </td>
<td> <select name=pictype>
<option value=校园风光> 校园风光 </option>
<option value=同学合影> 同学合影 </option>
<option value=个人照片> 真我风采 </option>
<option value=其它照片> 其它照片 </option>
</select></td>
</tr>
<tr bgcolor="<%=tablebodycolor2%>">
<td height="13" align=right>上传位置 </td><td> <input type=text value="<%=clsid%>" name="picloc"><input type=radio name="loc" value="<%=clsid%>" checked onclick="document.forms[0].picloc.value=<%=clsid%>">班级相册 <input type=radio name="loc" value="0" onclick="document.forms[0].picloc.value=0">学校相册</td>
</tr>
<tr bgcolor="<%=tablebodycolor2%>">
<td height="13" colspan=2><table width=100% cellspacing=13><tr><td>如果你的图片文件较大或网络速度太慢，上载过程可能要一段时间，请耐心等待！</td></tr></table></td>
</tr>
<tr bgcolor="<%=tabletitlecolor%>">
<td height="30" align="center" colspan=2><input
style="WIDTH: 90px; HEIGHT: 20px" type="submit" value="开始上载" name="upsubmit">
</td>
</tr>
</table>
</form>
</td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>
<%end sub
sub success()
%>
<br><br>
<table cellpadding=0 cellspacing=0 border=0 width=75% align=center bgcolor=<%=tablebordercolor%>>
<tr>
<td>
<table cellpadding=3 cellspacing=1 border=0 width=100%>
<tr align="center">
<td width="100%" bgcolor=<%=tabletitlecolor%>>成功：上载照片</td>
</tr>
<tr align="center">
<td width="100%" bgcolor=<%=tablebodycolor2%>><br> 您的照片已经成功上载，并收藏在同学录相册中。</b><br><br>
</td>
</tr>
<tr align="center">
<td width="100%" bgcolor=<%=tabletitlecolor%>>
<a href="javascript:history.go(-1)"> << 返回上一页</a>
</td>
</tr>
</table>
</td>
</tr>
</table>
<%
end sub
%>
<!--#INCLUDE FILE="footer.asp" -->
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -