คัดลอกรหัสดังนี้: <%
FunctionNewtxt (SZ, Strrtxt, CityID)
Dimali, icount, i
Dimali2
ALI = Split (SZ, ",")
Ali2 = แยก (strtxt, ",")
icon = ubound (Ali)
cityid = request.querystring ("cityid")
ifrequest.querystring ("cityid") = "" แล้ว
cityid = "234"
endif
fori = 0toicode
ifcityId = Ali (i) แล้ว
newtxt = Ali2 (i)
endif
ต่อไป
endfunction
-
-
Dimcityid, CityName, ID
cityid = "234,54,294,2347,653,121"
CityName = "Haikou, สอง, สาม, สี่, ห้า, หก, หก"
id = request.QueryString ("cityid")
ifrequest.querystring ("cityid") = "" แล้ว
id = 234
endif
-
-
= newTxt (CityID, CityName, ID)
-