Asp – Best way to create a Map in Classic ASP

asp-classicmaps

I'm currently rewriting some PHP 4 code to Classic ASP (don't ask) and trying to work out if there's a better way to load a large Map into memory than just hard coding each pair in.

To give you an idea, there's around 300 unique key value pairs in the hashed array definition (or whatever it's called) in the PHP.
I'm tempted to just do that again in ASP like:

<%
dim map
set map = CreateObject("Scripting.Dictionary")
map.add('key','value')
map.add('key2','value2')
...
%>

With this map getting loaded into memory for each call, is there any other way of doing this that would be quicker? The only time the map is used is to find out if an argument matches up to one of the keys – if so the value is pulled out and returned.

Thanks for your help.

Best Answer

Well you need to understand the Application and the Session objects in ASP before continuing with the project. I was under the assumption that you have a reason to keep that outside the global cache (like constantly having to update the contents of the object based on the user preference)

All the best

Related Solutions

Php – ASP Experts – Need help converting this PHP code to ASP

Not exactly the same, but here are some functions I've used in ASP classic sites.
I think it should be a good starting point for learning.

Function AddUser(Name, Email, IP )
    dim sqlstmt
    sqlstmt = "INSERT INTO tbluser (Name, Email, IP )"
    sqlstmt = sqlstmt & " values (?, ?, ?)"
    call RunSQL( sqlstmt, array( _
        mp("@Name", adVarChar, 100, Name), _
        mp("@Email", adVarChar, 100, Email), _
        mp("@IP", adVarChar, 100, IP)))
end Function

Function RunSQL(strSqlStmt , params())
    On Error resume next

    ''// Create the ADO objects
    Dim cmd
    Set cmd = server.createobject("ADODB.Command")

    ''// Init the ADO objects & the stored proc parameters
    cmd.ActiveConnection = GetConnectionString()
    cmd.CommandText = strSqlStmt
    cmd.CommandType = adCmdText
    collectParams cmd, params

    ''// Execute the query without returning a recordset
    cmd.Execute , , adExecuteNoRecords
    If err.number > 0 then
        BuildErrorMessage()
        exit function
    end if

    ''// Cleanup
    Set cmd.ActiveConnection = Nothing
    Set cmd = Nothing

    Exit Function

End Function


Private Sub collectParams(cmd , argparams())
    Dim params , v
    Dim i , l , u

    params = argparams


    For i = LBound(params) To UBound(params)
        l = LBound(params(i))
        u = UBound(params(i))

        ''// Check for nulls.
        If u - l = 3 Then
            If VarType(params(i)(3)) = vbString Then
                If params(i)(3) = "" then
                                    v = null
                else
                    v = params(i)(3)
                end if
            Else
                v = params(i)(3)
            End If

        If params(i)(1) = adLongVarChar Then
                Dim p ''// As New Parameter
                Set p = cmd.CreateParameter(params(i)(0), params(i)(1), adParamInput)
                p.Attributes = adParamLong + adParamSigned
                If Not IsNull(v) Then
                    p.AppendChunk v
                    p.Size = Len(v)
                Else
                    p.Value = v
                    p.Size = 10000
                End If
                cmd.Parameters.Append p
            Else
                cmd.Parameters.Append cmd.CreateParameter(params(i)(0), params(i)(1), adParamInput, params(i)(2), v)
            End If
        Else
            RaiseError m_modName, "collectParams(...): incorrect # of parameters"
        End If
    Next
End Sub

C++ – Multimap output after copying from map

 for (p2 = words2.begin(); p2!=words2.end(); ++p2)
        cout << p->first << ": " << p->second << '\n';

Shouldn't the p's in your output statement be p2's ?

Best Answer

Related Solutions

Php – ASP Experts – Need help converting this PHP code to ASP

C++ – Multimap output after copying from map

Related Topic