sin_adecMedlem sedan apr. 2002272 inlägg sidan jag hämtar bilderna
det här är sidan jag hämtar bilderna.
<%
Set connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)};dbq=C:\Documents and Settings\FSC\Mina dokument\web\databas.mdb"
Set recset = Server.CreateObject("adodb.recordset")
SQL = "Select * From onskningar where id=" & Request.Querystring("id")
RecSet.Open SQL, Connect, 3,3
%>
<img src="bilder/<%=recset("huvudbild")%>">
<img src="bilder/<%=recset("bildtva")%>">
<img src="bilder/<%=recset("bildtre")%>">
men förstår inte varför inte alla tre bilder visas
J.N.Medlem sedan apr. 20031 660 inlägg HEJ!
Jag tolkar ditt tidigare inlägg som att alla bilder finns på servern, och även i databasen?
Testa skriv ut variablerna direkt efter frågan, kolla så namnen är korrekta och sökvägen. Prova även att surfa direkt till bilderna.
Finns allt inlagt och upplagt, måste det vara något enkelt fel om du inte kan visa dem.
sin_adecMedlem sedan apr. 2002272 inlägg jag testade med att surfa direkt till bilderna men då var det bara ( <%=recset("bildtre")%> som fungerade..
J.N.Medlem sedan apr. 20031 660 inlägg Då säger det sig själv att de inte är upplagda. Som du säkert själv listat ut. ;)
JeppewebMedlem sedan sep. 2006462 inlägg Jag har en community, hur gör jag om jag vill att bildnamnet ska döpas efter medlemsanvändarnamn?
session("cmalias")
har försökt lite men inte lyckas få det att fungera alls..
TACKSAM FÖR HJÄLP!
@ndersMedlem sedan juni 200032 969 inlägg Ta det lugnt och visa ditt kodförsök som inte fungerar.
Det är inte alltid rätt folk är uppe hela natten och väntar på att du ska vilja ha hjälp.
JeppewebMedlem sedan sep. 2006462 inlägg outputfile.asp
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<!-- #include file="databaskopplingar.asp" -->
<html>
<head>
<title>Upload</title>
</head>
<body>
<%
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.ServerVariables("PATH_INFO")),pathEnd)&filename)
Set MyFile = ScriptObject.CreateTextFile(Server.mappath("/bilder/userspics" & "\" & session("cmalias")) & "\" & filename)
filename = cmalias & right(filename,4)
For i = 1 to LenB(value)
MyFile.Write chr(AscB(MidB(value,i,1)))
Next
MyFile.Close
response.write "<b>Filen är nu uppladdad, vänta på att den ska bli accepterad</b>"
response.write "<img src=""" & filename & """>"
%>
<!--#include file="upload.asp"-->
</body>
</html>
@ndersMedlem sedan juni 200032 969 inlägg ... och på vilket sätt fungerar det inte? Felmeddelande?
Om inte mappen med samma namn som din session finns, då måste du skapa den först.
Du borde också räkna start- och slutparenteser på den rad där du kör CreateTextFile, antalet och placeringen stämmer inte som det är nu.
JeppewebMedlem sedan sep. 2006462 inlägg Okej, men jag vill inte att den ska behöva skapa en mapp, endast att filnamnet ska döpas efter till "cmalias", hur göra?
@ndersMedlem sedan juni 200032 969 inlägg Prova att ta bort det fetmarkerade:
Set MyFile = ScriptObject.CreateTextFile(Server.mappath("/bilder/userspics" & "\" [b]& session("cmalias")) & "\"[/b] & filename)
Edit: lite svårt att se var fetmarkeringen börjar, men det jag menar att du ska ta bort ur raden är:
& session("cmalias")) & "\"
JeppewebMedlem sedan sep. 2006462 inlägg Då blir filnamnet detsamma som bilden jag laddar upp det heter, jag vill alltså få bilden att heta de namnet som användaren som laddar upp bilden heter..
användaren jesper laddar upp en .jpg, då blir namnet på bilden alltså jesper.jpg
@ndersMedlem sedan juni 200032 969 inlägg Du definierar ju inte om filename förrän raden under, så flytta upp den så du har ett nytt filnamn innan du kör createtextfile.
JeppewebMedlem sedan sep. 2006462 inlägg Hur skulle koden se ut då?
@ndersMedlem sedan juni 200032 969 inlägg Så här ser det ju ut nu:
Set MyFile = ScriptObject.CreateTextFile ......
filename = cmalias & right(filename,4)
Flytta upp raden där du definierar om filename, så den körs innan den raden som faktiskt använder variabeln. (Du hade också glömt "session" där)
filename = [b]session("cmalias")[/b] & right(filename,4)
Set MyFile = ScriptObject.CreateTextFile ......
JeppewebMedlem sedan sep. 2006462 inlägg Gjort så, bilderna döper sig till "jesper\bild.jpg"
anv = jesper
@ndersMedlem sedan juni 200032 969 inlägg Hur ser de två kodraderna ut hos dig nu då?
JeppewebMedlem sedan sep. 2006462 inlägg 'Create and Write to a File
pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14
' Set MyFile = ScriptObject.CreateTextFile(Left(Server.mappath(Request.ServerVariables("PATH_INFO")),pathEnd)&filename)
Set MyFile = ScriptObject.CreateTextFile(Server.mappath("/bilder/userspics" & "\" & session("cmalias")) & "\" & filename)
filename = session("cmalias") & right(filename,4)
@ndersMedlem sedan juni 200032 969 inlägg Men
Du har ju inte gjort några av förändringarna jag skrivit???
Bort med session-delen ur createtextfile-raden, och flytta upp raden där du definierar filename.
