asp数组使用(2)
2018-09-06 11:44
阅读：343
复制代码 代码如下:<%
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)
%>
下一篇：ASP升级程序
评论
亲，登录后才可以留言！