author_booksave.asp

小说站源代码文件

	else
		conn.execute ("update list_view set view_get=1,view_SaveToTXT=0,view_ok2='"&htmlencode(request.form("message"))&"' where id="&id1)
	end if

set rs=server.CreateObject("adodb.recordset")
sql="select list_cookname from list_cook where list_cookid="&c_id
rs.open sql,conn,1,1
	if rs.eof then
		list_cookname="正文"
	else
		list_cookname=rs("list_cookname")
	end if
rs.close
set rs=nothing

		newviewname=list_cookname&" "&trim(request.form("subject"))
	if IsSqlDataBase = 0 or IsSqlDataBase = 2 then
		conn.execute ("update list_book set newviewid="&id1&",newviewname='"&newviewname&"',newview='"&left(htmlencode(request.form("message")),399)&"',list_gxdate=Now(),list_size=list_size+"&view_size&" where id="&b_id)
	elseif IsSqlDataBase = 1 then
		conn.execute ("update [list_book] set newviewid="&id1&",newviewname='"&newviewname&"',newview='"&left(htmlencode(request.form("message")),399)&"',list_gxdate=getdate(),list_size=list_size+"&view_size&" where id="&b_id)
	end if

	set rsauth=server.createobject("adodb.recordset")
	sql="select UserPoint from Userinfo where ID="&author_UserID&""
	rsauth.open sql,conn,1,1
	if rsauth.eof and rsauth.bof then
		Response.Write ("<br><font color='red'><B>在会员列表中找不到该驻站作家的资料,无法增加积分。</B></font>")
	Else
		conn.execute ("update Userinfo set UserPoint=UserPoint+"&authorbookjieadd&" where id="&author_UserID)
	End If
	rsauth.close
	set rsauth=nothing
	
if makehtml=1 then
MakeViewHtml(id1)
MakeindexHtml(b_id)
end if
if makeJS=1 then
temzxgx(zxgxNum)
end if
	response.write "<script>alert('CnEndWeb（终点）提醒：\n\n作品章节添加成功！');location.href='author_book.asp?info=jie_add&id="&c_id&"';</script>"
	response.end
end sub


sub book_jie_edit()

end sub


sub book_zhang_add()
if request.form("list_cookname")="" then
	response.write "<script>alert('CnEndWeb（终点）提醒：\n\n分卷名称不能为空!');history.back(-1);</script>"
	response.end
end if
b_id=CheckSql(request.form("b_id"))
CheckSqlnum(b_id)
set rs=server.createobject("adodb.recordset")
sql="select list_Adminid,list_class from list_book where id="&b_id
rs.open sql,conn,1,1
if rs("list_Adminid")<>author_ID then
	Response.Write ("<script>alert('CnEndWeb（终点）提醒：\n\n 你没有权限管理该作品。');history.back();</script>")
	Response.end
else
	classid=rs("list_class")
End If
rs.close
set rs=nothing
set rsc1=server.createobject("adodb.recordset")
if IsSqlDataBase = 2 then
	sqlc1="select cook_viewid from list_cook where list_bookid="&b_id&" order by cook_viewid desc limit 1"
else
	sqlc1="select top 1 cook_viewid from [list_cook] where list_bookid="&b_id&" order by cook_viewid desc"
end if
rsc1.open sqlc1,conn,1,1
	if rsc1.bof and rsc1.eof then
		c_viewid=1
	else
		c_viewid=rsc1("cook_viewid") + 1
	end if
rsc1.close
set rsc1=nothing
set rs3=server.createobject("adodb.recordset")
sql3="select list_cookname,list_bookid,classid,cook_viewid from list_cook"
rs3.open sql3,conn,1,3
rs3.addnew
rs3("list_cookname")=trim(request.form("list_cookname"))
rs3("list_bookid")=b_id
rs3("classid")=classid
rs3("cook_viewid")=c_viewid
rs3.update
rs3.close
set rs3=nothing
response.write "<script>alert('CnEndWeb（终点）提醒：\n\n 分卷添加成功!');location.href='author_book.asp?info=zhang_list&id="&b_id&"';</script>"
response.end
end sub


sub book_zhang_edit()
if request.form("list_cookname")="" then
	response.write "<script>alert('CnEndWeb（终点）提醒：\n\n 分卷名称不能为空!');history.back(-1);</script>"
	response.end
end if
id=CheckSql(request.form("id"))
CheckSqlnum(id)
id=int(id)
set rs=server.CreateObject("ADODB.recordset")
sql="select list_bookid from list_cook where list_cookid="&id
rs.open sql,conn,1,1
set rs3=server.createobject("adodb.recordset")
sql3="select list_Adminid from list_book where id="&rs("list_bookid")
rs3.open sql3,conn,1,1
if rs3("list_Adminid")<>author_ID then
	Response.Write ("<script>alert('CnEndWeb（终点）提醒：\n\n 你没有权限管理该作品。');history.back();</script>")
	Response.end
else
	conn.execute ("update list_cook set list_cookname='"&request.form("list_cookname")&"' where list_cookid="&id)
End If
rs3.close
set rs3=nothing
rs.close
set rs=nothing
response.write ("<script>alert('CnEndWeb（终点）提醒：\n\n 分卷名称修改成功!');history.back(-1);</script>")
response.end
end sub


sub book_jjgg_edit()
id=CheckSql(request.form("id"))
CheckSqlnum(id)
id=int(id)
list_all=trim(request.Form("list_all"))
list_news=trim(request.Form("list_news"))
if list_all="" then
	response.write "<script>alert('CnEndWeb（终点）提醒：\n\n介绍不能为空!');history.back(-1);</script>"
	response.end
end if

if len(list_all) > 1500 then
	response.write "<script>alert('CnEndWeb（终点）提醒：\n\n介绍内容不能超过1500字!');history.back(-1);</script>"
	response.end
end if
if list_news="" then
	response.write "<script>alert('CnEndWeb（终点）提醒：\n\n公告不能为空!');history.back(-1);</script>"
	response.end
end if

if len(list_news) > 1500 then
	response.write "<script>alert('CnEndWeb（终点）提醒：\n\n公告内容不能超过1500字!');history.back(-1);</script>"
	response.end
end if
set rsab=server.createobject("adodb.recordset")
sqlab="select list_Adminid from list_book where id="&id
rsab.open sqlab,conn,1,1
if rsab("list_Adminid")<>author_ID then
	Response.Write ("<script>alert('CnEndWeb（终点）提醒：\n\n 你没有权限管理该作品。');history.back();</script>")
	Response.end
else
	conn.execute ("update list_book set list_all='"&list_all&"',list_news='"&list_news&"' where id="&id)
End If
rsab.close
set rsab=nothing
if makehtml=1 then
MakelookHtml(id)
end if
	response.write "<script>alert('CnEndWeb（终点）提醒：\n\n作品公告和介绍修改成功！');location.href='author_book.asp?info=jjgg_edit&id="&id&"';</script>"
	Response.end
end sub

sub view_go_cook_ok()
ID=CheckSql(request("id"))
list_cookid=CheckSql(request("list_cookid"))
b_id=CheckSql(request.form("b_id"))
CheckSqlnum(b_id)
b_id=int(b_id)
set rs3=server.createobject("adodb.recordset")
sql3="select list_Adminid from list_book where id="&b_id
rs3.open sql3,conn,1,1
if rs3("list_Adminid")<>author_ID then
	Response.Write ("<script>alert('CnEndWeb（终点）提醒：\n\n 你没有权限管理该作品。');history.back();</script>")
	Response.end
End If
rs3.close
set rs3=nothing

If ID="" Then
	Response.Write ("<script>alert('CnEndWeb（终点）提醒：\n\n 您至少需要选择一个章节');javascript:window.close();</SCRIPT>")
	Response.end
End If
If list_cookid="" Then
	Response.Write ("<script>alert('CnEndWeb（终点）提醒：\n\n 您需要选择一个分卷');javascript:window.close();</SCRIPT>")
	Response.end
End If

'创建排列顺序
viewArray=Split(ID, ",")
Num = UBound(viewArray)

set rs=server.createobject("adodb.recordset")
For i=0 To Num
	sql="select id,list_cookid from list_view where id ="&viewArray(i)
	rs.open sql,conn,1,3
	If not rs.eof Then
		rs("list_cookid")=list_cookid
		rs.Update
	End If
	rs.close
Next
%>
<script>
function iftime(){
setTimeout("close()",2000);
}
opener.location.reload();
</script>
</head>

<body  onLoad="iftime()"  style="background-color:buttonface;border:none;margin-top:7px">
<br><br><br><br><br><br><br><br><fieldset style='width:250; height:65' align=center class=zt><legend>&nbsp;提示信息&nbsp;</legend><div align=center><p> CnEndWeb（终点）提醒： 操作成功!<br><p><a href='javascript:window.close();'>关闭窗口</a>,或五秒后自动关闭<br><br></fieldset>

</body>
<%
set rs=nothing
end sub
%>