Salin kode sebagai berikut: <%
FunctionNewTXT (SZ, Strrtxt, CityID)
Dimali, icount, i
Dimali2
Ali = split (sz, ",")
ali2 = split (strtxt, ",")
ikon = ubound (Ali)
CityId = request.QueryString ("CityID")
ifRequest.QueryString ("CityId") = "" Lalu
CityId = "234"
endif
Fori = 0toicode
IfcityId = ali (i) lalu
Newtxt = ali2 (i)
Endif
Berikutnya
Fungsi endfungsi
%>
<%
DIMCITYID, CityName, ID
CityID = "234.54.294.2347.653.121"
CityName = "Haikou, dua, tiga, empat, lima, enam"
id = request.queryString ("CityId")
ifRequest.QueryString ("CityId") = "" Lalu
ID = 234
endif
%>
<%
= Newtxt (CityID, CityName, ID)
%>