Hej!
Hur funkar Fuction funktionen?
Har många små kodsidor och tycker det är lite tråkigt och fult på servern med så många filer, så jag undrar hur man gör så att man kan lägga in många funktioner på samma asp sida och sedan länka till respektive formulär? ett exempel.
Har en sida som uppdaterar en kolumn och den sidan ser ut som följer
<!--#include file="settings.asp"--> öppnar databasen
<%
btn = LCase(Request("btn"))
If Btn = "betalat" Then
nick = Request.form("nick")
sql = "update boka set betalat = 'JA' where nick = '"& nick & "'"
con.execute(sql)
con.close
set con=nothing
end if
%>
Hur lägger jag in den som en function och hur anropar jag denna funcion sedan?
Tack//Jocke
Function betaltellerej
btn = LCase(Request("btn"))
If Btn = "betalat" Then
nick = Request.form("nick")
sql = "update boka set betalat = 'JA' where nick = '"& nick & "'"
con.execute(sql)
con.close
end if
End function
Sen kallar du på funktionen med <%=betaltellerej%> var som helst.
Kanske ska tillägga att jag inte är så superduktig på det här.
Tack för inläggen,
Om man nu vill att koden jag skrev skall uppdatera från det man trycker på en knapp i <form method="POST" action="">
<input type="text" name="betala" size="15">
<input type="submit" value="betala" name="b3" size="20">
</form>
Vad skriver man då? Skriver man samma eller Kan man includera den på samma vis som med en vanlig asp sida? :q
Skall tilläggas att inte jag heller är bra på det här, men man lär sig hela tiden.
//Jocke
Jag vet inte om det riktigt är en funktion du är ute efter i detta sammanhang. Om du har en sida där en massa saker skall hända så kan du döpa den sidan till ex. action.asp
Och så kallar du på den sidan då du vill lägga till / ta bort saker ur databasen eller något annat.
Sedan kallar du på de olika händelserna med en case-sats.
Select Case Request("foo")
case "radera"
call radera() 'Kör subben "radera"
case "addera"
call addera() 'Kör subben "addera"
case "uppdatera"
call uppdatera() 'Kör subben "uppdatera"
end select
sub addera() 'Startar subben addera
'Lägg till något i någon databas
end sub
sub radera() 'Startar subben radera
'Radera något någonstans
end sub
sub uppdatera() 'Startar subben uppdatera
nick = Request.form("nick")
sql = "update boka set betalat = true where nick = '"& nick & "'"
con.execute(sql),,128
con.close
end sub
HA! Det ser ju simpelt ut, Tack för detta. Nu skall här labboreras med koder. :birp Nu kan man ju få in allt i samma sida och kalla på det lite enkelt :e
//Jocke
257 ms totalt · 4 externa anrop · v20260731065814-full.86ec41c2