Toon posts:

[ASP]script loopt vast en geheugen loopt vol

Pagina: 1
Acties:
  • 70 views sinds 30-01-2008

woensdag 26 november 2003 17:53

Acties:
  • Freemann
  • Registratie: Januari 2002
  • Niet online

Freemann

CO2 Warmtepomp + VentilatieWTW

Topicstarter
onderstaand script loopt vast doordat het geheugen vol loopt.
De PageFile loopt op tot tegen 1Gb aan.
Hieronder de code en mijn vraag is dus wat is hier fout aan?
aangezien ik geen foutmelding krijg waarop ik kan zoeken zou ik ook niet weten waar te beginnen....

heb al wat geprobeerd te zoeken op forums en google maar kan me probleem nu niet zo 1,2,3,4,5,6,7,8,9,10 vinden


Snap er helemaal niks van :?

het deel dat fout gaat staat tussen de if statement page = "a"
De fout zou dus vanaf regel 109 moeten zitten

draai XP met SQL server 2000 en ASP dot Net 1.1


code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<%@ language="vbscript" %>
<%
Response.Expires = 60
Response.Expiresabsolute = Now() - 2
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","private"
Response.CacheControl = "no-cache"

varTxtNummer = request("txtNummer")
page = Request("page")
Cookie = Request.Cookies("test1")
Dim objConn
Dim objConn1
Dim Cookie
Dim where
Dim count
Dim lim
Dim SQL
'Dim ConnectionString
Dim objRS
Dim objRS1
Int varTxtNummer
Int txtNummer

                        SET objConn = Server.CreateObject("ADODB.Connection")
                        SET objRS = Server.CreateObject("ADODB.Recordset")
                        objConn.ConnectionString = "DSN=Testen;UID=sa"
                        objConn.Open

Sub CloseConn
    objConn.close
    set objConn = nothing
End Sub

%>
<html>
<head>
    <title></title>
    <link rel="StyleSheet" href="http://127.0.0.1/stylesheet.css" type="text/css">
    <script id="clientEventHandlersVBS" language="vbscript">
        Sub ZoekId_OnClick
            Dim NummerInvoer
            NummerInvoer = window.txtNummer.value
            
            if IsNumeric(NummerInvoer) then
                MsgBox("voer een nummer in")
            End if
        End Sub
    </script>   
</head>
<body bgcolor="#00006C">

<div align="center"><table>
    <tr>
        <td>
        ..:: <a href="test.asp">home</a> ::.. ..::<a href="test.asp?page=zoeken">zoeken</a> ::..
        </td>
    </tr>
</table></div>

<table  width=100%>
    <tr valign="top">

        <td  width="70%">
            <table width=100% >
                <tr>
                    <td>
                        <%lim = 5
                        if varTxtNummer <> "" then
                        where = " WHERE Artikel_Id = " & varTxtNummer & ""
                        end if
                        if page = "zoeken" then
                            'Database connectie voor zoeken
                            SQL1 = "SELECT * FROM Artikel " & where & " ORDER BY Artikel_Id ASC"
                            objRS.open = objConn.execute(SQL1)
                            'WHERE Artikel_Id =" & cint(varTxtNummer) &" 
                            'Zoeken include
                        %><!--#include file="functie_zoeken.asp"-->
                        <%elseif page = "" then
                            'Database connectie voor home
                            SQL2 = " SELECT * FROM Artikel " & where & " ORDER BY Artikel_Id ASC"
                            objRS.open = objConn.execute(SQL2)
                            'Home include
                        %><!--#include file="home.asp"-->
                        <%end if%>
                    </td>
                </tr>
            </table>
        </td>
        <td  width="20%">
            <table width=100%>
                <tr>
                    <td>
                        <!--rechter tabel -->
                        <table  class=table  width="100%">
                            <tr bgcolor="#676767">
                                <td>
                                    Beleid
                                </td>
                            </tr>
                            <tr>
                                <td>
                                <% 
                                SQL3 = "SELECT * FROM Beleid ORDER BY Beleid_Id asc"
                                response.write(SQL3)
                                
                                    '------------------------------------
                                    'vanaf hier zou de fout moeten zitten
                                    '------------------------------------
                                if page = "a" then
                                    'call CloseConn
                                    SET objConn1 = Server.CreateObject("ADODB.Connection")
                                    SET objRS1 = Server.CreateObject("ADODB.Recordset")
                                    objConn1.ConnectionString = "DSN=Testen;UID=sa"
                                    objConn1.Open

                                    objRS1.open = objConn1.execute(SQL3)
                                    
                                    while NOT objRS1.EOF%>
                                        <a href=test.asp?txtNummer=<%Response.write(objRS1("Beleid_Id"))%>></a><%
                                    Wend
                                end if
                                
                                %>
                                </td>
                            </tr>
                            <tr>
                                <td>
                                b
                                </td>
                            </tr>
                        </table>    
                        <br>                        
                        <table  class=table  width="100%">
                            <tr bgcolor="#676767">
                                <td>
                                    Procedures
                                </td>
                            </tr>
                            <tr>
                                <td>
                                a
                                </td>
                            </tr>
                            <tr>
                                <td>
                                b
                                </td>
                            </tr>
                        </table>    
                        <br>
                        <table  class=table  width="100%">
                            <tr bgcolor="#676767">
                                <td>
                                    X.Y.Z.
                                </td>
                            </tr>
                            <tr>
                                <td>
                                a
                                </td>
                            </tr>
                            <tr>
                                <td>
                                b
                                </td>
                            </tr>
                        </table>    
                        <br><!--rechter tabel-->
                    </td>
                </tr>
            </table>
        </td>
    </tr>
</table>
<%
Call CloseConn
</body>
</html>

https://www.taltion.nl, https://www.trekhaakkoffer-huren.nl, https://www.fietsendrager-huren.nl, https://www.fietskar-huren.nl

woensdag 26 november 2003 17:55

Acties:
  • gorgi_19
  • Registratie: Mei 2002
  • Laatst online: 18:08

gorgi_19

Kruimeltjes zijn weer op :9

Je bent een Movenext vergeten; zo heb je een eindeloze loop gecreeerd.

Volgende keer mag je zelf debuggen.

[ Voor 106% gewijzigd door gorgi_19 op 26-11-2003 17:56 ]

Digitaal onderwijsmateriaal, leermateriaal voor hbo

woensdag 26 november 2003 17:56

Acties:
  • guanpedro
  • Registratie: Maart 2002
  • Laatst online: 18-12-2025

guanpedro

Live forever or die trying

Het eerste wat je doet is naar je loops kijken lijkt me

PC: MSI-NEO2FISR P4-2.6HT@2.8 Dual-channel GEIL-PC3500 Intel CSA GB-LAN 9600PRO Pioneer DVR106 Server: Dual Xeon-2GHz 3Ware 7500-12 11x120GB RAID5 GB-LAN RH 9 2.4.22 Digicam: Sony DSC-F717

woensdag 26 november 2003 18:00

Acties:
  • TeeDee
  • Registratie: Februari 2001
  • Laatst online: 22:41

TeeDee

CQB 241

ASP:
1
2
3
4
5
6

while NOT objRS1.EOF%>
<a href=test.asp?txtNummer=<%Response.write(objRS1("Beleid_Id"))%>></a>
<%
objRs1.MoveNext()
Wend
%>

Hier dacht ik meteen al aan toen ik je topic title zag!

edit:
spuit, fukcing 11!

[ Voor 34% gewijzigd door TeeDee op 26-11-2003 18:01 ]

Heart..pumps blood.Has nothing to do with emotion! Bored

woensdag 26 november 2003 18:02

Acties:
  • Glimi
  • Registratie: Augustus 2000
  • Niet online

Glimi

Designer Drugs

(overleden)
Het probleem is dus niet zo moeilijk te vinden, maar problematisch omdat je geen melding krijgt. Daarom de tip: 'Bij een niet reagerend script, denk dan maar gelijk aan oneindige recursie of een oneindige loop' ( ex. thread gebruik). Als je dat geweten had, had je dit 1-2-3 kunnen oplossen.

Verder is dit niet echt een interessant topic zo, vermeld volgende keer wat wel/niet werkte van je debugwerk, probeer de fout te isoleren en loop alles extra goed na :) Succes ermee.

Dit topic is gesloten.