将下拉菜单的代码放入一个单元格中,如下:(显示隐藏层的js脚本没有写,可以从dw中生成)
<td height="26" align="left" valign="middle" class="unnamed1" οnmοuseοver="this.className='unnamed2';MM_showHideLayers('Layer1','','show');" οnmοuseοut="this.className='unnamed1';MM_showHideLayers('Layer1','','hide');">
<div id="Layer1" style="position:absolute; width:78px; height:86px; z-index:1; background-color: #003D58; layer-background-color: #CCCCCC; border: 1px none #000000; clip: rect(23 auto auto auto); visibility: hidden;">
<table width="100%" border="0" cellpadding="0" cellspacing="1">
<!--DWLayoutTable-->
<tr>
<td width="76" height="22"></td>
</tr>
<%set rsz=Server.CreateObject("ADODB.Recordset")
sql="SELECT class.classid, class.class FROM class ORDER BY class.sx"
rsz.open sql,conn,1,1
do while not rsz.eof%>
<tr>
<td width="96" height="28" align="center" valign="middle" bgcolor="#FFFFFF" class="unnamed2"><a href="cpzs.asp?id=<%=rsz(0)%>"><%=rsz(1)%></a></td>
</tr>
<%rsz.movenext
loop
rsz.close
set rsz=nothing
%>
</table>
</div><div align="center"><a href="#">产品展示</a></div></td>