PupFiles.asp 盐城分类信息网asp源码程序 - ASP源码程序

www.gusucode.com > 盐城分类信息网asp源码程序 > admin/PupFiles.asp
    <body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<!--#include file="upload.inc" -->
<!--#include file=cookies.asp-->
<script language=javascript>
<!--
	function addcontent(tmpstr)
	{
		parent.document.form1.<%=Request("Position")%>.value = parent.document.form1.<%=Request("Position")%>.value + tmpstr;
	}

//-->
</script>
<%
Session.Timeout = 999
if Request("action")="up" then

	dim upload,file,formName,formPath,iCount,filename,fileExt
	set upload=new upload_5xSoft ''建立上传对象


	 formPath="../upadimg"

 ''在目录后加(/)
		if right(formPath,1)<>"/" then formPath=formPath&"/"

		iCount=0
			for each formName in upload.file ''列出所有上传了的文件
			 set file=upload.file(formName)  ''生成一个文件对
				 if file.filesize<100 then
				 	response.write "<font size=2>请先选择你要上传的图片　[ <a href=# onclick=history.go(-1)>重新上传</a> ]</font>"
					response.end
				 end if
 	
 				if file.filesize>1000*1024 then
				 	response.write "<font size=2>图片大小超过了限制　[ <a href=# onclick=history.go(-1)>重新上传</a> ]</font>"
					response.end
				 end if

		 fileExt=lcase(right(file.filename,4))

			 if instr(".ram.rm.asf.wma.jpg.gif.jpeg.jpe.png.zip.rar.bmp.mp3.swf.wav.txt.doc.rtf.psd.tif.mid.tga.iff.pcx.dcx.pbm.pgm.ppm.pnm.miff.xbm.xpm.ico.icl.emf.hru.jif.prc.wrl.wbmp",fileExt)<1  then
				response.write "<font size=2>文件格式不对　[ <a href=# onclick=history.go(-1)>重新上传</a> ]</font>"
				response.end
			 end if

		filename=Replace(Replace(Replace(now(),"-",""),":","")," ","")&FileExt
		savefile=formPath+filename
		 if file.FileSize>0 then         ''如果 FileSize > 0 说明有文件数据
			  file.SaveAs Server.mappath(savefile)   ''保存文
		 end if
	 %>
  <script language="JavaScript">
 <%
 if fileExt=".gif" or fileExt=".jpg" or fileExt=".jpeg" or fileExt=".bmp"   or fileExt= ".png"  then
 %>
addcontent("<%="upadimg/"&filename%>")
<%Elseif  fileExt = ".swf" then
%>
addcontent("<%="uploadimg/"&filename%>\n")
<%
Elseif fileExt=".Mp3" or fileExt=".asf" or fileExt=".wav" or fileExt="mid" then
%>
addcontent("<%="upadimg/"&filename%>\n")
<%
else
%>
addcontent("[url]<%="upadimg/"&filename%>[/url]\n")
<%
end if
%>
</script>
 <%
	set file=nothing
	iCount=iCount+1
	next
	set upload=nothing  ''删除此对象
	if err.number<>0 then
	Response.Write("文件上传出错!请与管理员联系:QQ(304133183)")
	Response.End()
	end if
	Response.Write("图片成功上传")
	Response.End()
end if
%>
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
  <form name="form1" enctype="multipart/form-data" method="post" action="?action=up&Position=<%=Request("Position")%>"><tr>
      <td valign="top"><table width="375" border="0" cellspacing="0" cellpadding="0">
          <tr> 
            <td> <input name="file" type="file" style="width:300px"> <input name="Submit" type="submit" class="bt" value="提交"> 
            </td>
          </tr>
        </table> </td>
  </tr></form>
</table>