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

　　推荐阅读

　　atom_js.asp

复制代码 代码如下:<% ' I converted some of your example found on http://www.iteam5.net/francesco/atom/ over to jscript. ' Feel free to use it and keep up the good work. ' Tyson>>>详细阅读

本文标题：asp数组使用(2)

地址：http://www.17bianji.com/kaifa2/ASP/32923.html

 1/2    1