📄 admsort1.asp
字号:
<%Option Explicit%>
<!--#include file="ismaster.asp"-->
<!--#include file="adoconn.asp"-->
<%
dim objRS,objShortCut,sql
dim tmpid(2),RecCount
dim i
dim id,tmpsortname,comment
Set objRS = Server.CreateObject("ADODB.RecordSet")
sql = "select description,sortName,ID from sort where parentID = " & -1
objRS.Open sql,objConn,3,1
%>
<%
Response.Write("<form name=""searchbtmform"" action=""admbtm.asp"" method=""GET"" target=""searchbtm""><input type=""hidden"" name=""sortid"" value=""-1""></form>")
Response.Write("<script language=""JavaScript"">document.searchbtmform.submit()</script>")
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>黄金联盟搜索系统管理</title>
<style>
<!--
.ul1 { line-height: 160%; word-spacing: 0; text-indent: 0; margin-left: 30; margin-top: 5; margin-bottom: 10 ;}
.0 { font-size: 10.5pt }
a:link { color: blue }
a:hover { color: blue; text-decoration: none }
a:visited { color: #040254 }
a:action { color: #FF0000 }
form { margin-bottom: 10 }
.top:link { font-size: 10.5pt; color: red; text-decoration: none }
.top:hover { color: yellow; text-decoration: none }
.top:visited{ color: #c0c0c0; text-decoration: underline }
-->
</style>
<script language="JavaScript">
<!--
function mksure(sortname) {
if(confirm('\n请三思而行！！！\n\n\n真的要删除 [ ' + sortname + ' ] 及其下面的所有分类和站点吗？')) {
return(confirm('\n\n再次确认！！！！\n\n\n\n真的要删除 [ ' + sortname + ' ] 及其下面的所有分类和站点吗？\n\n\n'));
}
else {
return(false);
}
}
//-->
</script>
</head>
<BODY bgcolor="#FFFFFF">
<table border="0" width="75%" height="20">
<tr bgcolor="#CCcc99">
<td >首页 </td>
</tr>
</table>
<p>
<table border="0" width="75%" style="color: blue">
<%
RecCount = objRS.RecordCount
if RecCount < 1 then Response.Write("暂无分类")
%>
<%do while RecCount > 0%>
<%for i = 0 to 2 : tmpid(i) = NULL : next%>
<tr>
<td width="33%">
<%id = objRS("ID") : tmpsortname = objRS("sortname") : comment = objRS("description") : if not IsNull(comment) then comment = Server.URLEncode(comment)%>
<p align="left"><b><a href="admclass.asp?sortid=<%=id%>" title="<%=objRS("description")%>">[<%=tmpsortname%>]</a></b>
 <a href="renameclass.asp?sortid=<%=id%>&parentid=-1&sortname=<%=Server.URLEncode(tmpsortname)%>&comment=<%=comment%>" class="top">编辑</a>|<a href="../2008admin/delclass.asp?sortid=<%=id%>&parentid=-1" class="top" onclick="return(mksure('<%=Replace(tmpsortname,"'","’")%>'))">删除</a></p>
</td>
<%tmpid(0) = id : objRS.MoveNext() : RecCount = RecCount - 1%>
<td width="33%">
<%if RecCount > 0 then%>
<%id = objRS("ID") : tmpsortname = objRS("sortname") : comment = objRS("description") : if not IsNull(comment) then comment = Server.URLEncode(comment)%>
<p align="left"><b><a href="admclass.asp?sortid=<%=id%>" title="<%=objRS("description")%>">[<%=tmpsortname%>]</a></b>
 <a href="renameclass.asp?sortid=<%=id%>&parentid=-1&sortname=<%=Server.URLEncode(tmpsortname)%>&comment=<%=comment%>" class="top">编辑</a>|<a href="../2008admin/delclass.asp?sortid=<%=id%>&parentid=-1" class="top" onclick="return(mksure('<%=Replace(tmpsortname,"'","’")%>'))">删除</a></p>
<%tmpid(1) = id : objRS.MoveNext() : RecCount = RecCount - 1%>
<%end if%>
</td>
<td width="33%">
<%if RecCount > 0 then%>
<%id = objRS("ID") : tmpsortname = objRS("sortname") : comment = objRS("description") : if not IsNull(comment) then comment = Server.URLEncode(comment)%>
<p align="left"><b><a href="admclass.asp?sortid=<%=id%>" title="<%=objRS("description")%>">[<%=tmpsortname%>]</a></b>
 <a href="renameclass.asp?sortid=<%=id%>&parentid=-1&sortname=<%=Server.URLEncode(tmpsortname)%>&comment=<%=comment%>" class="top">编辑</a>|<a href="../2008admin/delclass.asp?sortid=<%=id%>&parentid=-1" class="top" onclick="return(mksure('<%=Replace(tmpsortname,"'","’")%>'))">删除</a></p>
<%tmpid(2) = id : objRS.MoveNext() : RecCount = RecCount - 1%>
<%end if%>
</td>
</tr>
<tr>
<td width="33%" class="0">
<%
sql = "select * from shortcut where rootID = " & tmpid(0)
Set objShortCut = objConn.Execute(sql)
do while not objShortCut.EOF
%>
<a href="admclass.asp?sortid=<%=objShortCut("sortID")%>" title="<%=objShortCut("description")%>"><%=objShortCut("sortName")%></a> <a href="delshortcut.asp?sortid=<%=objShortCut("sortid")%>">[去掉首页显示]</a><br>
<%objShortCut.MoveNext%>
<%loop%>
</td>
<td width="33%" class="0">
<%
if not IsNull(tmpid(1)) then
sql = "select * from shortcut where rootID = " & tmpid(1)
Set objShortCut = objConn.Execute(sql)
do while not objShortCut.EOF
%>
<a href="admclass.asp?sortid=<%=objShortCut("sortID")%>" title="<%=objShortCut("description")%>"><%=objShortCut("sortName")%></a> <a href="delshortcut.asp?sortid=<%=objShortCut("sortid")%>">[去掉首页显示]</a><br>
<%objShortCut.MoveNext%>
<%loop%>
<%end if%>
</td>
<td width="34%" class="0">
<%
if not IsNull(tmpid(2)) then
sql = "select * from shortcut where rootID = " & tmpid(2)
Set objShortCut = objConn.Execute(sql)
do while not objShortCut.EOF
%>
<a href="admclass.asp?sortid=<%=objShortCut("sortID")%>" title="<%=objShortCut("description")%>"><%=objShortCut("sortName")%></a> <a href="delshortcut.asp?sortid=<%=objShortCut("sortid")%>">[去掉首页显示]</a><br>
<%objShortCut.MoveNext%>
<%loop%>
<%end if%>
</td>
</tr>
<tr>
<td width="33%"> </td>
<td width="33%"> </td>
<td width="34%"> </td>
</tr>
<%loop%>
</table>
</body>
</html>
<%
objConn.Close()
Set objRs = nothing
Set objConn = nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -