<%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%> |
提示:statevalue 为默认显示,比如北京
StateName表单的名称
调用方式:
| <%Call Statelist(北京,Sate)%>或<%Call Statelist(Rs("State"),Sate)%> |
|
|
|
|
您当前的位置：
