upfile.asp

软件介绍：国内最完善功能最齐全的多级会员程序.主要功能涵盖所有多级会员管理所需,超强大会员自定义编辑功能

<!--#include file="post.asp"-->
<%dim upinfor
if request.querystring("action")="upfile" then
		call uploadfile()
else
		
end if

Function FolderPathOver(FilePathOver)		'目录路径合法化
	FilePathOver=replace(FilePathOver,"\","/")
	if left(FilePathOver,1)="/" then FilePathOver=mid(FilePathOver,2)
	if right(FilePathOver,1)<>"/" then FilePathOver=FilePathOver & "/"
	FolderPathOver=FilePathOver
End Function

Function DisFileExt(fileExt)		'判断上传文件类型
	everyfext=split(AbleFileExt,";")
		for i=Lbound(everyfext) to ubound(everyfext)
			if fileExt=right(everyfext(i),3) then
				DisFileExt=True
				exit for
			end if
		next
End Function

sub uploadfile()		'文件上传
	Dim objFSO
	Server.ScriptTimeout=9999999
	Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
	dim fileExt,FileName,fpath
	dim upload,file
	%><!--#INCLUDE FILE="5xsoft.asp"--><%
	set upload=new upload_5xSoft
	set file=upload.file("UpFile")
			FileName=lcase(file.filename)
			fileExt=right(FileName,3)
			if file.filesize<1 then
				upinfor="文件上传失败！您没有选择要上传的文件或文件大小为零字节；"				
			elseif file.filesize>(int(fsize)*1024) then
					upinfor="文件上传失败！您上传的文件大小超过了" & fsize & "KB限制；"		
			elseif Not DisFileExt(fileExt) then
					upinfor="文件上传失败！您上传的文件类型非法；"
			else
					fpath=FolderPathOver(UpJpgFile)
					On Error Resume Next
					If Not objFSO.FolderExists(Server.MapPath(fpath)) Then objFSO.CreateFolder Server.MapPath(fpath)
					If Err Then fpath="/"
					randomize
					ranNum=int(90000*rnd)+10000
					datetime=year(date()) & month(date()) & day(date()) & hour(now()) & minute(now()) & second(now())
					FileName=datetime & ranNum & "." & fileExt
					file.SaveAs Server.mappath(fpath&FileName)
					if Not Err then
						select case fileExt
						case "jpg","gif","bmp"
							session("FileUrl")=session("FileUrl") & "[img]" & fpath & FileName & "[/img] "
						case "swf"
							session("FileUrl")=session("FileUrl") & "[flash=450,300]" & fpath & FileName & "[/flash] "
						case "rm","ram","ra"
							session("FileUrl")=session("FileUrl") & "[rm=450,300]" & fpath & FileName & "[/rm] "
						case "mid","wma","mp3","wav"
							session("FileUrl")=session("FileUrl") & "[sound]" & fpath & FileName & "[/sound] "
						case "avi","wmv"
							session("FileUrl")=session("FileUrl") & "[mp=450,300]" & fpath & FileName & "[/mp] "
						case else
							session("FileUrl")=session("FileUrl") & "[url]" & fpath & FileName & "[/url] "
						end select
						upinfor="文件上传成功！"
					else
						upinfor="文件上传失败！" & Err.Description
					end if
			end if
	upinfor=upinfor & "<a href=""?"">[继续上传]</a>"
	set file=nothing
	set upload=nothing
	set objFSO=nothing
	err.clear
end sub

sub mainbody()		'主函数
	response.write "<table width=780 border=1 cellspacing=2 cellpadding=2 align=center bordercolor=#DEE5EF><form name=frmupbt action=""?action=upfile"" method=post  enctype=multipart/form-data>"&_
	"<tr><td>" & upinfor & "</td><td align=right><a href=""default.asp""><img src=""images/home.gif"" border=0 alt=""返回首页""></a> "
	call islogin()	'管理链接
	response.write "</td></tr></form></table>"
	call post()		'调用发帖函数
end sub

DoWhat="签写留言"
SaveAction="addnew"
SavePostContent=session("FileUrl")
call HeadHtml()		'网页头函数
call mainbody()		'调用主体函数
call FootHtml()		'网页尾函数
%>