📄 admin_article.asp

📁 小说站源代码文件
💻 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>
<title><%=Sitename%> - 短篇分类及短篇文章管理模块 -  Powered By CnEnd Novelsmanagement</title>
<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('CnEndWeb（终点）提醒：\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 id,classname,classinfo 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 id,classname 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 id,classname,classinfo 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()

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 Ar_id,Ar_class,Ar_name,Ar_username,Ar_userid,Ar_lock from Article where Ar_Author=0 and Ar_class<>0 order by Ar_id desc"
	elseif cndb="class" then
		sql="select Ar_id,Ar_class,Ar_name,Ar_username,Ar_userid,Ar_lock 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 Ar_id,Ar_class,Ar_name,Ar_username,Ar_userid,Ar_lock 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 Ar_id,Ar_class,Ar_name,Ar_username,Ar_userid,Ar_lock from Article where Ar_lock=1 and Ar_Author=0 and Ar_class<>0 order by Ar_id desc"
	end if
'MySQL需要如下语句
conn.CursorLocation=3
rs.open sql,conn,1,1%>
<script language="JavaScript">
<!--
function del(sortname) {
return(confirm(''CnEndWeb（终点）提醒：\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 cnendb();" target="cnendb" 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=MaxArticlePerPage
   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
12 下一页
⌨️ 快捷键说明

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