⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 admin_author.asp

📁 小说站源代码文件
💻 ASP
📖 第 1 页 / 共 3 页
字号:
🔍
123 
<!-- #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">
<!--
.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>&nbsp; |&nbsp;
		<a href="admin_author.asp?info=list">驻站作家列表</a>&nbsp; 
		|&nbsp; <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 cnendb();" target="cnendb" 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>
		<%

If Request("page")<>"" then
    CurrentPage=Cint(Request("Page"))
Else
    CurrentPage=1
End if

set rs=server.createobject("adodb.recordset")
sql="select author_id,author_Name,author_UserName,author_Lock from author where author_addpost=1 order by author_id desc" 
'MySQL需要如下语句
conn.CursorLocation=3
rs.open sql,conn,1,1
if rs.eof and rs.bof then
	response.write "<tr align=center><td colspan=8 height=22 class=alt1>暂 无 任 何 内 容</td></tr>"
else
   Rs.PageSize=MaxAuthorPerPage
   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")%>&amp;page=<%=currentPage%>&amp;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")%>&amp;page=<%=currentPage%>&amp;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&amp;id=<%=rs("author_id")%>&amp;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>=MaxAuthorPerPage 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,MaxAuthorPerPage,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 cnendb();" target="cnendb" 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>
<%
If Request("page")<>"" then
    CurrentPage=Cint(Request("Page"))
Else
    CurrentPage=1
End if

set rs=server.createobject("adodb.recordset")
sql="select author_id,author_Name,author_UserName,author_Lock from author where author_addpost=0 order by author_id desc" 
'MySQL需要如下语句
conn.CursorLocation=3
rs.open sql,conn,1,1
if rs.eof and rs.bof then
	response.write "<tr align=center><td colspan=8 height=22 class=alt1>暂 无 任 何 内 容</td></tr>"
else
   Rs.PageSize=MaxAuthorPerPage
   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")%>&amp;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")%>&amp;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&amp;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>=MaxAuthorPerPage 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,MaxAuthorPerPage,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("CnEndWeb（终点）提醒：\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>&nbsp; 
						2-18字符，英文、数字，不可中文 
						<input type="button" class="button" name="check" value="检验作者信息" onclick="checkuser();"></td>
					</tr>
123

⌨️ 快捷键说明

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