pageadmin=10
%>
function del(id)
{
var ch;
ch=window.confirm("是否删除此菜单,其子菜单也同时全部删除？");
if (ch)
{
location.href="menu_save.asp?action=del&id="+id;
}
}
Dim maxperpage
maxperpage=40
Dim tablename
tablename="menu"
Dim condition
condition="order by Menu_1,Menu_2"
Dim Totalput
Dim Currentpage
Dim Totalpages
Dim I,j
If Not Isempty(request("page")) Then
Currentpage=cint(request("page"))
Else
Currentpage=1
End If
Dim Rs
Dim Sql
Dim Idlist,menu
set rs=server.createobject("adodb.recordset")
sql="select * from ["&tablename&"] "&condition&""
rs.open sql,conn,1,1
totalcount=rs.recordcount
'***********************************分页
count=40
if count count=40
end if
if not rs.eof then
rs.pagesize=count
pagecount=rs.pagecount
if request("page")="" then
nowpage=1
else
nowpage=int(request("page"))
end if
if nowpage>=rs.pagecount then
nowpage=rs.pagecount
elseif nowpage nowpage=1
end if
rs.absolutepage=nowpage
else
pagecount=1
nowpage=1
end if
a=1
Call showContent()
function showContent
%>
排序
菜单名
添加一级菜单
刷新左侧菜单
删除
↑
↓
分类名:
Url:
↑
↓
删除
rs.movenext
LOOP
%>
end function
Call connclose()
%>
