明輝手游網(wǎng)中心:是一個免費提供流行視頻軟件教程、在線學習分享的學習平臺!

在做會員資料更改時,完成下拉菜單的默認項定位

[摘要]<!--在寫一個交友網(wǎng)站時碰到的問題,就是當會員修改資料時,如何定位SELECT的菜單列默認項,不過很容易就解決了--> <HTML> <HEAD> <META http-equiv='Content-Type' content='...

<!--在寫一個交友網(wǎng)站時碰到的問題,就是當會員修改資料時,如何定位SELECT的菜單列默認項,不過很容易就解決了-->
<HTML>
<HEAD>
<META http-equiv='Content-Type' content='text/html;charset=gb2312'>
<Meta name='Gemeratpr' content='網(wǎng)絡程序員伴侶(Lshdic)2004'>
<meta name="DownLoad URL" content="http://www.lshdic.com/downlshdic.asp">
<TITLE>網(wǎng)頁標題</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="東鄉(xiāng)族">東鄉(xiāng)族<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('您確實要重值所有表單填寫的數(shù)據(jù)嗎?'))return false" style='width:100'>
</form>
<%
set link1=server.CreateObject("ADODB.Connection") '以下就是數(shù)據(jù)庫連接了,當然可以用ACCESS
link1.Open "Provider=Sqloledb;User ID=用戶名;Password=;Initial Catalog=數(shù)據(jù)庫名;Data Source=SQLServer服務器名"
set rs=server.CreateObject("adodb.Recordset")
rs.Open "select * from 會員表 where 昵稱='" & session("who") & "'",link1,1,2
%>
<script>
//用以下程序循環(huán)窮盡下拉菜單所有列,找到合適的就自動將其設置為默認列,程序關鍵還是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>