<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% server.scripttimeout=600 dim upFileStatus '上传状态 dim upFileName '生成的文件名 dim upFileExt '上传文件的后缀 dim maxSize '上传文件最大值 dim formsize '表单数据大小 dim fileSize'上传文件的大小 dim getFileName '文件名 maxSize=clng(10240) upFileStatus=false getFileName=request.QueryString("file1") formsize=Request.TotalBytes filesize=(formsize/1024) if fileSize>maxSize then response.Write("<script>alert('上传文件的大小超过了10M限制!');</script>") response.Write("<script>location.replace('upframewin.asp');</script>") elseif fileSize<=0 then response.Write("<script>alert('请设置正确的上传文件!');</script>") response.Write("<script>location.replace('upframewin.asp');</script>") else upFileFunc() end if
function upFileFunc() '上传文件函数 on error resume next formdata=Request.BinaryRead(formsize) set obs=server.CreateObject("adodb.stream") obs.mode=3 obs.type=1 obs.open obs.write(formdata)'读取所有上传的数据
Randomize timer() upFileName=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&Clng( Rnd()*9999)&"."&upFileExt on error resume next obd.SaveToFile Server.MapPath("uploadimages/"+ upFileName),2 upFileStatus=true
if err.number<>0 then response.Write("<script>alert('文件上传失败!')</script>") upFileStatus=false end if end function
function getFileExtName(fileName)'取得后缀名 dim pos pos=instrrev(filename,".") if pos> 0 then getFileExtName=mid(fileName,pos+1) else getFileExtName="" end if end function
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <title>上传文件</title> <style type="text/css"> <!-- body { background-color: #999999; margin-left: 0px; margin-top: 0px; } .style2 {font-size: 9pt} --> </style> <script> <!-- function getFileName(nameStr) { re=/([^//]+)/.{1}/w+$/; //匹配文件名(不含/) re.test(nameStr) ; return RegExp.$1 } //--> </script> </head>
<body>
<br> <p><span class="style2"> <strong> <% if upFileStatus then response.Write("<script>alert('文件上传成功!')</script>") %> <input type="hidden" value="<%=upFileName %>" name="hidden1"> <input type="hidden" value="<%=getFileName %>" name="hidden2"> <script> var txtcontent=parent.document.all.txtcontent; var upFileExt="<%=upFileExt %>"; var newaddtext if(upFileExt=="bmp"||upFileExt=="jpg"||upFileExt=="gif"||upFileExt=="png") newaddtext="<br><img src='uploadimages/" + document.all.hidden1.value + "' border='0'>"; else newaddtext="<br>附件: <img src=pic/book.gif><a href='uploadimages/" + document.all.hidden1.value + "' target=_blank>" + getFileName(document.all.hidden2.value) + "</a>"; txtcontent.value=txtcontent.value + newaddtext; txtcontent.focus(); </script> <% end if %> </strong></span> <script> location.replace("upframewin.asp"); </script> </p> </body> </html>