省份的函数 - 转 - CALLCALL'S BLOG - 5iuu.com

[ 2005-06-14 03:24:55 | 作者: Admin ] 字号: | |
<%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)%>
Share
评论Feed 评论Feed: http://www.85815.com/feed.asp?q=comment&id=297
UTF-8 Encoding 引用链接: http://www.85815.com/trackback.asp?id=297&key=
这篇日志没有评论.
发表
表情图标
[smile] [confused] [cool] [cry]
[eek] [angry] [wink] [sweat]
[lol] [stun] [razz] [redface]
[rolleyes] [sad] [yes] [no]
[heart] [star] [music] [idea]
UBB代码
转换链接
表情图标
悄悄话
用户名:   密码:   注册?
验证码 * 请输入验证码