6.0w+
社区成员
- 全部
- 问答
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
qjrein 2003-05-16
给你段简单的代码
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="font.css">
</head>
<body>
<%
dim contentlen
contentlen=request.totalbytes
if contentlen>1024000 then
response.write "文件太大，超过100k，不允许上传。请返回"
else
dim content
content=request.binaryread(request.totalbytes)
'二进制相互转换
Function getByteString(StringStr)
getByteString=""
For i=1 to Len(StringStr)
char=Mid(StringStr,i,1)
getByteString=getByteString&chrB(AscB(char))
Next
End Function
Function getString(StringBin)
getString =""
For intCount = 1 to LenB(StringBin)
getString = getString & chr(AscB(MidB(StringBin,intCount,1)))
Next
End Function
dim upbeg,upend,lineone,linetwo,linethree,line1,line2,line3
upbeg=1
upend=instrb(upbeg,content,getbytestring(chr(10)))
lineone=midb(content,upbeg,upend-upbeg)
upbeg=upend+1
line1=lenb(lineone)
upend=instrb(upbeg,content,getbytestring(chr(10)))
linetwo=midb(content,upbeg,upend-upbeg)
upbeg=upend+1
line2=lenb(linetwo)
upend=instrb(upbeg,content,getbytestring(chr(13)))
linethree=midb(content,upbeg,upend-upbeg)
line3=lenb(linethree)
'获得文件名
dim pp,checknametemp,checklen,checkname,filename
pp=instrb(1,linetwo,getbytestring(chr(46)))
checknametemp=rightb(linetwo,line2-pp+1)
checklen=instrb(1,checknametemp,getbytestring(chr(34)))
checkname=getstring(leftb(checknametemp,checklen-1))
filename=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&checkname
'上传文件
dim alllen,upstream,upstreamend,file
alllen=line1+line2+line3+6
set upstream=server.createobject("adodb.stream")
set upstreamend=server.createobject("adodb.stream")
upstream.type=1
upstreamend.type=1
upstream.open
upstreamend.open
upstream.write content
upstream.position=alllen
file=upstream.read(clng(contentlen-alllen-line1-5))
upstreamend.write file
upstreamend.savetofile(server.mappath("news/pic/"&filename)) //设置你的目标路径
upstream.close
upstreamend.close
set upstream=nothing
set upstreamend=nothing
response.write("图片已上传")
end if
%>
</body>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="font.css">
</head>
<body>
<%
dim contentlen
contentlen=request.totalbytes
if contentlen>1024000 then
response.write "文件太大，超过100k，不允许上传。请返回"
else
dim content
content=request.binaryread(request.totalbytes)
'二进制相互转换
Function getByteString(StringStr)
getByteString=""
For i=1 to Len(StringStr)
char=Mid(StringStr,i,1)
getByteString=getByteString&chrB(AscB(char))
Next
End Function
Function getString(StringBin)
getString =""
For intCount = 1 to LenB(StringBin)
getString = getString & chr(AscB(MidB(StringBin,intCount,1)))
Next
End Function
dim upbeg,upend,lineone,linetwo,linethree,line1,line2,line3
upbeg=1
upend=instrb(upbeg,content,getbytestring(chr(10)))
lineone=midb(content,upbeg,upend-upbeg)
upbeg=upend+1
line1=lenb(lineone)
upend=instrb(upbeg,content,getbytestring(chr(10)))
linetwo=midb(content,upbeg,upend-upbeg)
upbeg=upend+1
line2=lenb(linetwo)
upend=instrb(upbeg,content,getbytestring(chr(13)))
linethree=midb(content,upbeg,upend-upbeg)
line3=lenb(linethree)
'获得文件名
dim pp,checknametemp,checklen,checkname,filename
pp=instrb(1,linetwo,getbytestring(chr(46)))
checknametemp=rightb(linetwo,line2-pp+1)
checklen=instrb(1,checknametemp,getbytestring(chr(34)))
checkname=getstring(leftb(checknametemp,checklen-1))
filename=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&checkname
'上传文件
dim alllen,upstream,upstreamend,file
alllen=line1+line2+line3+6
set upstream=server.createobject("adodb.stream")
set upstreamend=server.createobject("adodb.stream")
upstream.type=1
upstreamend.type=1
upstream.open
upstreamend.open
upstream.write content
upstream.position=alllen
file=upstream.read(clng(contentlen-alllen-line1-5))
upstreamend.write file
upstreamend.savetofile(server.mappath("news/pic/"&filename)) //设置你的目标路径
upstream.close
upstreamend.close
set upstream=nothing
set upstreamend=nothing
response.write("图片已上传")
end if
%>
</body>
sandyuk 2003-05-16
怎么发到这CSS区来啦！
Reker熊 2003-05-16
http://www.5xsoft.com/data/200104/2822340301.htm
Asp.Net Core 3.1 WebApi 实现前后端分离，实现大文件上传下载【02源码】 需求背景：以前在做文件上传下载，都是基于FrameWork项目或者Core Web项目实现的文件上传或下载，基于web的文件下载及权限比较好实现的。但是现在很多公司技术领导层，都在推行前后端分离理念，所以这一次我承担了...
asp.net 文件上传 本文讲的是Asp.Net中FileUpload实现文件上传示例， 属性:FileName: 获取上传的文件名 HasFile: 是否选择(存在)上传的文件 ContentLength: 获得上窜文件的大小,单位是字节(byte) 方法:Server.MapPath(): 获取服务器上
怎样用asp调用ftp命令实现文件上传 怎样用asp调用ftp命令实现文件上传，怎样调用ftp命令实现ftp上传文件的功能?? 因为上传的文件太大又太多,所以不能用fso上传! 而且上传的文件是服务器针对别一服务器,不是客户端对服务器!!
asp.net动态创建控件实现多文件上传 asp.net中的FileUpload控件一次只能实现上传一个文件，若要...此处是用下拉列表控件的postback控制的，要想实现任意多个文件上传，也可以通过TextBox控件的postback来实现。若还有什么好的方法，望指教，以相互学习。
超级简单实用的ASP文件管理系统(一个ASP程序实现所有功能) 利用ASP单文件实现以下功能:<...3、文件上传。可一键上传、批量上传。<br>4、整个系统由一个ASP文件完成，所有功能以涵数形式编写，主要利用FSO实现，没有数据库，超级简单实用，修改极其方便。
ASP.NET WebAPI 实现文件上传下载缩略图访问 ASP.NET WebAPI 接口 实现单文件，多文件上传下载，图片缩略图访问实现接口，实用于APP，web系统应用，上传下载文件、图片访问分离处理。
[ASP.NET]web实现用FTP上传、下载文件 [ASP.NET]web实现用FTP上传、下载文件。对应博客文章： https://blog.csdn.net/djk8888/article/details/80736524
ajax实现文件上传 ajax实现文件上传 其实在ajax出现之前，web应用也可以是无刷新的，那时大多通过IFrame来做到这一点。当然Ajax出现之后，人们一窝蜂地投奔Ajax 的阵营了，iFrame 就乏人问津了。但是用iFrame来实现无刷新上传文件确实...
