说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

帮帮忙,简单问题,但是急需答案,今天下午两点之前一定结帖

编辑:说三道四文库 发布时间:2018-02-20 02:09
HTML文档下载 WORD文档下载 PDF文档下载
如何能够在网页中批量添加图片,听说可以用在数据库中提取路径的方法,但是不知道如何做,那位高手不吝赐教!
我用的是asp+access
另外,对网页制作来说我是新手,所以最好能越详细越好!
1.如果你有使用组件的权限,建议使用www.chinaasp.com/download里面的fileup组件,同时将文件上传到一个指定的目录内,在数据库中保存图片的名字(当然要改名了)和路径.
下面给你点代码:
  <%
function cgfilename()
  fname = now()
  vy=year(fname)
  vm=month(fname)
  if vm<10 then
    vm="0"&vm
  end if
  vd=day(fname)
  if vd<10 then
    vd="0"&vd
  end if
  vhour=hour(fname)
  vmin=minute(fname)
  vsec=second(fname)
  vname=vy&vm&vd&vhour&vmin&vsec
  cgfilename=vname
end function 
function getFileExtName(fileName)
dim pos
pos=instrrev(filename,".")
if pos>0 then 
getFileExtName=mid(fileName,pos+1)
else
getFileExtName=""
end if
end function
set FileUp=server.createobject("ChinaASP.UpLoad")
  set f=fileup.files("myface")
if f.isempty=false then
 face="upic/"&cgfilename()&"."&getFileExtName(f.fileName)
 f.saveas server.MapPath("/myhome/"&face)
end if
 set rs1=server.createobject("adodb.recordset")
             sql1="select * from club_user where username='"&nickname&"'"
             rs1.open sql1,conn,1,3
             rs1("homepage")=trim(fileup.form("homepage"))
    rs1("face")=face
             rs1.update
rs1.close
set rs1=nothing
%>
使用时用<%=rs("face")%>得出路径就可以了.支持批量上传.管理时用fso组件,同时覆盖或者删除图片文件.
2.如果不能使用组件,就用无组件上传.
 www.aspsky.net里面有源代码.
to freezwy(网络自由人) 
谢谢你的答案,我先看一看!
to freezwy(网络自由人) 
出了点问题
www.aspsky.net我怎么也进不去。
to freezwy(网络自由人) 

除了www.aspsky.net,还有没有其他地方有这个问题的原代码?
突然发现我无法给分了!等我找到法子,在给你加分,
或者你也可以告诉我,我现在找不到加分的按钮了!
www.chinaasp.com和webcn.net/asphouse都有源代码.可以去看看.
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘