欧美bbbwbbbw肥妇,免费乱码人妻系列日韩,一级黄片

asp數(shù)組使用(2)

 更新時(shí)間：2006年11月20日 00:00:00   作者：  

復(fù)制代碼 代碼如下:
<% 
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) 
%>  

相關(guān)文章

最新評(píng)論