asp 上传文件代码

最新推荐文章于 2026-04-21 05:14:22 发布

转载最新推荐文章于 2026-04-21 05:14:22 发布 · 512 阅读

标签

#asp #upload #input #文档 #file

收录于

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>

<body>
<%
Response.Expires=0
if Request.TotalBytes then
set a=createobject("adodb.stream")
a.Type=1
a.Open
a.write Request.BinaryRead(Request.TotalBytes)
a.Position=0
b=a.Read
c=chrB(13)&chrB(10)
d=clng(instrb(b,c))
e=instrb(d+1,b,c)

set f=createobject("adodb.stream")
   f.type=1
   f.open
   a.Position=d+1
   a.copyto f,e-d-3
   f.Position=0
   f.type=2
   f.CharSet="GB2312"
   g=f.readtext
   f.Close
   h=mid(g,instrRev(g,"\")+1,e)
   i=instrb(b,c&c)+4
   j=instrb(i+1,b,leftB(b,d-1))-i-2
   if j <1 then
    set f =nothing
    set a =nothing
    response.write "未选择要上传的文件<a href='?'>重新上传</a>"
    response.end
   end if
   f.Type=1
   f.Open
   a.Position=i-1
   a.CopyTo f,j
   f.SaveToFile server.mappath("/images/"& h),2 '上传至“/images/”文件夹中
   f.Close
set f=Nothing
a.Close
set a=Nothing
response.write "<a href="&Server.URlEncode(h)&">"&h&"</a>"
end if
%>
<script language="javascript">
function checkupload(){
if(document.upload_form.fe.value ==""){
alert("未选择要上传的文件");
return false;
}
}
</script>
<form name="upload_form" enctype="multipart/form-data" method="post" onsubmit="return(checkupload())">
<input type="file" name="fe">
<input type="submit" value="上传" name="B1"></form>
</body>
</html>