upload.asp

来自「一个互联网络公司网站源码」· ASP 代码 · 共 48 行

<!--#include file="conn.asp"-->
<!--#include file="../inc/inc.asp"-->
<!--#include file="UpLoadClass.asp"-->
<%
		set request2=new UpLoadClass
		fieldName=request2.form("fieldName")
		folder=request2.form("folder")
		request2.FileType="gif/jpg"
		url=server.MapPath("/UpLoadFile/")
		STN_FSO.FolderName=url
		STN_FSO.CreateFolder()
		request2.Charset="gb2312"
		request2.SavePath="/UpLoadFile/"
		request2.MaxSize=500*1024
		request2.open()
		if request2.form("pic_err")=0 then
		pic="/UpLoadFile/"&trim(request2.Form("pic"))
		elseif request2.form("pic_err")=1 then
		%>
			<script>
				alert("文件大小超过500K，请整理后重新上传；");
				history.go(-1);
			</script>
		<%
		response.End()
		elseif request2.form("pic_err")=2 then
		%>
			<script>
				alert("类型不正确，请重新选择；");
				history.go(-1);
			</script>
		<%
		response.End()
		elseif request2.form("pic_err")=3 then
		%>
			<script>
				alert("选择文件不符合条件，请重新选择；");
				history.go(-1);
			</script>
		<%
		response.End()
		end if
%>
<script>
parent.document.all.picView.innerHTML="<img src='<%=pic%>' width=120 height=120>"
parent.document.all.articlePic.value="<%=pic%>";
</script>
<span style="font-size:12px">上传成功 <span style="cursor:hand;" onClick="location.href='upload.htm'">重新上传</span></span>