<%
Dim Rs_class
Set Rs_class = Server.CreateObject("ADODB.Recordset")
Rs_class.ActiveConnection = CM_unnamedDatabase
Rs_class.Source = " SELECT class.fldauto, class.fldname FROM class WHERE 1=1 "
Rs_class.CursorType = 0
Rs_class.CursorLocation = 2
Rs_class.LockType = 1
Rs_class.Open()
%>
<script language="javascript">
function listoption(src){
var obj = document.class3.fldclass2
document.class3.fldname="123";
document.class3.fldname2=obj.value;
}
</script><tr>
<td colspan="0" width="" class="Table_InSide"><div align="left">新闻大类 </div></td>
<td colspan="0" width="" class="Table_InSide"><div align="left">
<select name="fldclass" onchange="listoption(this)">
<option value="">--请选择--</option>
<%While NOT Rs_class.EOF%>
<option value="<%=Rs_class.Fields.Item("fldauto").Value%>"><%=Rs_class.Fields.Item("fldname").Value%></option>
<%Rs_class.MoveNext()
Wend
%>
</select>
</div></td>
</tr>
<tr>
<td colspan="0" width="" class="Table_InSide"><div align="left">名称 </div></td>
<td colspan="0" width="" class="Table_InSide"><div align="left"><input name="fldname" type="text" value="" class="Edit_mid">
</div></td>
</tr>
<tr>
<td colspan="0" width="" class="Table_InSide"><div align="left">英文名称 </div></td>
<td colspan="0" width="" class="Table_InSide"><div align="left"><input name="fldname2" type="text" value="" class="Edit_mid">
</div></td>
</tr>
Dim Rs_class
Set Rs_class = Server.CreateObject("ADODB.Recordset")
Rs_class.ActiveConnection = CM_unnamedDatabase
Rs_class.Source = " SELECT class.fldauto, class.fldname FROM class WHERE 1=1 "
Rs_class.CursorType = 0
Rs_class.CursorLocation = 2
Rs_class.LockType = 1
Rs_class.Open()
%>
<script language="javascript">
function listoption(src){
var obj = document.class3.fldclass2
document.class3.fldname="123";
document.class3.fldname2=obj.value;
}
</script><tr>
<td colspan="0" width="" class="Table_InSide"><div align="left">新闻大类 </div></td>
<td colspan="0" width="" class="Table_InSide"><div align="left">
<select name="fldclass" onchange="listoption(this)">
<option value="">--请选择--</option>
<%While NOT Rs_class.EOF%>
<option value="<%=Rs_class.Fields.Item("fldauto").Value%>"><%=Rs_class.Fields.Item("fldname").Value%></option>
<%Rs_class.MoveNext()
Wend
%>
</select>
</div></td>
</tr>
<tr>
<td colspan="0" width="" class="Table_InSide"><div align="left">名称 </div></td>
<td colspan="0" width="" class="Table_InSide"><div align="left"><input name="fldname" type="text" value="" class="Edit_mid">
</div></td>
</tr>
<tr>
<td colspan="0" width="" class="Table_InSide"><div align="left">英文名称 </div></td>
<td colspan="0" width="" class="Table_InSide"><div align="left"><input name="fldname2" type="text" value="" class="Edit_mid">
</div></td>
</tr>
onChange的时候查数据库,把值写回来不就行了吗?
onclick="hehe.value=this.options[this.selectedIndex].value.split('|')[0];"
然后在数据处理的时候将select的值再分割出来。