admin_article.asp
来自「本人仅业余学习一些基础的ASP知识以供系统设计之用,并非专业人员,相关服务器设置」· ASP 代码 · 共 571 行 · 第 1/2 页
ASP
571 行
<!-- #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> |
<a href="admin_Article.asp?info=add">添加文章</a> |
<a href="admin_Article.asp?info=list&cndb=all">查看所有</a> |
<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">
<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">
<img src="images/ico.gif" width="10" height="10"> <%=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> </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> 合并到 ==></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()
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 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=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> "
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> "
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")%>&page=<%=Page1%>&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>
<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
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?