asp显示access数据库一个id下多幅图片的问题(页 2) - 程序开发 - TechWeb-技术社区

2007-12-8 21:18

就我一人,不是做网站,是在网站里面加点功能

2007-12-8 21:18

一共3个文件,第一个upload_5xsoft.inc B8{\4TA1w8{j9]$X

HTML code
<SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT>LH;n/]%xZ

dim upfile_5xSoft_Stream
.m"M?q7]
Class upload_5xSoft
  2?2]p n^"B^)xk h
dim Form,File,Versionof[9vX

Private Sub Class_Initialize
dim iStart,iFileNameStart,iFileNameEnd,iEnd,vbEnter,iFormStart,iFormEnd,theFile
dim strDiv,mFormName,mFormValue,mFileName,mFileSize,mFilePath,iDivLen,mStr;XrnI b1h!Vd"oo
Version="HTTP上传程序 Version 1.0",`H(y)l@
if Request.TotalBytes<1 then Exit Sub$ULN;U%S'[
set Form=CreateObject("Scripting.Dictionary")l#pu$uuv-\;y+V8d
set File=CreateObject("Scripting.Dictionary")
set upfile_5xSoft_Stream=CreateObject("Adodb.Stream")ky-dl Ni:]
upfile_5xSoft_Stream.mode=3z'v;N R8@#i2sO
upfile_5xSoft_Stream.type=1
upfile_5xSoft_Stream.open
upfile_5xSoft_Stream.write Request.BinaryRead(Request.TotalBytes)G V6qr!Cw.\d

vbEnter=Chr(13)&Chr(10)
iDivLen=inString(1,vbEnter)+1
strDiv=subString(1,iDivLen)@1N(vZ-da)kE.uo]]
iFormStart=iDivLen
iFormEnd=inString(iformStart,strDiv)-1 d.OZ(jBY-j{H
while iFormStart < iFormEnd
  iStart=inString(iFormStart,"name=""")
  iEnd=inString(iStart+6,"""")
  mFormName=subString(iStart+6,iEnd-iStart-6)(jHN5n7l}
  iFileNameStart=inString(iEnd+1,"filename=""")
  if iFileNameStart>0 and iFileNameStart<iFormEnd then J/z7}6c'N)C1u_vD5]
iFileNameEnd=inString(iFileNameStart+10,"""")sH0vP~ `O}@
mFileName=subString(iFileNameStart+10,iFileNameEnd-iFileNameStart-10)
iStart=inString(iFileNameEnd+1,vbEnter&vbEnter)
iEnd=inString(iStart+4,vbEnter&strDiv)
if iEnd>iStart then |6[@(b1K Qs;IS6E-ZI
mFileSize=iEnd-iStart-4En%TEs4O2KA ~
else SG;Y6[0fbU
mFileSize=0
end if
set theFile=new FileInfoaH:{(p@\TS#W
theFile.FileName=getFileName(mFileName)
theFile.FilePath=getFilePath(mFileName)
theFile.FileSize=mFileSize
theFile.FileStart=iStart+4 G(~_SpIg]3x
theFile.FormName=FormNameL T%CVm
file.add mFormName,theFile
  else
iStart=inString(iEnd+1,vbEnter&vbEnter)
iEnd=inString(iStart+4,vbEnter&strDiv);j1};i$jM&Q!}i$s
(o4\1zw_"Fq9d
if iEnd>iStart then
mFormValue=subString(iStart+4,iEnd-iStart-4)
else
mFormValue=""
end ifsV)~9NMi
form.Add mFormName,mFormValueE)zm4z.?(}%k
  end if#~9MB&t~;B/n
R1L S6S6xYH8x;W ~-g
  iFormStart=iformEnd+iDivLen
  iFormEnd=inString(iformStart,strDiv)-1zXp o:B1k$Q n[:`
wendBcw"p)n
End SubMAB!r7La$e

Private Function subString(theStart,theLen)
dim i,c,stemp
upfile_5xSoft_Stream.Position=theStart-1
stemp=""
for i=1 to theLen
if upfile_5xSoft_Stream.EOS then Exit for$[tX"Q5A2o i7r
c=ascB(upfile_5xSoft_Stream.Read(1))
If c > 127 Then
if upfile_5xSoft_Stream.EOS then Exit for
stemp=stemp&Chr(AscW(ChrB(AscB(upfile_5xSoft_Stream.Read(1)))&ChrB(c)))
i=i+1i7|6Kk W"WE-JlY
else
stemp=stemp&Chr(c)
End If
Next
subString=stemps [g6z'N G"[ vo3w7v
End function0q%y3s m @mU5G
C*y-h0ZD@S3FL`
Private Function inString(theStart,varStr)
dim i,j,bt,theLen,str
InString=0
Str=toByte(varStr)V(H V Yj
theLen=LenB(Str)
for i=theStart to upfile_5xSoft_Stream.Size-theLen
if i>upfile_5xSoft_Stream.size then exit Function
upfile_5xSoft_Stream.Position=i-1
if AscB(upfile_5xSoft_Stream.Read(1))=AscB(midB(Str,1)) thenxq,mZV8wO*T
InString=idI2dP-Zx m
for j=2 to theLen
   if upfile_5xSoft_Stream.EOS then
      inString=0
      Exit for
   end if
   if AscB(upfile_5xSoft_Stream.Read(1))<>AscB(MidB(Str,j,1)) then6M&I%z\!r%cm"p9lc
      InString=0&|V"MO0z}9a
      Exit For
   end if
nextp9g8?+ibv4eE
if InString<>0 then Exit Function
end if
next'|]6`;cO,Nv
End FunctionHbR&P5s7_3WH

Private Sub Class_Terminate
  form.RemoveAll
  file.RemoveAll
  set form=nothing;j&h{7}&u-Ic
  set file=nothing
  upfile_5xSoft_Stream.close
  set upfile_5xSoft_Stream=nothing
End Sub
4KPiCY7l

Private function GetFilePath(FullPath)H;r,@y,g/@^7P8ts
  If FullPath <> "" Then
GetFilePath = left(FullPath,InStrRev(FullPath, "\"))
  Else L SZ`zi!F
GetFilePath = ""
  End If3y;suo5S
End  functionE7euU[z
1`*KFY}U]n
Private function GetFileName(FullPath)
  If FullPath <> "" Then
GetFileName = mid(FullPath,InStrRev(FullPath, "\")+1)
  Else
GetFileName = ""C(g:y ds5s
  End If
End  function
ogAfA']#z,\
Private function toByte(Str)!g@sv`.Q^S
dim i,iCode,c,iLow,iHigh
toByte=""-y ZMt,?U u
For i=1 To Len(Str) vOkc7T
c=mid(Str,i,1)Sd(k+k3b}5Hnu9R
iCode =Asc(c)
If iCode<0 Then iCode = iCode + 65535h-Pr&tM1v
If iCode>255 Thenv&Q%~'pr X}
   iLow = Left(Hex(Asc(c)),2)hVN&g.Y [z1s$c)K
   iHigh =Right(Hex(Asc(c)),2)
   toByte = toByte & chrB("&H"&iLow) & chrB("&H"&iHigh)r I1`W/K X*MB
Else
   toByte = toByte & chrB(AscB(c))
End If-pf/[5\dD*G
Next
End function PkC2`d&|3@d
End Class%O/KJI5@rI jq'y&P
7],n\3iZQ

Class FileInfo
  dim FormName,FileName,FilePath,FileSize,FileStartv#`,izs L)S6H5D
  Private Sub Class_Initialize
FileName = ""
FilePath = ""
FileSize = 0
FileStart= 0kQp/[ ?!{3C
FormName = ""L5@C ]ka$wH
  End Sub
  S*M5j*Vr J*aH
Public function SaveAs(FullPath)LKX#Dt
dim dr,ErrorChar,i
SaveAs=1(W yzE|k
if trim(fullpath)="" or FileSize=0 or FileStart=0 or FileName="" then exit function
if FileStart=0 or right(fullpath,1)="/" then exit function
set dr=CreateObject("Adodb.Stream")b5IPNzl7w
dr.Mode=39S/]v+b^8sD1h
dr.Type=1
dr.Open1kw4w:e9Nb}-@
upfile_5xSoft_Stream.position=FileStart-1A hh0y`
upfile_5xSoft_Stream.copyto dr,FileSizeCxy(X r-l
dr.SaveToFile FullPath,2
dr.Close
set dr=nothing ih"Tw%CPo
SaveAs=01p4b-bTP,Vr
  end function
End Class
</SCRIPT>

2007-12-8 21:18

HTML coden+VFU7_}_Fb
XE*d4n"A*_i)M2[

第二个upfile.aspM9p^wEa6d9}o6T

<html>
<head>
<title>附件上传</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"> \/c(P)``1W@
<style type="text/css">V)d&usem'k Ca

</style>oMGlbEJH
<script language="JavaScript">
  VB_4MdHAS
</script>[TT1F,@#c

</head>
0E1WCr)cg Q^
<body topmargin="20" leftmargin="20">
<div id="Layer1" style="display:none;position:absolute; width:100%; height:80%; z-index:3; left: 20px; top: 20px; background-color: #799AE1; layer-background-color: #006699; border: 1px solid #006699;vertical-align:middle;text-align:center;">
<table >gJ1XK;GyB-H
<tr>PI'L7U3qr;Fha"?)b
<td style="width:100%;height:80px" align="center" valign="middle">
文件正在上传，请稍候......r{I@;EV
</td>G.RE$ZZ9|-s?a`
</tr>7zFA6Q y Qar#kV
</table>
</div>'zBBS(|5g#G/~V
<form name="form1" method="post" action="upfilesubmit.asp" enctype="multipart/form-data" >)l,wle[Y*\C
  <p>
<input type="hidden" name="upcount" class="tx" value="1" size="20">];aO*N*F a^ ` voT
<input type="hidden" name="act" value="upload">
  </p><br>
  <table width="100%" border="1" cellspacing="0" cellpadding="5" align="center" bordercolordark="#CCCCCC" bordercolorlight="#000000" height="58">0\h^m5Z`0n^'X
<script language="javascript">Xods^tt
   function setid()
   {f-[ f{e.|N
   str='<br>';
   if(!window.form1.upcount.value)fIau"d'a\Pu(F
   window.form1.upcount.value=1;L\2\;B8t Jo zuj
   for(i=1;i<=window.form1.upcount.value;i++)zk!fgh2H
      str+='文件'+i+':<input type="file" name="file'+i+'" style="width:200" class="tx1"><br><br>';8Bv^,wFOf$}U
   window.upid.innerHTML=str+'<br>';QpKy8Jf
   }
      </script>DT-F$i3@:jgp
<input type="hidden" name="filepath" size="20" value="<%=upfilefolder%>">
<tr align="center" valign="middle"> {4ekY@V#X;ev
   <td align="left" id="upid" > 文件:
      <input type="file" name="file1"  value="" style="width:80%"> </td>#z;v,{\se:^/V
</tr>
<tr align="center" valign="middle" >yB0A^~1vVk
   <td  height="16" align="left" bgcolor="#FFFFCC"><font color="#FF0000">*如果文件稍大，请耐心等待!</font></td>{0GF j H*@R7C
</tr>"S7W9b#L+e
<tr align="center" valign="middle" >
   <td  height="16" width="274"> <input type="submit" name="Submit" value=" 上传 " onClick="return check();">
      <input type="reset" name="Submit2" value=" 重置 "> </td>2?7xS(a(R,G` X0~
</tr>
  </table> -v7c}V)u'}.hUzt
</form> +m3n4bG"s]
</body>
</html> [_8f!k$P uei
<script language="javascript">

//setid();
</script>

2007-12-8 21:18

HTML code j/grZK

第三个upfilesubmit.aspeu6S)p6Uc2r4\~
<%'OPTION EXPLICITs'u` I!o t

%>
*z+E,X'K-WUm
DbYrz:L5mhi)b
<%
Server.ScriptTimeout=900
dim upload,file,formName,formPath,iCount%M'p'p0hg(\8mL
set upload=new upload_5xSoft ''建立上传对象 T#xMkmRU@

formPath=upload.form("filepath")
'在目录后加(/)
if right(formPath,1)<>"/" then v$Y6Lmh8|9[
formPath=formPath&"/"
end if
t X]9S5pjv
iCount=0p}S zXYN^ QP
for each formName in upload.file ''列出所有上传了的文件XX/eF\ k;m;|
set file=upload.file(formName)  ''生成一个文件对象S%fg8W4[Q

'fileExt=lcase(right(file.filename,4))  ''扩展名
'filename=formPath&year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&file.FileNameTV,@f{7@
filename=formPath&file.filename
'newfilename=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&FileExt$qI+M&|^y*~6F

oldfilename=file.filename
if file.FileSize>0 then       ''如果 FileSize > 0 说明有文件数据9]k%xH4Af1Qbu6Ld|-f
file.SaveAs Server.mappath(filename) ''保存文件
iCount=iCount+1Z'UFAD!Wj@B%V
end ifarT3x%j7}+V8W"[
set file=nothing\A9?/a*H|qC
next
set upload=nothing
'写入附件表3hn|-s \P
'sql="insert into CommenInfoAttach (InfoID,AttachType,AttachOldName,AttachNewName) values ('"
'sql=sql+cstr(session("NewInfoID"))+"',1,'"
'sql=sql+oldfilename+"','"2u)v-@/Gzm[Y7N;k
'sql=sql+newfilename+"')"/q'd1?9H6q#yl+kM6[%sR
'response.Write(sql)
'conn.execute sql bii E:tdJN$R
C"`'AC.`T8U
response.write("恭喜您，上传成功！") HF7wA$s

%>)RM8M;ur1oW8L
<%
2G-Q!`*|8Byb+E$d
'window.opener.upfiletd.innerHTML=window.opener.upfiletd.innerHTML+'<%=oldfilename%>7zo.o T"vt
<%'window.close();

%>

2007-12-8 21:19

我能帮到你的就这么多了,其实网上这东西很多的

2007-12-8 21:19

多谢大哥鼎力相助!!!
小弟在此感激不尽!!

2007-12-8 21:19

再问一个问题: "Au RJVp9e^(H
上传的图片到哪了,我想把他放在images这个文件夹下,在哪修改可以?