user_booksave.asp

小说站源代码文件

<!-- #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
else
	list_name=rs3("list_name")
	classid=rs3("list_class")
End If
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 rsv1=server.createobject("adodb.recordset")
	if IsSqlDataBase = 2 then
		sqlv1="select view_showid from list_view where list_cookid="&c_id&" order by view_showid desc limit 1"
	else
		sqlv1="select top 1 view_showid from [list_view] where list_cookid="&c_id&" order by view_showid desc"
	end if
	rsv1.open sqlv1,conn,1,1
		if rsv1.bof and rsv1.eof then
			a_viewid=1
		else
			a_viewid=rsv1("view_showid") + 1
		end if
	rsv1.close
	set rsv1=nothing
set rs4=server.CreateObject("ADODB.recordset")
sql4="select id,view_type,view_size,view_ok,view_get,view_showid,view_date,view_id,list_cookid,view_lock from list_view order by id desc"
rs4.open sql4,conn,1,3
	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")=a_viewid
	rs4("view_date")=now()
	rs4("view_id")=b_id
	rs4("list_cookid")=c_id
	rs4("view_lock")=0
	rs4.update
	rs4.close
	rs4.open sql4,conn,1,1
		view_size=rs4("view_size")
		id1=rs4("id")
	rs4.close
	set rs4=nothing
	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>"
			conn.execute ("update list_view set view_get=1,view_SaveToTXT=0,view_ok2='"&htmlencode(request.form("message"))&"' where id="&id1)
			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
	 		TXTfile="/" & BookViewPath & id1 & ".TXT"
	 		conn.execute ("update list_view set view_get=1,view_SaveToTXT=1,view_ok='"&TXTfile&"',view_ok2='' where id="&id1)
		end if
	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&"&nbsp;"&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

	 conn.execute ("update Userinfo set UserPoint=UserPoint+"&userbookjieadd&" where id="&Userid)

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_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
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='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=CheckSql(request.form("b_id"))
set rs=server.createobject("adodb.recordset")
sql="select list_userid,list_class 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
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='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_bookid from list_cook where list_cookid="&id
rs.open sql,conn,1,1
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
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 分卷名称修改成功!');location.href='user_book.asp?info=zhang_list&id="&b_id&"';</script>")
response.end
end sub
%>