快活林资源网 Design By www.csstdc.com

复制代码 代码如下:<% 
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) 
%>  

快活林资源网 Design By www.csstdc.com
广告合作:本站广告合作请联系QQ:858582 申请时备注:广告合作(否则不回)
免责声明:本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除!
快活林资源网 Design By www.csstdc.com