omskrive kode så den kan køre på SUN ASP
Hej jeg har en kode som oploader en fil men efter at vi ikke længere køre ms asp men i stedet sun asp virker den ikke, her er et uddrrag af den hvor det går galt:dim intPosMIMEHeader, intPosFileDataStart
dim intPosFileNameStart, intPosFileNameEnd
dim intPosFileDataEnd, intDataSize
dim binData, binFileData, binFileName, binStart
dim strFileName
dim objFSO, objFile
intDataSize = request.totalbytes
if intdatasize => 40000 then
response.write "<h1>Fejl</h1><br>"
response.write "Billedet er for stort til at du kan oploade det, det må max fylde 40 kb"
response.write "<br><a href='" & curfile & "?side=profil&vis=opload'>Prøv igen</a>"
else
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,"\"))
response.write "Filstørrelse: " & intPosFileDataEnd - intPosFileDataStart & _
" bytes.<br>"
response.write server.mappath("images\profilimg\")
set objFSO = server.createobject("Scripting.FileSystemObject")
set objFile = objFSO.CreatetextFile(server.mappath("images\profilimg\" & strFileName), _
true, false)
objFile.write bin2str(midB(binData, intPosFileDataStart, _
intPosFileDataEnd - intPosFileDataStart))
objFile.close
set objFile = Nothing
set objFSO = Nothing
jeg får følgende fejl:
Sun ONE ASP VBScript runtime (0x800A4001)
Function or method call not implemented: 'ChrB'
upload.asp, line 32
håber i kan hjælpe
