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)
%>