#12006/5/9 18:02:11
我想制作一个可以从后台添加/删除项目的网页菜单,横式的。不知道用asp可以实现否?
我这里用个竖式的,代码如下:
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><img src="Images/Left_1_BG_Top.gif" width="191" height="2"></td>
</tr>
<tr>
<td background="Images/Left_1_BG_Mid.gif"><img src="Images/dot.gif" width="1" height="3"></td>
</tr>
<tr>
<td background="Images/Left_1_BG_Mid.gif">
<%set rs=conn.execute("select * from [Class_Big] order by Display asc,Class_Big_ID asc")
if rs.eof or rs.bof then
response.Write("»¹Ã»Óдó·ÖÀà")
else
do while not rs.eof%>
<table width="80%" border="0" align="center" cellpadding="0" cellspacing="1">
<tr>
<td height="20" bgcolor="#FF3300" STYLE="cursor:hand" onClick="location='List.asp?class=CB&class_id=<%=rs("Class_Big_ID")%>'"><a href="List.asp?class=CB&class_id=<%=rs("Class_Big_ID")%>" onFocus="blur()"><img src="Images/icon_Close.gif" width="16" height="13" hspace="10" border="0" align="absmiddle"><font color="#FFFFFF">---<%=rs("Class_Big_Name")%>---</font></a></td>
</tr>
<%set rs2=Server.CreateObject("ADODB.Recordset")
rs2.open "select * from [Class_Small] where Class_Big_ID="&rs("Class_Big_ID")&" order by Display asc,Class_Small_ID asc",conn,1,1
if rs2.eof or rs2.bof then
response.Write("»¹Ã»ÓÐС·ÖÀà")
else
rs2Count=rs2.Recordcount
i=1
do while not rs2.eof%>
<tr>
<td height="20" bgcolor="#FFFFFF" onMouseOut="this.style.backgroundColor='#FFFFFF'" onMouseOver="this.style.backgroundColor='#66FFFF'" STYLE="cursor:hand" onClick="location='List.asp?class=CS&class_id=<%=rs2("Class_Small_ID")%>'"><img src="Images/dot.gif" width="17" height="1" align="absmiddle"><img src="Images/icon_
<%if i=rs2Count then
response.Write("End")
else
response.Write("Line")
end if%>.gif" width="13" height="18" align="absmiddle"><a href="List.asp?class=CS&class_id=<%=rs2("Class_Small_ID")%>" onFocus="blur()"><img src="Images/icon_Open.gif" width="15" height="13" hspace="5" border="0" align="absmiddle"><%=rs2("Class_Small_Name")%></a></td>
</tr>
<%i=i+1
rs2.movenext
loop
end if%>
</table>
<% rs.movenext
loop
end if
set rs=nothing%>
</td>
</tr>
<tr>
<td background="Images/Left_1_BG_Mid.gif"><img src="Images/dot.gif" width="1" height="3"></td>
</tr>
<tr>
<td><img src="Images/Left_1_BG_Bottom.gif" width="191" height="2"></td>
</tr>
</table>
不知道能否在这个的基础上修改,如果可以,该怎么改,望各位大虾不吝赐教。
编辑历史:[此帖最近一次被 spark8256 编辑过(编辑时间:2006-05-09 18:12:11)]