asp经典对象到javascript对象并使对象向下滑动

Question

这里有人知道如何将 ASP 集合存储到 Javascript 集合吗？我从以前的帖子中得到了一个代码，但没有投入使用，我一定是把代码放在了错误的地方。

我目前正在开发一个应用程序，其中一旦文档准备就绪，ASP 集合中的每个变量都会一次向下移动一个。我决定使用 jquery 向下滑动每个值，因为它有一个 slideDown 事件。但是当我从集合中滑下项目时，同时滑下所有项目。这里有人知道如何做到这一点或有更好的方法建议吗？

<%

        Dim objDictionary, Key,searchWord, myVar,a,i, break
        searchWord = request.QueryString("searchWord")



        Set objDictionary = CreateObject("Scripting.Dictionary")
        objDictionary.CompareMode=1
        objDictionary.Add "Hello","hello"
        objDictionary.Add "Age","age"
        objDictionary.Add "height","height"
        objDictionary.Add "sample","sample"
        objDictionary.Add "words","words"


        Response.Write "<div id='toFall'>"
        if objDictionary.Exists(searchWord) then
            objDictionary.Remove(searchWord)
           a = objDictionary.Keys


            for i=0 to objDictionary.Count-1
            Response.Write( "<div class='fall'>" + a(i)) 
            Response.write("<br />")
            Response.write("</div>")

            next
            set objDictionary=nothing
        else 
            a = objDictionary.Keys

            for i=0 to objDictionary.Count-1
            Response.Write( "<div class='fall'>" + a(i)) 
            Response.write("<br />")
            Response.write("</div>")
            next
            set objDictionary=nothing

        end if      

        Response.write "</div>" 

'got this code from my previous post but didn't got it working  
        Sub CollectionToJavaScript(oCollection, sClientSideName) 
            Dim blnFirst
            blnFirst = True
            Response.Write("<" & "script" & " type=""text/javascript"">")
            Response.Write("var " & sClientSideName & " = {")
            For Each key In objDictionary.Keys
                If Not(blnFirst) Then Response.Write(", ")
                Response.Write( key & ": " & objDictionary(key) )
                blnFirst = false
            Next
            Response.Write("};")
            Response.Write("</" & "script>")
            Call CollectionToJavaScript (objDictionary, "myCollection")
        End Sub



        %>

Answer 1

您的代码中有几个错误：

1. 在调用 CollectionToJavaScript 子程序之前，您将字典对象设置为空
2. 您需要在 CollectionToJavaScript 子组件中使用 oCollection

3. 定位 Response.Write(key & ": " & objDictionary(key) )
   blnFirst = 假

   <%    
   Dim objDictionary, Key,searchWord, myVar,a,i, break         
   searchWord = request.QueryString("searchWord")            
   
   Set objDictionary = CreateObject("Scripting.Dictionary")         
   objDictionary.CompareMode=1         
   objDictionary.Add "Hello","hello"         
   objDictionary.Add "Age","age"         
   objDictionary.Add "height","height"         
   objDictionary.Add "sample","sample"         
   objDictionary.Add "words","words"           
   
   Response.Write "<div id='toFall'>"         
   
   if objDictionary.Exists(searchWord) then     
   
       objDictionary.Remove(searchWord)            
       a = objDictionary.Keys               
       for i=0 to objDictionary.Count-1             
           Response.Write( "<div class='fall'>" + a(i))              
           Response.write("<br />")             
           Response.write("</div>")              
       next                    
   
   else   
   
       a = objDictionary.Keys              
       for i=0 to objDictionary.Count-1             
           Response.Write( "<div class='fall'>" + a(i))              
           Response.write("<br />")             
           Response.write("</div>")             
       next                   
   
   end if                
   
   Response.write "</div>"   'got this code from my previous post but didn't got it working           
   
   Sub CollectionToJavaScript(ByRef oCollection, sClientSideName)              
   Dim blnFirst             
   blnFirst = True             
   
       Response.Write("<" & "script" & " type=""text/javascript"">")             
       Response.Write("var " & sClientSideName & " = {")             
   
       For Each key In oCollection.Keys                 
       If Not(blnFirst) Then 
           Response.Write(", ")                       
       End If    
       Response.Write( key & ": " & oCollection(key) )     
       blnFirst = false       
       Next   
   
   Response.Write("};")             
   Response.Write("</" & "script>")             
   End Sub          
   
   Call CollectionToJavaScript (objDictionary, "myCollection")    
   
   set objDictionary=nothing      
   
   %>