upface.asp

很漂亮

<!-- #include file="setup.asp" -->
<!--#include FILE="inc/upfile.asp"-->
<%
top
if Request.Cookies("username")=empty then error("<li>您还未<a href=login.asp>登录</a>社区")

if Request("menu")="up" then
id=Conn.Execute("Select id From [user] where username='"&Request.Cookies("username")&"'")(0)


select case ""&selectup&""
case ""
error("<li>对不起，本系统关闭文件上传功能")
case "SA-FileUp"

Set upl = Server.CreateObject("SoftArtisans.FileUp")
if upl.TotalBytes > int(MaxFace) then error("<li>图片大小不得超过 "&int(MaxFace/1024)&" KB<br>当前的图片大小为 "&int(upl.TotalBytes/1024)&" KB")
if upl.ContentType<>"image/gif" and upl.ContentType<>"image/pjpeg" then error("<li>您上传的头像不是GIF、JPG格式的文件")
upl.SaveAs Server.mappath("images/upface/"&id&".gif")
set upl=nothing

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

if file.filesize = 0 then error2("当前文件为空文件")

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

types=LCase(file.FileExt)
if types <> "gif" and types <> "jpg" then error("<li>对不起，本服务器只支持GIF、JPG格式的文件<li>不支持 "&types&" 格式的文件")
filename="images/upface/"&id&".gif"
file.SaveToFile Server.mappath(filename)
set FileUP=nothing
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

end select


conn.execute("update [user] set userface='images/upface/"&id&".gif' where username='"&Request.Cookies("username")&"'")
message=message&"<li>头像上传成功<li><a href=upface.asp>返回上传头像</a><li><a href=Default.asp>返回论坛首页</a>"
succeed(""&message&"<meta http-equiv=refresh content=3;url=upface.asp>")

elseif Request("menu")="custom" then
userface=HTMLEncode(Request.Form("userface"))
if userface="" then error("<li>头像URL不能没有填写")
if instr(userface,";")>0 or instr(userface,"%")>0 or instr(userface,"javascript:")>0 then error2("URL中不能含有特殊符号")

conn.execute("update [user] set userface='"&userface&"' where username='"&Request.Cookies("username")&"'")

End If

%>

<table border=0 width=97% align=center cellspacing=1 cellpadding=4 class=a2>
<tr class=a3>
<td height=25>&nbsp;<img src=images/Forum_nav.gif>&nbsp; <%ClubTree%> → <a href="upface.asp">上传头像</a></td>
</tr>
</table><br>

<form enctype=multipart/form-data method=post action=upface.asp?menu=up>
<SCRIPT>valigntop()</SCRIPT>
<table width=97% border=0 cellpadding="0" cellspacing="1" class=a2 height="218" align="center"><tr>
	<td class=a1 height="25" width="70%"><p align=center>请点取下面的“浏览”按键选择您要上传的图片</p>
	</td><td class=a1><div align=center>您目前的头像</span></div></td>
</tr><tr><td class=a3 width="70%"><center>
<input type=file name="file" size=33><br><br><input name="Submit" type=submit value=" 确 认 "></form></td>
		<td rowspan=3 class=a3 align="center"><img src="<%=Conn.Execute("Select userface From [user] where username='"&Request.Cookies("username")&"'")(0)%>"></td>
</tr><tr><td class=a1 height="25" width="70%"><center>自定义头像</td><tr>
<td class=a3 width="70%"><form method=post action=upface.asp?menu=custom><center>头像URL：<input size="35" value="<%=Conn.Execute("Select userface From [user] where username='"&Request.Cookies("username")&"'")(0)%>" name="userface">
<br><br><input name="Submit0" type=submit value=" 更 新 "></form></td></table>
<SCRIPT>valignbottom()</SCRIPT>
<%
htmlend
%>