user_booksave.asp

功能介绍： 一、会员功能模块 1、站内短信发布(设计中) 2、书架收藏夹 3、发表评论(功能不完善) 4、申请作家(与添书员整合) 5、申请添书员(与作家整合) 6、申请更新员

<!-- #include file="conn.asp" --><!--#include file="inc/config.asp"-->
<%UserID=CheckSql(request.cookies("CnEndWeb_User")("log_UserID"))
UserName=CheckSql(request.cookies("CnEndWeb_User")("log_UserName"))
If UserName="" or UserID="" or IsNull(UserID) Then
	Response.Write ("<script>alert(' CnEndWeb（终点）提醒： \n\n 可能您还没有登陆或者登陆超时 \n\n 如果您没有成为会员请先进行会员注册 \n\n 如果您已经是注册会员请重新登陆 ');location.href='user_log.asp?info=log';</script>")
	Response.End
End If
set rsu=server.createobject("adodb.recordset")
sql="select ID,LockUser,GOGXuser from [Userinfo] where ID="&UserID&""
rsu.open sql,conn,1,1
if rsu.eof and rsu.bof then
	Response.Write ("<script>alert(' CnEndWeb（终点）提醒： \n\n 用户不存在。');history.back();</script>")
	Response.end
End If
if rsu("LockUser")=1 then
	Response.Write ("<script>alert(' CnEndWeb（终点）提醒： \n\n 用户被锁定。');history.back();</script>")
	Response.end
End If
if rsu("GOGXuser")=0 then
	Response.Write ("<script>alert(' CnEndWeb（终点）提醒： \n\n 没有更新员权限或更新权限被锁定。');history.back();</script>")
	Response.end
End If
UserID=rsu("ID")
Select Case request.querystring("info")
	Case "book_zhang_add"
		Call book_zhang_add()
	Case "book_zhang_edit"
		Call book_zhang_edit()
	Case "book_jie_add"
		Call book_jie_add()
	Case "book_jie_edit"
		Call book_jie_edit()
	Case "book_jjgg_edit"
		Call book_jjgg_edit()
	Case "view_go_cook_ok"
		Call view_go_cook_ok()
end select 

%>
<%
Sub book_jie_add()

b_id=CheckSql(request.form("b_id"))
CheckSqlnum(b_id)
c_id=CheckSql(request.form("c_id"))
CheckSqlnum(c_id)

set rs3=server.createobject("adodb.recordset")
sql3="select list_name,list_class,list_userid from list_book where id="&b_id
rs3.open sql3,conn,1,3
if rs3("list_userid")<>userID then
	Response.Write ("<script>alert('   操作错误!\n\n 你没有权限管理该作品。');history.back();</script>")
	Response.end
End If
list_name=rs3("list_name")
classid=rs3("list_class")
rs3.close
set rs3=nothing

	if request.form("subject")="" then
		response.write "<script language=javascript>alert('名称不能为空!');history.back(-1);</script>"
		response.end
	end if
	if request.form("message")="" then
		response.write "<script language=javascript>alert('内容不能为空!');history.back(-1);</script>"
		response.end
	end if
set rs4=server.CreateObject("ADODB.recordset")
sql4="select top 1 * from [list_view] where list_cookid="&c_id&" order by view_showid desc"
rs4.open sql4,conn,1,3
if rs4.eof and rs4.bof then
view_showid=1
else
view_showid=rs4("view_showid")+1
end if
	rs4.addnew
	rs4("view_type")=trim(request.form("subject"))
	rs4("view_size")=Len(trim(request.form("message")))
	rs4("view_ok")=""
	rs4("view_get")=1
	rs4("view_showid")=view_showid
	rs4("view_date")=now()
	rs4("view_id")=b_id
	rs4("list_cookid")=c_id
	rs4("view_lock")=0
	rs4.update
	if IsSqlDataBase = 0 then
		view_size=rs4("view_size")
		id1=rs4("id")
	end if
	rs4.close
	if IsSqlDataBase = 1 then
	rs4.open sql4,conn,1,1
		view_size=rs4("view_size")
		id1=rs4("id")
	rs4.close
	end if
	set rs4=nothing
set rs4=server.createobject("adodb.recordset")
sql4="select id,view_ok,view_ok2,view_get,view_SaveToTXT from [list_view] Where id="&id1
	rs4.open sql4,conn,1,3
	if SaveToTXT=1 then
		BookViewPath="HTML/"&b_id&"/"

		If Not CreateMultiFolder(SiteSystemPath & BookViewPath) Then
			Response.Write "<br><font color='red'><B>创建TXT存放目录失败，可能是由于服务器限制！！</B></font>"&SiteSystemPath & BookViewPath&"<br>"
			rs4("view_SaveToTXT")=0
			rs4("view_ok2")=htmlencode(request.form("message"))
			rs4.update
		Else
			file=server.mappath( SiteSystemPath & BookViewPath&id1&".TXT" )
			view_view_ok="document.write('"
			view_view_ok=view_view_ok&""&htmlencode(request.form("message"))&""
			view_view_ok=view_view_ok&"');"
			Set fso = Server.CreateObject("Scripting.FileSystemObject")
			Set fout = fso.Createtextfile(file,true)
				fout.writeline view_view_ok
			fout.close
			set fso=nothing
			rs4("view_SaveToTXT")=1
			rs4("view_ok")="/"&BookViewPath&strFileName&id1&".TXT"
			rs4("view_ok2")="&nbsp;"
			rs4.update
		end if
	else
		rs4("view_SaveToTXT")=0
		rs4("view_ok2")=htmlencode(request.form("message"))
		rs4.update
	end if
rs4.close
set rs4=nothing
set rs=server.CreateObject("adodb.recordset")
sql="select list_cookname from [list_cook] where list_cookid="&c_id
rs.open sql,conn,1,1
list_cookname=rs("list_cookname")
rs.close
set rs=nothing

newviewname=list_cookname&"&nbsp;"&trim(request.form("subject"))
set rs_u=server.createobject("adodb.recordset")
sql="select newviewid,newviewname,newview,list_size,list_gxdate from [list_book] where id="&b_id&""
rs_u.open sql,conn,1,3
rs_u("newviewid")=id1
rs_u("newviewname")=newviewname
rs_u("newview")=left(htmlencode(request.form("message")),399)
rs_u("list_gxdate")=now()
rs_u("list_size")=rs_u("list_size")+view_size
rs_u.update
rs_u.close
set rs_u=nothing

set rsu=server.createobject("adodb.recordset")
sql="select UserPoint from [Userinfo] where id="&Userid&""
rsu.open sql,conn,1,3
rsu("UserPoint")=rsu("UserPoint")+userbookjieadd
rsu.update
rsu.close
set rsu=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='user_book.asp?info=jie_add&id="&c_id&"';</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_all,list_news,list_userid from list_book where id="&id
rsab.open sqlab,conn,1,3
if rsab("list_userid")<>userID then
	Response.Write ("<script>alert('CnEndWeb（终点）提醒：\n\n 你没有权限管理该作品。');history.back();</script>")
	Response.end
End If

rsab("list_all")=list_all
rsab("list_news")=list_news
rsab.update
rsab.close
set rsab=nothing
if makehtml=1 then
MakelookHtml(id)
end if
	response.write "<script>alert('CnEndWeb（终点）提醒：\n\n作品公告和介绍修改成功！');location.href='user_book.asp?info=jjgg_edit&id="&id&"';</script>"
	Response.end
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=request.form("b_id")
set rs=server.createobject("adodb.recordset")
sql="select list_userid from list_book where id="&b_id
rs.open sql,conn,1,1
if rs("list_userid")<>userID then
	Response.Write ("<script>alert('CnEndWeb（终点）提醒：\n\n 你没有权限管理该作品。');history.back();</script>")
	Response.end
End If
rs.close
set rs=nothing
set rs3=server.createobject("adodb.recordset")
sql3="select * 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.update
rs3.close
set rs3=nothing
response.write "<script>alert('CnEndWeb（终点）提醒：\n\n 分卷添加成功!');location.href='user_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_cookname,list_bookid from list_cook where list_cookid="&id
rs.open sql,conn,1,3
b_id=rs("list_bookid")
set rs3=server.createobject("adodb.recordset")
sql3="select list_userid from list_book where id="&b_id
rs3.open sql3,conn,1,1
if rs3("list_userid")<>userID then
	Response.Write ("<script>alert('CnEndWeb（终点）提醒：\n\n 你没有权限管理该作品。');history.back();</script>")
	Response.end
End If
rs3.close
set rs3=nothing

rs("list_cookname")=trim(request.form("list_cookname"))
rs.update
rs.close
set rs=nothing
response.write ("<script>alert('CnEndWeb（终点）提醒：\n\n 分卷名称修改成功!');location.href='user_book.asp?info=zhang_list&id="&b_id&"';</script>")
response.end
end sub
%>