Notifikationer

Markér alle som læst Log ud

ssundsdal Nybegynder

27. august 2006 - 18:40 Der er 24 kommentarer og
2 løsninger

Clanwar script?

Nu har jeg ledt som en gal, og kan kun finde til php, hvilket jeg Ikke skal bruge..

Håber nogle af jer kan hjælpe med at finde link til et passende clanwar script i asp.

Synes godt om

madeindk Nybegynder

27. august 2006 - 18:55 #1

<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Clanwars</title>
</head>

<body>

<%
strAction = lcase(request.querystring("action"))

if strAction = "save" then

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("database.mdb")

Set rs = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM clanwars "
rs.Open Addera, Connect, 3, 3

rs.addnew
rs("team1") = request.form("team1")
rs("team2") = request.form("team2")
rs("winning1") = request.form("winning1")
rs("winning2") = request.form("winning2")
rs("map") = request.form("map")

rs.update
response.redirect("?info=saved")

end if

if strAction = "delete" then

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("database.mdb")

Set rs = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM clanwars "
rs.Open Addera, Connect, 3, 3

rs.delete
rs.update
response.redirect("?info=deleted")

end if
%>

<b>New clanwar</b><br><br>

<form action="?action=save" method="post">

Team 1:<br>
<input type="text" name="team1">  Rounds won: <input style="width: 40px;" type="text" name="winning1"><br><br>

Team 1:<br>
<input type="text" name="team2">  Rounds won: <input style="width: 40px;" type="text" name="winning2"><br><br>

Map:<br>
<input type="text" name="map"><br><br>

<input type="submit" value="Create">

</form>

<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("database.mdb")

Set rs = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM clanwars ORDER BY ID DESC "
rs.Open Addera, Connect, 3, 3

if not rs.eof then
do until rs.eof
%>

<table width="100%" cellpadding="0" cellspacing="0">
<tr>
<td align="right" width="45%"><% if RS("winning1") > RS("winning2") then %>WINNER |<% elseif RS("winning1") = RS("winning2") then%>DRAWN |<% end if %><b><%=RS("team1")%></b></td>
<td align="center" width="10%"><%=RS("winning1")%>-<%=RS("winning2")%></td>
<td width="45%"><b><%=RS("team2")%></b><% if RS("winning1") < RS("winning2") then %>WINNER<% elseif RS("winning1") = RS("winning2") then%>| DRAWN<% end if %></td>
<td width="15"><a href="?action=delete&id=<%=RS("id")%>"><b>DELETE</b></a></td>
</tr>
</table>

<%
rs.movenext
loop
end if
%>

</body></html>

Synes godt om

ssundsdal Nybegynder

27. august 2006 - 19:05 #2

Ser fint ud.
Men søger et script hvor det hele er lavet! med admin funktionerne. database osv.

Synes godt om

kiddoe Nybegynder

27. august 2006 - 20:06 #3

Hej - hvad skal det kunne ??

Synes godt om

ssundsdal Nybegynder

27. august 2006 - 20:17 #4

Kan skal kunne logge ind som admin,

når man så er logget på skal man kunne skrive hvilke hold som spillede mod hinanden, hvilket map(s) og resultatet osv.

Synes godt om

kiddoe Nybegynder

27. august 2006 - 21:38 #5

ind til videre - læs readme.txt
http://www.aspscript.dk/clanwar/clanwar.zip

Synes godt om

ssundsdal Nybegynder

27. august 2006 - 21:44 #6

tap, tjekker det lige ud

Synes godt om

ssundsdal Nybegynder

27. august 2006 - 21:44 #7

tak*

Synes godt om

ssundsdal Nybegynder

27. august 2006 - 21:47 #8

connection.asp
bruger.asp

de er ikke med i mappen

Synes godt om

ssundsdal Nybegynder

27. august 2006 - 21:48 #9

hov..

mente: connection.asp

Synes godt om

ssundsdal Nybegynder

27. august 2006 - 21:53 #10

Og hvor ser jeg lige resultatet efter jeg har skrevet et ?

Synes godt om

ssundsdal Nybegynder

27. august 2006 - 21:54 #11

som jeg dog vrøvler her til aften.

Synes godt om

ssundsdal Nybegynder

27. august 2006 - 21:55 #12

smig et svar :)

men mangler dog stadig: connection.asp

Synes godt om

ssundsdal Nybegynder

27. august 2006 - 21:57 #13

jeg kan se at resultatet kun kommer når man logger ind..
Det skal nu være meningen at man logger ind og så kan skrive resultatet og så kommer resultatet ud på siden så andre også kan se det.

Synes godt om

kiddoe Nybegynder

27. august 2006 - 21:58 #14

nå der er åbenbart smuttet en side - connection.asp ser sådan ud

--------- connection.asp
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("/db/clanwar.mdb")
%>

resultaterne kommer frem på samme side som din form du skriver i

Synes godt om

ssundsdal Nybegynder

27. august 2006 - 22:02 #15

ja, men de kommer kun frem når jeg er logget ind ?

Synes godt om

kiddoe Nybegynder

27. august 2006 - 22:05 #16

en side med resultaterne kunne se sådan ud

<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>ClanWar Resultater</title>
</head>

<body>


<%
Set rs = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM results ORDER BY ID DESC "
rs.Open Addera, Connect, 3, 3

if not rs.eof then
%>
<div>
<table width="90%" cellpadding="0" cellspacing="0">
<tr>
<td width="20%">Map</td>
<td align="right" width="25%">HOLD 1</td>
<td align="center" width="20%">RESULTAT</td>
<td width="25%">HOLD 2</td>
</tr>
<%
do until rs.eof
%>
<tr>
<td width="20%"><%=RS("map")%></td>
<td align="right" width="25%"><% if RS("winning1") > RS("winning2") then %> <font face="Arial" size="2" color="#FF0000"><b>VINDER | <% elseif RS("winning1") = RS("winning2") then%>LIGE | </b></font><% end if %><b><%=RS("team1")%></b></td>
<td align="center" width="20%"><%=RS("winning1")%><font color="#FF0000"> - </font><%=RS("winning2")%></td>
<td width="25%"><b><%=RS("team2")%></b><% if RS("winning1") < RS("winning2") then %> <font color="#FF0000" size="2" face="Arial"><b> VINDER<% elseif RS("winning1") = RS("winning2") then%> | LIGE</b></font><% end if %></td>
</tr>

<%
rs.movenext
loop
end if
%>
</table>
</div>
</body>
</html>

Synes godt om

kiddoe Nybegynder

27. august 2006 - 22:05 #17

svar - :)

Synes godt om

ssundsdal Nybegynder

27. august 2006 - 22:06 #18

ja, mange tak.. Smid et svar :)

Synes godt om

kiddoe Nybegynder

27. august 2006 - 22:17 #19

for at få en sortering på din resultat liste skulle du næsten have datoen med så de nyeste resultater står øverst
sæt denne linie ind i din admin.asp

rs("date") = date()

hvor der står

rs.addnew
rs("team1") = request.form("team1")
rs("team2") = request.form("team2")
rs("winning1") = request.form("winning1")
rs("winning2") = request.form("winning2")
rs("map") = request.form("map")
---- SÆT IND HER
rs.update

og så kunne din resultatside se sådan ud

<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>ClanWar Resultater</title>
</head>

<body>


<%
Set rs = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM results ORDER BY DATE DESC "
rs.Open Addera, Connect, 3, 3

if not rs.eof then
%>
<div>
<table width="100%" cellpadding="0" cellspacing="0">
<tr><td width="15%">Dato</td>
<td width="15%">Map</td>
<td align="right" width="25%">HOLD 1</td>
<td align="center" width="20%">RESULTAT</td>
<td width="25%">HOLD 2</td>
</tr>
<%
do until rs.eof
%>
<tr>
<td width="15%"><%=RS("date")%></td>
<td width="15%"><%=RS("map")%></td>
<td align="right" width="25%"><% if RS("winning1") > RS("winning2") then %> <font face="Arial" size="2" color="#FF0000"><b>VINDER | <% elseif RS("winning1") = RS("winning2") then%>LIGE | </b></font><% end if %><b><%=RS("team1")%></b></td>
<td align="center" width="20%"><%=RS("winning1")%><font color="#FF0000"> - </font><%=RS("winning2")%></td>
<td width="25%"><b><%=RS("team2")%></b><% if RS("winning1") < RS("winning2") then %> <font color="#FF0000" size="2" face="Arial"><b> VINDER<% elseif RS("winning1") = RS("winning2") then%> | LIGE</b></font><% end if %></td>
</tr>

<%
rs.movenext
loop
end if
%>
</table>
</div>

</body>

</html>

Synes godt om

kiddoe Nybegynder

27. august 2006 - 22:17 #20

svar

Synes godt om

madeindk Nybegynder

27. august 2006 - 22:55 #21

Svar.

Vi deles om pointene - det er mest fair - kiddoe sidder og bruger MIT kode, det jeg sad og brugte tid på til at starte med, fx. "Addera = "SELECT * FROM results ORDER BY DATE DESC "

Synes godt om

madeindk Nybegynder

27. august 2006 - 22:55 #22

Svar.

Vi deles om pointene - det er mest fair - kiddoe sidder og bruger MIT kode, det jeg sad og brugte tid på til at starte med, fx. "Addera = "SELECT * FROM results ORDER BY DATE DESC "

Synes godt om

ssundsdal Nybegynder

27. august 2006 - 23:10 #23

Jeg forstår ikke helt hvordan resultatet kommer automatisk over og bliver vist i denne kode som du har skrevet til sidst..
Hos mig er den bare blank! også selvom jeg har været logget ind og skrevet et resultat! (Det er der dog stadig når jeg er logget ind) Men ikke i en ny html fil

Synes godt om

kiddoe Nybegynder

28. august 2006 - 01:21 #24

madeindk >> pointene er dine - sorry

ssundsdal >> du skal gemme siden som en asp side - f.eks resultater.asp

Synes godt om

madeindk Nybegynder

28. august 2006 - 06:48 #25

Nej ssundsdal, vi deler bare - det er helt fint :-)

Synes godt om

ssundsdal Nybegynder

28. august 2006 - 08:40 #26

Perfekt, så virkede det jo..

Deler point mellem jer så :D

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	9	25/06/202622:20	29/06/202621:55
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP	5	23/05/202409:56	24/05/202400:02

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS