webForumDet fria alternativet

Updatera om inte URL finns..

ASP

4 svar · 217 visningar · startad av Urre

Medlem sedan feb. 200113 inlägg
Frågan#1

Har kopierat nån hit counter och skall nu få den att räknaupp fält fältet counter med 1 varje gång nån klickar på länken och samtidigt lägga till URL:en men det vill den inte göra.. Om nån kan hjälpa mig vore jag tacksam här kommer koden för filen counter.asp man anropar scriptet genom att skriva länken <a href=counter.asp?URL=sida.asp">

<% Response.Buffer=TRUE 
if request("URL")<>"" then
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("Counter1.mdb") 

URL=request.querystring("URL") 

strsql = "SELECT * FROM Counter WHERE URL = '" & URL & "'" 

Set rs = Server.CreateObject("ADODB.RecordSet")
RS.open strsql, oConn, 3, 3
if not rs.eof then
rs("Counter")=rs("Counter")+1
rs("URL") = URL
rs.update
rs.Close
set rs=nothing
oConn.Close
end if 

response.redirect URL
end if %>
Medlem sedan juni 200032 967 inlägg
#2

får du något felmeddelande?

------------------
<A HREF="http://cartman.nu" TARGET=_blank>
if i'm not back in five minutes, just wait longer.</A>

Medlem sedan feb. 200113 inlägg
#3

Nä det funkar den skickar vidare en till sidan man vill ha men den lägger inte till URL:en i databasen utan det måste man göra själv.. Så det jag vill att den skall göra är att lägga till URL:en och öka counter fältet med 1...

Medlem sedan dec. 19996 721 inlägg
#4

Det finns ju inget i funktionen som gör att URL:ar läggs till.

if not rs.eof then
rs("Counter")=rs("Counter")+1
else
rs.Addnew
rs("Counter")=1
rs("URL") = URL
end if
rs.update
rs.Close

Medlem sedan feb. 200113 inlägg
#5

A jag fick det att funka. Gjorde typ på samma sätt... Men tack ändå...

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