<%Sub Statelist(Statevalue,StateName)%> <select name=<%=StateName%>><option value=>请选择 </option><%Dim TmpStr1,TmpStr2,i TmpStr1=北京,上海,天津,重庆,浙江,广东,江苏,河北,山西,四川,河南,辽宁,吉林,黑龙江,山东,安徽,福建,湖北,湖南,海南,江西,贵州,云南,陕西,甘肃,广西,宁夏区,青海,新疆区,西藏区,内蒙古区,香港,澳门,台湾,海外,其它 TmpStr2=split(TmpStr1,,) for i=0 to ubound(tmpstr2) Response.Write <option value=&TmpStr2(i)& if tmpstr2(i)=Statevalue then Response.Write selected end if Response.Write >&TmpStr2(i)&</option> next%></select> <%End Sub%> |