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?
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">
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?
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..
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.
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 =)
<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.
385 ms totalt · 4 externa anrop · v20260731065814-full.51f67c91
