En funderare

5 svar · 219 visningar · startad av nill 30 maj 2002

nillMedlem sedan okt. 2001387 inlägg

Frågan30 maj 2002 14:57#1

Fick en funderare när jag skrev följande kod. Jag öppnar ju först databasen men sedan kan du ju hända att användaren blir vidareskickat. Stängs inte databaskopplingen då? eller kod efter Response.Redirect behandlas också?

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("\\dekrim\\data\\datan.mdb")

Select Case Request.Form("syssla")

Case "Burkar"

	VarDammit = "INSERT INTO stotar (user, syssla, chans, vinst, natt) VALUES (" & Session("userID") & ", '" & Request.Form("syssla") & "', " & Chans & ", " & Pengar & ", " & Natt & ") "
	Connect.Execute VarDammit,,128

	Response.Redirect "/dekrim/asp/stotar.asp?pyssel=sysslar"

End Select

Connect.Close
Set Connect = Nothing

LarsGMedlem sedan dec. 200012 464 inlägg

30 maj 2002 15:43#2

Koden efter response.redirect körs inte.

Databaskopplingen stängs efter ett tag, ADO märker att det inte finns några referenser till objektet.

sailsoftMedlem sedan juli 2001225 inlägg

30 maj 2002 16:01#3

skriv in

<%
Response.Buffer=True
%>

så körs sidan innan den skickar något till webbläsaren

nillMedlem sedan okt. 2001387 inlägg

30 maj 2002 16:31#4

Ja klart att databaskopplingen stängs efter ett tag. Men alla säger ju att det är viktigt att stänga alla databaskopplingar annars slöas servern ner.

ska man alltid använda Response.Buffer=True då ? så att alla databaskopplingar stängs (servern mår bra).

doggelitoMedlem sedan juni 20003 076 inlägg

30 maj 2002 16:44#5

du kanske kan köra...

Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("\dekrim\data\datan.mdb") 

Select Case Request.Form("syssla") 

Case "Burkar" 

VarDammit = "INSERT INTO stotar (user, syssla, chans, vinst, natt) VALUES (" & Session("userID") & ", '" & Request.Form("syssla") & "', " & Chans & ", " & Pengar & ", " & Natt & ") " 
Connect.Execute VarDammit,,128 
Connect.Close 
Set Connect = Nothing

Response.Redirect "/dekrim/asp/stotar.asp?pyssel=sysslar" 

Case else
Connect.Close 
Set Connect = Nothing
End Select

...istället.

nillMedlem sedan okt. 2001387 inlägg

30 maj 2002 17:18#6

jo det är klart.
men då känns det enklare att skriva Response.Buffer=True istället för att skriva om en massa kod.

fast det beror ju helt på vilket som är bäst, för servern osv.