admin_author.asp

来自「本人仅业余学习一些基础的ASP知识以供系统设计之用,并非专业人员,相关服务器设置」· ASP 代码 · 共 708 行 · 第 1/3 页

ASP
708 行
字号
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>
<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>
		<%
Const MaxPerPage=20
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=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")%>&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>=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 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>
<%Const MaxPerPage=20
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=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")%>&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>=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("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

admin_author.asp - 源码说明

本页面展示了「本人仅业余学习一些基础的ASP知识以供系统设计之用,并非专业人员,相关服务器设置、MSSQL/MySQL数据库方面的专业问题请自行解决。 本人仅提供本系统相关的一些技术问题的解释、解答。」中的 admin_author.asp 源码文件，采用 ASP 编程语言编写，共 708 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与MSSQL相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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