author_view_go_cook.asp

本源代码为终点小说连载系统 v1.15 Build 0430 SQL清风修改版,欢迎大家下载,学习与交流

<script>
var checkflag="0";
function check(field){
if(checkflag=="0"){
for(i=0;i<field.length;i++){
field[i].checked=1;}
checkflag="1";
return "取消选定"; }
else {
for(i=0;i<field.length;i++) {
field[i].checked=0;}
checkflag="0";
return "全部选定";}}
</script>
<%
id=CheckSql(request("id"))
CheckSqlnum(id)
id=int(id)
if id="" then
response.Redirect "author_logout.asp"
response.End
end if
set rs_s=server.createobject("adodb.recordset")
sql="select list_Adminid,list_name from list_book where id="&id&""
rs_s.open sql,conn,1,1
if not(rs_s.bof and rs_s.eof) then
	else
	response.write "<script language=javascript>alert(' 对不起,您要查看的作品不存在或已经被删除! \n\n 可能该作品不存在或包含国家或者本站禁止的内容. \n\n 您如果是该作品的管理员或作者,请联系站长!');history.back(-1);</script>"
	response.end 
end if
if rs_s("list_Adminid")<>author_ID then
	Response.Write ("<script>alert('   操作错误!\n\n 你没有权限管理该作品。');history.back();</script>")
	Response.end
End If
%>
<table cellspacing="1" cellpadding="4" width="100%" bgcolor="#ffffff" border="0">
	<tr bgcolor="#588fc7">
		<td colspan="4" class="head"><font color="#FFFFFF">移动章节</font></td>
	</tr>
	<form target="_BLANK" action="author_view_go_cook_ok.asp" method="post">
		<tr bgcolor="#ffffff">
			<td colspan="4">
			<table align="center" border="0" cellpadding="0" cellspacing="0" width="100%">
				<tr>
					<td align="center">
					<table width="100%" height="100%" border="0" align="center" cellpadding="2" cellspacing="1">
						<tr>
							<td class="font" align="center" height="30" class="font">
							<font face="隶书" size="3">《 <%=rs_s("list_name")%> 》</font></td>
						</tr>
					</table>
					</td>
				</tr>
			</table>
			<table align="center" border="0" cellpadding="0" cellspacing="0" width="100%">
				<tr>
					<td align="center">
					<table width="100%" border="1" cellspacing="0" cellpadding="0" bordercolordark="#588FC7" bordercolorlight="#ffffff" style="border-right-color: #DFEFFF; border-bottom-color: #DFEFFF;border-left-color: #DFEFFF; border-top-color: #DFEFFF">
						<tr>
							<td height="30" colspan="4" align="center" headers="20" height="20" bgcolor="#588FC7" class="head">
							<font color="#FFFFFF">[ 章节列表 ]</font></td>
						</tr>
						<%
set rsc=server.createobject("adodb.recordset")
sqlc="select * from list_cook where list_bookid="&id&" order by list_cookid"
rsc.open sqlc,conn,1,1
dim list_cookid
do while not rsc.eof%>
						<tr height="26">
							<td colspan="4" align="center" bgcolor="#DFEFFF"><%=rsc("list_cookname")%></td>
						</tr>
						<%
list_cookid=rsc("list_cookid")
set rs=server.createobject("adodb.recordset")
sql="select * from list_view where list_cookid="&list_cookid&" order by id"
rs.open sql,conn,1,1
if not (rs.bof and rs.eof) then
%>
						<tr bgcolor="#ffffff">
							<%
do while not rs.eof
  i=i+1
%>
							<td height="30">&nbsp;
							<input type="checkbox" name="ID" value="<%=rs("id")%>">&nbsp;
							<%=rs("view_type")%></td>
							<%
  if i mod 3 = 0 then
  response.Write "</tr><Tr bgcolor=#ffffff>"
  end if
  rs.movenext
  loop
  %>
						</tr>
						<%
  else
  %>
						<tr bgcolor="#ffffff">
							<td height="30" align="center" colspan="3" class="font">
							没有文章可供查询（可能已经删除）</td>
						</tr>
						<%end if%> <%rsc.movenext
loop
rsc.close
set rsc=nothing
%>
					</table>
					</td>
				</tr>
			</table>
			<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
				<tr>
					<td height="1" bgcolor="F5F5F5"></td>
				</tr>
			</table>
			<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
				<tr>
					<td align="center">
					<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#588fc7">
						<tr align="center">
							<td height="35" class="head"><font color="#FFFFFF">将选中的章节移动至<select name="list_cookid">
							<%
set rsc1=server.createobject("adodb.recordset")
sqlc1="select * from list_cook where list_bookid="&id&" order by list_cookid"
rsc1.open sqlc1,conn,1,1
%> <%do while not rsc1.eof %>
							<option value="<%=rsc1("list_cookid")%>"><%=rsc1("list_cookname")%>
							</option>
							<%
						  rsc1.movenext
						  loop
						  %></select>分卷&nbsp; 
							<input class="button" type="button" value="全部选定" onclick="this.value=check(this.form.ID)">
							<input class="button" type="submit" value="点击确认"></font></td>
						</tr>
					</table>
					</td>
				</tr>
			</table>
			<table width="100%" height="2" border="0" align="center" cellpadding="0" cellspacing="0">
				<tr>
					<td height="1" bgcolor="999999"></td>
				</tr>
			</table>
			<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
				<tr>
					<td height="2" bgcolor="DCDCDC"></td>
				</tr>
			</table>
			<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
				<tr>
					<td height="2" bgcolor="F5F5F5"></td>
				</tr>
			</table>
			</td>
		</tr>
	</form>
</table>
<%
rsc1.close
set rsc1=nothing
rs_s.close
set rs_s=nothing
rs.close
set rs=nothing
%>