---
title: "Några frågor om funktioner och include?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/13305-några-frågor-om-funktioner-och-include"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Janspeed"
published: "2001-11-19T09:06:00.000Z"
updated: "2001-12-21T08:42:00.000Z"
replies: 13
views: 259
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/13305-några-frågor-om-funktioner-och-include"
---

# Några frågor om funktioner och include?

## #1 — Janspeed, 2001-11-19T09:06Z

Tjena! 

Sitter här och klurar lite. Jag har byggt upp en site med hjälp av moduler som var och en har olika syften. Modulerna används främst vid beställning.

Det jag undrar nu är om det lönar sig att göra om dessa moduler till funktioner? De kommer troligtvis att fortfarande ligga i en includefil om det inte finns något bättre alternativ men kan det tänkas att man tjänar något på att göra om dem till funktioner?

En av fördelarna är ju att man själv kan välja när de ska köras men nackdelen är att det skulle krävas en del arbete för att få det att fungera och kan man lika gärna inkludera koden så är det nästan inte värt det?

Några åsikter/förslag/tankar?

Tack på förhand. :)

//JANspeed

Permalänk: https://www.webforum.nu/p/13305

## #2 — Janspeed, 2001-11-19T13:34Z

Som vanligt så var det tydligen ingen som fattade var jag menade. 

Det jag undrar över är om det är värt att göra om kod som man include:ar till en funktion?

Med värt menar jag typ prestandavinst, ökad funktionalitet eller något annat roligt som jag inte tänkt på? :)

Permalänk: https://www.webforum.nu/p/301337

## #3 — @nders, 2001-11-19T13:39Z

När du funktioniserar din kod vinner du en helt ny dimension av kodåtervinning.

Tänk lite på det. ;)

Mvh,

Permalänk: https://www.webforum.nu/p/301338

## #4 — Vide, 2001-11-19T13:53Z

... plus att det inte blir lika stökigt med globala variabler, om du kapslar in det mesta i funktioner så slipper du att tänka på om det finns krockar eller inte... :)

Permalänk: https://www.webforum.nu/p/301339

## #5 — Janspeed, 2001-12-19T12:34Z

Hur gör jag då för att slippa öppna databaskopplingen två gånger om jag har två moduler som bägge utnyttjar databaser?

/JANspeed

Permalänk: https://www.webforum.nu/p/301340

## #6 — LarsG, 2001-12-19T12:45Z

Du öppnar ett connectionobjekt och sedan skickar du det som parameter till funktionerna.

Permalänk: https://www.webforum.nu/p/301341

## #7 — bulow, 2001-12-19T13:05Z

Det allra bästa är att alltid sträva efter att lägga koden i en klass. På så sätt blir det en baggis att utföra ändringar.

Då kn du med fördel öppna kopplinga och dylikt i class_Initialize och stänga dom i class_Terminate

//Micke

Permalänk: https://www.webforum.nu/p/301342

## #8 — Janspeed, 2001-12-19T13:17Z

Både LarsGs och bulows förslag låter intressanta men hur implementeras det? Har ni något kodexempel?

/JANspeed

Permalänk: https://www.webforum.nu/p/301343

## #9 — Janspeed, 2001-12-20T09:17Z

Är det möjligt att inkludera en funktion längs ned på sidan fast ändå köra den med resten av koden? Eller ska man lägga till funktionerna överst? Hur gör ni andra?

/JANspeed

Permalänk: https://www.webforum.nu/p/301344

## #10 — @nders, 2001-12-20T09:23Z

Du kan inkludera var du vill, eftersom SSI körs innan asp-tolken gör sitt.

Du har tillgång till funktionerna vare sig din include ligger först eller sist i dokumentet.

Jag brukar alltid göra includes överst, när det gäller funktionsfiler.

Mvh,

Permalänk: https://www.webforum.nu/p/301345

## #11 — Janspeed, 2001-12-20T10:29Z

Använder jag en Sub eller en Function?

Verkar det här vettigt? 

```
<%

'Open conn
Dim Conn

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.ConnectionString = "driver={SQL Server};server=localhost;uid=*;pwd=*;database=*"	
Conn.Open

'Function

Function add_to_db(Conn, Kampanjkod, OrderText, Produkt, Epost)

Dim rs, SQL

SQL = "spOrderIns '" & Kampanjkod & "', '" & OrderText & "', '" & Produkt & "', '" & Epost & "'"

Set rs = Conn.Execute(SQL)

add_to_db = rs("ID")

Set rs = Nothing

End Function

'Close

Conn.Close
Set Conn = Nothing
%>
```

Hygglo alla som hjälper till. :)

/JANspeed

Permalänk: https://www.webforum.nu/p/301346

## #12 — Janspeed, 2001-12-20T10:38Z

Glömde att köra själva funktionen också.

```
<%

'Open conn
Dim Conn

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.ConnectionString = "driver={SQL Server};server=localhost;uid=*;pwd=*;database=*"	
Conn.Open

'Function

Function add_to_db(Conn, Kampanjkod, OrderText, Produkt, Epost)

Dim rs, SQL

SQL = "spOrderIns '" & Kampanjkod & "', '" & OrderText & "', '" & Produkt & "', '" & Epost & "'"

Set rs = Conn.Execute(SQL)

add_to_db = rs("ID")

Set rs = Nothing

End Function

[b]'Run function
RefNr = add_to_db(Conn, "Ugha bougha", "Beställning", "Fiol", "gubben@noak.com")[/b]

'Close

Conn.Close
Set Conn = Nothing
%>
```

\[Redigerat av Janspeed den 20 dec 2001\]

Permalänk: https://www.webforum.nu/p/301347

## #13 — LarsG, 2001-12-20T15:45Z

jo

Permalänk: https://www.webforum.nu/p/301348

## #14 — Janspeed, 2001-12-21T08:42Z

Då kör jag med en function.  Tack för hjälpen och God Jul. :)

/JANspeed

\[r\] Menare ju självklart en function inte en sub. Subbarna returnerar ju inga värden. \[/r\]

\[Redigerat av Janspeed den 21 dec 2001\]

Permalänk: https://www.webforum.nu/p/301349

---

Tråden på webben: https://www.webforum.nu/amne/asp/13305-några-frågor-om-funktioner-och-include