ciao ragazzi premetto che non sono uno sviluppatore asp ma un web designer.
mi sono messo un po' in un casino:
ho ereditato un sito in asp al quale ho cambiato la grafica e lo utilizzato per una assoiazione no profit.
c'è una rubrica di news che viene aggiornata da backend
con i seguenti campi: titolo, testo della news e foto.
finchè aggiorno le news senza uploadare la foto nessun problema.
quando però aggiungo la foto mi da questo errore:
e il file in questione è questo:codice:Microsoft VBScript runtime error '800a0046' Permission denied /backend/news_write.asp, line 62
[CODE]<%@ LANGUAGE="VBSCRIPT" %>
<%Response.Buffer = True%>
<%If Session("log")<>"ok" then
response.redirect "default.asp"
end if
%>
<%Response.Expires=0
Response.Buffer = TRUE
Response.Clear
%>
<html>
<head>
</head>
<body>
[b]<%Dim str_param,objRS, parametro,cerca_prodotto,NID
Dim intCount
Dim item
Dim codice
Dim dir
Dim cercadoc,ID,objShopRS,sez,testo
intCount=0
Dim errore,byteCount,RequestBin
errore=False
img=""
imgG=""
'Qui va la copia dei files
byteCount = Request.TotalBytes
RequestBin = Request.BinaryRead(byteCount)
Dim UploadRequest,file,img,imgG
Set UploadRequest = CreateObject("Scripting.Dictionary")
BuildUploadRequest RequestBin
contentType = UploadRequest.Item("nfile").Item("ContentType")
filepathname = UploadRequest.Item("nfile").Item("FileName")
filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
If filename<>"" Then
value = UploadRequest.Item("nfile").Item("Value")
'Create FileSytemObject Component
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
'Create and Write to a File
pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_I NFO")))-22
img= filename'Replace(Time(),".","")&
Set MyFile = ScriptObject.CreateTextFile("d:\inetpub\webs\combo jazzclubcomimg\"&img)
For i = 1 to LenB(value)
MyFile.Write chr(AscB(MidB(value,i,1)))
Next
MyFile.Close
End If
'-----------
Set objShopRS=Server.CreateObject("ADODB.Recordset")
If UploadRequest.Item("NID").Item("Value")<>"" Then
cerca_prodotto="SELECT * FROM news WHERE nid="&UploadRequest.Item("NID").Item("Value")
objShopRS.Open cerca_prodotto, objConn,adOpenKeySet, adLockOptimistic
Else
objShopRS.Open "NEWS", objConn,adOpenKeySet, adLockOptimistic,adCmdTable
objShopRS.AddNew
End If
If (img<>"") Then
objShopRS("NFOTO")=img
End If
objShopRS("NTESTO")=UploadRequest.Item("testo").It em("Value")
objShopRS("NTITOLO")=UploadRequest.Item("titolo"). Item("Value")
objShopRS("ndata")=Now()
objShopRS.Update
objConn.Close
Set objconn=Nothing
%>
<%
'Ora che hai finito puoi andare
Response.redirect "home_back.asp?msg=Operazione effettuata con successo"
'----------------------
%>
Rispondi quotando
