Gammalmodigt? Går det att förbättra

2 svar · 237 visningar · startad av medialabs 6 okt. 2003

medialabsMedlem sedan mars 20023 686 inlägg

Frågan6 okt. 2003 20:56#1

Tjenare!

Har lite kod som jag tycker är lite trög för tillfället, går det att förbättra denna på nått sätt?

fil.asp

<%Set Conn = Server.CreateObject("ADODB.Connection") 
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" &Server.MapPath("db/download.mdb")

Set RecSet = Conn.Execute("Select * From download Where id = " & Request.Querystring("id"))
   Send = RecSet("file")
   Conn.Execute("Update download Set klick=klick+1, senast=Now() Where id = " & Request.Querystring("id"))
RecSet.Close
Set RecSet = Nothing

Response.Redirect Send

Conn.Close 
Set Conn=Nothing %>

SebbeMedlem sedan jan. 20032 285 inlägg

6 okt. 2003 21:00#2

Kanske blir liiiite (några millisekunder) snabbare?

<%
Dim Conn, RecSet, Send

Set Conn = Server.CreateObject("ADODB.Connection") 
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &Server.MapPath("db/download.mdb")
Set RecSet = Conn.Execute("Select file From download Where id = " & Replace(Request.Querystring("id"), "'", "''"))

Send = RecSet("file")
RecSet.Close
Set RecSet = Nothing

Conn.Execute("Update download Set klick=klick+1, senast=Now() Where id = " & Request.Querystring("id"))
Conn.Close 
Set Conn=Nothing

Server.Transfer(Send)
%>

PatrikBMedlem sedan mars 20002 836 inlägg

6 okt. 2003 21:02#3

Seg på vilket sätt? Många användare/Access är ingen bra kombination ..... byte av DBMS kanske.

Byt connectionstringen mot:

conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("mindb.mdb")

En klart bättre connectionstring med högre/bättre prestanda än den "uråldriga gamla access-drivern".

En annan sak, lite OT .... du stänger aldrig din connection.
Så långt ned kommer du aldrig i "din exekvering" av koden eftersom response.redirect stoppar exekveringen och redirectar till vald sida.
stäng innan .... kan nog bli lite mer fart då inte så många anslutningar ligger öppna till inget behov ;)

cya,
/PatrikB