asp数组使用(2)

　　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)

　　%>