⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 main.asp

📁 ·用JAVA实现的对动态树状信息的管理。操作员可以通过IE浏览器查看整个树形结构信息
💻 ASP
字号:
<%@ LANGUAGE = VBScript.Encode %>
<%
if session("admin")="" then
objconn.close
  set objconn=nothing
  response.redirect "../login.asp"
end if
%>
<!--#include file="dbpath.asp"-->
<!--#include file="../confirm.asp"-->
<script language="JavaScript">
<!--
function cat(catname) {
    return(confirm('\n警告:\n\n你将要删除分类[ ' + catname + ' ] 以及此分类下的所以图片!\n\n确定吗?\n'));
}
//-->
</script>
<link rel="stylesheet" type="text/css" href="../links.css">
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<center>
<table width="640" border="1" cellspacing="0" cellpadding="0" align="center" bordercolor="#000000" bordercolordark="#FFFFFF">
        <TBODY> 
        
<tr>
      <td background="../images/background.gif" height="20" align="center" colspan="2"><b>主分类</b></td>
  </tr><tr><td><table width="100%" border="0" cellspacing="0" cellpadding="0" >
    <%sql="select * from cat"        
Set objcat = Server.CreateObject("ADODB.Recordset")                          
objcat.open sql,objconn,1.1
if not objcat.eof then
do while not objcat.eof%> <tr><td><table width="100%">
          <tr> 
            <td>
               <img src="../images/folder.gif"><b><a href=cat.asp?catid=<%=objcat("catid")%>><%=objcat("catname")%></a></b> 
              <br>
                    <a href="catedit.asp?catid=<%=objcat("catid")%>">重命名</a> | 
                    <a href="catdel.asp?catid=<%=objcat("catid")%>" onclick="return(cat('<%=objcat("catname")%>'))">删除</a> 
                    | <a href="addimage.asp?catid=<%=objcat("catid")%>&catname=<%=objcat("catname")%>">增加图片</a></td>
          </tr>
        </table>
      </td>
      <%objcat.MoveNext%>
      <td valign="top"> 
        <%if not objcat.EOF then%>
        <table width="100%">
          <tr> 
            <td><img src="../images/folder.gif"><b><a href=cat.asp?catid=<%=objcat("catid")%>><%=objcat("catname")%></a></b> 
              <br>
                    <a href="catedit.asp?catid=<%=objcat("catid")%>">重命名</a> | 
                    <a href="catdel.asp?catid=<%=objcat("catid")%>" onclick="return(cat('<%=objcat("catname")%>'))">删除</a> 
                    | <a href="addimage.asp?catid=<%=objcat("catid")%>&catname=<%=objcat("catname")%>">增加图片</a></td>
          </tr>
        </table><%objcat.MoveNext
					end if%>
      
  <%loop%>  

          </td></tr></table></td></tr></table>
        
        </center>
<P align=center><br>
  制作:<a href="http://www.huamed.com/gallery">Galleryit Pro 3.0.0</a></p> 
<P align=center>来源:<a href="http://bbs.5iasp.com">http://bbs.5iasp.com</a></p> 
<P align=center>汉化:<a href="http://www.youilove.com">ORPIN</a></p>         
<%objcat.Close             
set objcat=nothing
else%>
<div align="center"><br>
  <a href="addcat.asp"><b>还没有分类,点击这里增加分类!</b></a> 
  <%end if%>
</div>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -