动态网页开发基础实训指导书第十三次实训

————————————————————————————————　作者：
———————————————————————————————— 日期：
   
实训十三  ＡＳP+aｃcess实现无组件上传图片   
  本次实训的最终目的是将图片文件上传到文件夹，并将文件名写入数据库中。 
一、建立数据库ｍy,建表ｍyｆiｌe ,表中有四个字段 id(自动编号),upname(文本,表示上传者名字)，(文本,表示上传后的文件名)，uptiｍe(日期/时间,表示上传的时间)。 
二、建立一个名为mｙfiｌe的文件夹,用来放上传后的图片。 
三、代码部分 
１、upload＿5xｓoft.asp （这是一个写好的上传类，一会将该文件包含进去，只要会用就可以了） 
<%
  dim  Datａ_５xsofｔ 
  Cｌaｓs  uplｏad＿5xｓｏｆｔ
  diｍ  ｏbjFｏrm,oｂj 
  Publiｃ  funｃtｉon  Form(strForｍ) 
  ｓｔrFoｒm=lcaｓe（sｔrＦｏrm） 
  if  noｔ  oｂiｓtｓ（sｔrＦｏrm)  ｔｈen 
  Foｒm=＂＂
  eｌse 
  Ｆoｒm=obｊForm(stｒFoｒｍ) 
  end  if 
  end  fuｎctiｏn 
 
  Pｕbｌｉｃ  funｃtiｏn  ) 
  stｒ(strFilｅ) 
  ｉf  nｏt  obｊ(strFｉlｅ)  ｔｈｅn
  seｔ     
  else 
  set  (strＦile) 
  eｎd  iｆ 
enｄ  fｕｎctｉoｎ
网页colspan
Privａte  Sub  Ｃlass_Initiａlize 
  dim  ReｑｕeｓtDaｔａ,ｓStart，vbCrlf,ｓIｎfo,iInｆoStart,iInfoＥnd,tＳtｒeaｍ,ｉStarｔ,theＦilｅ 
  dｉm  i 
  dｉm  iFiｎdStart,iFｉndEnd 
  dim  iForｍStａrt，iFormEｎd,sFormNａｍe 

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。