webForumDet fria alternativet
Logga in / Bli medlem

Request Query!

ASP

1 svar · 147 visningar · startad av webzonen

Medlem sedan feb. 2001390 inlägg
Trådstart#1

Nu är det tänkt att jag ska ha en sida som det ska finnas spelfusk som man ska kunna ta bort.. koden jag skrivit för det är:
<% If Request.QueryString("del") = "fusk" Then %>

<% Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=c:\inetpub\wwwroot\databas\default.mdb"

Set RecSet = Server.CreateObject("ADODB.Recordset")

Radera = "SELECT * FROM Fusk ORDER BY Namn"
RecSet.Open Radera, Connect, adOpenStatic, adLockOptimistic %>

Dessa fusk finns i databasen.\<p\>

\<ul\>

<% Do Until RecSet.EOF %>

\<li\>\<% =RecSet("Namn") %\>&nbsp;\<b\>\<br\>


	 \<a href="sida.asp?fudel=\<% =RecSet("ID") %\>"\>Radera detta fusk\</a\>
	 \<hr noshade size="1" width="250" align="left"\>

<% RecSet.MoveNext
Loop
RecSet.Close %>

<% End If %>

Koden som ska ta emot detta är:
<% If Request.QueryString("fudel")
= "id:t" Then %>
<% Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=c:\inetpub\wwwroot\databas\default.mdb"

Set RecSet = Server.CreateObject("ADODB.Recordset")

Radera = "SELECT * FROM Fusk WHERE ID = " & Request.QueryString("ID") & " "

RecSet.Open Radera, Connect, adOpenStatic, adLockOptimistic

RecSet.Delete

RecSet.Close
Connect.Close %\>

<% End If %>
Vad jag nu inte riktigt har hajat är hur jag ska kunna få ID:t i ifsatsen ändras efter länked den kommer från.

Medlem sedan dec. 2000557 inlägg
#2

Testa det du fick via ICQ... ;)

257 ms totalt · 4 externa anrop · v20260731065814-full.51f67c91
120 ms — deklarationer (db)
0 ms — hämta statistik (cache)
132 ms — hämta tråd, inlägg och bilagor (db)
122 ms — ändringar (db)