📄 upload_pic.asp

📁 一套很早的多用户电子商务程序
💻 ASP
字号:
<!--#include file="upload.inc"-->
<%if Request.QueryString("no")="cn9900" then %>
<%
function GetExtendName(FileName)
dim ExtName,filepath,formName,EditName,FileType
ExtName = LCase(FileName)
ExtName = right(ExtName,3)
ExtName = right(ExtName,3-Instr(ExtName,"."))
GetExtendName = ExtName
end function

set upload=new upload_5xSoft
for each formName in upload.File
filepath=upload.form("filepath")
FM_name=upload.form("FM_name")
EditName=upload.form("EditName")
FSize=upload.form("FSize")
if FSize="" then FSize=100000
next
set file=upload.file("file1")
if file.FileSize>CLng(FSize) then
Response.Write ("<script>alert('对不起！您上传的图片文件太大,请压缩或修改后再上传！');javascript:history.back(1)</script>")
response.end
end if
FileType= ".jpg.gif.swf.bmp"
'如果存在数据
	if file.FileSize>0 then
	randomize
	ranNum=int(90000*rnd)+10000
	filename=filepath&"/"&year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&ranNum&"."&GetExtendName(file.FileName) 
		'如果是允许的文件类型
		if Instr(FileType,GetExtendName(file.FileName)) then
		file.SaveAs Server.mappath(filename)
		set file=nothing 
		response.write "<script>window.opener.document."&FM_name&"."&EditName&".value='../"&FileName&"';window.close();</script>"
		response.end
		else
		 Response.Write ("<script>alert('本系统不支持你所上传的文件类型！');window.close();</script>")
		end if
	end if
set file=nothing
%>

<%end if%>
<html>
<head>
<title>图片上传</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
td{font-size:12px}
a{color:#000000;text-decoration: none}
a:hover{text-decoration: underline}
.tx{height:16px;width:30px;border-color:black black #000000;border-top-width:0px;border-right-width: 0px; border-bottom-width: 1px; border-left-width: 0px; font-size: 12px; background-color: #eeeeee; color: #0000FF}
.button{font-size:12px;border-top-width:0px;border-right-width:0px;border-bottom-width:0px;border-left-width: 0px; height: 16px; width: 80px; background-color: #eeeeee; cursor: hand}
.tx1{height:20px;width:30px;font-size:12px;border:1px solid;border-color:black black #000000;color: #0000FF}
-->
</style>
<script language="javascript">
<!--
function mysub()
{
		esave.style.visibility="visible";
}
-->
</script>
</head>

<body bgcolor="#FFFFFF" text="#000000">
<form name="form1" method="post" action="?no=cn9900" enctype="multipart/form-data" >
  <div id="esave" style="position:absolute; top:18px; left:40px; z-index:10; visibility:hidden"> 
    <TABLE WIDTH=340 BORDER=0 CELLSPACING=0 CELLPADDING=0>
      <TR><td width=20%></td>
	<TD bgcolor=#104A7B width="60%"> 
	<TABLE WIDTH=100% height=120 BORDER=0 CELLSPACING=1 CELLPADDING=0>
	<TR> 
	          <td bgcolor=#eeeeee align=center><font color=red>正在上传文件，请稍候...</font></td>
	</tr>
	</table>
	</td><td width=20%></td>
	</tr></table></div>
  <table width="400" border="1" cellspacing="0" cellpadding="3" align="center" bordercolordark="#0000FF" bordercolorlight="#0000FF">
    <tr bgcolor="#FFCC00"> 
      <td height="22" align="left" valign="middle" bgcolor="#6FC6FF" width="400">&nbsp;图片上传 
      </td>
    </tr>
    <tr align="center" valign="middle"> 
      <td align="left" id="upid" height="80" width="400"> 选择文件: 
        <input type="file" name="file1" style="width:300'" class="tx1" value="">
		<input type="hidden" name="filepath" value="<%=request("filepath")%>">
        <input type="hidden" name="EditName" value="<%=request("EditName")%>">
        <input type="hidden" name="FM_name" value="<%=request("FM_name")%>">
		<input type="hidden" name="FSize" value="<%=request("FSize")%>">
      </td>
    </tr>
    <tr align="center" valign="middle" bgcolor="#eeeeee"> 
      <td bgcolor="#6FC6FF" height="24" width="400"> 
        <input type="submit" name="Submit" value="· 开始上传 ·" class="button" onclick="javascript:mysub()">
      </td>
    </tr>
  </table>
</form>
</body>
</html>
⌨️ 快捷键说明

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