主题:  制作一个可以从后台添加删除的网页菜单可以实现吗?

spark8256

职务:普通成员
等级:1
金币:0.0
发贴:5
#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("&raquo;&sup1;&Atilde;&raquo;&Oacute;&ETH;&acute;ó·&Ouml;&Agrave;à")
    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("&raquo;&sup1;&Atilde;&raquo;&Oacute;&ETH;&ETH;&iexcl;·&Ouml;&Agrave;à")
                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)]


yiliaocheng

职务:普通成员
等级:2
金币:2.0
发贴:631
#22006/5/9 21:19:28
问题能不能具体点?



浮尘

职务:普通成员
等级:3
金币:7.0
发贴:1258
#32006/5/10 8:44:20
你能做竖式的为什么不能做横式的呢?



spark8256

职务:普通成员
等级:1
金币:0.0
发贴:5
#42006/5/10 10:04:58
没有办法,因为我本没有学过编程,现在是赶鸭子上架。所以我只能照着一个现成的网站改。由于现在网站整体结构布局变了,所以有些东西得相应变化,我实在是不明白了,请大家帮帮忙。
以前是这样的

图片如下:

红色和白色的部分都可以通过后台删减和增加。也就是代码中的-<%=rs("Class_Big_Name")%>和<%=rs2("Class_Small_Name")%>
现在想改成这样的。

图片如下:

多谢各位了,请帮帮忙。



yiliaocheng

职务:普通成员
等级:2
金币:2.0
发贴:631
#52006/5/10 10:41:29
可以用DW的显示隐藏层来做