求助，帮个改改这段代码，自动填充选项

Question

javascript数据库

Answer 1

if request("action")="opentable" then%>
<script>
    function setdiv(access_field){
     var str=document.all("basediv").innerHTML
     document.all("div_"+access_field).innerHTML=str.replace("baseselect","s_"+access_field)
    }
</script>
<div id="basediv" style="display:none">
<select name="baseselect" style="height:20px;">
<option value="">----</option> 
<%
if request("xls_table")="" then
    showerr "请选择EXCEL表"
end if
if request("mdb_table")="" then
    showerr "请选择ACCESS表"
end if
     sql="select * from ["&request("xls_table")&"]"
     set rs=Server.CreateObject("ADODB.Recordset")
     rs.open sql,xls_conn,1,1
     dim i
     response.write rs.Fields.count
     for i=0 to rs.Fields.count-1%>
     <option value="<%=rs.Fields(i).Name%>"><%=rs.Fields(i).Name%></option>   
    <%next
      rs.close
%></select></div>
<table width="500" border="0" cellspacing="1" cellpadding="2">
<form action="import.asp?action=import" method="post">
     <tr>
    <td class="title">选择导入字段
       <input name="mdb_table" type="hidden" id="mdb_table" value="<%=request("mdb_table")%>" />
    <input name="xls_table" type="hidden" id="xls_table" value="<%=request("xls_table")%>" /></td>
    </tr>
     <tr>
    <td align="center">
    <table border="0" cellpadding="0" cellspacing="2" bgcolor="#FFFFFF" style="background-color:#FFFFFF">
            <tr>
              <td align="left">ACCESS<span class="word"><%=request("mdb_table")%></span>表</td>
              <td width="30" align="center">　</td>
              <td>EXCEL<span class="word"><%=request("xls_table")%></span>表</td>
            </tr>
            <%sql="select * from ["&request("mdb_table")&"] where 1<>1"
      rs.open sql,mdb_conn,1,1
      for i=1 to rs.Fields.count-1%>
            <tr>
              <td align="center" class="border"><%=rs.Fields(i).Name %></td>
              <td width="30" align="center" class="word"> &lt;-</td>
              <td id="div_<%=rs.Fields(i).Name%>">　</td>
     <script>setdiv("<%=rs.Fields(i).Name%>");</script>     
            </tr>
            <%next%>
          </table></td>
     </tr>
     <tr>
    <td align="center"><input type="submit" name="Submit4" value="开始导入" /></td>
     </tr>
    </form>
  </table>

Answer 2

上面是主要代码，能改成循环选择selected="selected"吗

Answer 3

js改为 function setdiv(access_field){
var str=document.all("basediv").innerHTML
document.all("div_" + access_field).innerHTML = str.replace("baseselect", "s_" + access_field)
//Try to select a default value
var SelectObj = document.getElementById("s_" + access_field);
for (i = 0; i < SelectObj.length; i++) {
                            if (SelectObj.options[i].value == access_field) {
        SelectObj.options[i].selected = true;
        break;
                             }
                         }
}SELECT加个ID
<select name="baseselect" id="baseselect" style="height:20px;">

Answer 4

改JS
<script type="text/javascript" language="javascript">
function setdiv(access_field){
var str=document.all("basediv").innerHTML
document.all("div_" + access_field).innerHTML = str.replace("baseselect", "s_" + access_field)
//Try to select a default value
var SelectObj = document.getElementById("s_" + access_field);
for (i = 0; i < SelectObj.length; i++) {
                if (SelectObj.options[i].value == access_field) {
        SelectObj.options[i].selected = true;
        break;
                }
            }
}
</script>给SELECT加个ID
<select name="baseselect" id="baseselect" style="height:20px;">

Answer 5

我就是8da.OruA
我10年前写的asp居然还有人找到
我太感动了
希望对你有用