📄 main.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 + -