Colección de citas famosas - Slogan de motivación - Uso de la matriz del diccionario Asp

Uso de la matriz del diccionario Asp

<%

Dim aryData

AryData = Array("张三:123","李四:456","王五:789","147"," Che Qi : 258", "Ge Ba: 369", "Huang Jiu: 65438").

dim d,i,t

set d = servidor. CreateObject("Script.Dictionary")

Para i = 0 a ubound(aryData)

t = split(aryData(I), ":")

d.Agregar t(0), t(1)

Luego

stree dim strul

strUL = "& lt;ul>{$li}< /ul>"

strLI="<李>{$name}:{$mark}</Li> "

Li

Para cada k en d

Li = reemplazar(strLI, "{$name}", k)

Li = reemplazar(Li, "{$mark}", d(k))

htm = htm & ampli

Entonces

htm = reemplazar(strUL,"{$li}",htm)

respuesta (htm)

%>