28,391
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
椰子 2003-08-19
- 打赏
- 举报
多谢多谢！·
请问上传组件怎么用啊？！
哪儿有下载！？·
请问上传组件怎么用啊？！
哪儿有下载！？·
椰子 2003-08-19
- 打赏
- 举报
多谢多谢！·
liniu 2003-08-18
- 打赏
- 举报
方法有两种：
1。上传组件，使用方便，不过要在服务器上注册之后才能使用。移植性不好。国内有一个比较好的lyfupload上传组件，我用过还不错。
2。用ADO.Stream对象，现在的无组件上传程序都是用他来做的，其实也用了组件，只不过它是内置的ADO。网上有境化无组件上传的免费代码。
1。上传组件，使用方便，不过要在服务器上注册之后才能使用。移植性不好。国内有一个比较好的lyfupload上传组件，我用过还不错。
2。用ADO.Stream对象，现在的无组件上传程序都是用他来做的，其实也用了组件，只不过它是内置的ADO。网上有境化无组件上传的免费代码。
ttt2 2003-08-18
- 打赏
- 举报
用
qjrein 2003-08-17
- 打赏
- 举报
这是我见过的最短的上传代码
前台
<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="style.css">
</head>
<BODY topmargin="0" leftmargin="0" bgcolor="papayawhip">
<FORM METHOD=post ACTION="upload1.asp" enctype="multipart/form-data" id=form1 name=form1>
<INPUT TYPE="file" NAME="file" >
<INPUT TYPE="submit" value="上传" id=submit1 name=submit1>
</FORM>
</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>102400 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="style.css">
</head>
<BODY topmargin="0" leftmargin="0" bgcolor="papayawhip">
<FORM METHOD=post ACTION="upload1.asp" enctype="multipart/form-data" id=form1 name=form1>
<INPUT TYPE="file" NAME="file" >
<INPUT TYPE="submit" value="上传" id=submit1 name=submit1>
</FORM>
</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>102400 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>
