📄 soft_class.asp
字号:
<!--#include file="admin_include.asp"-->
<%
if request.QueryString.Count>0 then
action = request.QueryString("action")
id = request.QueryString("id")
sql="select * from [S_Class] where SD_S_Class_Id="&id
rs.open sql,conn,1,3
if not rs.eof then
if action="up" then
rs("SD_S_Class_Order")=rs("SD_S_Class_Order")+1
elseif action="down" then
rs("SD_S_Class_Order")=rs("SD_S_Class_Order")-1
end if
rs.update
end if
rs.close
call pagend()
response.Redirect("Soft_Class.asp")
end if
%>
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<link href="Css/main.css" rel="stylesheet" type="text/css" >
<title><%=SiteName%> -- 下载分类</title>
<script language="javascript">
<!--
function CheckBoxAll(obj){
for(i=0;i<=document.all.del_id.length-1;i++){document.all.del_id[i].checked=obj.checked;}
document.all.del_id.checked=obj.checked;
}
function CheckClassDel(){
if (confirm("确定删除所选分类吗?\n\n部分关联数据将无法删除!")){
return true;
}
else{
return false;
}
}
-->
</script>
</head>
<body>
<form action="del.asp" method="get" onSubmit="return CheckClassDel()">
<input type="hidden" name="n" value="1">
<table width="97%" border="1" cellpadding="2" cellspacing="1" bordercolor="#FFFFFF">
<tr>
<td colspan="6" class="table_caption">下载分类</td>
</tr>
<tr>
<td colspan="6" bgcolor="#CCCCCC" class="intro"><a href="Soft_Class_Add.asp">分类添加</a></td>
</tr>
<tr class="header">
<td>编号</td>
<td>分类名称</td>
<td>排列</td>
<td colspan="2">操作</td>
</tr>
<%
sql="select * from [S_Class] where SD_S_Class_Parent=0 order by SD_S_Class_Order desc,SD_S_Class_Id"
rs.open sql,conn,1,1
if not rs.eof then
while not rs.eof
%>
<tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
<td width="100"><%=rs("SD_S_Class_Id")%></td>
<td style="padding-right:300px;"><%=rs("SD_S_Class_Name")%></td>
<td width="100">
<a href="Soft_Class.asp?action=up&id=<%=rs("SD_S_Class_Id")%>">提升</a> |
<a href="soft_class.asp?action=down&id=<%=rs("SD_S_Class_Id")%>">下降</a> </td>
<td width="50"><a href="Soft_Class_Edit.asp?id=<%=rs("SD_S_Class_Id")%>">修改</a></td>
<td width="50"><input type="checkbox" name="del_id" value="<%=rs("SD_S_Class_Id")%>" /></td>
</tr>
<%
set rst=conn.execute("select * from [S_Class] where SD_S_Class_Parent="&rs("SD_S_Class_Id")&" order by SD_S_Class_Order desc,SD_S_Class_Id")
if not rst.eof then
while not rst.eof
%>
<tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
<td><%=rst("SD_S_Class_Id")%></td>
<td style="padding-right:200px;"><%=rst("SD_S_Class_Name")%></td>
<td>
<a href="Soft_Class.asp?action=up&id=<%=rst("SD_S_Class_Id")%>">提升</a> |
<a href="soft_class.asp?action=down&id=<%=rst("SD_S_Class_Id")%>">下降</a>
</td>
<td><a href="Soft_Class_Edit.asp?id=<%=rst("SD_S_Class_Id")%>">修改</a></td>
<td><input type="checkbox" name="del_id" value="<%=rst("SD_S_Class_Id")%>" /></td>
</tr>
<%
rst.movenext
wend
end if
%>
<%
rs.movenext
wend
%>
<tr class="tdbg">
<td colspan="6" align="right">
<input type="checkbox" id="CheckAll" onpropertychange="CheckBoxAll(this)"><label for="CheckAll">全选</label>
<input type="submit" class="submitCmd" value="删除所选分类"></td>
</tr>
<%
else
%>
<tr class="tdbg">
<td colspan="6">没有下载分类! <a href="Soft_Class_Add.asp">添加</a></td>
</tr>
<%
end if
%>
</table>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -