3楼的一会给加分 <SCRIPT> var fhgs=""; var shgs=""; var lxr=""; var lxdh=""; var ywren=""; function callDialog() { showModelessDialog("manage_cq.asp?id="+document.getElementById("fhgs").value,window,"status:false;dialogWidth:1000px;dialogHeight:450px"); } function update() { document.getElementById("aa").innerText = fhgs; document.getElementById("bb").innerText = shgs; document.getElementById("cc").innerText = lxr; document.getElementById("dd").innerText = lxdh; document.getElementById("ee").innerText = ywren; } </SCRIPT><select name="ywren" id=ee> <option value=""></option> <% Set Rs1=Server.CreateObject("ADODB.Recordset") Sql1="select * from [News] where ClassID=112" Rs1.Open Sql1,Conn,1,1 For i=1 To Clng(Rs1.RecordCount) Response.Write("<option value="""&Rs1("title")&""">"&Rs1("title")&"</option>") Rs1.Movenext Next Rs1.Close Set Rs1=NotHing %> </select>我现在想复制给 下拉框我需要怎么做啊
http://hi.baidu.com/%B0%D9%B6%C8hihi/blog/item/f8da8a516ce47a1a377abea6.html
var fhgs="";
var shgs="";
var lxr="";
var lxdh="";
var ywren="";
function callDialog() {
showModelessDialog("manage_cq.asp?id="+document.getElementById("fhgs").value,window,"status:false;dialogWidth:1000px;dialogHeight:450px");
}
function update()
{
document.getElementById("aa").innerText = fhgs;
document.getElementById("bb").innerText = shgs;
document.getElementById("cc").innerText = lxr;
document.getElementById("dd").innerText = lxdh;
document.getElementById("ee").innerText = ywren;
}
</SCRIPT><select name="ywren" id=ee>
<option value=""></option>
<%
Set Rs1=Server.CreateObject("ADODB.Recordset")
Sql1="select * from [News] where ClassID=112"
Rs1.Open Sql1,Conn,1,1
For i=1 To Clng(Rs1.RecordCount)
Response.Write("<option value="""&Rs1("title")&""">"&Rs1("title")&"</option>")
Rs1.Movenext
Next
Rs1.Close
Set Rs1=NotHing
%>
</select>我现在想复制给 下拉框我需要怎么做啊