<%  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)  %>