📄 upfile1.asp

📁 shopxp网上购物系统v6.6已经调试,百分百可用
💻 ASP
字号:
<%
OPTION EXPLICIT
Server.ScriptTimeOut=5000
response.Buffer=true

dim url,a,b,c,d,x,url1,e
url=Request.ServerVariables("SERVER_NAME")&Request.ServerVariables("PATH_INFO")
dim dirnow
dirnow=split(url,"/")
a=dirnow(ubound(dirnow))
e=dirnow((ubound(dirnow)-1))
url1="http://"&Request.ServerVariables("SERVER_NAME")&Request.ServerVariables("PATH_INFO")
c=len(url1)-len(a)-len(e)-1
d=left(url1,c) 

%>
<!--#include FILE="UpLoadClass.asp"-->
<%
dim request2
dim imgpath
dim imgpath2
dim Fname,err,flag
err=""

'建立上传对象
set request2=New UpLoadClass
	'上传总大小为1000M
	request2.TotalSize= 1048576000
	'单文件最大500M
	request2.MaxSize  = 512000
	'允许上传的文件格式
	request2.FileType = "png/bmp/jpg/gif/swf"
	request2.SavePath="../upimg/"
	request2.open()
	Fname=request2.Form("Fname")
	flag=request2.Form("flag")
%>
<html>
<head>
<title>上传成功</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="../css/style_admin.css">
<script  language="JavaScript">
<!-- Hide from older browsers...

//Function to add pic
function Addpic(imagePath){	
	window.opener.frames.message.focus();								
	window.opener.frames.message.document.execCommand('InsertImage', false, imagePath);
window.close();
}

// -->
</script>
</head>

<body style="margin-top:16px">
<div align="center">
<table width="70%" border="0" cellpadding="4" cellspacing="0" bgcolor="#FFFFFF" style="border:1px solid #999999">
  <tr> 
    <td><blockquote>
	<%
	if request2.Error=1 then
		err=err &"<br>文件超过大小，上传失败"
		response.write err
		response.end
    elseif request2.Error=2 then
		err=err &"<br>文件类型不正确，上传失败"
		response.write err
		response.end
	elseif request2.Error=3 then
		err=err &"<br>文件超过大小或文件类型不正确，上传失败"
		response.write err
		response.end
	elseif request2.Error=4 then
		err=err &"<br>异常错误，上传失败"
		response.write err
		response.end
	else

	'显示源文件路径与名称
	response.Write("<br>文件一："&request2.Form("strFile1_Path")&request2.Form("strFile1_Name"))
	response.Write("=>")

	'显示目标文件路径与名称
	response.Write(request2.SavePath&request2.Form("strFile1"))

	'显示源文件路径与名称
	'response.Write("<br>文件二："&request2.Form("strFile2_Path")&request2.Form("strFile2_Name"))
	'response.Write("=>")
	
	'显示目标文件路径与名称
	'response.Write(request2.SavePath&request2.Form("strFile2"))
    imgpath=request2.Form("strFile1")

 if flag="c2" then
 response.write "<center><FIELDSET align=center><LEGEND align=center><font color=red>文件上传成功 </font></LEGEND><br>[ <a href=# onclick=""Addpic('../upimg/"&request2.Form("strFile1")&"')"">点击这里添加到编辑器中</a> ]</fieldset>"
 response.end
 else
'释放上传对象
 response.write "<script>opener.document.form1."&Fname&".value='"&imgpath&"'</script>"
 response.write "<center><FIELDSET align=center><LEGEND align=center><font color=red>文件上传成功 </font></LEGEND><br>[ <a href=# onclick=""javascript:window.close()"">点击这里关闭窗口</a> ]</fieldset>"
 response.end
 response.Write("<br>总数据量没超过限制,文件类型正确,没有异常,文件上传成功.")
 end if
 
 end if
 set request2=nothing
%>
</blockquote></td>
</tr>
</table>
</div>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -