asp数组使用(2)

360 阅读 0 评论 238 点赞

我是靠谱客的博主威武巨人，这篇文章主要介绍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)  
%>  