webstatlinc.asp

来自「网上商场 帐户管理方面 1.实现了购物车和收藏夹的功能。 」· ASP 代码 · 共 37 行

<%OPTION EXPLICIT%>
<!--#include FILE="images/advb.inc"-->
<%
dim upload,file,formName,formPath,iCount
set upload=new upload_5xSoft ''

response.write upload.Version&"<br><br>"  ''

if upload.form("filepath")="" then
 HtmEnd ""
 set upload=nothing
 response.end
else
 formPath=upload.form("filepath")
 ''在目录后加(/)
 if right(formPath,1)<>"/" then formPath=formPath&"/" 
end if

iCount=0
for each formName in upload.file 
 set file=upload.file(formName) 
 if file.FileSize>0 then 
  file.SaveAs Server.mappath(formPath&file.FileName)   ''
  response.write file.FilePath&file.FileName&" ("&file.FileSize&") => "&formPath&File.FileName&" 成功!<br>"
  iCount=iCount+1
 end if
 set file=nothing
next
set upload=nothing  ''
Htmend iCount&" "

sub HtmEnd(Msg)
 set upload=nothing
 response.write "<br>"&Msg&" [<a href=""javascript:history.back();""></a>]</body></html>"
 response.end
end sub
%>