共享乙個批量上傳的asp類
by hank 發表於 2006-8-7 16:52:56
主檔案register.asp
reg_upload.asp相關**選擇
uppoto.asp的**：
<%
dim arr(5),showarr(5)
dim upload,file,formname,formpath,icount,filename,fileext,i
set upload=new upload_5xsoft ''建立上傳物件
formpath="../hospitalfoto/"
'formpath=upload.form("filepath")
''在目錄後加(/)
'if right(formpath,1)<>"/" then formpath=formpath&"/"
icount=0
i=0for each formname in upload.file ''列出所有上傳了的檔案
set file=upload.file(formname) ''生成乙個檔案物件
if file.filesize<0 then
response.write "請先選擇你要上傳的 [ 重新上傳 ]"
response.end
end if
if file.filesize>1024000 then
response.write "檔案大小超過了限制 [ 重新上傳 ]"
response.write "檔案格式不對 [ 重新上傳 ]"
response.end
end if
randomize
rannum=int(90000*rnd)+10000
filename=formpath&year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&rannum&fileext
showfilename=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&rannum&fileext
arr(i)=filename
showarr(i)=showfilename
i=i+1
icount=icount+1
end if
end if
set file=nothing
next
if instr(arr(0),".")=0 and instr(arr(1),".")=0 and instr(arr(2),".")=0 then
response.write "請先選擇你要上傳的 [ 重新上傳 ]"
response.end
end if
if instr(arr(0),".")<>0 then
response.write ""
else
response.write ""
end if
if instr(arr(1),".")<>0 then
response.write ""
else
response.write ""
end if
if instr(arr(2),".")<>0 then
response.write ""
else
response.write ""
end if
if instr(arr(3),".")<>0 then
response.write ""
else
response.write ""
end if
if instr(arr(4),".")<>0 then
response.write ""
else
response.write ""
end if
set upload=nothing ''刪除此物件
session("upface")="done"
htmend icount&" 個檔案上傳結束!"
sub htmend(msg)
set upload=nothing
response.write "
檔案上傳成功！
本視窗3秒鐘後關閉！
"response.end
end sub
%>
最後是一般上傳用的無元件類
hos_upload.inc**：
還有缺陷就是更改的時候，批量上傳必須批量更改。具體的結果還需測試後再說。
如何編寫乙個ASP類
在 class 塊中，成員通過相應的宣告語句被宣告為 private 私有成員，只能在類內部呼叫 或 public 公有成員，可以在類內外部呼叫 被宣告為 private 的將只在 class 塊內是可見的。被宣告為 public 不僅在 class 塊的內部是可見的，對 class 塊之外的 也是...
ASP 的乙個靜態頁生成類
asp支援與資料庫 的互動，如microsoft sql server microsoft access mysql 和oracle 比較流行的是asp和microsoft sql server的組合。組織了下,寫了個靜態頁生成類 htmlmaker.asp 類檔案 janchie 2004 11 ...
ASP整合的乙個SQL語句類
asp整合的乙個sql語句類 熱 asp整合的乙個sql語句類 我們在寫asp資料庫程式的時候，通常都會用到sql語句，而在增加資料和更新資料的時候，通常會使用一下方式 insert into message incept,sender,title,content,sendtime,flag,iss...