Kan man på en eller anden måde smelte de denne script med den nye her på siden ?
<%
dim strAction
strAction = request("action")
select case strAction
case "upload"
UploadFile
case else
ShowForm
end select
sub ShowForm %>
<form name="form1" enctype="multipart/form-data" method="post" action="index.asp?admin&action=upload">
<table width="300" border="0" cellpadding="2" cellspacing="3">
<tr>
<td width="390" class="ha">7. Submit your photo</td>
<td align="right" class="hb"> </td>
</tr>
<tr>
<td colspan="2" align="center" class="hb">Upload a .jpg or .gif file from your computer (350000 bytes max):<br />
<br />
<input name="img" type="file" id="file" size="35" />
<br />
<br />
</td>
</tr>
<tr>
<td colspan="2" align="center" class="hb">
<input type="submit" name="Submit" value="Finished" />
</td>
</tr>
</table>
</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
' Det rettes her:
strFileName = "testBillede.jpg"
strFileName = right(strFileName, len(strFileName) - instrrev(strFileName,"\"))
' strFileName = bin2str(binFileName)
' strFileName = right(strFileName, len(strFileName) - instrrev(strFileName,"\"))
set objFSO = server.createobject("Scripting.FileSystemObject")
set objFile = objFSO.CreatetextFile(server.mappath("..\img\mappe\" & strFileName), _
true, false)
objFile.write bin2str(midB(binData, intPosFileDataStart, _
intPosFileDataEnd - intPosFileDataStart))
objFile.close
set objFile = Nothing
set objFSO = Nothing
%>
<!--#include file="connect.asp"-->
<%
'billedet i en variabel
set tbl_img = server.CreateObject("ADODB.Recordset")
tbl_img.Open "pic", conn, 2, 2
tbl_img.AddNew
tbl_img("img") = strFileName
tbl_img.update
response.Redirect("index.asp?admin=view_pic")
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
%>
Ny bruger
Nybegynder
Opret
Preview
