12 svar · 289 visningar · startad av voigtann1
Okey.. jobbiga Voigtan e tillbax efter 4 minuter.. nu vill han ha en kod som typ tvspel.nu har när man trycker på en bild så öppnas det i:
bilder.asp?bild=minbild.gif
jag behöver en snabb kod som är lätt att andra om eller hur jag ska gå till väga.. måste jag skapa en hel databas med alla bilder i eller?
------------------
//voigtan
:: voigtan.org
"de går inte att lära en gammal norrläning byta namn på irc" - gammalt kinesiskt uttryck
Spara alla sökvägar till bilderna i en databas.
på första sidan skriver du
<%
Do Until RecSet.EOF
%>
<a href=bild.asp?m=ledare&id="& RecSet("id") &"><img src='"& RecSet("thumb") &"' border=0></a>"
<%
RecSet.MoveNext
Loop
RecSet.Close
Connection.Close
%>
Eller nått liknande beroende på hur du vill att länken ska se ut.Du måste även ha med databas kopplingen.
bild.asp
<%
ID = request.querystring("ID")
Set my_conn = Server.CreateObject("ADODB.Connection")
my_conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../databas.mdb"))
SQL="SELECT * from album WHERE ID = "& ID
SET RS = my_conn.execute(SQL)
%>
<img src="<%=RS("bild")%>" border="0">
Hoppas du blir lite klokare av detta.
------------------
/Dahlgren
"Det finns saker som man måste vara fackman för att inte förstå"
jepps =) tackar!
------------------
//voigtan
:: voigtan.org
"de går inte att lära en gammal norrläning byta namn på irc" - gammalt kinesiskt uttryck
Okey.. här kommer en svår nöt:
Jag har en sida som heter spel.asp
där ska det typ vara spel.asp?ID=1
Då kommer det info om spelet. Jag vill att längst ner på sidan ska den ladda alla bilder just för det spelet.. hur gör jag?
------------------
//voigtan
:: voigtan.org
"de går inte att lära en gammal norrläning byta namn på irc" - gammalt kinesiskt uttryck
Du gör en till kolumn som heter spel och i den skriver du samma varde på alla saker som hör ihop med samma spel.
Tex mario för mario
spel = request.querystring("spel")
SQL="SELECT * from album WHERE spel = "& spel
------------------
/Dahlgren
"Det finns saker som man måste vara fackman för att inte förstå"
[Redigerat av dahlgren den 04 nov 2001]
gör inte den koden typ om jag har tryckt på bilden mario.jpg så att den öppna en ny sida där man kan typ ha en rubrik där det står Mario 64
och sen kommer bilden?
jag vill att alla bilder listas upp just för mario på spel.asp?ID=1
längst ner på sidan typ ska det vara mini bilder på dom stora bildena..
------------------
//voigtan
:: voigtan.org
"de går inte att lära en gammal norrläning byta namn på irc" - gammalt kinesiskt uttryck
när u använder spel.asp?id=1 s å finns det bara en rad som kan vara id 1 men om man gör som jag skrev så kan väljer den alla saker som har med spelet mario att göra.
------------------
/Dahlgren
"Det finns saker som man måste vara fackman för att inte förstå"
ska göra en test kod med din kod.. tackar på förhand om det fungerar :)
------------------
//voigtan
:: voigtan.org
"de går inte att lära en gammal norrläning byta namn på irc" - gammalt kinesiskt uttryck
voigtann1: Lite OT
Jag är bra sugen på att se vad du har åstadkommit eftersom du är en så flitig faktasökare här på forumet.
Din länk i din signatur verkar inte fungera? Du har ingen annan adress som fungerar?
*Nyfiken*
------------------
/solbulle
Hemmabio | Spelautomater | The Who
hehe.. voigtan.org e gammal typ.. har inte den ute på nätet ännu.. men om du vill så kontakta mej på Icq: 6626598 så kan vi ju se om du vill se sidan =)
------------------
//voigtan
:: voigtan.org
"de går inte att lära en gammal norrläning byta namn på irc" - gammalt kinesiskt uttryck
jag skulle gjärna vilja se sidan :)
------------------
"Where monkeys and nutty proffesors live. That's where i live"
adda mej då :)
------------------
//voigtan
:: voigtan.org
"de går inte att lära en gammal norrläning byta namn på irc" - gammalt kinesiskt uttryck
*host* its me again :r
jag får bara errors:
<head>
<script language="JavaScript">
<!--
function MM_openBrWindow(theURL,winName,features) { //v2.0
window.open(theURL,winName,features);
}
//-->
</script>
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=d:\voigtan\spel\db\gn.mdb"
Set Spel = Server.CreateObject("ADODB.Recordset")
SPEL_info = "SELECT * FROM Spel WHERE id=" & Request.QueryString("id")
Spel.Open SPEL_info, Connect ,3 ,3
%>
<title>GameNotes - <% =Spel("Spel") %></title>
<link rel="stylesheet" type="text/css" href="style.css">
</head><body bgcolor="#0072BC">
<tr>
<td width="127" background="meny/_top.jpg" height="8"></td>
<td width="*" rowspan="3"><p class="gntop" ALIGN=RIGHT><% =Spel("Spel") %></p>
<font class="text5">Skriven av: <% =Spel("Författare") %>, <% =Spel("Datum") %></font>
<br>
<table width="100%" border="0" class="text1">
<tr>
<td width="*%">
<% =Spel("Resention1") %>
</td>
<td width="1px" bgcolor="#003680"></td>
<td width="45%">
<% =Spel("Resention2") %>
</td>
<td width="125">
<table width="125" border="0" align="right" class="gntop">
<tr><%
spelis = spel("konsoll")
Select Case spelis
Case "SNES"
konso = "Super Nintendo"
Case "GBA"
konso = "GameBoy Advanced"
Case "DC"
konso = "DreamCast"
Case "GC"
konso = "GameCube"
Case "GB"
konso = "GameBoy"
Case "GBC"
konso = "GameBoy Color"
Case "NES"
konso = "Nintendo"
Case "pc"
konso = "PC"
Case "PS"
konso = "Playstation"
Case "PS2"
konso = "Playstation 2"
Case "n64"
konso = "Nintendo 64"
Case "SMD"
konso = "Sega Mega Drive"
Case "XOBX"
konso = "Xbox"
End Select
%><font class="info"><b>Fullständig speltitel:</b><br>
<%= spel("spel") %><br>
<B>Konsoll:</b><br>
<%= konso %><br>
<B>Antal spelare:</b><br>
<%= spel("antalspelare") %><br>
<B>Genre:</b><br>
<%= spel("genre") %><br>
<B>Utvecklare:</b><br>
<%= spel("utvecklare") %><br>
<%
Dim ljud, grafik, kontroll, hallbarhet, spelgladje, Summa
ljud = spel("ljud")
grafik = spel("grafik")
kontroll = spel("kontroll")
hallbarhet = spel("Hållbarhet")
spelgladje = spel("Spelglädje")
Summa = ljud+grafik+kontroll+hallbarhet+spelgladje
%> </font><br>
</tr>
<tr>
<td class="meny">
Ljud: <% =Ljud %><br>
Grafik: <% =grafik %><br>
Kontroll: <% =Kontroll %><br>
Hållbarhet: <% =Hallbarhet %><br>
Spelglädje: <% =Spelgladje %><hr size="1">
Totalt Betyg: <% =summa %>/50
</td>
</tr>
</table>
</td>
</tr>
</table>
<%
Set kom = Server.CreateObject("ADODB.Recordset")
gnSQL = "Select * From kommentarer where spelid ='"& Request.QueryString("id") &"'"
kom.Open gnSQL, Connect, 3, 3
Dim antalettor
antalettor = kom.recordcount
%><font class="text1">
<hr color="#003680" size="1">
<b>Kommentarer(<%= antalettor %> ) | <a href="#" onClick="MM_openBrWindow('add_com.asp?id=<%=spel("ID")%>','addkomentar','width=500,height=300')">Lägg
till komentar</a> </b>
<hr color="#003680">
<%kom.close
SPEL_info2 = "Select * From kommentarer WHERE spelid = '"& Request.QueryString("id") &"'"
kom.Open SPEL_info2, Connect
Do Until kom.EOF
%>
<b><%=kom("Författare")%>, <%=kom("datum")%><br></b>
<%=kom("IDkommentar")%>
<hr color="#003680" size="1">
<%
kom.movenext
loop
spel.close
%></font>
</body></html>
kan någon fixar det???? kvittar vad jag gör jag får bara errors typ.. om jag fixar en sak.. då feplar sej koden tack vara att den skulle vara så typ etc etc.
------------------
//voigtan
:: voigtan.org
"de går inte att lära en gammal norrläning byta namn på irc" - gammalt kinesiskt uttryck