24 svar · 317 visningar · startad av voigtann1
Jag skulle vilja att man ska kunna komenterar om det spel jag har skrevit om. Men jag hittar ingen lösning.. har några ideer men då blir min databas SKIT Stor.. tar fett med plats asså.. finns det någon bra lösning?
------------------
//voigtan
:: voigtan.org
"de går inte att lära en gammal norrläning byta namn på irc" - gammalt kinesiskt uttryck
Martin: Du menar väl olika tabeller hoppas jag?
Tar liiite mindre plats då.
------------------
Den som inte vet att tiga vet inte att tala
vi har en databas för spel
och en databas för komentarer
Spel.asp?id=1
Då kan man ju bara ha en komentar ju.. om man ska köra med ID elller hur?
Det e just det jag sitter fast vid.. då måste man ju skapa en databas för för varje spels komentar och på så sätt kommer databasen att blir stor i storlek. Jag fattar inte hur man ska fixar det.
------------------
//voigtan
:: voigtan.org
"de går inte att lära en gammal norrläning byta namn på irc" - gammalt kinesiskt uttryck
Så här kan tabellerna se ut till exempel:
Spel
- ID
- info
- tillverkare
- pris
Kommentarer
- ID
- kommentar
- spelID <-- här lagrar du ID:t på spelet
[/pre]
------------------
//M@rtin || Peachy.nu\\
ni taLar Bra laTiN
[Redigerat av M@rtin den 04 nov 2001]
[Redigerat av M@rtin den 04 nov 2001]
[Redigerat av M@rtin den 04 nov 2001]
hur då? nu låter jag dum.. :r jag kan inte så många koder för ASP kan några stycken men typ inte alla.. skulle bli glad om du kúnde göra ett exempel lr ngt så att jag har något att gå efter :) tackar i förhand.
------------------
//voigtan
:: voigtan.org
"de går inte att lära en gammal norrläning byta namn på irc" - gammalt kinesiskt uttryck
Börja med att bara använda 1 databas.
I den har du en tabell med spelen och texten...
Uppbyggnad speltabellen:
spelid - räknare
spel - text
kommentarer - PM
Uppbyggnad kommentartabellen:
kommentarid - räknare
kommentar - PM
kommentartill - tal
När du vill presentera kommentarer för ett spel med tex spelid 1.
SQL = "Select * From kommentarer WHERE kommentartill = " & Request.QueryString("spelid") & ""
rs.open SQL,Connect
Detta är principen jag brukar använda...
R: argh, martin han före ;)
------------------
Den som inte vet att tiga vet inte att tala
[Redigerat av Rinaldo den 04 nov 2001]
Okey... nu har jag skapat min databas
själva spel sidans kod är:
<head>
<%
Const adLockOptimistic = 3
Const adOpenStatic = 3
Const adBookmarkFirst = 1
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=C:\Inetpub\wwwroot\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, adOpenStatic, adLockOptimistic
%>
<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="10%">
<table width="120" border="0" align="right" class="gntop">
<tr>
<td class="meny">
<div align="right">Ljud:</div>
</td>
<td class="meny"> <b>
<% =Spel("Ljud") %>
</b> </td>
</tr>
<tr>
<td class="meny">
<div align="right">Grafik:</div>
</td>
<td class="meny"> <b>
<% =Spel("grafik") %>
</b> </td>
</tr>
<tr>
<td>
<div align="right">Kontroll:</div>
</td>
<td> <b>
<% =Spel("Kontroll") %>
</b> </td>
</tr>
<tr>
<td class="meny">
<div align="right">Livslängd:</div>
</td>
<td class="meny"> <b>
<% =Spel("Livslängd") %>
</b> </td>
</tr>
<tr>
<td class="meny">
<div align="right">Spelglädje:</div>
</td>
<td class="meny"> <b>
<% =Spel("Spelglädje") %>
</b> </td>
</tr>
<tr>
<td class="meny">
<div align="right">Tid:</div>
</td>
<td class="meny"> <b>
<% =Spel("Tid") %>
</b> </td>
</tr>
</table>
</td>
</tr>
</table>
<br>
<br>
</body></html>
Längst ner så ska det står:
Läs alla kommentarer (0)Skriv en egen kommentar
och sen kommer kommentarer om det finns några...
det är här jag behöver hjälp med koder och annat skojs.. :)
tackar i förhand.
------------------
//voigtan
:: voigtan.org
"de går inte att lära en gammal norrläning byta namn på irc" - gammalt kinesiskt uttryck
Vid kommentar så ska det vara:
Namn på person som skrevit det och när dom har skrevit det... typ..
------------------
//voigtan
:: voigtan.org
"de går inte att lära en gammal norrläning byta namn på irc" - gammalt kinesiskt uttryck
Om detta låter som rena grekiskan hur jag vill ha den kolla typ på www.tvspel.nu ungefär så vill jag ha det att man kan skriva in på så sätt..
------------------
//voigtan
:: voigtan.org
"de går inte att lära en gammal norrläning byta namn på irc" - gammalt kinesiskt uttryck
Det där ska jag nog kunna hjälpa dig med. Kan ta en stund att göra.
------------------
Den som inte vet att tiga vet inte att tala
tack!
------------------
//voigtan
:: voigtan.org
"de går inte att lära en gammal norrläning byta namn på irc" - gammalt kinesiskt uttryck
jag måste gå nu igen :)
kan du göra en sida själv där man får posta egna kommentarer?
Här kommer bara det lilla jag gjort. Det är inte snygg kod alls och inte optimerad. Kan hjälpa dej senare om du vill...
<head>
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=C:\Inetpub\wwwroot\applications\test\db.mdb"
Set Spel = Server.CreateObject("ADODB.Recordset")
SPEL_info = "Select * From spel WHERE id = " & Request.QueryString("id") & ""
Spel.Open SPEL_info, Connect
%>
<title>GameNotes - <% =Spel("Spel") %></title>
</head>
<body bgcolor="#0072BC">
<% =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="10%">
<table width="120" border="0" align="right" class="gntop">
<tr>
<td class="meny">
<div align="right">Ljud:</div>
</td>
<td class="meny"> <b>
<% =Spel("Ljud") %>
</b> </td>
</tr>
<tr>
<td class="meny">
<div align="right">Grafik:</div>
</td>
<td class="meny"> <b>
<% =Spel("grafik") %>
</b> </td>
</tr>
<tr>
<td>
<div align="right">Kontroll:</div>
</td>
<td> <b>
<% =Spel("Kontroll") %>
</b> </td>
</tr>
<tr>
<td class="meny">
<div align="right">Livslängd:</div>
</td>
<td class="meny"> <b>
<% =Spel("Livslängd") %>
</b> </td>
</tr>
<tr>
<td class="meny">
<div align="right">Spelglädje:</div>
</td>
<td class="meny"> <b>
<% =Spel("Spelglädje") %>
</b> </td>
</tr>
<tr>
<td class="meny">
<div align="right">Tid:</div>
</td>
<td class="meny"> <b>
<% =Spel("Tid") %>
</b> </td>
</tr>
</table>
</td>
</tr>
</table><br><br>
<b>Kommentarer</b>:
<hr>
<%
spel.close
SPEL_info = "Select * From kommentarer WHERE kommentartill = " & Request.QueryString("id") & ""
Spel.Open SPEL_info, Connect
do while not spel.eof
%>
<b><%=spel("författare")%>, <%=spel("datum")%><br></b>
<%=spel("kommentar")%>
<hr>
<%
spel.movenext
loop
%>
<br>
<br>
</body></html>
Du får skapa en tabell som heter kommentarer där du lägger in de fälten som används i det kommentarstycket.
När du ska posta en ny kommentar, ska "kommentartill" fältet ha samma värde som det spels Id du vill ha kommentaren till...
------------------
Den som inte vet att tiga vet inte att tala
någon annan kanske kan fortsätta ...
hinner inte
------------------
Den som inte vet att tiga vet inte att tala
jag får inte igång din kod.. den verkar vara bra... snälla! behöver verkligen hjälp.
------------------
//voigtan
:: voigtan.org
"de går inte att lära en gammal norrläning byta namn på irc" - gammalt kinesiskt uttryck
får fel på rad 88:
Microsoft OLE DB Provider for ODBC Drivers fel '80040e07'
[Microsoft][Drivrutin för ODBC Microsoft Access] Typblandningsfel i villkorsuttryck.
/spel/kom.asp, rad 88
SPEL_info = "Select * From kommentarer WHERE spelid = "& Request.QueryString("id") &""
spel.Open SPEL_info, Connect
------------------
//voigtan
:: voigtan.org
"de går inte att lära en gammal norrläning byta namn på irc" - gammalt kinesiskt uttryck
Om det är något som inte fungerar, beskriv vad.
Om du får något felmeddelande, visa det.
Att bara säga att du inte får igång det är för vagt.
------------------
essentitia preter non sans multiplicandum
det har jag ju gjort!!! hatar när ni inte läser pojkar:
ERROR MESSAGE HERE:
Microsoft OLE DB Provider for ODBC Drivers fel '80040e07'
[Microsoft][Drivrutin för ODBC Microsoft Access] Typblandningsfel i villkorsuttryck.
/spel/kom.asp, rad 88
END OF ERROR MESSAGE
SER DU?????
------------------
//voigtan
:: voigtan.org
"de går inte att lära en gammal norrläning byta namn på irc" - gammalt kinesiskt uttryck