upphoto.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


sql="select * from user where username='"&HTMLEncode(Request.Cookies("username"))&"'"
rs.Open sql,Conn,1,3



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 > 30720 then
error2("文件大小不得超过 30 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/upphoto/"&rs("id")&".jpg")
set FileUP=nothing

rs("userphoto")="../upphoto/"&rs("id")&""
rs.update
rs.close

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
else




if upl.TotalBytes > 30720 then
error2("图片大小不得超过 30 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



upl.SaveAs Server.mappath("images/upphoto/"&rs("id")&".jpg")
set upl=nothing

rs("userphoto")=rs("id")
rs.update
rs.close

succtitle="照片上传成功"
message=message&"<li><a href=upphoto.asp>返回上传照片</a><li><a href=Default.asp?menu=listtitle>返回论坛首页</a>"
succeed(""&message&"<meta http-equiv=refresh content=3;url=upphoto.asp>")
end if
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>

<table width="98%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>

<td align="center" valign="top" width="814">

<table width="606" border="0" align="center" cellpadding="0" cellspacing="0">
<tr align="right">
<td colspan="2" width="586">　 <strong>这张照片还不赖吧？</strong> <strong> 　</strong></td>
</tr>

<tr>
<td >
<table width="100%" border="0" cellspacing="0" cellpadding="16" height="116">
<form enctype=multipart/form-data method=post action=upphoto.asp?menu=up>

<tr>
<td height="53">一、请点取下面的“浏览”按键选择您要上传的照片<br>　　(尺寸：<b>200</b> X <b>150</b>象素 <b>30</b>K以内)：</span>
<br><br>
<input type=file name="file" size=28>     <br>　　　　　　　　<input type=submit name="Submit" value=" 提 交 "></td>
</tr></form>
<tr align="center">
</form>
</tr>
<tr>
<td height="32">二、如果您对已上传的照片不满意，可以重复上边步骤。</td>
</tr>
<tr>
<td align="center" height="1">= <a href=javascript:history.back()>返 回</a> =</td>
</tr>
</table>
</td>
<td align="center" width="298">
<table border="0" cellspacing="0" cellpadding="0">
<tr>
<td rowspan="3">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<table border="0" cellspacing="0" cellpadding="0" width="200" height="150">
<tr>
<td colspan="3">
<img border="0" width="200" height="150" src="images/upphoto/<%=rs("userphoto")%>.jpg"></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>

<%
rs.close
htmlend
%>