webForumDet fria alternativet
Logga in / Bli medlem

file not found

ASP

39 svar · 538 visningar · startad av DiDjo · sida 2 av 2

Frågan, av DiDjo

Varför får jag detta fel: Microsoft VBScript runtime error '800a0035' File not found /!egna/laddaupp.asp, line 51 Här är koden: <%Set Upload = Server.CreateObject("Persits.Upload.1") ' Upload files Upload.OverwriteFiles = False 'Generate unique names Upload.SetMaxSize 75576 ' Truncate files above 75kb Upload.Save server.mappath("upload") For Each File in Upload.Files bilden=File

Läs frågan i sin helhet →
DiDjoMedlem sedan nov. 2002544 inlägg
#21

Fick detta fel:


ADODB.Recordset error '800a0bb9' 

Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another. 

/!egna/tabortfoto.asp, line 52

Stämmer bra att det blir bilder/1.jpg i db! Och när bilden e uppladdad blir det upload/namn.jpg

solbulleMedlem sedan mars 20015 287 inlägg
#22

Hum? Vilken rad är 52?
Rspres2.open SQLpres2, Conn, 3,3 ?

Är inte alla namnen rätt? Tabell, fält, databas, samt det som ligger i username?

DiDjoMedlem sedan nov. 2002544 inlägg
#23

Förlåt... glömde skicka in vilken kod de va!... Tror att jag ska öppna databasen på ett annant vis....

	Set Rspres2=Server.CreateObject("ADODB.Recordset")
	52-->Rspres2.open SQLpres2, Conn, 3,3
DiDjoMedlem sedan nov. 2002544 inlägg
#24

fixade felet... men det fungerar en gång! Sen laddar jag upp en ny bild! Det fungerar... den byter ut den! Sen ska jag ta bort den igen! Det vill den inte! På nått j*vla vänster tar den bort bilden som man hade innan! Asså de alternativa bilderna... dom ska den inte ta bort!

solbulleMedlem sedan mars 20015 287 inlägg
#25

Testa ändra denna rad:

if lcase(rspres2("bild"))="bilder/1.jpg" OR lcase(rspres2("bild"))="bilder/2.jpg" OR lcase(rspres2("bild"))="bilder/3.jpg" OR lcase(rspres2("bild"))="bilder/4.jpg" ORlcase(rspres2("bild"))="bilder/5.jpg"  then
DiDjoMedlem sedan nov. 2002544 inlägg
#26

samma fel! Tas bort en gång! Sen tar den bort en av de alternativa! Den som man hade innan

solbulleMedlem sedan mars 20015 287 inlägg
#27

Vad i hela friden... hur ser hela det kodblocket ut nu?

DiDjoMedlem sedan nov. 2002544 inlägg
#28

så här:

<%
Option Explicit
Dim username, se, sql, sql2, rs2, sqlpres2, Rspres2, strPath, objFSO, bilden, poangmess, dtmMittDatum, rs5, farg, mess, gb, poangbrev, poangbrevsvar, poangforum, poangforumsvar, poangklotter, poanggastbok, poangdagbok, connect, rs, rs4, rs3, addera, online, rs6, tid
username = session("anv")
%>
<!--#include file="conn.asp"-->
<%
se=request("se")
if se="" then
	se=username
end if
%>
<div id="Layer1" style="position:absolute; width:135; height:580; z-index:1; left: 10; top: 118; border: 1px none #000000"> 
<font face="Verdana, Arial, Helvetica, sans-serif" size="2">&nbsp;<!-- #include file = "meny.asp" --></font></div>
<div id="Layer9" style="position:absolute; width:155; height:97; z-index:1; left: 10; top: 10; border: 1px none #000000"> 
<font face="Verdana, Arial, Helvetica, sans-serif" size="2">&nbsp;<!-- #include file = "statistik_liten.asp" --></font></div>
<div id="Layer12" style="position:absolute; width:591; height:101; z-index:1; left: 165; top: 10; border: 1px none #000000"> 
<table width="600" border="0" cellpadding="0" cellspacing="1" bgcolor="#000000" height="100">
  <tr> 
    <td height="100" width="597" bgcolor="#F0F0F0">
    <font face="Verdana, Arial, Helvetica, sans-serif" size="6">
    <div align="left">
  <img border="0" src="bilder/logo.jpg"></div></td>
  </tr>
</table>
    </div>

<html>

<head>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>DiDjo Community - Tabort Foto</title>
</head>

<body>

<p>
<div id="Layer7" style="position:absolute; width:600; height:21; z-index:4; left: 165; top: 117; background-image=url('../bilder/ruta_bak.gif'); layer-background-color: #0066FF; border: 1px none #000000">
<table width="600" border="0" cellpadding="0" cellspacing="1" bgcolor="#000000">
  <tr> 
    <td height="20" background="bilder/ruta_bak.gif" width="597">
    <div align="left">
  <b><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Ta bort foto</font></b></div></td>
  </tr>
</table>
</div><br>
&nbsp;<div id="Layer3" style="position:absolute; width:599; height:18; z-index:3; left: 165; top: 142">
  <strong style="font-weight: 400"> 
<table width="599" border="0" cellpadding="0" cellspacing="1" bgcolor="#000000">
  <tr>
    <td bgcolor="f0f0f0" width="600">
  <strong style="font-weight: 400"> 
  <p><font face="Verdana, Arial, Helvetica, sans-serif" size="2">
<%
	SQLPRES2="SELECT bild FROM anv WHERE anv='" & username & "'"

	Set Rspres2=Server.CreateObject("ADODB.Recordset")
	Rspres2.open SQLpres2, Conn, 3,3
	
	if not rspres2.eof then
		if lcase(rspres2("bild"))="bilder/1.jpg" OR lcase(rspres2("bild"))="bilder/2.jpg" OR lcase(rspres2("bild"))="bilder/3.jpg" OR lcase(rspres2("bild"))="bilder/4.jpg" OR lcase(rspres2("bild"))="bilder/5.jpg" then
			response.write("Du har inget foto att ta bort.<br>" & _
				    "Klicka på 'Min profil' i menyn till vänster" & _
				   " för att se hur din profil ser ut. ")		
	
		else
		strPath = rspres2("bild")				
			Set objFSO=CreateObject("Scripting.FileSystemObject")
			objFSO.DeleteFile server.mappath(strpath)
			Set ObjFSO=Nothing
			
			rspres2("bild")="bilder/1.jpg"
			rspres2.Update
		
			response.write("Ditt foto har tagits bort.<br>" & _
				   "Klicka på 'Min profil' i menyn till vänster" & _
				   " för att se hur din profil ser ut. ")

		end if
	end if

%>
</a></font></strong></p>

    </td>
  </tr>
</table>
</div>

</p>

</body>

</html>

i conn:

<%
Dim ConnectString, conn

ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(".mdb")
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnectString
%>

statistik_liten behöver du nog inte se! den används inte av koderna! Inte meyn heller....

DiDjoMedlem sedan nov. 2002544 inlägg
#29

ingen som vet??

solbulleMedlem sedan mars 20015 287 inlägg
#30

Hum!

Och sökvägen till de alternativa bilderna är som det står i raden där det kontrolleras:

"bilder/1.jpg" (eller 2,3,4,5)

Det är den som står i databasen när den raderas?

DiDjoMedlem sedan nov. 2002544 inlägg
#31

nepp! Det står "upload/namn.jpg"! Och sökvägen är rätt! En väldigt dum kod med andra ord...

solbulleMedlem sedan mars 20015 287 inlägg
#32

Ok...
Men denna rad:

if lcase(rspres2("bild"))="bilder/1.jpg" OR lcase(rspres2("bild"))="bilder/2.jpg" OR lcase(rspres2("bild"))="bilder/3.jpg" OR lcase(rspres2("bild"))="bilder/4.jpg" OR lcase(rspres2("bild"))="bilder/5.jpg" then

Den "säger ju" att det bara är dom bilderna som skall skyddas från radering, mao antar jag att det är dina "standardbilder"?
Stämmer inte det så kommer bilder med andra namn att kunna raderas.
Jag vet inte riktigt om jag missuppfattade dig där eller om ja helt enkelt missar något med skriptet...

För det är väl det som står i databasen som också raderas? (upload/namn.jpg)

nä... nu fattar jag ingenting... :x

DiDjoMedlem sedan nov. 2002544 inlägg
#33

bilder/1.jpg (2,3,4,5) är dom som ska vara kvar! För dom kan alla användare använda! Sen om en annan användare vill ha en bild på sig själv så kan han/hon ladda upp den! Och om han/hon inte vill ha den längre ska han/hon kunna ta bort den! Och om vi säger att hans/hennes bild hette namn.jpg(i databasen: upload/namn.jpg) så ska koden kolla i mappen upload på servern och ta bort den!´

Den som står i databasen raderas en gång! Och om jag laddar upp den igen, så kan man ej ta bort den! Då tas någon av 1,2,3,4,5 .jpg bort! Hur vet jag inte!

solbulleMedlem sedan mars 20015 287 inlägg
#34

Jadu, jag blir helt snurrig av detta.

Denna rad:

rspres2("bild")="bilder/1.jpg"

Hårdkodar ju en bild direkt efter man raderat en. Du är säker på att alla bildnamn hamnar i samma fält i rätt tabell i rätt databas? *famlar i mörkret.*

DiDjoMedlem sedan nov. 2002544 inlägg
#35

jo det hamnar rätt när man laddar upp! Koden i laddaupp har också en tabort funktion... den tar bort den förra bilden om man har laddat upp en innan! Så här ser den ut:

<%Set Upload = Server.CreateObject("Persits.Upload.1")
' Upload files
Upload.OverwriteFiles = False 'Generate unique names
Upload.SetMaxSize 75576 ' Truncate files above 75kb
Upload.Save server.mappath("upload")
For Each File in Upload.Files
bilden=File.ExtractFileName
   If File.ImageType <> "JPG" Then
    File.Delete
    Session("meddelande") = "Du kan bara ladda upp JPG bilder."
     Response.Redirect "foto.asp"
   End If

Next

if bilden="" Then
	response.redirect("foto.asp")
else

SQL2="SELECT * FROM anv WHERE anv='" & se & "'"
Conn.execute(SQL2)	
	
	Set Rs2=Server.CreateObject("ADODB.Recordset")
	Rs2.open SQL2, Conn, 3,3

	SQLPRES2="SELECT * FROM anv WHERE anv='" & se & "'"
	Conn.execute(SQLPRES2)
		
	Set Rspres2=Server.CreateObject("ADODB.Recordset")
	Rspres2.open SQLpres2, Conn, 3,3
	
if not rspres2.eof then
		'om det är en riktig bild, plocka bort den!
		if rspres2("bild")<>"bilder/1.jpg" OR rspres2("bild")<>"bilder/2.jpg" OR rspres2("bild")<>"bilder/3.jpg" OR rspres2("bild")<>"bilder/4.jpg" or rspres2("bild")<>"bilder/5.jpg"	then 
			strPath=server.mapPath(rspres2("bild"))
				
			Set objFSO=CreateObject("Scripting.FileSystemObject")
			objFSO.DeleteFile "" & strpath & ""
			Set ObjFSO=Nothing

		end if

		bilden="upload/" & bilden
			rspres2("bild")=bilden
			rspres2.Update
	session("bild")="Bilden har blivit uppladdad. Titta på Din profil för att se hur det vart!"
Response.Redirect "foto.asp"
	end if
	end if

%>

det är hela ladda upp koden! Men du ser nog vilken kod jag menar!

solbulleMedlem sedan mars 20015 287 inlägg
#36

Blir det inte bätte om du ändrar till denna rad:

if NOT rspres2("bild")= "bilder/1.jpg" AND NOT rspres2("bild")="bilder/2.jpg" AND NOT rspres2("bild")="bilder/3.jpg" AND NOT rspres2("bild")="bilder/4.jpg" AND NOT rspres2("bild")="bilder/5.jpg" then
DiDjoMedlem sedan nov. 2002544 inlägg
#37

sorry att jag inte svarat! Då byter man platts på grejjerna? ta bort koden och om man inte har en bild? Men då tar den bort båda!

DiDjoMedlem sedan nov. 2002544 inlägg
#38

skit i det! Verkar fungera nu! Säger till om det blir något knas!

DiDjoMedlem sedan nov. 2002544 inlägg
#39

du det var knas iaf! Den tar bort som ajg sa den man laddade upp och den man hade innan! Hur f*n går det till??? Så här ser koden ut nu:

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("***.mdb")
Set Rspres2=Server.CreateObject("ADODB.Recordset")
SQLPRES2="SELECT bild FROM anv WHERE anv='" & session("anv") & "'"
Rspres2.open SQLpres2, Conn, 3,3

	
	if not rspres2.eof then
		if NOT rspres2("bild")= "bilder/1.jpg" AND NOT rspres2("bild")="bilder/2.jpg" AND NOT rspres2("bild")="bilder/3.jpg" AND NOT rspres2("bild")="bilder/4.jpg" AND NOT rspres2("bild")="bilder/5.jpg" then 
			strPath = rspres2("bild")				
			Set objFSO=CreateObject("Scripting.FileSystemObject")
			objFSO.DeleteFile server.mappath(strpath)
			Set ObjFSO=Nothing
			
			rspres2("bild")="bilder/1.jpg"
			rspres2.Update
		
			response.write("Ditt foto har tagits bort.<br>" & _
				   "Klicka på 'Min profil' i menyn till vänster" & _
				   " för att se hur din profil ser ut. ")

		else

		response.write("Du har inget foto att ta bort.<br>" & _
				    "Klicka på 'Min profil' i menyn till vänster" & _
				   " för att se hur din profil ser ut. ")		
	

		end if
	end if

%>
DiDjoMedlem sedan nov. 2002544 inlägg
#40

Någon som vet vart man kan få tag på ett bra ladda upp bild script till ett community!? Med ta bort funktion?

Eftersom denna kod verkar kass

266 ms totalt · 4 externa anrop · v20260731065814-full.e96017d9
128 ms — deklarationer (db)
0 ms — hämta statistik (cache)
135 ms — hämta tråd, inlägg och bilagor (db)
127 ms — ändringar (db)