在做会员资料修改时,实现下拉菜单的默认项定位

benben

浏览: 1412623 次
性别:
来自: 北京

最近访客更多访客>>

javabang

goril

zhima

dapk

博主相关

博客

微博

相册

留言

关于我

文章分类

社区版块

存档分类

ASP.net ASP JavaScript 脚本 Access

作者：lshdic http://blog.csdn.net/lshdic/

<HTML>
<HEAD>
<META http-equiv='Content-Type' content='text/html;charset=gb2312'>
<Meta name='Gemeratpr' content='网络程序员伴侣(Lshdic)2004'>
<meta name="DownLoad URL" content="http://www.lshdic.com/downlshdic.asp">
<TITLE>网页标题</TITLE>
<BODY>
<form>
体　　形: <select name="tixing">
<option value="保留" selected>保留<option value="一般">一般<option value="瘦长">瘦长<option value="运动员型">运动员型<option value="比较胖">比较胖<option value="大块头">大块头</select><br>
民　　族: <select name="minzu">
<option value="保留" selected>保留<option value="汉族">汉族<option value="藏族">藏族<option value="朝鲜族">朝鲜族<option value="蒙古族">蒙古族<option value="回族">回族<option value="满族">满族<option value="维吾尔族">维吾尔族<option value="壮族">壮族<option value="彝族">彝族<option value="苗族">苗族<option value="侗族">侗族<option value="瑶族">瑶族<option value="白族">白族<option value="布依族">布依族<option value="傣族">傣族<option value="京族">京族<option value="黎族">黎族<option value="羌族">羌族<option value="怒族">怒族<option value="佤族">佤族<option value="水族">水族<option value="畲族">畲族<option value="土族">土族<option value="阿昌族">阿昌族<option value="哈尼族">哈尼族<option value="高山族">高山族<option value="景颇族">景颇族<option value="珞巴族">珞巴族<option value="锡伯族">锡伯族<option value="崩龙族">崩龙族<option value="保安族">保安族<option value="基诺族">基诺族<option value="门巴族">门巴族<option value="毛难族">毛难族<option value="赫哲族">赫哲族<option value="裕固族">裕固族<option value="撒拉族">撒拉族<option value="独龙族">独龙族<option value="普米族">普米族<option value="仫佬族">仫佬族<option value="仡佬族">仡佬族<option value="东乡族">东乡族<option value="拉祜族">拉祜族<option value="土家族">土家族<option value="纳西族">纳西族<option value="傈僳族">傈僳族<option value="布朗族">布朗族<option value="哈萨克族">哈萨克族<option value="达斡尔族">达斡尔族<option value="鄂伦春族">鄂伦春族<option value="鄂温克族">鄂温克族<option value="俄罗斯族">俄罗斯族<option value="塔塔尔族">塔塔尔族<option value="塔吉克族">塔吉克族<option value="柯尔克孜族">柯尔克孜族<option value="乌兹别克族">乌兹别克族<option value="国外">国外</select><br>
信　　仰: <select name="xinyang">
<option value="保留" selected>保留<option value="不可知论者">不可知论者<option value="不信教">不信教<option value="儒家门徒">儒家门徒<option value="无神论者">无神论者<option value="佛教徒／道教徒">佛教徒／道教徒<option value="天主教徒">天主教徒<option value="印度教徒">印度教徒<option value="伊斯兰教徒">伊斯兰教徒<option value="犹太教徒">犹太教徒<option value="新教徒">新教徒<option value="基督教徒">基督教徒</select><br>
吸　　烟: <select name="xiyan">
<option value="保留" selected>保留<option value="不吸烟">不吸烟<option value="稍微抽一点儿">稍微抽一点儿<option value="抽得很凶">抽得很凶<option value="抽雪茄／烟斗">抽雪茄／烟斗</select><br>
饮　　酒: <select name="yinjiu">
<option value="保留" selected>保留<option value="不喝酒">不喝酒<option value="稍微喝一点／社交场合喝">稍微喝一点／社交场合喝<option value="喝得很凶">喝得很凶</select>
<p align=center><input type="submit" value="提交基本资料" name="ok" style='width:100'>
<input type="reset" value="重置内容" name="cases" onclick="if(!confirm('您确实要重值所有表单填写的数据吗?'))return false" style='width:100'>
</form>
<%
set link1=server.CreateObject("ADODB.Connection") '以下就是数据库连接了，当然可以用ACCESS
link1.Open "Provider=Sqloledb;User ID=用户名;Password=;Initial Catalog=数据库名;Data Source=SQLServer服务器名"
set rs=server.CreateObject("adodb.Recordset")
rs.Open "select * from 会员表 where 昵称='" & session("who") & "'",link1,1,2
%>
<script>
//用以下程序循环穷尽下拉菜单所有列，找到合适的就自动将其设置为默认列，程序关键还是JAVASCRIPT+DHTML脚本
var fm=document.forms(0)
for (i=0;i<fm.tixing.options.length;i++){
if(fm.tixing.options[i].text=="<%=rs("体形")%>"){fm.tixing.options[i].selected=true;break;}
}
for (i=0;i<fm.minzu.options.length;i++){
if(fm.minzu.options[i].text=="<%=rs("民族")%>"){fm.minzu.options[i].selected=true;break;}
}
for (i=0;i<fm.xinyang.options.length;i++){
if(fm.xinyang.options[i].text=="<%=rs("信仰")%>"){fm.xinyang.options[i].selected=true;break;}
}
for (i=0;i<fm.xiyan.options.length;i++){
if(fm.xiyan.options[i].text=="<%=rs("吸烟")%>"){fm.xiyan.options[i].selected=true;break;}
}
for (i=0;i<fm.yinjiu.options.length;i++){
if(fm.yinjiu.options[i].text=="<%=rs("饮酒")%>"){fm.yinjiu.options[i].selected=true;break;}
}
</script>

分享到：