upphoto.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("MaxPhotoSize")) then error("<li>图片大小不得超过 "&int(SiteSettings("MaxPhotoSize")/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("UpPhoto/"&id&".jpg")
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("MaxPhotoSize")) then error2("文件大小不得超过 "&int(SiteSettings("MaxPhotoSize")/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="UpPhoto/"&id&".jpg"
file.SaveToFile Server.mappath(filename)
set FileUP=nothing
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
end select

Conn.execute("update [BBSXP_Users] set Userphoto='UpPhoto/"&id&".jpg' where UserName='"&Request.Cookies("UserName")&"'")
Message=Message&"<li>照片上传成功<li><a href=UpPhoto.asp>返回上传照片</a><li><a href=Default.asp>返回论坛首页</a>"
succeed(""&Message&"<meta http-equiv=refresh content=3;url=UpPhoto.asp>")
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
elseif Request("menu")="custom" then

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

Conn.execute("update [BBSXP_Users] set Userphoto='"&Userphoto&"' 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="UpPhoto.asp">上传照片</a></td>
</tr>
</table><br>

<form enctype=multipart/form-data method=Post action=UpPhoto.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 Userphoto From [BBSXP_Users] where UserName='"&Request.Cookies("UserName")&"'")(0)%>" onload='javascript:if(this.width>200)this.width=200'></td>
</tr><tr><td class=a1 height="25" width="70%"><center>自定义照片</td><tr>
<td class=a3 width="70%"><form method=Post action=UpPhoto.asp?menu=custom><center>
	照片URL：<input size="35" value="<%=Conn.Execute("Select Userphoto From [BBSXP_Users] where UserName='"&Request.Cookies("UserName")&"'")(0)%>" name="Userphoto">
<br><br><input type=submit value=" 更 新 "></form></td></table>




<%
htmlend
%>