📄 admin_article.asp

📁 功能强大首发! 演示地址:http://jsice.com QQ:3300828 运行环境： Internet Information Server 5.x or 6.0 （ii
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<!-- #include file="../conn.asp" -->
<!--#include file="../inc/config.asp"-->
<!-- #include file="session.asp" -->
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="css.css" rel="stylesheet" type="text/css">
<script language="javaScript" src="../js/js.js"></script>
<style type="text/css">
<!--
.style1 {color: #FF0000}
-->
</style>
</head>

<body>

<div id="topmomo">
	<a href="admin_Article.asp?info=classadd">添加分类</a> |&nbsp;
	<a href="admin_Article.asp?info=add">添加文章</a> |&nbsp;
	<a href="admin_Article.asp?info=list&cndb=all">查看所有</a>&nbsp; |&nbsp;
	<a href="admin_Article.asp?info=list&cndb=lock">查看未审核</a></div>
<br>
<%
Select Case request.querystring("info")
	Case "classadd"
		Call classadd()
	Case "classlist"
		Call classlist()
	Case "classaclass"
		Call classaclass()
	Case "add"
		Call add()
	Case "list"
		Call list()
	Case "edit"
		Call edit()
end select 
Sub classadd()%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tborder">
	<tr>
		<td class="thead" colspan="9" height="25" align="center"><b>
		<font color="#FFFFFF">添加短篇作品分类</font></b></td>
	</tr>
	<form action="admin_works.asp?info=ar_class" method="post" name="form">
		<tr>
			<td class="alt3">
			<div id="panx">
				<table width="98%" border="0" cellspacing="1" cellpadding="1" align="center" class="panel">
					<tr>
						<td width="40%" height="45" align="right" class="alt2">
						<b>分类名称：</b><br>
						</td>
						<td width="60%" class="alt1">
						<input name="classname" type="text" size="20" class="form" maxlength="14"></td>
					</tr>
					<tr>
						<td width="40%" height="45" align="right" class="alt2">
						<b>分类介绍：</b><br>
						</td>
						<td width="60%" class="alt1">
						<textarea name="classinfo" class="form" cols="60" rows="5"></textarea></td>
					</tr>
				</table>
			</div>
			<div style="MARGIN-TOP: 6px;MARGIN-bottom: 6px" align="center">
				<input type="submit" class="button" value="提 交"> 　 
				<input type="reset" class="button" value="重 置"></div>
			</td>
		</tr>
	</form>
</table>
<%end sub
sub classlist%>
<script language="JavaScript">
<!--
function del(sortname) {
return(confirm('JsIceWeb（今世）提醒：\n\n真的要删除 [ ' + sortname + ' ] 吗？\n\n注意，仅此一次确认！\n'));
}
//-->
</script>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tborder">
	<tr>
		<td class="thead" align="center" height="25" colspan="7"><b>查看所有短篇分类</b></td>
	</tr>
	<tr height="28" align="center">
		<td width="30%" align="left" class="tcat"><font color="#FFFFFF">&nbsp;&nbsp;
		<b>分 类 名 称</b></font></td>
		<td width="20%" class="tcat"><font color="#FFFFFF"><b>修 改 
		名 称</b></font></td>
		<td width="20%" class="tcat"><font color="#FFFFFF"><b>操作</b>
		</font></td>
	</tr>
	<%
set rs=server.createobject("adodb.recordset")
sql="select * from [Ar_class]"
rs.open sql,conn,1,1
if not rs.eof and rs.bof then
%>
	<tr align="center">
		<td colspan="6" height="22" class="alt1"><span class="style1">还没有任何分类请添加！！</span></td>
	</tr>
	<%else
	do while not rs.eof%>
	<tr>
		<td height="22" class="alt2">&nbsp;
		<img src="images/ico.gif" width="10" height="10">&nbsp; <%=rs("classname")%></td>
		<form action="admin_works.asp?info=ar_class_edit&classid=<%=rs("id")%>" method="post" name="eform">
			<td class="alt1">
			<input name="classname" type="text" size="30" class="form" value="<%=rs("classname")%>">
			<input class="button" type="submit" value="修 改" name="Submit" style="width: 45; height: 20"><br>
			<textarea name="classinfo" class="form" cols="38" rows="5"><%=htmlen(rs("classinfo"))%></textarea></td>
		</form>
		<td align="center" class="alt2">
		<a href="admin_works.asp?info=ar_class_del&id=<%=rs("id")%>" onclick="return(del('<%=rs("classname")%>'))">
		删除</a></a>&nbsp;&nbsp; </td>
	</tr>
	<%
rs.movenext
loop
rs.close
set rs=nothing
end if%>
</table>
<%end sub

Sub classaclass()%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tborder">
	<tr>
		<td class="thead" align="center" height="25" colspan="9"><b>合并分类</b></td>
	</tr>
	<tr height="22" align="center">
		<td width="45%" class="tcat"><b>原 分 类</b></td>
		<td width="45%" class="tcat"><b>目标分类</b></td>
	</tr>
	<form method="POST" action="admin_works.asp?info=aclass" name="formaclass">
		<tr align="center" height="22">
			<td width="45%" class="alt2" valign="center">
			<div class="select"><div><select name="oldclass" class="form" size="6"><%set rs=server.createobject("adodb.recordset")
sql="select * from [Ar_class]"
rs.open sql,conn,1,1
if rs.eof then
else
do while not rs.eof
response.write "<option value="&rs("id")&"> "&rs("classname")&"</option>"
	rs.movenext
	loop
end if
rs.close
set rs=nothing
%></select></div></div> 合并到　==&gt;</td>
			<td width="45%" class="alt1">
			<div class="select"><div><select name="newclass" class="form" size="6"><%set rs=server.createobject("adodb.recordset")
sql="select * from [Ar_class]"
rs.open sql,conn,1,1
if rs.eof then
else
do while not rs.eof
response.write "<option value="&rs("id")&"> "&rs("classname")&"</option>"
	rs.movenext
	loop
end if
rs.close
set rs=nothing
%></select></div></div> </td>
		</tr>
		<tr height="22">
			<td class="alt3" colspan="2" align="middle" valign="middle">
			<input class="button" type="submit" value="合 并" name="Submit"></td>
		</tr>
	</form>
</table>
<% 
set rs=nothing
set rs2=nothing
end sub

Sub list()
Const MaxPerPage=20
If Request("page")<>"" then
    CurrentPage=Cint(Request("Page"))
Else
    CurrentPage=1
End if

cndb=request.querystring("cndb")
id=request.querystring("id")
set rs=server.createobject("adodb.recordset")
if cndb="all" then
 sql="select * from [Article] where Ar_Author=0 and Ar_class<>0 order by Ar_id desc"
elseif cndb="class" then
 sql="select * from [Article] where Ar_class="&id&" and Ar_Author=0 and Ar_class<>0 order by Ar_id desc"
elseif cndb="user" then
 sql="select * from [Article] where Ar_userid="&id&" and Ar_Author=0 and Ar_class<>0 order by Ar_id desc"
elseif cndb="lock" then
 sql="select * from [Article] where Ar_lock=1 and Ar_Author=0 and Ar_class<>0 order by Ar_id desc"
end if
rs.open sql,conn,1,1%>
<script language="JavaScript">
<!--
function del(sortname) {
return(confirm(''JsIceWeb（今世）提醒：\n\n真的要删除 [ ' + sortname + ' ] 吗？\n\n注意，仅此一次确认！\n'));
}
//-->
</script>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tborder">
	<tr>
		<td class="thead" align="center" height="25" colspan="7"><b><%if cndb="all" then
		Response.Write "查看所有短篇作品"
		elseif cndb="class" then 
		Response.Write "查看分类短篇作品"
		elseif cndb="user" then 
		Response.Write "查看作者短篇作品"
		elseif cndb="lock" then 
		Response.Write "查看未审核短篇作品"
		end if%></b></td>
	</tr>
	<form name="form" onsubmit="javascript:return JsIceb();" target="JsIceb" action="admin_works.asp?info=article_list">
		<tr align="center" height="22">
			<td class="tcat"></td>
			<td width="12%" class="tcat"><b>所属分类</b></td>
			<td width="35%" class="tcat"><b>作品名称</b></td>
			<td width="25%" class="tcat"><b>作 者</b></td>
			<td width="12%" class="tcat"><b>审核状态</b></td>
			<td width="15%" class="tcat"><b>操作</b></td>
		</tr>
		<%if rs.eof and rs.bof then
		response.write "<tr align=center><td colspan=9 height=22 class=alt1><span class=style1>暂无任何作品</span></td></tr>"
		else
   Rs.PageSize=MaxPerPage
   Allpage=Rs.PageCount
   If Currentpage>Allpage Then Currentpage=1
   Num=Rs.RecordCount
   Rs.MoveFirst
   Rs.AbsolutePage=CurrentPage
   i=0
do while not rs.eof
%>
		<tr align=center height=22>
			<td align=center class=alt2>
			<input type=checkbox name=checked value=<%=rs("Ar_id")%>></td>
<%Ar_class=rs("Ar_class")
set rs1=server.createobject("adodb.recordset")
sql1="select classname from [Ar_class] where id="&Ar_class
rs1.open sql1,conn,1,1
if rs1.eof and rs1.bof then
	Response.Write "<td class=alt1>已被删除</td>"
else
	Response.Write "<td class=alt1><a href=admin_Article.asp?info=list&cndb=class&id="&Ar_class&">"&rs1("classname")&"</a></td>"
end if
rs1.close
set rs1=nothing
if rs("Ar_userid")=0 Then
	Response.Write "<td class=alt2 align=left>&nbsp;"
	Response.Write "<a target=_blank href=../read_Article.asp?id="&rs("Ar_id")&">"&rs("Ar_name")&"</a></td>"
	Response.Write "<td class=alt1>"&rs("Ar_username")&"</td>"
else
	Response.Write "<td class=alt2 align=left>&nbsp;"
	Response.Write "<a target=_blank href=../read_userbook.asp?id="&rs("Ar_id")&">"&rs("Ar_name")&"</a></td>"
set rs2=server.createobject("adodb.recordset")
sql2="select NAME from [Userinfo] where ID="&rs("Ar_userid")
rs2.open sql2,conn,1,1
if rs2.eof and rs2.bof then
	Response.Write "<td class=alt1>会员已被删除</td>"
else
	Response.Write "<td class=alt1><a href=admin_Article.asp?info=list&cndb=user&id="&rs("Ar_userid")&">"&rs2("name")&"</a></td>"
end if
rs2.close
set rs2=nothing
end if%>
			<td class=alt2>
			<input class=button type=button name=lock value="<%if rs("Ar_lock")=0 then%>取消审核<%else%>通过审核<%end if%>" onclick="javascript:window.open('admin_userbookSave.asp?id=<%=rs("Ar_id")%>&amp;page=<%=Page1%>&amp;act=lock','_blank','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=no,width=500,height=300')" style="width: 60; height: 20"></td>
			<td class="alt1">
			<a title="修改" href="admin_Article.asp?urltype=list&info=edit&id=<%=rs("Ar_id")%>&cndb=<%=cndb%>&page=<%=CurrentPage%>">
			修改</a>&nbsp;
			<a title="删除" href="admin_works.asp?urltype=list&info=article_del&cndb=<%=cndb%>&id=<%=id%>&Ar_id=<%=rs("Ar_id")%>&userid=<%=rs("Ar_userid")%>&page=<%=CurrentPage%>" onclick="return(del('<%=rs("Ar_name")%>'))">
			删除</a></td>
		</tr>
		<%
     i=i+1
      If i>=MaxPerPage Then  Exit  Do
      Rs.MoveNext
12 下一页
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -