📄 upload.asp

📁 asp功能增强函数本函数库是为了广大ASP后台开发人员而设计本程序内不带任何广告代码弥补了ASP相对与PHP的功能缺陷
💻 ASP
字号:
<!--#include File="upload_5xsoft.inc"-->
<link href="up.css" rel="stylesheet" type="text/css">
<body leftmargin=0 topmargin=0 srcoll=no class="TxtSize">
<%
If Request.QueryString("ID")>0 Then
UserTime=Year(Now)
UserMonth=Month(Now)
If UserMonth<=9 Then
UserMonth="-0"&UserMonth
Else
UserMonth="-"&UserMonth
End If
UserDay=Day(Now)
If UserDay<=9 Then
UserDay="-0"&UserDay
Else
UserDay="-"&UserDay
End If
UserTime=UserTime&UserMonth&UserDay

   FolderName= Server.Mappath("/upload/"&UserTime)
   Set Fso=server.createobject("scripting.filesystemobject")
   If Fso.FolderExists(FolderName)=False then
	   fso.CreateFolder(FolderName)
   End If

   Set upload=new upload_5xsoft '创建化境无组件对象
   Set myfile = upload.File("UpFile")
   upFileName=myfile.FileName
   ext=Mid(upFileName,Instrrev(upFileName,"."))
   ext=Lcase(ext)
   If ext=".gif" Or ext=".jpg" Or ext=".png" Or ext=".bmp" Or ext=".jpeg" Or ext=".mp3" Or ext=".wmv"  Or ext=".wma" Then
       If myfile.filesize>100000*1024 Then
	      Response.write("上传失败,大于100MB！&nbsp;[<a href='javascript:history.go(-1)'>重新上传</a>]")
		  Response.End
	   End If
	   FileName=Replace(Now,"-","")
	   FileName=Replace(FileName," ","")
	   FileName=Replace(FileName,":","")
	   Randomize
	   FileName=FileName & Cint(Rnd()*1000) & ext
	   FileName1= "/upload/" & UserTime & "/" & FileName
	   FileName=Server.Mappath(FileName1)
	   myfile.SaveAs FileName
       Response.Write("<span class=TxtSize10><br></span>文件上传成功!&nbsp;[<a href='javascript:history.go(-1)'>重新上传</a>]")
	   If Request.QueryString("Types") = 0 Then
	   Response.Write("<script>parent.IframeID.document.body.innerHTML+=""<a href='"&FileName1&"' target='_blank'><img onload='javascript:DDDDrawImage(this);' border='0' src="&FileName1&"></a>"";</script>")
	   ElseIf Request.QueryString("Types") = 1 Or Request.QueryString("Types") = 2 Then
	   Response.Write("<script>parent.IframeID.document.body.innerHTML+=""\<object classid=\""clsid:22D6F312-B0F6-11D0-94AB-0080C74C7E95\"" id=\""MediaPlayer1\""\>"";</script>"&Chr(13))
	   Response.Write("<script>parent.IframeID.document.body.innerHTML+=""\<param name=\""Filename\"" value=\"""&FileName1&"\""\>"";</script>"&Chr(13))
	   Response.Write("<script>parent.IframeID.document.body.innerHTML+=""\<param name=\""PlayCount\"" value=\""1\""\>"";</script>"&Chr(13))
	   Response.Write("<script>parent.IframeID.document.body.innerHTML+=""\<param name=\""AutoStart"" value=\""1\""\>"";</script>"&Chr(13))
	   Response.Write("<script>parent.IframeID.document.body.innerHTML+=""\<param name=\""ClickToPlay\"" value=\""1\""\>"";</script>"&Chr(13))
	   Response.Write("<script>parent.IframeID.document.body.innerHTML+=""\<param name=\""DisplaySize\"" value=\""0\""\>"";</script>"&Chr(13))
	   Response.Write("<script>parent.IframeID.document.body.innerHTML+=""\<param name=\""EnableFullScreen Controls\"" value=\""1\""\>"";</script>"&Chr(13))
	   Response.Write("<script>parent.IframeID.document.body.innerHTML+=""\<param name=\""ShowAudio Controls\"" value=\""1\""\>"";</script>"&Chr(13))
	   Response.Write("<script>parent.IframeID.document.body.innerHTML+=""\<param name=\""EnableContext Menu\"" value=\""1\""\>"";</script>"&Chr(13))
	   Response.Write("<script>parent.IframeID.document.body.innerHTML+=""\<param name=\""ShowDisplay\"" value=\""0\""\>"";</script>"&Chr(13))
	   Response.Write("<script>parent.IframeID.document.body.innerHTML+=""\</object\>"";</script>")
	   ElseIf Request.QueryString("Types") = 3 Then
	   Response.Write("<script>parent.IframeID.document.body.innerHTML+=""\<object classid=\""clsid:D27CDB6E-AE6D-11cf-96B8-444553540000\"" codebase=\""http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,19,0\""\>"";</script>")
	   Response.Write("<script>parent.IframeID.document.body.innerHTML+=""\<param name=\""movie\"" value=\"""&FileName1&"\"" /\>"";</script>")
	   Response.Write("<script>parent.IframeID.document.body.innerHTML+=""\<param name=\""quality\"" value=\""high\"" /\>"";</script>")
	   Response.Write("<script>parent.IframeID.document.body.innerHTML+=""\<embed src=\"""&FileName1&"\"" quality=\""high\"" pluginspage=\""http://www.macromedia.com/go/getflashplayer\"" type=\""application/x-shockwave-flash\""\>\</embed\>"";</script>")
	   Response.Write("<script>parent.IframeID.document.body.innerHTML+=""\</object\>"";</script>")
	   ElseIf Request.QueryString("Types") = 4 Then
	   Response.Write("<script>parent.IframeID.document.body.innerHTML+=""<a href='"&FileName1&"' target='_blank'>"&FileName1&"</a>"";</script>")
	   End If
   Else
      Response.Write("上传失败,格式错误！&nbsp;[<a href='javascript:history.go(-1)'>重新上传</a>]")
   End If
   Response.End()
End If
%>
<form name="form1" method="post" action="?id=1" onSubmit="return myaction()" enctype="multipart/form-data">
<input name="UpFile" type=file class="st1">&nbsp;<input type=submit name=submit value=上传 class="stbt">
<select name="Types" style="height:12px; border:0px; color:#666666;">
  <option value="0">Image</option>
  <option value="1">Video</option>
  <option value="2">Music</option>
  <option value="3">Flash</option>
  <option value="4">Files</option>
</select>
</form></body>
<script language="javascript">
function myaction()
{
	document.all.form1.action="?id=1&Types=" + document.all.Types.value;
	if(document.all.UpFile.value=="")
	{
	return false;
	}else{
	return true;
	}
}
</script>
⌨️ 快捷键说明

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