admin_booklist.asp

小说站源代码文件

<%if rs("IsVip")=1 then
	response.write("VIP作品")
else
	response.write("公众作品")
end if%></td>
<td class=alt2><%=rs("list_hit")%></td>
<td class=alt1><%=rs("list_jian")%></td>
<td class=alt2><%=rs("list_cang")%></td>
</tr>
<%rs.close
Next
set rs=nothing%>
</table>
</form>

<%end if
end if
end sub
sub listhtml()
id=trim(request("checked"))
If ID="" Then
	ErrCodes = ErrCodes & "<li>您至少需要选择一部作品！</li><br>"
	FoundErr=True
End If
if FoundErr=True then
	Call ShowAdminErrMsg(ErrCodes,"javascript:history.go(-1)")
else
	if request("action")="save" then
		makelookjt = Request("makelookhtml")
		If makelookjt="" or makelookjt=null Then
			makelookjt=0
		end if
		makereadjt = Request("makereadhtml")
		If makereadjt="" or makereadjt=null Then
			makereadjt=0
		end if
		makeviewjt = Request("makeviewhtml")
		If makeviewjt="" or makeviewjt=null Then
			makeviewjt=0
		end if
		makecookjt = Request("makecookhtml")
		If makecookjt="" or makecookjt=null Then
			makecookjt=0
		end if
		makeallpjt = Request("makeallphtml")
		If makeallpjt="" or makeallpjt=null Then
			makeallpjt=0
		end if
		
		makebookHTML=makelookjt&","&makereadjt&","&makeviewjt&","&makecookjt&","&makeallpjt
		if Instr(makebookHTML,"1")>0 then
			makebHArray=Split(ID, ",")
				response.write "<br><Br><table width=100% border=1 align=center cellpadding=0 cellspacing=0 bordercolor=#0650D2 bordercolordark=#FFFFFF>"
				response.write "<tr><td height=25 align=center>您选择了生成静态页面,下面开始执行...</td></tr></table><br>"
				set makebHrs=server.CreateObject("ADODB.RecordSet")
			For i=0 To UBound(makebHArray)
				makebHsql="select list_name from list_book where id="&makebHArray(i)
				makebHrs.open makebHsql,conn,1,1
				response.write "<table width=100% border=1 align=center cellpadding=0 cellspacing=0 bordercolor=#0650D2 bordercolordark=#FFFFFF>"
				response.write "<tr><td height=25 align=center>生成《"&makebHrs("list_name")&"》静态页面,开始执行...</td></tr></table><br><Br>"
				if makelookjt=1 then
					response.Write "生成作品资料页...<br>"
					MakelookHtml(makebHArray(i))
					response.Write "<br>完成<br><br>"
				end if
				if makereadjt=1 then
					response.Write "生成作品目录页...<br>"
					MakeindexHtml(makebHArray(i))
					response.Write "<br>完成<br><br>"
				end if
				if makeviewjt=1 then
					response.Write "生成作品章节页...<br>"
					MakepageHtml(makebHArray(i))
					response.Write "<br>完成<br><br>"
				end if
				if makecookjt=1 then
					response.Write "生成作品分卷页...<br>"
					MakezhangHtml(makebHArray(i))
					response.Write "<br>完成<br><br>"
				end if
				if makeallpjt=1 then
					response.Write "生成作品全文页...<br>"
					MakeallHtml(makebHArray(i))
					response.Write "<br>完成<br><br>"
				end if
				response.write "<table width=100% border=1 align=center cellpadding=0 cellspacing=0 bordercolor=#0650D2 bordercolordark=#FFFFFF>"
				response.write "<tr><td height=25 align=center>	完成"&makebHrs("list_name")&"静态页面生成!</td></tr></table>"
				makebHrs.close
			Next
			set makebHrs=nothing
			call connclose() 
			Call ShowAdminSuccessMsg(Success &"<li>共 <b>"&UBound(makebHArray)+1&"</b> 部作品静态页面生成操作完成！</li><br>",responseurl)
		else
			Call ShowAdminErrMsg("您要生成什么页面？","javascript:history.go(-1)")
		end if
	else
%>
<div id="topmomo">长篇作品管理&nbsp; |&nbsp;
	<a href="admin_book.asp?info=booklist&cndb=vip">查看VIP</a>&nbsp; |&nbsp;
	<a href="admin_book.asp?info=bookadd">添加作品</a> |&nbsp;
	<a href="admin_book.asp?info=booklist&cndb=all">查看所有</a>&nbsp; |&nbsp;
	<a href="admin_book.asp?info=booklist&cndb=lock">查看未审核</a></div><br>
<form method="post" name="formm" action="admin_booklist.asp?info=<%=info%>&action=save&urltype=<%=urltype%>&inf=<%=inf%>&cndb=<%=cndb%>&clid=<%=clid%>&key_type=<%=key_type%>&key_keyword=<%=key_keyword%>&page=<%=Page%>">
<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 align="center" height="22">
			<td width=30% class=alt2>生成所选作品的　==&gt;</td>
			<td width="70%" class=alt1>
			<input type="checkbox" name="makelookhtml" value="1" class="form" checked>资料页&nbsp;&nbsp;
			<input type="checkbox" name="makereadhtml" value="1" class="form" checked>目录页&nbsp;&nbsp;
			<input type="checkbox" name="makeviewhtml" value="1" class="form" checked>章节页&nbsp;&nbsp;
			<input type="checkbox" name="makecookhtml" value="1" class="form">分卷页&nbsp;&nbsp;
			<input type="checkbox" name="makeallphtml" value="1" class="form">全文页<br>
			</td>
		</tr>
		<tr height="22">
			<td class="alt3" colspan="2" align="middle" valign="middle">
			<input class="button" type="submit" value="执行" name="Submit" style="width: 45; height: 20"></td>
		</tr>
</table>
<br>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tborder">
	<tr align="center" height="22">
		<td width="6%" class="tcat">ID</td>
		<td width="4%" class="tcat">选择</td>
		<td width="25%" class="tcat"><b>作品名称</b></td>
		<td width="15%" class="tcat"><b>作者</b></td>
		<td width="10%" class="tcat"><b>审核状态</b></td>
		<td width="10%" class="tcat"><b>性质</b></td>
		<td width="10%" class="tcat"><b>点击</b></td>
		<td width="10%" class="tcat"><b>推荐</b></td>
		<td width="10%" class="tcat"><b>收藏</b></td>
	</tr>
<%
bookArray=Split(ID, ",")
set rs=server.CreateObject("ADODB.RecordSet")
For i=0 To UBound(bookArray)
	sql="select id,list_name,Lock_book,list_user,list_hit,list_jian,list_cang,IsVip from list_book where id="&bookArray(i)
	rs.open sql,conn,1,1%>
<tr align=center height=22>
<td class=alt2><%=rs("id")%></td>
<td class=alt1><input type=checkbox name=checked value='<%=rs("id")%>' class=form checked></td>
<td class=alt2 align=left>&nbsp; <a href=<%=SiteSystemPath%>look_book.asp?id=<%=rs("id")%> target=_blank><%=rs("list_name")%></a></td>
<td class=alt1><%=rs("list_user")%></td>
<td class=alt2>
<%if rs("Lock_book")=0 then
	response.write("已审核")
else
	response.write("未审核")
end if%></td>
<td class=alt1>
<%if rs("IsVip")=1 then
	response.write("VIP作品")
else
	response.write("公众作品")
end if%></td>
<td class=alt2><%=rs("list_hit")%></td>
<td class=alt1><%=rs("list_jian")%></td>
<td class=alt2><%=rs("list_cang")%></td>
</tr>
<%rs.close
Next
set rs=nothing%>
</table>
</form>

<%end if
end if
end sub
sub listvip()
id=trim(request("checked"))
If ID="" Then
	ErrCodes = ErrCodes & "<li>您至少需要选择一部作品！</li><br>"
	FoundErr=True
End If
if FoundErr=True then
	Call ShowAdminErrMsg(ErrCodes,"javascript:history.go(-1)")
else
	if request("action")="save" then
		IsVip=request("IsVip")
		if IsVip="" then
			ErrCodes = ErrCodes & "<li>您需要选择操作类型！</li><br>"
			FoundErr=True
		end if
		if FoundErr=True then
			Call ShowAdminErrMsg(ErrCodes,"javascript:history.go(-1)")
		else
			viewArray=Split(ID, ",")
			For i=0 To UBound(viewArray)
				conn.execute ("update list_book set IsVip="&IsVip&" where id="&viewArray(i))
			Next
			call connclose() 
			Call ShowAdminSuccessMsg(Success &"<li>共 <b>"&UBound(viewArray)+1&"</b> 部作品提升VIP权限操作成功！</li><br>",responseurl)
		end if
	else
%><div id="topmomo">长篇作品管理&nbsp; |&nbsp;
	<a href="admin_book.asp?info=booklist&cndb=vip">查看VIP</a>&nbsp; |&nbsp;
	<a href="admin_book.asp?info=bookadd">添加作品</a> |&nbsp;
	<a href="admin_book.asp?info=booklist&cndb=all">查看所有</a>&nbsp; |&nbsp;
	<a href="admin_book.asp?info=booklist&cndb=lock">查看未审核</a></div><br>
<form method="post" name="formm" action="admin_booklist.asp?info=<%=info%>&action=save&urltype=<%=urltype%>&inf=<%=inf%>&cndb=<%=cndb%>&clid=<%=clid%>&key_type=<%=key_type%>&key_keyword=<%=key_keyword%>&page=<%=Page%>">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tborder">
	<tr>
		<td class="thead" align="center" height="25" colspan="9"><b>批量通过VIP作品</b></td>
	</tr>
	<tr height="22" align="center">
		<td width="30%" class="tcat"></td>
		<td width="70%" class="tcat"><b>操作</b></td>
	</tr>
		<tr align="center" height="22">
			<td class="alt2" valign="center">
			将所选作品设定为　==&gt;</td>
			<td class="alt1"><input type="radio" name="IsVip" value="1">VIP作品&nbsp;&nbsp; 
			<input name="IsVip" type="radio" value="0">普通作品</td>
		</tr>
		<tr height="22">
			<td class="alt3" colspan="2" align="middle" valign="middle">
			<input class="button" type="submit" value="执行" name="Submit" style="width: 45; height: 20"></td>
		</tr>
</table>
<br>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tborder">
	<tr align="center" height="22">
		<td width="6%" class="tcat">ID</td>
		<td width="4%" class="tcat">选择</td>
		<td width="25%" class="tcat"><b>作品名称</b></td>
		<td width="15%" class="tcat"><b>作者</b></td>
		<td width="10%" class="tcat"><b>审核状态</b></td>
		<td width="10%" class="tcat"><b>性质</b></td>
		<td width="10%" class="tcat"><b>点击</b></td>
		<td width="10%" class="tcat"><b>推荐</b></td>
		<td width="10%" class="tcat"><b>收藏</b></td>
	</tr>
<%
bookArray=Split(ID, ",")
set rs=server.CreateObject("ADODB.RecordSet")
For i=0 To UBound(bookArray)
	sql="select id,list_name,Lock_book,list_user,list_hit,list_jian,list_cang,IsVip from list_book where id="&bookArray(i)
	rs.open sql,conn,1,1%>
<tr align=center height=22>
<td class=alt2><%=rs("id")%></td>
<td class=alt1><input type=checkbox name=checked value='<%=rs("id")%>' class=form checked></td>
<td class=alt2 align=left>&nbsp; <a href=<%=SiteSystemPath%>look_book.asp?id=<%=rs("id")%> target=_blank><%=rs("list_name")%></a></td>
<td class=alt1><%=rs("list_user")%></td>
<td class=alt2>
<%if rs("Lock_book")=0 then
	response.write("已审核")
else
	response.write("未审核")
end if%></td>
<td class=alt1>
<%if rs("IsVip")=1 then
	response.write("VIP作品")
else
	response.write("公众作品")
end if%></td>
<td class=alt2><%=rs("list_hit")%></td>
<td class=alt1><%=rs("list_jian")%></td>
<td class=alt2><%=rs("list_cang")%></td>
</tr>
<%rs.close
Next
set rs=nothing%>
</table>
</form>
<%end if
end if
end sub
sub listtxt()
id=trim(request("checked"))
If ID="" Then
	ErrCodes = ErrCodes & "<li>您至少需要选择一部作品！</li><br>"
	FoundErr=True
End If
if FoundErr=True then
	Call ShowAdminErrMsg(ErrCodes,"javascript:history.go(-1)")
else
	if request("action")="save" then
	viewArray=Split(ID, ",")
	For i=0 To UBound(viewArray)
		Makealltxt(viewArray(i))
	Next
	call connclose() 
	Call ShowAdminSuccessMsg(Success &"<li>共 <b>"&UBound(viewArray)+1&"</b> 部作品生成全文TXT操作成功！</li><br>",responseurl)
else%>
<div id="topmomo">长篇作品管理&nbsp; |&nbsp;
	<a href="admin_book.asp?info=booklist&cndb=vip">查看VIP</a>&nbsp; |&nbsp;
	<a href="admin_book.asp?info=bookadd">添加作品</a> |&nbsp;
	<a href="admin_book.asp?info=booklist&cndb=all">查看所有</a>&nbsp; |&nbsp;
	<a href="admin_book.asp?info=booklist&cndb=lock">查看未审核</a></div><br>
<form method="post" name="formm" action="admin_booklist.asp?info=<%=info%>&action=save&urltype=<%=urltype%>&inf=<%=inf%>&cndb=<%=cndb%>&clid=<%=clid%>&key_type=<%=key_type%>&key_keyword=<%=key_keyword%>&page=<%=Page%>">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tborder">
	<tr>
		<td class="thead" align="center" height="25" colspan="9"><b>批量生成全文TXT</b></td>
	</tr>
	<tr height="22" align="center">
		<td width="30%" class="tcat"></td>
		<td width="70%" class="tcat"><b>操作</b></td>
	</tr>
		<tr align="center" height="22">
			<td class="alt2" valign="center">
			将所选作品　==&gt;</td>
			<td class="alt1">生成全文TXT电子书格式</td>
		</tr>
		<tr height="22">
			<td class="alt3" colspan="2" align="middle" valign="middle">
			<input class="button" type="submit" value="执行" name="Submit" style="width: 45; height: 20"></td>
		</tr>
</table>
<br>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tborder">
	<tr align="center" height="22">
		<td width="6%" class="tcat">ID</td>
		<td width="4%" class="tcat">选择</td>
		<td width="25%" class="tcat"><b>作品名称</b></td>
		<td width="15%" class="tcat"><b>作者</b></td>
		<td width="10%" class="tcat"><b>审核状态</b></td>
		<td width="10%" class="tcat"><b>性质</b></td>
		<td width="10%" class="tcat"><b>点击</b></td>
		<td width="10%" class="tcat"><b>推荐</b></td>
		<td width="10%" class="tcat"><b>收藏</b></td>
	</tr>
<%
bookArray=Split(ID, ",")
set rs=server.CreateObject("ADODB.RecordSet")
For i=0 To UBound(bookArray)
	sql="select id,list_name,Lock_book,list_user,list_hit,list_jian,list_cang,IsVip from list_book where id="&bookArray(i)
	rs.open sql,conn,1,1%>
<tr align=center height=22>
<td class=alt2><%=rs("id")%></td>
<td class=alt1><input type=checkbox name=checked value='<%=rs("id")%>' class=form checked></td>
<td class=alt2 align=left>&nbsp; <a href=<%=SiteSystemPath%>look_book.asp?id=<%=rs("id")%> target=_blank><%=rs("list_name")%></a></td>
<td class=alt1><%=rs("list_user")%></td>
<td class=alt2>
<%if rs("Lock_book")=0 then
	response.write("已审核")
else
	response.write("未审核")
end if%></td>
<td class=alt1>
<%if rs("IsVip")=1 then
	response.write("VIP作品")
else
	response.write("公众作品")
end if%></td>
<td class=alt2><%=rs("list_hit")%></td>
<td class=alt1><%=rs("list_jian")%></td>
<td class=alt2><%=rs("list_cang")%></td>
</tr>
<%rs.close
Next
set rs=nothing%>
</table>
</form>

<%end if
end if
end sub
%>
<br>
<div align="center">
	<div id="bback">
		<a href="<%=responseurl%>">...::: 点 此 返 回 :::...</a></div>
</div>
</body>
</html>