Copy the code as follows: <%
FunctionNewtxt(sz,strrtxt,cityid)
Dimali,icount,i
Dimali2
ali=split(sz,",")
ali2=split(strtxt,",")
icon=UBound(ali)
cityid=Request.QueryString("cityid")
ifRequest.QueryString("cityid")=""then
cityid="234"
endif
Fori=0Toicode
Ifcityid=ali(i)Then
Newtxt=ali2(i)
EndIf
Next
EndFunction
%>
<%
dimcityid, cityname,id
cityid="234,54,294,2347,653,121"
cityname="Haikou, two, three, four, five, six"
id=Request.QueryString("cityid")
ifRequest.QueryString("cityid")=""then
id=234
endif
%>
<%
=Newtxt(cityid, cityname,id)
%>