？？一个难题，如何在上传html文件的同时上传图片？？

[hzpike]

如何在上传html文件的同时 上传该html文件中所有关联的图片？
有谁做过吗，提个建议也好？？

[Fiven_Luo]

Response.Expires=0
Function bin2str(binstr)
Dim varlen,clow,ccc,skipflag

skipflag=0
ccc = ""
If Not IsNull(binstr) Then
varlen=LenB(binstr)
For i=1 To varlen
If skipflag=0 Then
clow = MidB(binstr,i,1)
If AscB(clow) > 127 Then
ccc =ccc & Chr(AscW(MidB(binstr,i+1,1) & clow))
skipflag=1
Else
ccc = ccc & Chr(AscB(clow))
End If
Else
skipflag=0
End If
Next
End If
bin2str = ccc
End Function


varByteCount = Request.TotalBytes
bnCRLF = chrB( 13 ) & chrB( 10 )
binHTTPHeader=Request.BinaryRead(varByteCount)
Divider = LEFTB( binHTTPHeader, INSTRB( binHTTPHeader, bnCRLF ) - 1 )

'开始读非文件域的数据
Do while lenB(binHTTPHeader)>46

binHeaderData = LeftB(binHTTPHeader, INSTRB( binHTTPHeader, bnCRLF & bnCRLF )-1)
strHeaderData=bin2str(binHeaderData)

lngFieldNameStart=Instr(strHeaderData,"name="&chr(34))+Len("name="&chr(34))
lngFieldNameEnd=Instr(lngFieldNameStart,strHeaderData,chr(34))


strFieldName=Mid(strHeaderData,lngFieldNameStart,lngFieldNameEnd-lngFieldNameStart)
strFieldName=Trim(strFieldName)
strFieldName=Replace(strFieldName,vbcrlf,vbnullstring)

'判断文件数据时候开始
If strComp(strFieldName,"FileUploadStart",1)=0 Then
binHTTPHeader=MIDB(binHTTPHeader,INSTRB( DataStart + 1, binHTTPHeader, divider ))
exit do
End if

DataStart = INSTRB( binHTTPHeader, bnCRLF & bnCRLF ) + 4
DataEnd = INSTRB( DataStart + 1, binHTTPHeader, divider ) - DataStart

binFieldValue=MIDB( binHTTPHeader, DataStart, DataEnd )
strFieldValue=bin2str(binFieldValue)
strFieldValue=Trim(strFieldValue)
strFieldValue=Replace(strFieldValue,vbcrlf,vbnullstring)

'非文件上传域变量赋值
execute strFieldName&"="""&strFieldValue&""""


binHTTPHeader=MIDB(binHTTPHeader,INSTRB( DataStart + 1, binHTTPHeader, divider ))

loop

'开始处理文件数据
Do while lenB(binHTTPHeader)>46


binHeaderData = LeftB(binHTTPHeader, INSTRB( binHTTPHeader, bnCRLF & bnCRLF )-1)

strHeaderData=bin2str(binHeaderData)

'读取上传文件的Content-Type
lngFileContentTypeStart=Instr(strHeaderData,"Content-Type:")+Len("Content-Type:")
strFileContentType=Trim(Mid(strHeaderData,lngFileContentTypeStart))
strFileContentType=Replace(strFileContentType,vbCRLF,vbNullString)

'读取上传的文件名
lngFileNameStart=Instr(strHeaderData,"filename="&chr(34))+Len("filename="&chr(34))
lngFileNameEnd=Instr(lngFileNameStart,strHeaderData,chr(34))
strFileName=Mid(strHeaderData,lngFileNameStart,lngFileNameEnd-lngFileNameStart)
strFileName=Trim(strFileName)
strFileName=Replace(strFileName,vbCRLF,vbNullString)

s=right(strFileName,4)


'读取上传文件数据
DataStart = INSTRB( binHTTPHeader, bnCRLF & bnCRLF ) + 4
DataEnd = INSTRB( DataStart + 1, binHTTPHeader, divider ) - DataStart

If strFileName<>"" Then

binFieldValue=MIDB( binHTTPHeader, DataStart, DataEnd )

'将上传的文件写入数据库\存成文件

if s=".htm" then
....'存网页
eles if s=".jpg" or s=".gif" or s=".bmp" then
....'存图片
end if
end if


End if

binHTTPHeader=MIDB(binHTTPHeader,INSTRB( DataStart + 1, binHTTPHeader, divider ))

loop

[hzpike]

大家好像还没明白我的意思

我要上传一个xxx.htm文件到网站，xxx.htm文件中有代码<img src=yyy.gif>

所有我希望程序能判断xxx.htm中多少类似yyy.gif的图片文件，并把这些文件也传上去，放在合适的目录里，以便xxx.htm文件显示时也能正确的显示出来

关键不是怎么上传图片，而是如何判断某个html文件中有多少图片并得到图片的真实地址。

[MeXP]

你说的是上传站点吗？

[xjbx]

如果你用无组件上传图片的话，可以同时做到。
但用组件上传图片，就不能了！

[hzpike]

不是
就是上传某个网页文件，由于这个文件上传后要显示的，如果没上传图片文件，那么网页中有图片的地方不就无法正确显示了。

[hzpike]

我是无组件上传的

[hzpike]

没人做过吗

[iStringTheory]

首先用正则表达式分析html，找出其中的图片，然后循环读取上传。

[hzpike]

能具体点吗

[CTBOK]

具体就是用正则表达式，截取有img src="xxx"中的xxx的内容，然后再根据这个上传。至于怎样用正则表达式，你就要自己找找了

[fbj007]

其实直接用ftp上传也是方便的，就想MeXP(秦汉风)所说，上传页面后，再上传相关图片，应该不麻烦的。

[hzapeng]

fbj007(宝宝) 兄弟：
如果是我自己传哪用着那么麻烦？是给特定用户用的，有一定的权限，而且他们的计算机水平底，让他们自己上传所有关联的图片，难度很大。

有没有高手做过，给点代码，兄弟感激不尽！！

[skyhorsezxy]

手工噢。