Toon posts:

[ASP] Query blijft in cache

Pagina: 1

Acties:

71 views sinds 30-01-2008
Reageer

donderdag 8 november 2001 13:45

Acties:

Verwijderd

Topicstarter

Ik haal uit een tabel gegevens met een query, maar als ik opnieuw wil zoeken en dus een pagina terug ga naar m'n html form. Dan toets ik een ander getal in en druk weer op submit, maar dan worden niet de goede gegevens weergegeven maar die van de vorige opdracht.

Ik krijg pas andere gegevens als ik IIS herstart
is er een scriptje die dit kan verhelplen ofsow ???

donderdag 8 november 2001 13:48

Acties:

Verwijderd

Gebruik je dit al in de pagina die de resultaten toont?

code:

1	Response.Expires=0

Dit zorgt ervoor dat de pagina onmiddelijk verlopen is en dus niet gecached wordt.

donderdag 8 november 2001 13:50

Acties:

Verwijderd

Topicstarter

nee staat er nog niet in
waar moet ik em plaatsten ?

donderdag 8 november 2001 13:55

Acties:

Verwijderd

Topicstarter

voor de duidelijkheid, dit is de pagina :

<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html;charset=windows-1252">
<TITLE>test</TITLE>

</HEAD>
<BODY background="pics/backhome.gif">

<%
If IsObject(Session("Access_conn")) Then
Set conn = Session("Access_conn")
Else
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "Access","",""
Set Session("Access_conn") = conn
End If
%>
<%
If IsObject(Session("test_rs")) Then
Set rs = Session("test_rs")
Else

Dim errornumber
errornumber= Request.Querystring("errornumber")

Dim description
description= Request.Querystring("ShortDescription")

Dim sql
sql = "SELECT * FROM [test] WHERE VtdMessageID=" & errornumber

Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3, 3
If rs.eof Then
rs.AddNew
End If
Set Session("test_rs") = rs
End If
%>
<CENTER>
<TABLE BORDER=1 CELLSPACING=4><CAPTION></CAPTION>

<TH BGCOLOR=#c0c0c0 BORDERCOLOR=#000000 >ID</TH>
<TH BGCOLOR=#c0c0c0 BORDERCOLOR=#000000 >Short description</TH>
<TH BGCOLOR=#c0c0c0 BORDERCOLOR=#000000 >Type</TH>
<TH BGCOLOR=#c0c0c0 BORDERCOLOR=#000000 >Severity</TH>
<TH BGCOLOR=#c0c0c0 BORDERCOLOR=#000000 >Acceptable</TH>
<TH BGCOLOR=#c0c0c0 BORDERCOLOR=#000000 >Description</TH>
<TH BGCOLOR=#c0c0c0 BORDERCOLOR=#000000 >Motivation</TH>
<TH BGCOLOR=#c0c0c0 BORDERCOLOR=#000000 >Possible solution</TH>
<TH BGCOLOR=#c0c0c0 BORDERCOLOR=#000000 >Example1</TH>
<TH BGCOLOR=#c0c0c0 BORDERCOLOR=#000000 >Example2</TH>

</TR>

<TBODY>
<%
On Error Resume Next
rs.MoveFirst
do while Not rs.eof
%>
<TR VALIGN=TOP>
<TD BORDERCOLOR=#c0c0c0 ALIGN=RIGHT><%=Server.HTMLEncode(rs.Fields("VtdMessageID").Value)%> </TD>
<TD BORDERCOLOR=#c0c0c0 ><%=Server.HTMLEncode(rs.Fields("ShortDescription").Value)%> </TD>
<TD BORDERCOLOR=#c0c0c0 ><%=Server.HTMLEncode(rs.Fields("Type").Value)%> </TD>
<TD BORDERCOLOR=#c0c0c0 ><%=Server.HTMLEncode(rs.Fields("Severity").Value)%> </TD>
<TD BORDERCOLOR=#c0c0c0 ALIGN=RIGHT><%=Server.HTMLEncode(rs.Fields("Acceptable").Value)%> </TD>
<TD BORDERCOLOR=#c0c0c0 ><%=Server.HTMLEncode(rs.Fields("Description").Value)%> </TD>
<TD BORDERCOLOR=#c0c0c0 ><%=Server.HTMLEncode(rs.Fields("Motivation").Value)%> </TD>
<TD BORDERCOLOR=#c0c0c0 ><%=Server.HTMLEncode(rs.Fields("PossibleSolution").Value)%> </TD>
<TD BORDERCOLOR=#c0c0c0 ><%=Server.HTMLEncode(rs.Fields("Example1").Value)%> </TD>
<TD BORDERCOLOR=#c0c0c0 ><%=Server.HTMLEncode(rs.Fields("Example2").Value)%> </TD>

</TR>
<%
rs.MoveNext
Response.Expires=0
loop%>
</TBODY>
<TFOOT></TFOOT>
</TABLE>
</BODY>
</HTML>

donderdag 8 november 2001 13:56

Acties:

Verwijderd

aan het eind:

code:

rs.Close
Set rs=Nothing
Conn.Close
Set Conn=Nothing

En zo met elk object

donderdag 8 november 2001 14:00

Acties:

Verwijderd

Op donderdag 08 november 2001 13:56 schreef KixAss456 het volgende:
aan het eind:
code:
1
2
3
4
rs.Close
Set rs=Nothing
Conn.Close
Set Conn=Nothing
En zo met elk object

Deze is idd handig om te doen

Voor wat betreft de response.expires, eenmaal aan het begin van de pagina:

code:

<%
Response.Expires = 0
%>
<html>
<head>
<title>blaat</title>
</head>
<body>
<% 
'al het asp-gebeuren 
%>
</body>
</html>

donderdag 8 november 2001 14:02

Acties:

Verwijderd

Topicstarter

Op donderdag 08 november 2001 13:56 schreef KixAss456 het volgende:
aan het eind:
code:
1
2
3
4
rs.Close
Set rs=Nothing
Conn.Close
Set Conn=Nothing
En zo met elk object

dat dus ipv dit :

rs.MoveNext
Response.Expires=0
loop

??

donderdag 8 november 2001 14:21

Acties:

Verwijderd

Topicstarter

OK
keb nu dit :

<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html;charset=windows-1252">
<TITLE>test</TITLE>

</HEAD>
<BODY background="pics/backhome.gif">
<%
Response.Expires = 0
%>
<%
If IsObject(Session("Access_conn")) Then
Set conn = Session("Access_conn")
Else
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "Access","",""
Set Session("Access_conn") = conn
End If
%>
<%
If IsObject(Session("test_rs")) Then
Set rs = Session("test_rs")
Else

Dim errornumber
errornumber= Request.Querystring("errornumber")

Dim description
description= Request.Querystring("ShortDescription")

Dim sql
sql = "SELECT * FROM [test] WHERE VtdMessageID=" & errornumber

Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3, 3
If rs.eof Then
rs.AddNew
End If
Set Session("test_rs") = rs
End If
%>
<CENTER>
<TABLE BORDER=1 CELLSPACING=4><CAPTION></CAPTION>

<TH BGCOLOR=#c0c0c0 BORDERCOLOR=#000000 >ID</TH>
<TH BGCOLOR=#c0c0c0 BORDERCOLOR=#000000 >Short description</TH>
<TH BGCOLOR=#c0c0c0 BORDERCOLOR=#000000 >Type</TH>
<TH BGCOLOR=#c0c0c0 BORDERCOLOR=#000000 >Severity</TH>
<TH BGCOLOR=#c0c0c0 BORDERCOLOR=#000000 >Acceptable</TH>
<TH BGCOLOR=#c0c0c0 BORDERCOLOR=#000000 >Description</TH>
<TH BGCOLOR=#c0c0c0 BORDERCOLOR=#000000 >Motivation</TH>
<TH BGCOLOR=#c0c0c0 BORDERCOLOR=#000000 >Possible solution</TH>
<TH BGCOLOR=#c0c0c0 BORDERCOLOR=#000000 >Example1</TH>
<TH BGCOLOR=#c0c0c0 BORDERCOLOR=#000000 >Example2</TH>

</TR>

<TBODY>
<%
On Error Resume Next
rs.MoveFirst
do while Not rs.eof
%>
<TR VALIGN=TOP>
<TD BORDERCOLOR=#c0c0c0 ALIGN=RIGHT><%=Server.HTMLEncode(rs.Fields("VtdMessageID").Value)%> </TD>
<TD BORDERCOLOR=#c0c0c0 ><%=Server.HTMLEncode(rs.Fields("ShortDescription").Value)%> </TD>
<TD BORDERCOLOR=#c0c0c0 ><%=Server.HTMLEncode(rs.Fields("Type").Value)%> </TD>
<TD BORDERCOLOR=#c0c0c0 ><%=Server.HTMLEncode(rs.Fields("Severity").Value)%> </TD>
<TD BORDERCOLOR=#c0c0c0 ALIGN=RIGHT><%=Server.HTMLEncode(rs.Fields("Acceptable").Value)%> </TD>
<TD BORDERCOLOR=#c0c0c0 ><%=Server.HTMLEncode(rs.Fields("Description").Value)%> </TD>
<TD BORDERCOLOR=#c0c0c0 ><%=Server.HTMLEncode(rs.Fields("Motivation").Value)%> </TD>
<TD BORDERCOLOR=#c0c0c0 ><%=Server.HTMLEncode(rs.Fields("PossibleSolution").Value)%> </TD>
<TD BORDERCOLOR=#c0c0c0 ><%=Server.HTMLEncode(rs.Fields("Example1").Value)%> </TD>
<TD BORDERCOLOR=#c0c0c0 ><%=Server.HTMLEncode(rs.Fields("Example2").Value)%> </TD>

</TR>
<%
rs.MoveNext
loop%>
</TBODY>
<TFOOT></TFOOT>
</TABLE>
</BODY>
</HTML>

maar nog steeds hetzelfde probleem

iemand weet em precies ??

donderdag 8 november 2001 14:37

Acties:

Verwijderd

Topicstarter

ik ben echt bijna klaar nu, kan iemand dat misschien heel even zeggen. Dan ben ik er vanaf

donderdag 8 november 2001 14:40

Acties:

Verwijderd

dit aan het einde van je pagina toevoegen:

code:

<%
Rs.Close
Conn.close

Set Rs = Nothing
Set Conn = Nothing
%>

donderdag 8 november 2001 14:49

Acties:

Verwijderd

Topicstarter

kzal eens kijken of het nu lukt jah
dank je

donderdag 8 november 2001 15:14

Acties:

Verwijderd

Topicstarter

nog steeds niet hoor
als ik een nieuwe waarde invoer wordt deze niet weergegeven in het frame eronder

de browser blijft heel lang laden maar geeft dan niets weer !!

echt minder zeg !!
niemand weet het ?

donderdag 8 november 2001 15:16

Acties:

Verwijderd

Topicstarter

voor de duidelijkheid

<%
Response.Expires = 0
%>
<html>
<head>
<title>blaat</title>
</head>
<body>
<%
'al het asp-gebeuren
%>

<%
rs.MoveNext
loop%>
<%
Rs.Close
Conn.close
Set Rs = Nothing
Set Conn = Nothing
%>
</body>
</html>

dit is de huidige situatie

donderdag 8 november 2001 15:49

Acties:

Verwijderd

De manier om caching zo goed mogelijk uit te omzeilen:

code:

<%
Response.Expires = 1
Response.Expiresabsolute = Now() - 2
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","private"
Response.CacheControl = "no-cache"
%>

donderdag 8 november 2001 15:58

Acties:

Verwijderd

Topicstarter

onderaan ?
bovenaan ?

Pagina: 1

Reageer