<%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 为默认显示,比如北京<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%>
StateName表单的名称
调用方式:
<%Call Statelist(北京,Sate)%>或<%Call Statelist(Rs("State"),Sate)%>
评论Feed: http://www.85815.com/feed.asp?q=comment&id=297
引用链接: http://www.85815.com/trackback.asp?id=297&key=
这篇日志没有评论.