📄 admin_author.asp
字号:
<!-- #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">
<!--
.style2 {
font-family: "隶书";
color: #FF0000;
font-size: 24px;
}
.style3 {color: #FF0000}
-->
</style>
</head>
<body>
<div id=topmomo><a href="admin_author.asp?info=add">
添加驻站作家</a> |
<a href="admin_author.asp?info=list">驻站作家列表</a>
| <a href="admin_author.asp?info=golist">
申请驻站列表</a></div><br>
<%Select Case request.querystring("info")
Case "add"
Call add()
Case "addft"
Call addft()
Case "list"
Call list()
Case "ftlist"
Call ftlist()
Case "golist"
Call golist()
Case "edit"
Call edit()
Case "ftedit"
Call ftedit()
end select
Sub list()%><table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tborder">
<tr>
<td class="thead" align="center" height="25" colspan="8"><b>查看所有驻站作家</b></td>
</tr>
<form name="form" onsubmit="javascript:return JsIceb();" target="JsIceb" action="admin_Save.asp?info=author_listdel">
<tr height="22" align="center">
<td width="5%" class="tcat"></td>
<td width="5%" class="tcat">ID</td>
<td width="20%" class="tcat">用户名</td>
<td width="20%" class="tcat">昵称</td>
<td width="20%" class="tcat">申请驻站</td>
<td width="15%" class="tcat">专题访谈</td>
<td width="10%" class="tcat">锁定</td>
<td width="10%" class="tcat">删除</td>
</tr>
<%
Const MaxPerPage=20
If Request("page")<>"" then
CurrentPage=Cint(Request("Page"))
Else
CurrentPage=1
End if
set rs=server.createobject("adodb.recordset")
sql="select * from [author] where author_addpost=1 order by author_id desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then%>
<tr align="center">
<td colspan="8" height="22" class="alt1"><font color="#FF0000">暂 无 任
何 内 容</font></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 height="22" align="center">
<td class="alt2">
<input type="checkbox" name="checked" value="<%=rs("author_id")%>"></td>
<td class="alt1"><%=rs("author_id")%> </td>
<td class="alt2">
<a href="admin_author.asp?info=edit&id=<%=rs("author_id")%>"><%=rs("author_UserName")%></a></td>
<td class="alt1">
<a href="admin_author.asp?info=edit&id=<%=rs("author_id")%>"><%=rs("author_Name")%></a></td>
<td class="alt2">
<input class="button" type="button" name="author" value="解除驻站资格" onclick="javascript:window.open('admin_authorSave.asp?id=<%=rs("author_id")%>&page=<%=currentPage%>&act=author','_blank','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=no,width=500,height=300')" style="width: 100; height: 20"></td>
<td class="alt1">
<a href="admin_author.asp?info=addft&id=<%=rs("author_id")%>">添加作家访谈</a></td>
<td class="alt2">
<input class="button" type="button" name="lock" value="<%if rs("author_Lock")=0 then%>锁定<%else%>开锁<%end if%>" onclick="javascript:window.open('admin_authorSave.asp?id=<%=rs("author_id")%>&page=<%=currentPage%>&act=lock','_blank','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=no,width=500,height=300')" style="width: 45; height: 20"></td>
<td class="alt1">
<input class="button" type="button" name="del" value="删除" onclick="javascript:window.open('admin_Save.asp?info=author_del&id=<%=rs("author_id")%>&page=<%=currentPage%>','_self','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=no,width=500,height=300')" style="width: 45; height: 20"></td>
</tr>
<%
i=i+1
if i>=MaxPerPage then exit do
rs.movenext
loop
%>
<tr height="20" align="center">
<td colspan="8" class="alt3">
<input class="button" type="button" onclick="CheckAll(this.form)" value="全选" name="chkall" style="width: 45; height: 20">
<input class="button" type="button" onclick="CheckOthers(this.form)" value="反选" name="chkOthers" style="width: 45; height: 20">
<input class="button" type="submit" value="删除" name="listdel" style="width: 45; height: 20">
</td>
</tr>
</form>
<%End If
Rs.Close
Set Rs=Nothing
%><tr height="25" align="center">
<td colspan="8" class="alt2"><%Response.Write ShowPage("Admin_author.asp?info=list",CurrentPage,Num,MaxPerPage,True,True," 个项目")%></td>
</tr>
</table>
<%end sub%> <%Sub golist()%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tborder">
<tr>
<td class="thead" align="center" height="25" colspan="8"><b>查看所有申请驻站</b></td>
</tr>
<form name="glform" onsubmit="javascript:return JsIceb();" target="JsIceb" action="admin_Save.asp?info=author_listdel">
<tr align="center" height="22">
<td width="5%" class="tcat"></td>
<td width="10%" class="tcat">ID</td>
<td width="25%" class="tcat">用户名</td>
<td width="25%" class="tcat">昵称</td>
<td width="20%" class="tcat">申请驻站</td>
<td width="10%" class="tcat">驻站申请</td>
<td width="10%" class="tcat">删除</td>
</tr>
<%Const MaxPerPage=20
If Request("page")<>"" then
CurrentPage=Cint(Request("Page"))
Else
CurrentPage=1
End if
set rs=server.createobject("adodb.recordset")
sql="select * from [author] where author_addpost=0 order by author_id desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
%>
<tr align="center">
<td colspan="8" height="22" class="alt1"><font color="#FF0000">暂 无 任
何 内 容</font></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 height="22" align="center">
<td class="alt2">
<input type="checkbox" name="checked" value="<%=rs("author_id")%>"></td>
<td class="alt1"><%=rs("author_id")%> </td>
<td class="alt2">
<a href="admin_author.asp?info=edit&id=<%=rs("author_id")%>"><%=rs("author_UserName")%></a></td>
<td class="alt1">
<a href="admin_author.asp?info=edit&id=<%=rs("author_id")%>"><%=rs("author_Name")%></a></td>
<td class="alt2">
<input class="button" type="button" name="author" value="通过驻站申请" onclick="javascript:window.open('admin_authorSave.asp?id=<%=rs("author_id")%>&act=goauthor','_blank','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=no,width=500,height=300')"></td>
<td class="alt1">
<input class="button" type="button" name="author" value="查看申请原由和作品内容" onclick="javascript:window.open('admin_authorwriting.asp?id=<%=rs("author_id")%>&act=author','_blank','')"></td>
<td class="alt2">
<input class="button" type="button" name="del" value="删除" onclick="javascript:window.open('admin_Save.asp?info=author_del&id=<%=rs("author_id")%>','_self','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=no,width=500,height=300')"></td>
</tr>
<%
i=i+1
if i>=MaxPerPage then exit do
rs.movenext
loop
%><tr>
<td height="20" align="center" colspan="8" class="alt3">
<input class="button" type="button" onclick="CheckAll(this.form)" value="全选" name="chkall" style="width: 45; height: 20">
<input class="button" type="button" onclick="CheckOthers(this.form)" value="反选" name="chkOthers" style="width: 45; height: 20">
<input class="button" type="submit" value="删除" name="listdel" style="width: 45; height: 20">
<input class="button" type="submit" value="批量审核" name="listlock">
</td>
</tr>
</form>
<%End If
Rs.Close
Set Rs=Nothing
%><tr height="25" align="center">
<td colspan="8" class="alt2"><%Response.Write ShowPage("Admin_author.asp?info=golist",CurrentPage,Num,MaxPerPage,True,True," 个项目")%></td>
</tr>
</table>
<%end sub
sub add()%>
<script language="JavaScript">
function checkuser()
{
var user = document.author_info.author_UserName;
var author = document.author_info.author_name;
if (user.value && author.value) {
window.open("admin_checkname.asp?info=authoradd&a="+user.value+"&b="+author.value,"_blank","top=50,left=80,height=300,width=550,status=no,toolbar=no,menubar=no,location=no")
}
else {
alert("JsIceWeb（今世）提醒：\n\n请先填写好登录名和笔名！");
user.focus();
}
}
</script>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tborder">
<tr height="25">
<td colspan="4" class="thead">添加驻站作家</td>
</tr>
<form onsubmit="return checkblank(this);" name="author_info" method="post" action="admin_save.asp?info=author_add">
<tr>
<td colspan="4" class="alt3">
<div id=panx>
<table width="98%" border="0" align="center" cellpadding="1" cellspacing="1" class=panel>
<tr>
<td width="15%" align="right" valign="top"class="alt2">
驻站作家登陆名：</td>
<td align="left"class="alt1">
<input type="text" name="author_UserName" maxlength="16" size="20">
<font color="red">*</font>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -