upface.asp

一个超市管理系统

<!-- #include file="setup.asp" -->
<!--#include FILE="upfile"-->

<%
if Request.Cookies("username")="" then
error("<li>您还还未<a href=login.asp>登陆</a>社区")
end if


if instr(Request.ServerVariables("http_referer"),""&Request.ServerVariables("server_name")&"") = 0 then
error("<li>来源错误")
end if

if Request("menu")="up" then

On Error Resume Next
Set upl = Server.CreateObject("SoftArtisans.FileUp")
If -2147221005 = Err Then


''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

set FileUP=new Upload_file 
FileUP.GetDate(-1)
set file=FileUP.file("file")


if file.filesize > 2048 then
error2("文件大小不得超过 2 K\n当前的文件大小为 "&int(file.filesize/1024)&" K")
end if


if LCase(file.FileExt) <> "gif" and LCase(file.FileExt) <> "jpg" then
error2("对不起，本服务器只支持GIF、JPG格式的文件\n不支持 "&file.FileExt&" 格式的文件")
end if

sql="select * from user where username='"&HTMLEncode(Request.Cookies("username"))&"'"
rs.Open sql,Conn,1,3
file.SaveToFile Server.mappath("images/upface/"&rs("id")&".gif")
set FileUP=nothing

rs("userface")="../upface/"&rs("id")&""
rs.update
rs.close

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''


else

if upl.TotalBytes > 2048 then
error2("图片大小不得超过 2 K\n当前的图片大小为 "&int(upl.TotalBytes/1024)&" K")
end if
if upl.ContentType<>"image/gif" and upl.ContentType<>"image/pjpeg" then
error2("您上传的头像不是GIF、JPG格式的文件")
end if

sql="select * from user where username='"&HTMLEncode(Request.Cookies("username"))&"'"
rs.Open sql,Conn,1,3
upl.SaveAs Server.mappath("images/upface/"&rs("id")&".gif")
set upl=nothing

rs("userface")="../upface/"&rs("id")&""
rs.update
rs.close

End If

succtitle="头像上传成功"
message=message&"<li><a href=upface.asp>返回上传头像</a><li><a href=Default.asp?menu=listtitle>返回论坛首页</a>"
succeed(""&message&"<meta http-equiv=refresh content=3;url=upface.asp>")
end if

top
%>

<title>上传头像</title>
<table width=97% align="center" border="0">
<tr>
<td vAlign="top" width="30%"><img src="images/logo.gif" border="0"></td>
<td vAlign="center" align="top">　<img src="images/closedfold.gif" border="0">　<a href=Default.asp?menu=listtitle><%=clubname%></a><br>
　<img src="images/bar.gif" border="0"><img src="images/openfold.gif" border="0">　上传照片</td>
</tr>
</table>
<center>
<form enctype=multipart/form-data method=post action=upface.asp?menu=up>
<table width=530 border=0 cellpadding="0" cellspacing="0"><tr><td width=310 height=54><p align=center><font color=blue>一</font>、请点取下面的“浏览”按键选择您要上传的图片<br>(图片尺寸：<b><font color=red>32</font></b> X <b><font color=red>32</font></b>象素 <font color=red><b>GIF、JPG</b></font>格式)：</span></p>
<p align=center>
<input type=file name="file" size=28></p></td><td width=204 rowspan=2><div align=center><br>
您目前的头像</span></div><div align=center>
<br>
<img border="0" width="32" height="32" src="images/face/<%=userface%>.gif"></div><div align=center><br>
<input type="button" value="刷新" onClick="javascript:window.location.reload();"></div></td>
</tr><tr><td width=310><div align=center><br><font color=blue>二</font>、选择好您要上传的图片后，请按下面的确认键开<br>
始上传... <br></span>
<input name="Submit" type=submit value=" 确 认 "><BR><BR><BR></div></td><tr>
<td width=310><div align=center><font color=blue>三</font>、对已上传头像不满意的用户，可以重新上传新照<br>片覆盖原照，具体操作与首次
上传一致。
</div></span></td><td align=center width=204>
= <a href="javascript:history.back()">返 回</a> =</table></form>
<%
htmlend
%>