Copie el código de la siguiente manera: <%
FunctEnewtxt (SZ, Strrtxt, Cityid)
Dimali, icount, yo
Dimali2
Ali = Split (Sz, ",")
ALI2 = Split (Strtxt, ",")
icono = Ubound (Ali)
CityId = request.queryString ("CityID")
ifrequest.querystring ("cityid") = "" entonces
Cityid = "234"
endif
Fori = 0toicode
Ifcityid = ali (i) entonces
Newtxt = Ali2 (i)
Endif
Próximo
Función final
%>
<%
dimcityid, cityname, ident
Cityid = "234,54,294,2347,653,121"
CityName = "Haikou, dos, tres, cuatro, cinco, seis"
id = request.QueryString ("CityID")
ifrequest.querystring ("cityid") = "" entonces
ID = 234
endif
%>
<%
= Newtxt (Cityid, CityName, ID)
%>