復(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)
%>
