Copie o código da seguinte forma: <%
FunctionNewtxt (SZ, Strrtxt, CityId)
Dimali, Icount, i
Dimali2
Ali = dividido (SZ, ",")
Ali2 = dividido (strtxt, ",")
Ícone = Ubound (ALI)
CityId = request.QueryString ("CityId")
ifRequest.QueryString ("CityId") = "" Então
CityId = "234"
endif
Fori = 0toicode
IfcityId = Ali (i) então
Newtxt = Ali2 (i)
Endif
Próximo
Função final
%>
<%
Dimcityid, CityName, Id
CityID = "234,54,294.2347.653.121"
CityName = "Haikou, dois, três, quatro, cinco, seis"
id = request.QueryString ("CityId")
ifRequest.QueryString ("CityId") = "" Então
id = 234
endif
%>
<%
= Newtxt (CityId, CityName, ID)
%>