Har virkelig brug for dette
Jeg har en side med billeder, vil have at bruger kan uploade billede med tekst. ??? jeg har et uploade script til billede, men hvordan skal jeg tilføje tekst til???<%
dim strAction
strAction = request("action")
select case strAction
case "upload"
UploadFile
case else
ShowForm
end select
sub ShowForm
%>
<form enctype="multipart/form-data" action="upload.asp?action=upload" method=post>
Fil: <input type="file" name="file"><br>
<input type="submit" value="Upload">
</form>
<%
end sub
sub UploadFile
dim intPosMIMEHeader, intPosFileDataStart
dim intPosFileNameStart, intPosFileNameEnd
dim intPosFileDataEnd, intDataSize
dim binData, binFileData, binFileName, binStart
dim strFileName
dim objFSO, objFile
intDataSize = request.totalbytes
binData = request.binaryread(intDataSize)
intPosMIMEHeader = instrB(binData,chrB(13) & chrB(10)) - 1
intPosFileDataStart = instrB(binData, chrB(13) & chrB(10) & chrB(13) & chrB(10)) + 4
intPosFileNameStart = instrB(binData,cstrB("filename=")) + 10
intPosFileNameEnd = instrB(intPosFileNameStart,binData,chrB(34))
binStart = midB(binData,1,intPosMimeHeader)
binFileName = midB(binData,intPosFileNameStart, _
intPosFileNameEnd - intPosFileNameStart)
intPosFileDataEnd = instrB(intPosMIMEHeader, binData, binStart) - 2
strFileName = bin2str(binFileName)
strFileName = right(strFileName, len(strFileName) - instrrev(strFileName,"\"))
set objFSO = server.createobject("Scripting.FileSystemObject")
set objFile = objFSO.CreatetextFile(server.mappath(".\image\players\" & strFileName), _
true, false)
objFile.write bin2str(midB(binData, intPosFileDataStart, _
intPosFileDataEnd - intPosFileDataStart))
objFile.close
set objFile = Nothing
set objFSO = Nothing
response.write "Filen er uploadet"
end sub
function bin2str(byref binS)
' omdanner en binær følge til en tekststreng
dim i, strRes
for i = 1 to lenB(binS)
strRes = strRes & chr(ascB(midB(binS, i, 1)))
next
bin2str = strRes
end function
function cstrB(strS)
' omdanner en tekststreng til en binær følge
dim i, binRes
for i = 1 to len(strS)
binRes = binRes & chrB(asc(mid(strS,i,1)))
next
cstrB = binRes
end function
%>
