% 
Function Newtxt(sz,strtxt,cityid) 
Dim ali,icount,i 
Dim ali2 
ali=split(sz,",") 
ali2=split(strtxt,",") 
icount=UBound(ali) 
cityid = Request.QueryString("cityid") 
if Request.QueryString("cityid") ="" then  
cityid="234" 
end if  
For i=0 To icount 
  If cityid= ali(i) Then 
Newtxt=ali2(i) 
  End If 
Next 
End Function 
%> 
% 
dim cityid,cityname,id 
cityid= "234,54,294,2347,653,121" 
cityname = "海口,二,三,四,五,六" 
id = Request.QueryString("cityid") 
if Request.QueryString("cityid") ="" then  
id=234 
end if  
%> 
% 
=Newtxt(cityid,cityname,id) 
%>