webForumDet fria alternativet
Logga in

Access Denied

14 svar · 734 visningar · startad av Jeppeweb

JeppewebMedlem sedan sep. 2006462 inlägg
#1

Varför får jag Access denied för? Konverterar ett tidigare script som jag använde och det fungerade utmärkt, dvs inget "access denied" där inte.

<%
SQL = "SELECT * FROM medlemmar WHERE id="& Session("id")
%>

<%If ("bild_exist") = "0" then%>

<%

Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.OverwriteFiles = True
Upload.SaveVirtual "./temp_bilder/"
Upload.Files(1).MoveVirtual ("./profilbilder/"& Session("id") &".jpg")

'///SKALA NER BILD///

Set Image = Server.CreateObject("AspImage.Image")

Image.LoadImage(Server.MapPath("./profilbilder/" & Session("id") &".jpg" ))
Image.FileName = (Server.MapPath("./profilbilder/" & Session("id") &".jpg" ))

Image.ImageFormat = 1
Image.JPEGQuality = 100
Image.Resize 90,110

Image.SaveImage
Set Image = Nothing

'///SKALA NER BILD SLUT///

ObjConn.Execute("UPDATE medlemmar set bild_exist='1', bild_accept='0', bild='./bilder/profilbild.jpg' WHERE id="& Session("id") &"")

%>
<script language="javascript">
alert("Din bild har nu skickats och ska nu bara accepteras av en administratör. Lycka till :)");
document.location = './index2.asp?visa=start';
</script>

<%Else%>

<%

Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.DeleteFile Server.MapPath("bilder\userspics"& Session("id") )
Upload.OverwriteFiles = True
Upload.SaveVirtual "./temp_bilder/"
Upload.Files(1).MoveVirtual ("./profilbilder/"& Session("id") &".jpg")

'///SKALA NER BILD///

Set Image = Server.CreateObject("AspImage.Image")

Image.LoadImage(Server.MapPath("./profilbilder/" & Session("id") &".jpg" ))
Image.FileName = (Server.MapPath("./profilbilder/" & Session("id") &".jpg" ))

Image.ImageFormat = 1
Image.JPEGQuality = 100
Image.Resize 90,110

Image.SaveImage
Set Image = Nothing

'///SKALA NER BILD SLUT///

ObjConn.Execute("UPDATE medlemmar set bild_exist='1', bild_accept='0', bild='./bilder/profilbild.jpg' WHERE id="& Session("id") &"")

%>
voigtann1Medlem sedan juni 20019 519 inlägg
#2

Kan vara databasen du inte har rättigheter att skriva till, där du lägger upp bilderna kollar med din leverantör om skrivrättigehter till profilbilder mappen...

JeppewebMedlem sedan sep. 2006462 inlägg
#3

Det har ju gått tidigare med ett annat script att ladda upp till den mappen :s

JeppewebMedlem sedan sep. 2006462 inlägg
#4

*bump*

voigtann1Medlem sedan juni 20019 519 inlägg
#5

vilken rad får du felmeddelandet på?

JeppewebMedlem sedan sep. 2006462 inlägg
#6

Persits.Upload.1 error '800a001d'

Access is denied.

/upl.asp, line 47

voigtann1Medlem sedan juni 20019 519 inlägg
#7

rad 47 är?

hos mig när jag kopiera din kod så är rad 47 en tom rad.. men om jag tar rad 46:

Upload.Files(1).MoveVirtual ("./profilbilder/"& Session("id") &".jpg")

Kontrollera att du har rättigheter att lägga upp bilder i din "profilbilder" mapp.... det är vad jag får ut av ditt problem....

JeppewebMedlem sedan sep. 2006462 inlägg
#8

Rad 47 markerad med fet text..
Det har fungerat förut att ladda upp till dessa mapper med ett annat script jag hade innan.

<%
SQL = "SELECT * FROM medlemmar WHERE id="& Session("id")
%>

<%If ("bild_exist") = "0" then%>

<%

Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.OverwriteFiles = True
Upload.SaveVirtual "./temp_bilder/"
Upload.Files(1).MoveVirtual ("bilder\userspics"& Session("id") &".jpg")

'///SKALA NER BILD///

Set Image = Server.CreateObject("AspImage.Image")

Image.LoadImage(Server.MapPath("bilder\userspics" & Session("id") &".jpg" ))
Image.FileName = (Server.MapPath("bilder\userspics" & Session("id") &".jpg" ))

Image.ImageFormat = 1
Image.JPEGQuality = 100
Image.Resize 90,110

Image.SaveImage
Set Image = Nothing

'///SKALA NER BILD SLUT///

ObjConn.Execute("UPDATE medlemmar set bild_exist='1', bild_accept='0', bild='./bilder/profilbild.jpg' WHERE id="& Session("id") &"")

%>
<script language="javascript">
alert("Din bild har nu skickats och ska nu bara accepteras av en administratör. Lycka till :)");
document.location = './index2.asp?visa=start';
</script>

<%Else%>

<%

Set Upload = Server.CreateObject("Persits.Upload.1")
[b]Upload.DeleteFile Server.MapPath("bilder\userspics"& Session("id") )[/b]
Upload.OverwriteFiles = True
Upload.SaveVirtual "./temp_bilder/"
Upload.Files(1).MoveVirtual ("bilder\userspics"& Session("id") &".jpg")

'///SKALA NER BILD///

Set Image = Server.CreateObject("AspImage.Image")

Image.LoadImage(Server.MapPath("bilder\userspics" & Session("id") &".jpg" ))
Image.FileName = (Server.MapPath("bilder\userspics" & Session("id") &".jpg" ))

Image.ImageFormat = 1
Image.JPEGQuality = 100
Image.Resize 90,110

Image.SaveImage
Set Image = Nothing

'///SKALA NER BILD SLUT///

ObjConn.Execute("UPDATE medlemmar set bild_exist='1', bild_accept='0', bild='./bilder/profilbild.jpg' WHERE id="& Session("id") &"")

%>

<script language="javascript">
alert("Din bild har nu skickats och ska nu bara accepteras av en administratör. Lycka till :)");
document.location = './index2.asp?visa=start';
</script>

<%End If%>
voigtann1Medlem sedan juni 20019 519 inlägg
#9

bilder\userspics"& Session("id")

dvs id = 1

kollar då om du har rättigheter att ta bort mappen bidler\userspics1\

JeppewebMedlem sedan sep. 2006462 inlägg
#10

Persits.Upload.1 error '800a001d'

Access is denied.

/upl.asp, line 47

<!--#Include File="includes/db.asp"-->

<HTML>
<BODY>
<%
SQL = "SELECT * FROM medlemmar WHERE id="& Session("id")
%>

<%If ("bild_exist") = "0" then%>

<%

Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.OverwriteFiles = True
Upload.SaveVirtual "./temp_bilder/"
Upload.Files(1).MoveVirtual ("bilder\userspics"& Session("id") &".jpg")

'///SKALA NER BILD///

Set Image = Server.CreateObject("AspImage.Image")

Image.LoadImage(Server.MapPath("bilder\userspics" & Session("id") &".jpg" ))
Image.FileName = (Server.MapPath("bilder\userspics" & Session("id") &".jpg" ))

Image.ImageFormat = 1
Image.JPEGQuality = 100
Image.Resize 90,110

Image.SaveImage
Set Image = Nothing

'///SKALA NER BILD SLUT///

ObjConn.Execute("UPDATE medlemmar set bild_exist='1', bild_accept='0', bild='./bilder/profilbild.jpg' WHERE id="& Session("id") &"")

%>
<script language="javascript">
alert("Din bild har nu skickats och ska nu bara accepteras av en administratör. Lycka till :)");
document.location = './index2.asp?visa=start';
</script>

<%Else%>

<%

Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.DeleteFile Server.MapPath("bilder\userspics"& Session("id") )
Upload.OverwriteFiles = True
Upload.SaveVirtual "./temp_bilder/"
Upload.Files(1).MoveVirtual ("bilder\userspics"& Session("id") &".jpg")

'///SKALA NER BILD///

Set Image = Server.CreateObject("AspImage.Image")

Image.LoadImage(Server.MapPath("bilder\userspics" & Session("id") &".jpg" ))
Image.FileName = (Server.MapPath("bilder\userspics" & Session("id") &".jpg" ))

Image.ImageFormat = 1
Image.JPEGQuality = 100
Image.Resize 90,110

Image.SaveImage
Set Image = Nothing

'///SKALA NER BILD SLUT///

ObjConn.Execute("UPDATE medlemmar set bild_exist='1', bild_accept='0', bild='./bilder/profilbild.jpg' WHERE id="& Session("id") &"")

%>
JeppewebMedlem sedan sep. 2006462 inlägg
#11

Mitt gamla uploadscript såg ut såhär;

<%
Response.Expires=0
Response.Buffer = TRUE
Response.Clear
'Response.BinaryWrite(Request.BinaryRead(Request.TotalBytes))
byteCount = Request.TotalBytes
'Response.BinaryWrite(Request.BinaryRead(varByteCount))

RequestBin = Request.BinaryRead(byteCount)
Dim UploadRequest
Set UploadRequest = CreateObject("Scripting.Dictionary")

BuildUploadRequest RequestBin

'Exempel på hur man kan 'plocka ner' andra forumlärelement
'email = UploadRequest.Item("email").Item("Value")

contentType = UploadRequest.Item("blob").Item("ContentType")
filepathname = UploadRequest.Item("blob").Item("FileName")
filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
value = UploadRequest.Item("blob").Item("Value")

'Create FileSytemObject Component
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

'Create and Write to a File
pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14
' Set MyFile = ScriptObject.CreateTextFile(Left(Server.mappath(Request.Serv  erVariables("PATH_INFO")),pathEnd)&filename)
filename = session("cmalias") & right(filename,4) 
Set MyFile = ScriptObject.CreateTextFile(Server.mappath("/bilder/userspics" & "\" & filename))

For i = 1 to LenB(value)
MyFile.Write chr(AscB(MidB(value,i,1)))
Next

MyFile.Close

	SQL = "SELECT bild,bildaccept FROM medlemmar WHERE id = "&Session("cmid")
	Set RecSet = Connect.execute(SQL)

	bild = filename
	bildaccept = "0"

	Connect.Execute("UPDATE medlemmar set bild = '"& bild &"', bildaccept = '"& bildaccept &"' WHERE id = "&Session("cmid")&"")

	Session("upload") = ""

Response.Redirect "main.asp?page=70"
response.write "<b>Filen är nu uppladdad, vänta på att den ska bli accepterad</b>"
Connect.Execute("UPDATE medlemmar set bild = 'ingen', bildaccept = '0' WHERE ID="&Session("cmID")&" ")

%>
<!--#include file="upload.asp"-->
voigtann1Medlem sedan juni 20019 519 inlägg
#12

Jo men nu är det ditt nya som inte fungera... läs Persits Upload manual och se hur dom gör med behörigeter...

JeppewebMedlem sedan sep. 2006462 inlägg
#13

Länk? :$

voigtann1Medlem sedan juni 20019 519 inlägg
#14

Provat google någon gång? Första länken på ordet "Persits Upload" gav:
http://www.aspupload.com/manual.html

EclipseMedlem sedan juli 20003 825 inlägg
#15

I ditt inlägg ovan använder du deleteFile när du ska ladda upp en bild...

Det är kanske därför du får access denied, för den filen du försöker att ta bort inte finns! (Vet inte...??)

135 ms totalt · 3 externa anrop · v20260731065814-full.30151723
0 ms — hämta forumlista (cache)
0 ms — hämta statistik (cache)
132 ms — hämta tråd, inlägg och bilagor (db)