📄 ppst_class.asp
字号:
For i=0 to rs.RecordCount
Set Rs_Pinglun=Server.CreateObject("Adodb.RecordSet")
Sql_Pinglun="Delete * From PPst_Pinglun Where NewsID="&Rs("ID")
rs_Pinglun.open sql_Pinglun,conn,1,3
rs_Pinglun.close
rs.MoveNext
Next
rs.close
Set Rs=Server.CreateObject("Adodb.RecordSet")
Sql="Delete * From PPst_News Where SmallClassID="&Request("ID")
rs.open sql,conn,1,3
rs.close
response.redirect ThisFileName&"?Result=删除子类成功！"
End If
If Action="51EditSmallClass" then
'如果Action="Edit"表示是点了编辑按钮,则表单ID不为空,取出该新闻类别的ID和名字
'并赋给参数,如ID=rs("ID"),设定表单各项的默认值等于相应参数
'如果Action="",则表示不是点了编辑按钮,则不进行一下11行程序
'所以表单各项的默认值等于空了,如ID
'然后依次作为区别来判断提交的数据是更改还是添加
'即使表单的Action的值都是Add
Set Rs=Server.CreateObject("Adodb.RecordSet")
Sql="Select * From PPst_SmallClass Where SmallClassID="&Request("ID")
rs.open sql,conn,1,1
ID=rs("SmallClassID")
TheClassName=rs("SmallClassName")
TheClassURL=rs("SmallClassURL")
rs.close
ButtonValue=" 编 辑 " '当前是新闻编辑状态,重新设定按钮的值为"编 辑"
End If
If Action="EditSmallClass" then
If Request("TheClassName")="" then
response.Write "<br><br><br><center>新闻子类名称不能为空..<br><br><a href="&ThisFileName&">》》返回...</a></center><body><html>"
Conn.Close
response.End()
End If
Set Rs=Server.CreateObject("Adodb.RecordSet")
Sql="Select * From PPst_SmallClass Where SmallClassID="&Request("ID")
rs.open sql,conn,1,3
rs("SmallClassName")=Request("TheClassName")
rs("SmallClassURL")=Request("TheClassURL")
rs.update
rs.close
response.redirect ThisFileName&"?Result=编辑子类成功！"
End If
%>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="10" align="center" valign="middle"></td>
</tr>
</table>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="20" align="center" valign="middle"><a href=<%=ClassURL%>>栏目管理</a> --- --- <a href=<%=NewsURL%>?Action=51Add>添加新闻</a> --- --- <a href=<%=NewsURL%>>管理新闻</a> --- --- <a href=<%=ThisFileName%>?Action=Logout>退出后台</a></td>
</tr>
</table>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="10"></td>
</tr>
</table>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#000000">
<form name="form1" method="post" action="<%=ThisFileName%>?Action=<%
If Action="51AddSmallClass" then
response.Write "AddSmallClass"
ElseIf Action="51EditBigClass" then
response.Write "EditBigClass"
ElseIf Action="51EditSmallClass" then
response.Write "EditSmallClass"
Else
response.Write "AddBigClass"
End If
%>">
<tr>
<td width="85" height="30" align="center" valign="middle" bgcolor="#FFFFFF">
<%If Action="51AddSmallClass" then %>
<input type="Hidden" name="ID" Value="<%=Request("ID")%>">
<%Else%>
<input type="Hidden" name="ID" Value="<%=ID%>">
<%End If%>
类别名称：</td>
<td width="*" align="left" valign="middle" bgcolor="#FFFFFF"> <input type="text" name="TheClassName" value="<%=TheClassName%>" size="50" /><%
If Action="51AddSmallClass" then Response.Write " 所属大类：<Font color=#FF0000>"&Request("TheBigClassName")&"</Font>"
%></td>
</tr>
<tr>
<td height="30" align="center" valign="middle" bgcolor="#FFFFFF">外部URL：</td>
<td align="left" valign="middle" bgcolor="#FFFFFF"> <input name="TheClassURL" type="text" value="<%=TheClassURL%>" size="50"> 不用请留空</td>
</tr>
<tr>
<td height="20" colspan="2" align="center" valign="middle" bgcolor="#FFFFFF"><input type="submit" name="submit" value="<%=ButtonValue%>" /></td>
</tr>
<tr>
<td height="20" colspan="2" align="center" valign="middle" bgcolor="#FFFFFF" class="cuti_red"><%=Request("Result")%></td>
</tr></form>
</table>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="10"></td>
</tr>
</table>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" class="Heitable">
<tr><td height="5"></td></tr>
<tr><td align="center" valign="middle" bgcolor="#FFFFFF">
<%
Set Rs=Server.CreateObject("Adodb.RecordSet")
Sql="Select * From PPst_BigClass Order By BigClassID Desc"
rs.open sql,conn,1,1
if rs.RecordCount=0 then
%>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#000000">
<tr><td align="center" valign="middle" bgcolor="#FFFFFF" height="25">没有数据..</td>
</tr></table>
<%
Else
page=request.QueryString("page")
rs.pagesize=10
total=rs.recordcount
if Not IsEmpty(trim(Request("Page"))) then
page = CInt(Request("page"))
if page>rs.PageCount then
rs.AbsolutePage = rs.PageCount
elseif page <= 0 then
page = 1
else
rs.AbsolutePage = page
end if
End if
page = rs.AbsolutePage
%>
<table width="98%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolorlight="#000000" bordercolordark="#FFFFFF">
<tr>
<td width="5%" height="25" align="center" valign="middle" bgcolor="#CCCCCC"><b>ID</b></td>
<td width="*" align="left" valign="middle" bgcolor="#CCCCCC"><b> [ID] 栏目名称 (该类下新闻数量) 外部URL</b></td>
<td width="10%" align="center" valign="middle" bgcolor="#CCCCCC"><b>添加子类</b></td>
<td width="5%" align="center" valign="middle" bgcolor="#CCCCCC"><b>编辑</b></td>
<td width="5%" align="center" valign="middle" bgcolor="#CCCCCC"><b>删除</b></td>
</tr>
<%
For i=1 to rs.PageSize
if rs.EOF then
Exit For
end if
Set Rs_News=Server.CreateObject("Adodb.RecordSet")
SQL_News="Select * From PPst_News Where BigClassID="&Rs("BigClassID")
Rs_News.open sql_News,conn,1,1
NewsNum=Rs_News.RecordCount
Rs_News.Close
%>
<tr onMouseOver="this.style.backgroundColor='#dddddd'" onMouseOut="this.style.backgroundColor='#ffffff'" >
<td height="25" align="center" valign="middle"><%=rs("BigClassID")%></td>
<td align="left" valign="middle">├ <%="[<font color=#FF0000>"&rs("BigClassID")&"</font>] "&rs("BigClassName")%> (<font color=#0000FF><%=" "&NewsNum%></font> ) <u><%'=rs("BigClassURL")%></u><%
Set Rs1=Server.CreateObject("Adodb.RecordSet")
Sql1="Select * From PPst_SmallClass Where ForBigClassID="&Rs("BigClassID")&" Order By SmallClassID Desc"
rs1.open sql1,conn,1,1
If Rs1.recordcount<>0 then
Do while Not rs1.eof
Response.Write "<br>│ ├ [<font color=#FF0000>"&rs1("SmallClassID")&"</font>] "&rs1("SmallClassName")
Set Rs_News=Server.CreateObject("Adodb.RecordSet")
SQL_News="Select * From PPst_News Where SmallClassID="&Rs1("SmallClassID")
Rs_News.open sql_News,conn,1,1
response.Write " ( <font color=#0000FF>"&Rs_News.RecordCount&"</font> )"
response.Write " ——— <a href="&ThisFileName&"?Action=51EditSmallClass&ID="&rs1("SmallClassID")&">编辑</a> —— <a href="&ThisFileName&"?Action=DelSmallClass&ID="&rs1("SmallClassID")&" onClick='return confirm(""删除小类："&rs1("SmallClassName")&"\n\n确定要执行操作吗？\n\n该操作将删除该分类下的所有文章以及所有相关评论\n\n请慎重！！！！"");'>删除</a>"
Rs_News.Close
Rs1.MoveNext
Loop
End If
Rs1.Close
%></td>
<td width="10%" align="center" valign="middle"><a href="<%=ThisFileName%>?Action=51AddSmallClass&ID=<%=rs("BigClassID")%>&TheBigClassName=<%=rs("BigClassName")%>">添加子类</a></td>
<td align="center" valign="middle"><a href="<%=ThisFileName%>?Action=51EditBigClass&ID=<%=rs("BigClassID")%>">编辑</a></td>
<td align="center" valign="middle"><a href="<%=ThisFileName%>?Action=DelBigClass&ID=<%=rs("BigClassID")%>" onClick='return confirm("删除大类：<%=rs("BigClassName")%>\n\n确定要执行操作吗？\n\n该操作将删除该分类下的所有二级分类和所有文章以及所有相关评论\n\n请慎重！！！！");'>删除</a></td>
</tr>
<%
rs.MoveNext
Next
%>
</table>
<table width="98%" border="0" cellspacing="0" cellpadding="0" height="5"><tr><td></td></tr></table>
<table width="98%" border="0" cellpadding="0" cellspacing="1" bgcolor="#000000">
<tr><td height="25" align="center" bgcolor="#FFFFFF">
<%if rs.pagecount<>1 and rs.pagecount<>0 then%>
<%if page<rs.pagecount then%>
<%if page=1 then %>
[首页] [上一页]
<%else%>
[<a href="<%=ThisFileName%>?page=<%=1%>">首页</a>]
[<a href="<%=ThisFileName%>?page=<% =page-1 %>">上一页</a>]
<% end if %>
[<a href="<%=ThisFileName%>?page=<%=page+1%>">下一页</a>]
[<a href="<%=ThisFileName%>?page=<%=rs.PageCount%>">尾页</a>]
<%else%>
[<a href="<%=ThisFileName%>?page=<% = 1%>">首页</a>]
[<a href="<%=ThisFileName%>?page=<% =page -1 %>">上一页</a>]
[下一页] [尾页]
<%end if %>
<%else%>
[首页] [上一页] [下一页] [尾页]
<%end if%>
[页次:<font color="red"><b><%=page%></b></font>/<%=rs.PageCount%>]
[共<%=rs.RecordCount%>条 <font color="red"><b><%=rs.PageSize%></b></font>条/页]
</td></tr></table>
<%
rs.Close
End If
Conn.Close
%>
</td></tr><tr><td height="5"></td></tr></table>
<!-- 如不影响你使用，请不要删除以下代码 -->
<table Align="center"><tr><td height="30" align=center valign=middle>爬爬思特工作室 <a Href=Http://www.papasite.net target=_blank>Http://www.PaPasite.Net</a></td></tr></table>
<!-- 以上代码不会影响程序速度，谢谢合作 -->
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -