upfile.asp

来自「这次自已做的美工,可能很难看,但主要是为提高效率,这次全部生成了静态,只有一个链」· ASP 代码 · 共 43 行

<%

OPTION EXPLICIT
Server.ScriptTimeOut=5000
%>
<!--#include FILE="UpLoadClass.asp"-->
<%
dim request2,filepath

'建立上传对象
set request2=New UpLoadClass
	'上传总大小为20M
	request2.TotalSize= 20971520
	'单文件最大10M
	request2.MaxSize  = 10485760
	'允许上传rar/zip格式文件
	request2.FileType = "jpg/gif/bmp"
        request2.SavePath="../upload/"
	request2.open()
if request2.form("up")="up" then
filepath=request2.SavePath&request2.Form("file1")

%>
<script>
{
img="<img src=<%=filepath%>>"
}
document.oncontextmenu = new Function('return false')
parent.IframeID.document.body.innerHTML+='\n'+img+''
</script>
<%end if %>
<style type="text/css">
<!--
body {
	background-color: #CCCCFF;
}
-->
</style><table width="100%" height="20" border="1" align="center" cellpadding="0" cellspacing="0"  valign="top">
  <tr><td height="20"  valign="top">  <form name="FORM" action="" method="post" enctype="multipart/form-data">上传图片:<input type="file" name="file1" style="width:400"  value="">
<input type="hidden" name="up" value="up">
<input type="submit" name="submit"  value=" 上 传 ">
  </form></td></tr></table>