response.write³¬Á¬½ÓÎÊÌâ

¾ø°®Âð?

<script type="text/JavaScript">
<!--
function MM_jumpMenu(targ,selObj,restore){ //v3.0
eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
if (restore) selObj.selectedIndex=0;
}
//-->
</script>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><form name="form1">
<div align="right">

<select name="menu1" onChange="MM_jumpMenu('blank',this,0)">

<option value="1">--Web fink--</option>
<option value="2">
<% '´Ónews±íÖжÁÈ¡ÓÑÇéÁ¬½Ó
Set Rs1 = Server.CreateObject("ADODB.RecordSet")
Sql1="Select * From news where nfrom='Ó¢ÎÄ' and typeid=66"
Rs1.Open Sql1,conn,1,1
Do While not Rs1.EOF
Response.Write "<option ><a href="& trim(rs1("link")) &">"& rs1("Title") &"</a></option>"
Rs1.MoveNext
Loop
Rs1.Close
Set Rs1=nothing
%>
</option>

</select>
</div>
</form></td>
</tr>
</table>
ÔÚ×öÓÑÇéÁ¬½ÓµÄʱºò,ÔõôÁ¬½Ó²»ÉÏÊý¾Ý¿âÀïÊý¾Ý

lianeh

<% Do While not Rs1.EOF %>
<option ><a href="<%=rs1("link")%>">rs1("Title")</a></option>
<%Rs1.MoveNext
Loop
Rs1.Close
Set Rs1=nothing
%>

ÇàÆ»¹û

<% Do While not Rs1.EOF %>
<option ><a href="<%=rs1("link")%>"><%=rs1("Title")%></a></option>
<%Rs1.MoveNext
Loop
Rs1.Close
Set Rs1=nothing
%>