28,405
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
Againstwind 2004-01-19
- 打赏
- 举报
我找到的一些东西！
/---------------------------------------------------------------------FORM表單
<form id="form1" name="form1" method="post" action="form1.asp" enctype="multipart/form-data">
<input type="text" name="text">
<input type="file" name="image">
<input type="submit" name="button1" value="SUBMIT">
</form>
//---------------------------------------------------------------------ASP程式碼
dim Upload,A,B,Text,Image,ImgName,ImgPath,RC
'// Upload為BASP21元件使用之變數
'// A為將取得的值擁有多少Bytes之變數
'// B為將取得的值轉為二進位碼的變數
'// Text為Form內的表單值得變數
'// Image為取得來源圖檔絕對路徑(含檔名)之變數
'// ImgName為來源圖檔檔名之變數
'// ImgPath為圖檔欲儲存的路徑及檔名之變數
'// RC為檢查檔案是否上傳之變數
set Upload = server.CreateObject("BASP21") '// 建立BASP21伺服器物件
A = request.TotalBytes '// 將取得的值得Bytes值
B = request.BinaryRead(A) '// 將取得的值轉為二進位碼
Text = Upload.Form(B,"text") '// 取得Form值並轉為二進位碼
Image = Upload.FormFileName(B,"image") '// 取得圖檔絕對路徑(含檔名)
ImgName = mid(image,InStrRev(image)+1) '// 取得圖檔名稱(含副檔名)
ImgPath = server.MapPath("../images/") & ImgName '//你欲儲存檔案到哪裡的路徑及檔名
'// 檢查伺服器指定的路徑是否有相同的檔案
if Upload.FileCheck(ImgPath) >= 0 then
set Upload = nothing '//清空物件[註：務必清空，否則秀出來的網頁會變成二進位碼。]
response.Write(" ") &vbcrlf
response.End
else '// 若檔案不存在
RC = Upload.FormSaveAs(B,"image",ImgPath) '//上傳檔案從Form的檔案表單image到伺服器的ImgPath
'// 檢查檔案上傳成功與否
if RC <= 0 then
set Upload = nothing '//清空物件[註：務必清空，否則秀出來的網頁會變成二進位碼。]
response.Write(" ") &vbcrlf
response.End
end if
end if
你也可以取消檢查是否有重複的檔案直接覆蓋檔案
或者在FORM表單裡加個CheckBox來決定是否覆蓋檔案
下載位址：http://www.hi-ho.ne.jp/babaq/basp21.html
/---------------------------------------------------------------------FORM表單
<form id="form1" name="form1" method="post" action="form1.asp" enctype="multipart/form-data">
<input type="text" name="text">
<input type="file" name="image">
<input type="submit" name="button1" value="SUBMIT">
</form>
//---------------------------------------------------------------------ASP程式碼
dim Upload,A,B,Text,Image,ImgName,ImgPath,RC
'// Upload為BASP21元件使用之變數
'// A為將取得的值擁有多少Bytes之變數
'// B為將取得的值轉為二進位碼的變數
'// Text為Form內的表單值得變數
'// Image為取得來源圖檔絕對路徑(含檔名)之變數
'// ImgName為來源圖檔檔名之變數
'// ImgPath為圖檔欲儲存的路徑及檔名之變數
'// RC為檢查檔案是否上傳之變數
set Upload = server.CreateObject("BASP21") '// 建立BASP21伺服器物件
A = request.TotalBytes '// 將取得的值得Bytes值
B = request.BinaryRead(A) '// 將取得的值轉為二進位碼
Text = Upload.Form(B,"text") '// 取得Form值並轉為二進位碼
Image = Upload.FormFileName(B,"image") '// 取得圖檔絕對路徑(含檔名)
ImgName = mid(image,InStrRev(image)+1) '// 取得圖檔名稱(含副檔名)
ImgPath = server.MapPath("../images/") & ImgName '//你欲儲存檔案到哪裡的路徑及檔名
'// 檢查伺服器指定的路徑是否有相同的檔案
if Upload.FileCheck(ImgPath) >= 0 then
set Upload = nothing '//清空物件[註：務必清空，否則秀出來的網頁會變成二進位碼。]
response.Write(" ") &vbcrlf
response.End
else '// 若檔案不存在
RC = Upload.FormSaveAs(B,"image",ImgPath) '//上傳檔案從Form的檔案表單image到伺服器的ImgPath
'// 檢查檔案上傳成功與否
if RC <= 0 then
set Upload = nothing '//清空物件[註：務必清空，否則秀出來的網頁會變成二進位碼。]
response.Write(" ") &vbcrlf
response.End
end if
end if
你也可以取消檢查是否有重複的檔案直接覆蓋檔案
或者在FORM表單裡加個CheckBox來決定是否覆蓋檔案
下載位址：http://www.hi-ho.ne.jp/babaq/basp21.html
zhanghao5188 2004-01-18
- 打赏
- 举报
www.dearbook.com
flying310 2004-01-18
- 打赏
- 举报
想了解一下。
xeimm 2004-01-18
- 打赏
- 举报
帮你顶~~~~
winson79 2004-01-17
- 打赏
- 举报
谢谢！！
大家都春节好！！！
大家都春节好！！！
Againstwind 2004-01-17
- 打赏
- 举报
谢谢！！
大家都春节好！！！
大家都春节好！！！
Swanzy 2004-01-17
- 打赏
- 举报
http://www.knowsky.com/3387.html
nomoodforjoking 2004-01-17
- 打赏
- 举报
楼主春节好，大家春节好，中国软件网的弟兄们春节好，呼呼，过年喽，回家喽，还没有买票哦，晕菜喽，我好惨5555555555555555555555555555555
online 2004-01-17
- 打赏
- 举报
帮您顶了！兄弟！
aspnetxp 2004-01-17
- 打赏
- 举报
用ftp文件上传读取和保存不行吗？
Againstwind 2004-01-17
- 打赏
- 举报
多些各位了！！！
我主要是要看里面有关BASP21的相关内容，主要是文件上传读取和保存方面的东西。如果谁有能提供也一样送分的！
我主要是要看里面有关BASP21的相关内容，主要是文件上传读取和保存方面的东西。如果谁有能提供也一样送分的！
shijian58 2004-01-17
- 打赏
- 举报
没有见过，关注！顶
aspnetxp 2004-01-17
- 打赏
- 举报
没有这本书，其它的要不要？
TrueAndFalse 2004-01-17
- 打赏
- 举报
没有，帮忙！
qunluo 2004-01-17
- 打赏
- 举报
帮您顶了！兄弟！
好象在书店到是看见过！有点影象！我现在看的是ultradev大全，我不用UD但是书里提到到的很多内容是我看了这么多ASP书里最全面而且明了！（建议你看看）
好象在书店到是看见过！有点影象！我现在看的是ultradev大全，我不用UD但是书里提到到的很多内容是我看了这么多ASP书里最全面而且明了！（建议你看看）
xieyj 2004-01-17
- 打赏
- 举报
用 google 也搜索不到
tuoshi 2004-01-17
- 打赏
- 举报
呵呵，我没有，ＵＰ一下。
