classique asp ne reconnaît pas le caractère de l'espace

Question

vraiment c'est un poste 2 question, mais je vais résumer ..

• Je ne peux pas obtenir l'espace blanc de reconnaître, dans l'option d'une instruction select.

CSS: select{font-family: monospace;}

Voici mon code: (imaginez que je vous écris le sélectionner en premier) .. c'est les options

   for i = 0 to db-1 
       response.write "<option" 
       if i = 0 then 
        response.write " selected" 
       end if 
       response.write " value='" 
       if db(i,3) = 1 and session("id") <> db(i,4) then 
        Response.Write "-1" 
       else 
        Response.Write db(i,0) 
       end if 
       Response.Write "'> " 
       'Option Text, add ID 
       dim optionText 
       optionText = "(" & db(i,0) & ")"            
       'Make all Id's width equal so the text begins on the same vertical line 
       'Pad with spaces before text, padding for up to id = 99999 
       if len(optionText) < 7 then 
        Do While len(optionText)<7 
         optionText = optionText & "REPLACE HERE" 
        Loop 
       end if 
       'Option Text, add Detail 
       optionText = optionText + Trim(db(i,5)) 
       'Text 
       if len(optionText) > 84 then 
        Response.write left(optionText,81) & "..."   
       else 
        'Pad Text to same length so all "locked" can be padded to the right 
        if len(optionText) < 84 then 
        Do While len(optionText)<84 
         optionText = optionText & "REPLACE HERE" 
        Loop 
        end if 
        Response.Write optionText       
       end if      
       'Locked 
       Response.write " &#x1f512; admin &#x1f512;" 
      next 

remplaçant le "REPLACE ICI" dans 2 places ci-dessus avec   ou   ou juste un " " n'a eu aucun effet, la page respecte toujours le premier espace.

Ici, dans l'image, vous verrez le rembourrage précis aligné.

• 7 - (id)
• 84 - longueur du texte totale jusqu'à ce que le symbole "verrouiller"

Answer 1

Le do while ne fait pas ce que vous attendez; Une fois que vous faites optionText = optionText & " ", la longueur de optionText dépasse 7 et quitte la boucle. Ce que vous devez faire est d'ajouter 7-len(optionText) espaces à la chaîne.

Vous pouvez utiliser une boucle pour le faire:

if len(optionText) < 7 then 
    for i=1 to 7-len(optionText) 
     optionText = optionText & "&nbsp;" 
    next 
end if