author_booksave.asp

小说站源代码文件

<!-- #include file="conn.asp" --><!--#include file="inc/config.asp"--><%
dim author_ID,author_name
author_ID=session("author_ID")
author_name=session("author_name")
If author_name="" or author_ID="" or IsNull(author_ID) Then
	Response.Write ("<script>alert('CnEndWeb（终点）提醒：\n\n 可能您还没有登陆或者登陆超时 ');location.href='author_log.asp?info=out';</script>")
	Response.End
End If
set rs=server.createobject("adodb.recordset")
sql="select author_addpost,author_lock,author_UserID from author where author_ID="&author_ID&""
rs.open sql,conn,1,1
if rs.eof and rs.bof then
	Response.Write ("<script>alert('CnEndWeb（终点）提醒：\n\n 用户不存在。');history.back();</script>")
	Response.end
End If
If rs("author_addpost")=0 Then
	Response.Write ("<script>alert('CnEndWeb（终点）提醒：\n\n 您的驻站申请尚未被管理员通过 \n\n 请先联系本站站长或管理员通过您的申请 ');location.href='author_index.asp?info=index';</script>")
	Response.End
End If
If rs("author_lock")=1 Then
	Response.Write ("<script>alert('CnEndWeb（终点）提醒：\n\n 您的驻站权限被锁定不能发表新作 \n\n 请先联系本站站长或管理员帮您解锁 ');location.href='author_index.asp?info=index';</script>")
	Response.End
End If
author_UserID=rs("author_UserID")
rs.close
set rs=nothing

Select Case request.querystring("info")
	Case "book_add"
		Call book_add()
	Case "book_edit"
		Call book_edit()
	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_add()
dim list_user,list_name,list_Adminid,list_all,list_news,pic,key
list_user=trim(request.Form("list_user"))
list_Adminid=author_ID
list_all=trim(request.Form("list_all"))
list_name=trim(request.Form("list_name"))
list_news=trim(request.Form("list_news"))
key=trim(request.Form("key"))
if request.Form("pic")="" then
pic="images/0.jpg"
Else
pic=trim(request.Form("pic"))
if len(pic) > 50 then
	response.write "<script>alert('CnEndWeb（终点）提醒：\n\n最新图片中输入字符超限,请简短后重新输入仅(允许50字符,且不要输入中文)!');history.back(-1);</script>"
	response.end
end if
end if

if request.form("list_user")="" then
	response.write "<script>alert('CnEndWeb（终点）提醒：\n\n作者不能为空！');history.back(-1);</script>"
	response.End()
end if

if request.form("list_name")="" then
	response.write "<script>alert('CnEndWeb（终点）提醒：\n\n作品名称不能为空！');history.back(-1);</script>"
	response.End()
end if

if key="" then
	response.write "<script>alert('CnEndWeb（终点）提醒：\n\n搜索关键字不能为空!');history.back(-1);</script>"
	response.end
end if

if list_all="" then
	response.write "<script>alert('CnEndWeb（终点）提醒：\n\n介绍不能为空!');history.back(-1);</script>"
	response.end
end if

if len(list_news) > 800 then
	response.write "<script>alert('CnEndWeb（终点）提醒：\n\n作品公告内容不能超过800字!');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

set rsauth=server.createobject("adodb.recordset")
sql="select UserPoint from Userinfo where ID="&author_UserID&""
rsauth.open sql,conn,1,3
if rsauth.eof and rsauth.bof then
	Response.Write ("<script>alert('CnEndWeb（终点）提醒：\n\n 用户不存在。');history.back();</script>")
	Response.end
else
End If

set rs=server.createobject("adodb.recordset")
sql="select * from list_book"
rs.open sql,conn,1,3
rs.addnew
rs("list_class")=trim(request.form("classid"))
rs("list_name")=trim(request.form("list_name"))
rs("list_pic")=pic
rs("list_lei")=trim(request.form("list_lei"))
rs("list_tai")=trim(request.form("list_tai"))
rs("laiyuan")="驻站作品"
rs("list_id")=0
rs("list_user")=list_user
rs("list_all")=trim(request.form("list_all"))
rs("list_news")=trim(request.form("list_news"))
rs("list_hit")=0
rs("list_jian")=0
rs("list_cang")=0
rs("list_sftai")=1
rs("list_qianyue")=trim(request.form("list_qianyue"))
rs("Isvip")=0
rs("Isgovip")=0
rs("IsgoVipAnswer")=""
rs("vip_bookid")=0
rs("IsGood")=0
rs("Islist_good")=0
rs("Isweb_good")=0
rs("Lock_book")=1
rs("Lock_lun")=0
rs("list_size")=1
rs("list_userid")=0
rs("list_Adminid")=list_Adminid
rs("list_abc")=trim(request.form("list_abc"))
rs("list_key")=trim(request.form("key"))
rs("listvv_good")=0
rs("list_yhit")=0
rs("list_mhit")=0
rs("list_zhit")=0
rs("list_dhit")=0
rs("list_yjian")=0
rs("list_mjian")=0
rs("list_zjian")=0
rs("list_djian")=0
rs.update
rs.close
set rs=nothing
rsauth("UserPoint")=rsauth("UserPoint")+authorbookadd
rsauth.update
rsauth.close
set rsauth=nothing
	response.write ("<script>alert('CnEndWeb（终点）提醒：\n\n发表成功，需要管理员验证通过后才能和本站读者见面\n\n 你现在可以先添加章节，以便管理员通过验证！');location.href='author_book.asp?info=book_list';</script>")
	response.end
end sub


sub book_jie_add()
b_id=CheckSql(request.form("list_bookid"))
CheckSqlnum(b_id)
c_id=CheckSql(request.form("list_cookid"))
CheckSqlnum(c_id)
	if request.form("subject")="" then
		response.write "<script>alert('CnEndWeb（终点）提醒：\n\n名称不能为空!');history.back(-1);</script>"
		response.end
	end if
	if request.form("message")="" then
		response.write "<script>alert('CnEndWeb（终点）提醒：\n\n内容不能为空!');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  * 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_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