复制代码 代码如下:<%

FunctionNewtxt(sz,strtxt,cityid)

Dimali,icount,i

Dimali2

ali=split(sz,",")

ali2=split(strtxt,",")

icount=UBound(ali)

cityid=Request.QueryString("cityid")

ifRequest.QueryString("cityid")=""then

cityid="234"

endif

Fori=0Toicount

Ifcityid=ali(i)Then

Newtxt=ali2(i)

EndIf

Next

EndFunction

%>

<%

dimcityid,cityname,id

cityid="234,54,294,2347,653,121"

cityname="海口,二,三,四,五,六"

id=Request.QueryString("cityid")

ifRequest.QueryString("cityid")=""then

id=234

endif

%>

<%

=Newtxt(cityid,cityname,id)

%>