📄 topic_list.asp
字号:
<!--#include file="admin_include.asp"-->
<%
id = request.QueryString("id")
set rst=conn.execute("select SD_Topic.SD_Topic_Soft,SD_Topic.SD_Topic_Name,SD_Topic.SD_Topic_Id,SD_Topic.SD_Topic_Parent,SD_Topic_1.SD_Topic_Name from [Topics] where SD_Topic.SD_Topic_Id="&id)
SD_Topic_Soft=rst(0)
SD_Topic_Name=rst(1)
SD_Topic_Id=rst(2)
SD_Topic_P_Id=rst(3)
SD_Topic_P_Name=rst(4)
rst.close
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<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("确定删除所选项目吗?")){
return true;
}
else{
return false;
}
}
-->
</script>
</head>
<body>
<form action="Topic_op.asp" method="post" onSubmit="return CheckClassDel()">
<input type="hidden" name="n" value="8">
<input type="hidden" name="id" value="<%=id%>">
<table width="97%" cellpadding="2" cellspacing="1" style="border:1px solid #FFFFFF">
<tr>
<td colspan="8" class="table_caption">栏目:<%=SD_Topic_Name%> 软件列表</td>
</tr>
<tr>
<td colspan="8" bgcolor="#CCCCCC" class="intro">
所属专题:<a href="Topic_Class.asp?id=<%=SD_Topic_P_Id%>"><%=SD_Topic_P_Name%></a>
<a href="Soft.asp?action=AddtoTopic&id=<%=SD_Topic_Id%>">添加软件</a>
</td>
</tr>
<tr class="header">
<td width="8%">编号</td>
<td>软件名称</td>
<td>下载次数</td>
<td>分类</td>
<td colspan="2" width="12%">操作</td>
</tr>
<%
if SD_Topic_Soft="" or isnull(SD_Topic_Soft) then
call NoTopicList
else
call ShowTopicList
end if
Sub ShowTopicList()
sql="select * from [Softs] where SD_Soft_Del=1 and SD_Soft_Id in ("&SD_Topic_Soft&") order by SD_Soft_id desc"
rs.open sql,conn,1,1
if not rs.eof then
page_size=Page_Size_All
rs.pagesize=page_size
page_now=1
if trim(request.QueryString("page"))<>"" then
page_now=cint(trim(request.QueryString("page")))
end if
if page_now>rs.pagecount or page_now<0 then
page_now=1
end if
page_count=rs.pagecount
rs.absolutepage=page_now
i=1
while (not rs.eof) and i<page_size+1
%>
<tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
<td><%=rs("SD_Soft_id")%></td>
<td style="text-align:left;"><%=rs("SD_Soft_Name")%></td>
<td><%=rs("SD_Soft_Times")%></td>
<td><%=rs("S_Class.SD_S_Class_Name")%>/<%=rs("S_Class_1.SD_S_Class_Name")%></td>
<td><input type="checkbox" name="del_id" value="<%=rs("SD_Soft_id")%>" /></td>
</tr>
<%
rs.movenext
i=i+1
wend
%>
<tr class="tdbg">
<td colspan="8" align="right">
<%=jk_pagecute(page_size,page_count,page_now,"Soft_Topic_List.asp?id="&id&"&",10,"#233D51")%>
<input type="checkbox" id="CheckAll" onpropertychange="CheckBoxAll(this)"><label for="CheckAll">全选</label>
<input type="submit" class="submitCmd" value="从该专题中删除"></td>
</tr>
<%
End if
End Sub
Sub NoTopicList()
%>
<tr class="tdbg">
<td colspan="8">该专题下没有软件! <a href="Soft.asp?action=AddtoTopic&id=<%=SD_Topic_Id%>">添加</a></td>
</tr>
<%
End Sub
%>
</table>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -