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

上一个：把无限级分类生成数组
下一个：VBS、ASP代码语法加亮显示的类