Tja, hur man bygger ihop det skriptet har jag ingen aning om...
Men själva skriptet som man skickar upp bilden med kommer här. Det kanske är det som strular förresten eftersom inte bilden döps om ibland? Och då naturligtvis inte hittas :q
Från detta skript där man skickar upp bilden skickas man alltså till skriptet jag lade upp ovan där det blev fel på rad 163.
Kanske någon kan se om det är något knas med det...
Annars måste det ju vara något med servern. Kan sådant fel jag får bero på överbelastning eller att det är någon tagg som inte är korrekt avslutad eller så?
Jag menar, emellanåt fungerar ju faktiskt scriptet.
// Sylvia
<%@EnableSessionState=True%>
<%Response.Buffer=True%>
<%Response.Expires=0
UPLOAD_PATH = Server.MapPath("pics")
Set Fso = Server.CreateObject("Scripting.FileSystemObject")
Set Folder = Fso.getFolder(UPLOAD_PATH)
If (Request.ServerVariables("REQUEST_METHOD") = "POST") Then
Set Upload = get_upload_files()
fcontent = Upload("upload").Item("content")
allowlist = ".gif,.jpg,.bmp"
extension = right(extract_filename(Upload("upload").Item("filename")),4)
If Fso.FileExists(UPLOAD_PATH & "\" & extract_filename(Upload("upload").Item("filename"))) Then
Session("mess") = "En fil med det namnet finns redan!"
Response.Redirect "upload.asp"
Else
If instr(allowlist,extension) then
Set File = Fso.CreateTextFile(UPLOAD_PATH & "\" & extract_filename(Upload("upload").Item("filename")))
Else
Session("mess") = "Du får <b>inte</b> skicka upp filen med det filformatet.<br>Endast <b>" & allowlist & "</b> är godkända."
Response.Redirect "upload.asp"
End If
End If
For i = 1 to LenB(fcontent)
File.Write chr(AscB(MidB(fcontent, i, 1)))
Next
File.Close: Set File = Nothing
Session("fil") = extract_filename(Upload("upload").Item("filename"))
Session("visa") = "ok"
Response.Redirect "skicka.asp"
End If%>
<!--#Include file="settings.asp"-->
<!--
************************************************
Åsa Gruvsjö © 2002
[url]www.gruvsjo.com[/url]
[email]Asa@gruvsjo.com[/email]
Fri att använda om ni låter copyrightkoden stå kvar!
************************************************
-->
<html>
<head>
<title>»» Inläggning av utställningsresultat ««</title>
<script language="JavaScript">
<!--
function blured()
{
for (a in document.links) document.links[a].onfocus = document.links[a].blur;
}
if (document.all)
{
document.onmousedown = blured;
}
// -->
</script>
<link rel="stylesheet" href="stil.css" type="text/css">
</head>
<body bgcolor="#f0f0f0">
<table width="400" align="center" border="0">
<tr>
<td colspan="2"><font size="2">Lägg till Bild till Utställningsresultatet:</font></td>
</tr>
<tr>
<td height="10" colspan="2"><img src="bilder/dot400.gif"></td>
</tr>
<form name="menyn">
<tr>
<td width="267"><font size="2">» Ladda upp bild</font></td>
<td align="right" width="133">
<!--#Include file="meny.asp"-->
</td>
</tr>
</form>
<tr>
<td colspan="2" height="10"><img src="bilder/dot400.gif"></td>
</tr>
</table>
<table width="400" border="0" align="center">
<form name="frmUpload" method="post" enctype="multipart/form-data" action="upload.asp">
<tr>
<td>
<input type="file" name="upload" size="35"> <input type="submit" value="Ladda upp">
</td>
</tr>
<tr>
<td height="10"><img src="bilder/dot400.gif"></td>
</tr>
<tr>
<td height="10"><br>
<b>Instruktioner:<br>
</b>För att kunna lägga till ett utställningsresultat så behöver du en bild
att ladda upp till servern. Den bör vara max 100kb stor
<p><img height="60" hspace="5" src="bilder/bild.gif" width="60" align="absbottom" vspace="5" border="1"></p>
<p><b>Finns ingen bild på katten?</b></p>
<ol>
<li>Spara bilden ovan på din hårddisk</li>
<li>Döp den till valfritt namn men använd inte å, ä, ö eller mellanslag i
namnet.</li>
<li>Bläddra sedan fram bilden och ladda upp till servern.</li>
<li>Fortsätt sedan att skriva i resultaten men använd inte apostrofen ' i
kattens namn utan ´ istället. Om du använder ' blir resultatet blir fel
och du får börja om från början.</li>
<li>Misslyckades din uppladdning och du fick upp en felsida? Då kan du prova
igen med samma bild men döp om bilden då bilden redan finns på servern
och den är programmerad att inte skriva över en bild med samma namn..</li>
<li>När bilden och resultatet är korrekt inmatat hamnar du i bildgalleriet
igen. Den nya posten syns inte än eftersom den ska godkännas av
administratören först. </li>
<li>För snabbare handläggning maila till <a href="mailto:info@europenytt.com">info@europenytt.com</a>
eller använd kontaktformuläret och tala om vad du uppdaterat med.</li>
</ol>
</td>
</tr>
<%If Session("mess") <> "" Then%>
<tr>
<td height="10"><img src="bilder/dot400.gif"></td>
</tr>
<tr>
<td class="normal"><%=Session("mess")%><%Session("mess") = ""%></td>
</tr>
<%End If%>
</form>
</table>
</body>
</html>
<%
Function get_upload_files()
Set upload_object = Server.CreateObject("Scripting.Dictionary")
request_binaries = Request.BinaryRead(Request.TotalBytes)
position_start = 1
position_end = InstrB(position_start, request_binaries, get_byte_string(chr(13)))
boundary = MidB(request_binaries, position_start, (position_end - position_start))
boundary_pos = InstrB(1, request_binaries, boundary)
Do Until (boundary_pos = InstrB(request_binaries, boundary & get_byte_string("--")))
If Not(Response.IsClientConnected) Then Response.End
position_start = (InstrB(InstrB(boundary_pos, request_binaries, get_byte_string("Content-Disposition")), request_binaries, get_byte_string("name=")) + 6)
position_end = InstrB(position_start, request_binaries, get_byte_string(chr(34)))
name = get_string(MidB(request_binaries, position_start, (position_end - position_start)))
pos_file = InstrB(boundary_pos, request_binaries, get_byte_string("filename="))
If ((pos_file <> 0) AND (pos_file < InstrB(position_end, request_binaries, boundary))) Then
upload_object.Add name, Server.CreateObject("Scripting.Dictionary")
position_start = (pos_file + 10)
position_end = InstrB(position_start, request_binaries, get_byte_string(chr(34)))
upload_object.item(name).Add "filename", get_string(MidB(request_binaries, position_start, (position_end - position_start)))
position_start = (InstrB(position_end, request_binaries, get_byte_string("Content-Type:")) + 14)
position_end = InstrB(position_start, request_binaries, get_byte_string(chr(13)))
upload_object.item(name).Add "content-type", get_string(MidB(request_binaries, position_start, (position_end - position_start)))
position_start = (position_end + 4)
position_end = InstrB(position_start, request_binaries, boundary) - 2
upload_object.item(name).Add "size", ((position_end - position_start))
upload_object.item(name).Add "content", MidB(request_binaries, position_start, (position_end - position_start))
End If
boundary_pos = InstrB(boundary_pos + LenB(boundary), request_binaries, boundary)
Loop
Set get_upload_files = upload_object
End Function
Function get_byte_string(str)
For cnt = 1 to Len(str)
get_byte_string = get_byte_string & chrB(AscB(Mid(str, cnt, 1)))
Next
End Function
Function get_string(str)
For cnt = 1 to LenB(str)
get_string = get_string & chr(AscB(MidB(str, cnt, 1)))
Next
End Function
Function extract_filename(filename)
extract_filename = Right(filename, Len(filename) - InStrRev(filename, "\", -1, 1))
End Function
%>
