upface.asp

感谢您使用BBSXP

<!-- #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 [BBSXP_Users] where UserName='"&Request.Cookies("UserName")&"'")(0)


select case ""&SiteSettings("UpFileOption")&""
case ""
error("<li>对不起，本系统关闭文件上传功能")
case "SoftArtisans.FileUp"

Set upl = Server.CreateObject("SoftArtisans.FileUp")
if upl.TotalBytes > int(SiteSettings("MaxFaceSize")) then error("<li>图片大小不得超过 "&int(SiteSettings("MaxFaceSize")/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("UpFace/"&id&".gif")
set upl=nothing

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
case "Scripting.FileSystemObject"
set FileUP=New Upload_file
FileUP.GetDate(-1)
set file=FileUP.file("file")

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

if file.filesize > int(SiteSettings("MaxFaceSize")) then error2("文件大小不得超过 "&int(SiteSettings("MaxFaceSize")/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="UpFace/"&id&".gif"
file.SaveToFile Server.mappath(filename)
set FileUP=nothing
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

end select


Conn.execute("update [BBSXP_Users] set Userface='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 [BBSXP_Users] set Userface='"&Userface&"' where UserName='"&Request.Cookies("UserName")&"'")

End If

%>

<table border=0 width=100% 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>

<table width=100% 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 type=submit value=" 确 认 "></form></td>
		<td rowspan=3 class=a3 align="center"><img src="<%=Conn.Execute("Select Userface From [BBSXP_Users] 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 [BBSXP_Users] where UserName='"&Request.Cookies("UserName")&"'")(0)%>" name="Userface">
<br><br><input type=submit value=" 更 新 "></form></td></table>

<%
htmlend
%>