Java && Flex

---->乞怪豬blog搬家了--[www.ialway.com/blog]--希望繼續(xù)關(guān)注!謝謝!^0^

隨筆 - 8 文章 - 55 trackbacks - 0

2014年11月

>

日

一

二

三

四

五

六

26

27

28

29

30

31

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

1

2

3

4

5

6

常用鏈接

留言簿(6)

隨筆分類

自己原創(chuàng)

隨筆檔案

文章分類

文章檔案

朋友的Blog

空鎖滿庭花雨

閱讀排行榜

?

無組件ASP文件上傳源代碼經(jīng)本人測(cè)試通過............

無組件ASP文件上傳源代碼

動(dòng)網(wǎng)論壇的無組件上傳，
以下是從動(dòng)網(wǎng)論壇分離出來的代碼。

如有更好用的請(qǐng)告訴作者
網(wǎng)名：網(wǎng)海求生者
QQ：54883661
mail:wuyingke5155@163.com

saveannounce_upload.asp 上傳頁
------------------------------------
<html>
<head>
<style type="text/css">
body {font-size:9pt;}
input {font-size:9pt;}
</style>
<title>文件上傳</title>
</head>
<body>
<form name="form" method="post" action="saveannouce_upfile.asp" enctype="multipart/form-data" >
文件
<input type="file" name="file1" size=10>
<input type="submit" name="Submit" value="上傳">
</form>
</body>
</html>

------------------------------------
saveannouce_upfile.asp 保存文件到服務(wù)器
------------------------------------

<html>
<head>
<title>文件上傳</title>
</head>
<body>
<%
dim upload,file,formName,formPath
set upload=new upload_5xSoft ''''建立上傳對(duì)象
formPath=upload.form("filepath") ''''在目錄后加(/)
if right(formPath,1)<>"/" then formPath=formPath&"/"
for each formName in upload.file ''''列出所有上傳了的文件
set file=upload.file(formName) ''''生成一個(gè)文件對(duì)象
if file.filesize<100 then
response.write "<font size=2>請(qǐng)先選擇你要上傳的文件　[ <a href=# onclick=history.go(-1)>重新上傳</a> ]</font>"
response.end
end if
if file.filesize>500*1000 then ''設(shè)置上傳文件大小為500K
response.write "<font size=2>文件大小超過了限制 500K　[ <a href=# onclick=history.go(-1)>重新上傳</a> ]</font>"
response.end
end if
if file.FileSize>0 then ''''如果 FileSize > 0 說明有文件數(shù)據(jù)
file.SaveAs Server.mappath("updata\"&file.FileName) ''''保存文件
end if
set file=nothing
next
set upload=nothing
response.write "<font size=2>文件上傳成功 [ <a href=# onclick=history.go(-1)>繼續(xù)上傳</a> ]</font>"
%>
</body>
</html>

未完接下

接上

------------------------------------
upload.inc 建立upload對(duì)象
------------------------------------
<SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT>

dim upfile_5xSoft_Stream

Class upload_5xSoft

dim Form,File,Version

Private Sub Class_Initialize
dim iStart,iFileNameStart,iFileNameEnd,iEnd,vbEnter,iFormStart,iFormEnd,theFile
dim strDiv,mFormName,mFormValue,mFileName,mFileSize,mFilePath,iDivLen,mStr
Version=""
if Request.TotalBytes<1 then Exit Sub
set Form=CreateObject("Scripting.Dictionary")
set File=CreateObject("Scripting.Dictionary")
set upfile_5xSoft_Stream=CreateObject("Adodb.Stream")
upfile_5xSoft_Stream.mode=3
upfile_5xSoft_Stream.type=1
upfile_5xSoft_Stream.open
upfile_5xSoft_Stream.write Request.BinaryRead(Request.TotalBytes)

vbEnter=Chr(13)&Chr(10)
iDivLen=inString(1,vbEnter)+1
strDiv=subString(1,iDivLen)
iFormStart=iDivLen
iFormEnd=inString(iformStart,strDiv)-1
while iFormStart < iFormEnd
iStart=inString(iFormStart,"name=""")
iEnd=inString(iStart+6,"""")
mFormName=subString(iStart+6,iEnd-iStart-6)
iFileNameStart=inString(iEnd+1,"filename=""")
if iFileNameStart>0 and iFileNameStart<iFormEnd then
iFileNameEnd=inString(iFileNameStart+10,"""")
mFileName=subString(iFileNameStart+10,iFileNameEnd-iFileNameStart-10)
iStart=inString(iFileNameEnd+1,vbEnter&vbEnter)
iEnd=inString(iStart+4,vbEnter&strDiv)
if iEnd>iStart then
mFileSize=iEnd-iStart-4
else
mFileSize=0
end if
set theFile=new FileInfo
theFile.FileName=getFileName(mFileName)
theFile.FilePath=getFilePath(mFileName)
theFile.FileSize=mFileSize
theFile.FileStart=iStart+4
theFile.FormName=FormName
file.add mFormName,theFile
else
iStart=inString(iEnd+1,vbEnter&vbEnter)
iEnd=inString(iStart+4,vbEnter&strDiv)

if iEnd>iStart then
mFormValue=subString(iStart+4,iEnd-iStart-4)
else
mFormValue=""
end if
form.Add mFormName,mFormValue
end if

iFormStart=iformEnd+iDivLen
iFormEnd=inString(iformStart,strDiv)-1
wend
End Sub

Private Function subString(theStart,theLen)
dim i,c,stemp
upfile_5xSoft_Stream.Position=theStart-1
stemp=""
for i=1 to theLen
if upfile_5xSoft_Stream.EOS then Exit for
c=ascB(upfile_5xSoft_Stream.Read(1))
If c > 127 Then
if upfile_5xSoft_Stream.EOS then Exit for
stemp=stemp&Chr(AscW(ChrB(AscB(upfile_5xSoft_Stream.Read(1)))&ChrB(c)))
i=i+1
else
stemp=stemp&Chr(c)
End If
Next
subString=stemp
End function

Private Function inString(theStart,varStr)
dim i,j,bt,theLen,str
InString=0
Str=toByte(varStr)
theLen=LenB(Str)
for i=theStart to upfile_5xSoft_Stream.Size-theLen
if i>upfile_5xSoft_Stream.size then exit Function
upfile_5xSoft_Stream.Position=i-1
if AscB(upfile_5xSoft_Stream.Read(1))=AscB(midB(Str,1)) then
InString=i
for j=2 to theLen
if upfile_5xSoft_Stream.EOS then
inString=0
Exit for
end if
if AscB(upfile_5xSoft_Stream.Read(1))<>AscB(MidB(Str,j,1)) then
InString=0
Exit For
end if
next
if InString<>0 then Exit Function
end if
next
End Function

Private Sub Class_Terminate
form.RemoveAll
file.RemoveAll
set form=nothing
set file=nothing
upfile_5xSoft_Stream.close
set upfile_5xSoft_Stream=nothing
End Sub

Private function GetFilePath(FullPath)
If FullPath <> "" Then
GetFilePath = left(FullPath,InStrRev(FullPath, "\"))
Else
GetFilePath = ""
End If
End function

Private function GetFileName(FullPath)
If FullPath <> "" Then
GetFileName = mid(FullPath,InStrRev(FullPath, "\")+1)
Else
GetFileName = ""
End If
End function

Private function toByte(Str)
dim i,iCode,c,iLow,iHigh
toByte=""
For i=1 To Len(Str)
c=mid(Str,i,1)
iCode =Asc(c)
If iCode<0 Then iCode = iCode + 65535
If iCode>255 Then
iLow = Left(Hex(Asc(c)),2)
iHigh =Right(Hex(Asc(c)),2)
toByte = toByte & chrB("&H"&iLow) & chrB("&H"&iHigh)
Else
toByte = toByte & chrB(AscB(c))
End If
Next
End function
End Class

Class FileInfo
dim FormName,FileName,FilePath,FileSize,FileStart
Private Sub Class_Initialize
FileName = ""
FilePath = ""
FileSize = 0
FileStart= 0
FormName = ""
End Sub

Public function SaveAs(FullPath)
dim dr,ErrorChar,i
SaveAs=1
if trim(fullpath)="" or FileSize=0 or FileStart=0 or FileName="" then exit function
if FileStart=0 or right(fullpath,1)="/" then exit function
set dr=CreateObject("Adodb.Stream")
dr.Mode=3
dr.Type=1
dr.Open
upfile_5xSoft_Stream.position=FileStart-1
upfile_5xSoft_Stream.copyto dr,FileSize
dr.SaveToFile FullPath,2
dr.Close
set dr=nothing
SaveAs=0
end function
End Class
</SCRIPT>

完.....................

posted on 2006-06-13 15:27 blog搬家了--[www.ialway.com/blog] 閱讀(10963) 評(píng)論(26) 編輯收藏所屬分類: PHP

FeedBack:

# re: 無組件ASP文件上傳源代碼經(jīng)本人測(cè)試通過............ [轉(zhuǎn)] 2006-09-20 15:11 紅紅私服發(fā)布網(wǎng)

bu hao a 回復(fù) 更多評(píng)論

# re: 無組件ASP文件上傳源代碼經(jīng)本人測(cè)試通過............ [轉(zhuǎn)] 2006-10-16 09:07 乞怪豬在學(xué)習(xí)!

好的.我自己都在用的. 回復(fù) 更多評(píng)論

# re: 無組件ASP文件上傳源代碼經(jīng)本人測(cè)試通過............ [轉(zhuǎn)] 2006-10-16 09:07 乞怪豬在學(xué)習(xí)!

這個(gè)東東是動(dòng)網(wǎng)上的東東. 回復(fù) 更多評(píng)論

# re: 無組件ASP文件上傳源代碼經(jīng)本人測(cè)試通過............ [轉(zhuǎn)] 2008-08-19 17:08 fei

帥上傳成功回復(fù) 更多評(píng)論

# re: 無組件ASP文件上傳源代碼經(jīng)本人測(cè)試通過............ [轉(zhuǎn)] 2008-08-27 16:06 11

11 回復(fù) 更多評(píng)論

# re: 無組件ASP文件上傳源代碼經(jīng)本人測(cè)試通過............ [轉(zhuǎn)] 2008-09-27 01:06 1123

我的怎么不可以啊運(yùn)行后他說我Microsoft VBScript 運(yùn)行時(shí)錯(cuò)誤 '800a01fa'

類沒有被定義: 'upload_5xSoft'
那位大哥給我解決啊回復(fù) 更多評(píng)論

# re: 無組件ASP文件上傳源代碼經(jīng)本人測(cè)試通過............ [轉(zhuǎn)] 2008-10-25 23:16 機(jī)戰(zhàn)私服 www.jzsf800.cn

機(jī)戰(zhàn)私服 www.jzsf800.cn 回復(fù) 更多評(píng)論

# re: 無組件ASP文件上傳源代碼經(jīng)本人測(cè)試通過............ [轉(zhuǎn)] 2008-10-25 23:16 www.jzsf800.cn

www.jzsf800.cn 回復(fù) 更多評(píng)論

# re: 無組件ASP文件上傳源代碼經(jīng)本人測(cè)試通過............ [轉(zhuǎn)] 2008-11-20 13:26 re

ADODB.Stream 錯(cuò)誤 '800a0bbc'

寫入文件失敗。

/upload.inc，行 175
回復(fù) 更多評(píng)論

# re: 無組件ASP文件上傳源代碼經(jīng)本人測(cè)試通過............ [轉(zhuǎn)][未登錄] 2008-12-19 15:17 aa

我也報(bào)錯(cuò)
回復(fù) 更多評(píng)論

# re: 無組件ASP文件上傳源代碼經(jīng)本人測(cè)試通過............ [轉(zhuǎn)] 2009-06-15 10:07 網(wǎng)友

呵呵，謝謝，我的也成功了。不成功是因?yàn)橐谀愕哪夸浝锩嫘陆ㄒ粋€(gè)update文件夾用來保存上傳的圖片文件
回復(fù) 更多評(píng)論

# re: 無組件ASP文件上傳源代碼經(jīng)本人測(cè)試通過............ [轉(zhuǎn)][未登錄] 2009-07-29 12:26 王雷

有這份心...
不錯(cuò),C回去研究一下...
這個(gè)課題我被困擾好久了... 回復(fù) 更多評(píng)論

# re: 無組件ASP文件上傳源代碼經(jīng)本人測(cè)試通過............ [轉(zhuǎn)] 2009-07-31 14:35 迷蒙蒙

成功！謝謝！
建一個(gè)updata文件夾回復(fù) 更多評(píng)論

# re: 無組件ASP文件上傳源代碼經(jīng)本人測(cè)試通過............ [轉(zhuǎn)] 2009-08-30 14:02 訴訟

成功上傳。謝謝！回復(fù) 更多評(píng)論

# re: 無組件ASP文件上傳源代碼經(jīng)本人測(cè)試通過............ [轉(zhuǎn)] 2009-10-07 14:02 stf

上傳ok 回復(fù) 更多評(píng)論

# re: 無組件ASP文件上傳源代碼經(jīng)本人測(cè)試通過............ [轉(zhuǎn)][未登錄] 2009-11-01 10:51 小虎

謝謝樓主哦~~
我今天找得快崩潰了，總算找到了一個(gè)好的啦~~

謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝回復(fù) 更多評(píng)論

# re: 無組件ASP文件上傳源代碼經(jīng)本人測(cè)試通過............ [轉(zhuǎn)] 2009-11-02 13:51 冰城

需要建立一個(gè)updata的文件夾,而不是update的文件夾,而且還修改文件夾的寫入屬性。
msn:icycity@163.com 回復(fù) 更多評(píng)論

# re: 無組件ASP文件上傳源代碼經(jīng)本人測(cè)試通過............ [轉(zhuǎn)] 2009-11-17 13:31 cooleaf

我的為什么按上述設(shè)置了還是不行呢？
1.在C:\Inetpub\wwwroot下建一目錄“updata”；
2.在此目錄上點(diǎn)右鍵屬性欄里取消只讀屬性；
3.執(zhí)行文件上傳后報(bào)錯(cuò)如下：
錯(cuò)誤類型：
ADODB.Stream (0x800A0BBC)
寫入文件失敗。
/upload.inc, 第 175 行

瀏覽器類型：
Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; CIBA; .NET CLR 2.0.50727; .NET CLR 1.1.4322; .NET CLR 3.0.04506.648; .NET CLR 3.5.21022) 回復(fù) 更多評(píng)論

# re: 無組件ASP文件上傳源代碼經(jīng)本人測(cè)試通過............ [轉(zhuǎn)] 2010-01-11 17:26 sunqiuli

xiexie 回復(fù) 更多評(píng)論

# re: 無組件ASP文件上傳源代碼經(jīng)本人測(cè)試通過............ [轉(zhuǎn)] 2013-11-23 13:51 wuyaog

你好，我測(cè)試后怎么老是提示：

Microsoft VBScript 運(yùn)行時(shí)錯(cuò)誤 '800a01fa'
類沒有被定義: 'upload_5xSoft'
\saveannouce_upfile.asp, line 17

是哪出問題了？

回復(fù) 更多評(píng)論

# re: 無組件ASP文件上傳源代碼經(jīng)本人測(cè)試通過............ [轉(zhuǎn)] 2014-05-23 18:20 flybrid123

太好了！！！整整一天了！！回復(fù) 更多評(píng)論

# re: 無組件ASP文件上傳源代碼經(jīng)本人測(cè)試通過............ [轉(zhuǎn)] 2014-10-26 22:46 莎莎

sdfs 回復(fù) 更多評(píng)論

# re: 無組件ASP文件上傳源代碼經(jīng)本人測(cè)試通過............ [轉(zhuǎn)] 2014-10-26 22:48 30540562

樓主,我找這個(gè)問題很久了,一直沒解決好.
我測(cè)試后提示：

Microsoft VBScript 運(yùn)行時(shí)錯(cuò)誤 '800a01fa'
類沒有被定義: 'upload_5xSoft'
\saveannouce_upfile.asp, line 17

是哪出問題了？
回復(fù) 更多評(píng)論

# re: 無組件ASP文件上傳源代碼經(jīng)本人測(cè)試通過............ [轉(zhuǎn)] 2014-11-10 09:11 keven

因?yàn)槟鉼pload.inc類沒有調(diào)用正確，upload.inc這個(gè)寫進(jìn)去你肯定需要用<%%>將方法包含起來的回復(fù) 更多評(píng)論

# re: 無組件ASP文件上傳源代碼經(jīng)本人測(cè)試通過............ [轉(zhuǎn)] 2014-11-20 19:32 秀

為什么上傳不了，數(shù)據(jù)庫url還亂碼


 /table>
</body>
</html>
<%
if Request.QueryString("act")="ok" then
set rs=server.createobject("adodb.recordset")
sql="select * from download"
rs.open sql,conn,1,3
title=request.form("title")
ly=request.form("ly")
zz=request.form("zz")
body=request.form("body")
url="..\upload\"&Trim(Request.Form("file1"))
'''''
dim upload,file,formName,formPath
set upload=new upload_5xSoft ''''建立上傳對(duì)象
formPath=upload.form("filepath") ''''在目錄后加(/)
if right(formPath,1)<>"/" then formPath=formPath&"/"
for each formName in upload.file ''''列出所有上傳了的文件
set file=upload.file(formName) ''''生成一個(gè)文件對(duì)象

if file.FileSize>0 then ''''如果 FileSize > 0 說明有文件數(shù)據(jù)
file.SaveAs Server.mappath("..\upload\"&file.FileName) ''''保存文件
end if
set file=nothing
next
set upload=nothing

''''

if title="" then
response.Write("<script language=javascript>alert('下載名稱不能為空!');history.go(-1)</script>")
response.end
end if
if url="" then
response.Write("<script language=javascript>alert('下載地址不能為空!');history.go(-1)</script>")
response.end
end if
if body="" then
response.Write("<script language=javascript>alert('內(nèi)容不能為空!');history.go(-1)</script>")
response.end
end if
rs.addnew
rs("title")=title
rs("ly")=ly
rs("zz")=zz
rs("body")=body
rs("url")=url
rs.update
rs.close
set rs=nothing
conn.close
set rs=nothing
Response.Write "<script>alert('恭喜你，下載資源增加成功，點(diǎn)擊繼續(xù)添加！');window.location.href='add_download.asp';</script>"
end if
%> 回復(fù) 更多評(píng)論

# re: 無組件ASP文件上傳源代碼經(jīng)本人測(cè)試通過............ [轉(zhuǎn)][未登錄] 2015-05-15 10:52 匿名

An error occurred on the server when processing the URL. Please contact the system administrator.
If you are the system administrator please click here to find out more about this error
出現(xiàn)這個(gè)是什么原因？回復(fù) 更多評(píng)論

新用戶注冊(cè) 刷新評(píng)論列表


只有注冊(cè)用戶登錄后才能發(fā)表評(píng)論。




網(wǎng)站導(dǎo)航: 博客園 IT新聞 Chat2DB C++博客博問管理
相關(guān)文章: 用PHP讀取和編寫XML DOM 在PHP5中使用DOM控制XML 使用PHP5 DOM-XML創(chuàng)建和解析XML文件讓getElementsByName適應(yīng)IE和firefox 關(guān)于網(wǎng)頁播放器。。 asp刪除文件的函數(shù)（三個(gè)） FileSystemObject處理文件無組件ASP文件上傳源代碼經(jīng)本人測(cè)試通過............ [轉(zhuǎn)] ASP操作XML文件的完整實(shí)例 ASP操作XML數(shù)據(jù)

主站蜘蛛池模板：黄山市| 山西省| 霍林郭勒市| 光山县| 富顺县| 桐乡市| 忻州市| 江川县| 随州市| 麻阳| 青冈县| 遂平县| 湛江市| 平泉县| 延寿县| 新乡市| 中牟县| 仙游县| 富源县| 那曲县| 敦煌市| 和平区| 依兰县| 南木林县| 宾阳县| 宜春市| 萍乡市| 宁武县| 宽甸| 壶关县| 定州市| 美姑县| 宿州市| 靖远县| 宁津县| 永平县| 化德县| 永和县| 乌拉特前旗| 寿阳县| 二手房|