Copiez le code comme suit: <%
FunctionNewtxt (SZ, Strrtxt, CityId)
Dimali, iCount, je
Dimali2
Ali = Split (SZ, ",")
Ali2 = Split (strtxt, ",")
icône = ubound (Ali)
CityId = request.Querystring ("CityId")
ifRequest.Querystring ("CityId") = "" puis
CityId = "234"
endire
Fori = 0toicode
IfcityId = ali (i) alors
Newtxt = ali2 (i)
Endire
Suivant
Finition de fin
%>
<%
DimcityId, CityName, ID
CityID = "234,54,294,2347,653,121"
Cityname = "Haikou, deux, trois, quatre, cinq, six"
id = request.querystring ("CityId")
ifRequest.Querystring ("CityId") = "" puis
id = 234
endire
%>
<%
= Newtxt (CityId, CityName, ID)
%>