[ASP + IIS5.1] De opgegeven bron is bezet. - Softwareontwikkeling

dinsdag 31 december 2002 14:39

Acties:

Krentenboltosti

Topicstarter

Microsoft, Google en De Search boden helaas geen uitkomst..

Situatie: ASP, IIS5.1 op Windows XP Pro.

Als ik een response.redirect naar de huidige pagina doe, krijg ik heel vaak de melding "De opgegeven bron is bezet.".

Ik heb een navigatiemenuutje met redirects naar de huidige pagina. Als ik de links snel achter elkaar (< 2 sec.) aanklik, krijg ik aan de lopende band deze melding. Als ik er even mee wacht, krijg ik 'm vaak niet.

Er zijn echter ook automatische redirects, bv. voor controle van credentials. In die gevallen krijg ik de foutmelding *altijd*, ook als ik het script +/- 15 sec. onderbreek door het wat zinloos' te laten doen.

Zoals gezegd bieden de MS-KB en de rest van het net geen voor mij vindbare info.. Hoe kom ik van die melding af?

[ Voor 3% gewijzigd door CmdrKeen op 31-12-2002 14:39 ]

Bloed, zweet & koffie

dinsdag 31 december 2002 15:00

Acties:

Verwijderd

Post eens wat code. Ik vermoed dat je in je ASP pagina wat resources open hebt staan die je niet mooi afsluit voordat je redirect. Verder kan een virusscanner ook weleens problemen opleveren, dus zet die evt. uit voordat je weer test.

dinsdag 31 december 2002 17:23

Acties:

CmdrKeen

Krentenboltosti

Topicstarter

Ik gebruik Norton Antivirus en heb Script Blocking uitgezet. Als ik Auto-Protect disable, blijft het probleem ook.

Code (.ZIP-file (60k) met database en plaatjes is hier te downloaden.)

HTML:

<% @Language = "VBScript" %>
<% Option Explicit %>
<% Response.Buffer = True %>
<!--#include virtual="/adovbs.inc"-->
<%
' Algemene variabelen dimensioneren en evt. definiëren
Dim LayOutTableBorder, act, log, relogon
LayOutTableBorder = 0   ' Al dan niet de borders van de tabellen in de layout laten zien. De waarde is de waarde van <table BORDER = x>.
act = request("act")
log = request("log")
relogon = request("relogon")
if act = "" then act = "L10"

' Kijken of er cookies zijn
if Session("ses") <> "on" and relogon <> "jah" then
    Dim CoUsr
    CoUsr = Request.Cookies("username")
    if CoUsr <> "" then
        log = "logon"
        username = CoUsr
        pwd = Request.Cookies("pwd")
    end if
end if
Session("ses")="on"

' Verbinding maken met de database
Dim rs, Conn, SqlStmt
Set rs = Server.CreateObject ("ADODB.Recordset")
Set Conn = Server.CreateObject ("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../movexdb/movex.mdb")
%>

<html>
    <head>
        <title>
            Movex
        </title>
        <style type="text/css">
            <!--
            a:active, a:visited, a:link
                        {
                        color: Black;
                        text-decoration: none
                        }

            a:hover
                        {
                        color: #000000;
                        text-decoration: none;
                        background: #CCCCCC
                        }

            a:active.help, a:visited.help, a:link.help, a:hover.help
                        {
                        color: Black;
                        text-decoration: none;
                        font size: 8pt;
                        font-family: times
                        }

            a:hover.nav
                        {
                        color: white;
                        text-decoration: none;
                        background: #999999
                        }

            a:active.tbar, a:visited.tbar, a:link.tbar, a:hover.tbar
                        {
                        color: #CCCC66;
                        text-decoration: none;
                        font size: 10pt;
                        }

            a:active.pic, a:visited.pic, a:link.pic, a:hover.pic
                        {
                        text-decoration: none;
                        background: none
                        }

            td
                        {
                        font-color: Black;
                        font-family: Verdana;
                        font size: 8pt
                        }
            h1
                        {
                        font-color: Black
                        font-family: Verdana;
                        font size: 15pt
                        }
            -->
        </style>
    </head>

    <body topmargin = 0 leftmargin = 0 background = "filmbg.gif">
        <table border = <%=LayOutTableBorder%> width = 100% height = 100% cellpadding = 0 cellspacing = 0>
            <tr height = 50>
                <td colspan = 3>
                    <font size = 6><img src = x.gif width = 50 height = 1>m&nbsp;&nbsp;o&nbsp;&nbsp;v&nbsp;&nbsp;e&nbsp;&nbsp;x</font>
                </td>
                <td rowspan = 3>
                    <img src = x.gif width = 1 height = 1>
                </td>
            </tr>
            <tr valign = top>
                <td width = 170 align = center><%
' ---------------------------------------------------------------------------AANMELDEN
                    if log = "logon" then
                        ' Credentials checken
                        Dim username, pwd, credcookie, logon
                        logon = "NotOk"
                        if username = "" then username = Request("username")
                        if pwd = "" then pwd = Request("pwd")
                        credcookie = Request("credcookie")

                        SqlStmt = "SELECT userpassword FROM users WHERE username = '" & username & "'"
                        rs.CursorType = adOpenStatic
                        rs.Open SqlStmt, Conn
                        if rs.RecordCount > 0 then
                            if pwd = rs("userpassword") then logon = "ok"
                        end if
                        rs.close
                        if logon = "ok" then
                            Session("user") = username
                            if credcookie = "on" then
                                Response.Cookies("username") = username
                                Response.Cookies("pwd") = pwd
                            end if
                        end if
                    end if
                    if Session("user") = "" then %>
                        <form method = post action = movex.asp name = logon>
                        <input type = hidden name = log value = logon>
                        <table border = 0 width = 100%>
                            <tr>
                                <td colspan = 2 bgcolor = #00000F>
                                    <font color = white><b>Aanmelden</b></font>
                                </td>
                            </tr><tr>
                                <td>
                                    Naam:
                                </td>
                                <td>
                                    <input type = text name = username size = 11>
                                </td>
                            </tr><tr>
                                <td>
                                    Password:
                                </td>
                                <td>
                                    <input type = password name = pwd size = 11>
                                </td>
                            </tr><tr>
                                <td colspan = 2>
                                    <input type = checkbox name = credcookie> Onthoud mijn gegevens
                                </td>
                            </tr><tr>
                                <td colspan = 2 align = right>
                                    <input type = submit name = submit value = "Ok">
                                </td>
                            </tr>
                        </table>
                        </form>
                    <% end if %>

                    <table border = 0>
                        <tr>
                            <td bgcolor = #00000F>
                                <font color = white><b>Navigatie</b></font>
                            </td>
                        </tr>
                        <tr>
                            <td>
                                <b>Zoeken</b><br>
                                &nbsp;<a class = "nav" href = ?act=L10>Tien nieuwste toevoegingen</a><br>
                                &nbsp;<a class = "nav" href = ?act=listall>Volledige lijst</a><br>
                                &nbsp;<a class = "nav" href = ?act=simpzoek>Zoeken</a><%spacerv%>
                                <b>Mijn films</b><br>
                                &nbsp;<a class = "nav" href = ?act=mfoverz>Overzicht</a><br>
                                &nbsp;<a class = "nav" href = #>Uitgeleend/teruggekregen</a><br>
                                &nbsp;<a class = "nav" href = #>Nieuwe film invoeren</a><br>
                                &nbsp;<a class = "nav" href = #>Aanpassen/verwijderen</a><%spacerv%>
                                <b>Movex-manager</b><br>
                                &nbsp;<a class = "nav" href = #>Mijn account</a><br>
                                &nbsp;<a class = "nav" href = #>Admin-tools</a>
                            </td>
                        </tr>
                    </table>
                    <br><img src = x.gif width = 1 height 20><br>

                    <table border = 0 width = 100%>
                        <tr>
                            <td bgcolor = #000000>
                                <font color = white><b>Zoeken in de IMDb</b></font>
                            </td>
                        </tr><tr>
                            <td>
                                <form action="http://www.imdb.com/Find" method=post>
                                    <input type=hidden name=select value="All">
                                    <input type=text name="for" size=17>
                                    &nbsp;<input type="submit" value="Go">
                                </form>
                            </td>
                        </tr>
                    </table>

                    <% if Session("user") <> "" then %>
                        <table width = 100% border = 0>
                            <tr>
                                <td bgcolor = #00000F>
                                    <font color = white><b>Aangemeld</b></font>
                                </td>
                            </tr>
                            <tr>
                                <td>
                                    Je bent ingelogd als <%=Session("user")%>.<%spacerv%>
                                    Klik <a href = "?act=endses"><u>hier</u></a> om onder een ander account in te loggen.
                                </td>
                            </tr>
                        </table>
                    <% end if %>

                </td>
                <td width = 8 background = "separator.gif">
                    <img src = x.gif width = 5 height = 1>
                </td>
                <td>
<%
' =========================== B E G I N === I N H O U D ==============================

' -----------------------------------------------------------LAATSTE TIEN TOEVOEGINGEN
if act = "L10" or act = "listall" then
    Dim ListHead
    if act = "L10" then ListHead = "Tien nieuwste toevoegingen"
    if act = "listall" then ListHead = "Volledige lijst"
    %>

    <h1><%=ListHead%></h1>
    <table border = 1>
        <tr bgcolor = black>
            <td>
                <font color = white><b>Medium</b>
            </td>
            <td width = 200>
                <font color = white><b>Titel</b>
            </td>
            <td>
                <font color = white><b>Eigenaar</b>
            </td>
            <td>
                <font color = white><b>Locatie</b>
            </td>
        </tr>
    <%
    SqlStmt = "SELECT "
    if act = "L10" then SqlStmt = SqlStmt & "TOP 10 "
    SqlStmt = SqlStmt & "film_id, medium, titel, eigenaar, locatie FROM films ORDER BY film_id Desc"
    rs.Open SqlStmt, Conn
    While not rs.eof
        %>
        <tr>
            <td>
                <%=rs("medium")%>
            </td>
            <td width = 200>
                <%=rs("titel")%>
            </td>
            <td>
                <%=rs("eigenaar")%>
            </td>
            <td>
                <%=rs("locatie")%>
            </td>
        </tr>
        <%
        rs.Movenext
    Wend
    rs.Close
    %></table><%

' -----------------------------------------------------------SIMPEL ZOEKEN
elseif act = "simpzoek" then
    %>
    <h1>Zoeken in de database</h1>
    <table border = 0 width = 300>
        <tr>
            <td rowspan = 2>
                <img src = x.gif width = 20 height = 1>
            </td>
            <td>
                <fieldset>
                <legend>
                    Vul een zoekterm in en druk op Zoek.
                </legend>
                <form method = post name = simpzoek>
                <input type = text name = simpzoektekst size = 30>
                <input type = submit name = submit value = "Zoek">
                <br>
                <input type = checkbox name = glue> Deze woordvolgorde vasthouden [<a title = "Wat is dit?" href = ?helpwoordvolgorde class = "help">?</a>]
                </fieldset>
            </td>
        </tr>
        <tr>
            <td align = right>
                <%spacerv%>
                <img src = x.gif width = 20 height = 1>&raquo;<a href = ?uitgzoek>Meer opties</a>
                </form>
            </td>
        </tr>
    </table>
    <%

' ----------------------------------------------------------------------SESSIE BEËINDIGEN
elseif act = "endses" then


    Session.abandon
    Response.Redirect("movex.asp?relogon=jah")

' =========================== E I N D E === I N H O U D ==============================
End if
%>
                </td>
            </tr>
            <tr>
                <td colspan = 3>
                    <img src = x.gif width = 20 height = 1>Hier kan misschien een disclaimer of zo...
                </td>
            </tr>
        </table>

    </body>
</html>

<%
' Database opruimen
Set rs = nothing
Conn.close
Set Conn = nothing

' Subroutines

Sub spacerh
    Response.Write("<img src = x.gif width = 5 height = 1 border = 0>")
End sub

Sub spacerv
    Response.Write("<br><img src = x.gif width = 1 height = 5 border = 0><br>")
End sub
%>

[ Voor 19% gewijzigd door CmdrKeen op 31-12-2002 17:26 ]

Bloed, zweet & koffie

dinsdag 31 december 2002 17:51

Acties:

Verwijderd

Open de DB connectie alleen als je hem nodig hebt, dus binnen je IF act= "some string" stukken code, waar je hem nodig hebt. Binnen actie "endses" hoef je sowieso niets te doen, dus als ik jou was zou ik die testen voordat ik ook maar iets anders doe. Wellicht dat je dan al je probleem op heb gelost.

dinsdag 31 december 2002 18:09

Acties:

CmdrKeen

Krentenboltosti

Topicstarter

'EndSes' heb ik eruit gegooid; dat los ik nu op een andere manier op. Ik zal eens wat selectiever met mijn db-conn opgaan. Hij wordt nu in het begin geopend, meer uit gemakzucht eigenlijk.
Bedankt voor de tip MrX. Ik laat hier nog weten hoe het verder gaat.

Bloed, zweet & koffie