admin_works.asp

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

set rsco=server.createobject("adodb.recordset")
sql="select id,view_size from [list_view] where list_cookid="&c_id&""
rsco.open sql,conn,1,1
if rsco.eof and rsco.bof then
else
do while not rsco.eof
	id=rsco("id")
	view_size=rsco("view_size")

	set rsfile=server.createobject("adodb.recordset") 
	strSQL ="select fileurl_name,fileurl_path from [filetest] where fileurl_class=1 and fileurl_fileID ="&id&""
	rsfile.open strSQL,conn,1,1
	if not(rsfile.eof and rsfile.bof) then
	do while not rsfile.eof
		file1=rsfile("fileurl_path")&rsfile("fileurl_name")
		FSOFiledel(file1)
	rsfile.movenext
    loop
	end if
	rsfile.close
	set rsfile=nothing
	conn.execute"delete from [filetest] where ID ="&id&""

	set rsbo=server.createobject("adodb.recordset")
	sqlbo="select list_size from [list_book] where id="&b_id&""
	rsbo.open sqlbo,conn,1,3
	rsbo("list_size")=rsbo("list_size")-view_size
	rsbo.Update
	rsbo.close
	set rsbo=nothing

		file2=viewFolder&rsco("id")&"."&htmlphe&""
		file1=viewFolder&rsco("id")&".TXT"
		FSOFiledel(file1)
		FSOFiledel(file2)
rsco.movenext
loop
end if
rsco.close
set rsco=nothing

conn.execute "delete from [list_view] where list_cookid in ("&c_id&") "
		Success = Success & "<li> 作品章节附件已全部清理！</li><br>"
		Success = Success & "<li> 作品章节静态页面已全部清理！</li><br>"
		Success = Success & "<li> 作品分卷静态页面已全部清理！</li><br>"
call connclose() 
Call ShowAdminSuccessMsg(Success &"<li>分卷及其所含章节删除成功！</li><br>","admin_book.asp?info=zhanglist&b_id="&b_id&"&c_id="&c_id&"&page="&Page&"")
end sub
'——————————
sub book_zhang_list()
b_id=CheckSql(request.querystring("b_id"))
CheckSqlnum(b_id)
b_id=int(b_id)
list_cookid=trim(request("list_cookid"))
cook_viewid=trim(request("cook_viewid"))
list_cookid=Split(list_cookid, ",")
cook_viewid=Split(cook_viewid, ",")
Num = UBound(list_cookid)
For i=0 To Num

set rs=server.createobject("adodb.recordset")
sql="select cook_viewid from [list_cook] where list_cookid="&list_cookid(i)
rs.open sql,conn,1,3
if cook_viewid(i)<>"" then
rs("cook_viewid")=cook_viewid(i)
rs.update
rs.close
set rs=nothing
else
ErrCodes = ErrCodes & "<li>任何序号不能为空！</li><br>"
FoundErr=True
end if
Next

call connclose() 
if FoundErr=True then
	Call ShowAdminErrMsg(ErrCodes,"javascript:history.go(-1)")
else
Call ShowAdminSuccessMsg("<li>分卷排序成功！</li><br>","admin_book.asp?info=zhangmake&b_id="&b_id&"")
end if

end sub
'——————————
sub book_zhang_listdel()
id=trim(request("checked"))
If ID="" Then
	ErrCodes = ErrCodes & "<li>您至少需要选择一个分卷</li><br>"
	FoundErr=True
End If
if FoundErr=True then
	Call ShowAdminErrMsg(ErrCodes,"javascript:window.close()")
else
viewArray=Split(ID, ",")
Num = UBound(viewArray)
For i=0 To Num
page=replace(trim(request("page")),"'","")
conn.execute "delete from [list_cook] where list_cookid in ("&viewArray(i)&") "

set rsco=server.createobject("adodb.recordset")
sql="select id,view_id,view_size,list_cookid from [list_view] where list_cookid="&viewArray(i)&""
rsco.open sql,conn,1,1
if rsco.eof and rsco.bof then
else
do while not rsco.eof
	id1=rsco("id")
	view_id=rsco("view_id")
	view_size=rsco("view_size")
	cookid=rsco("list_cookid")

	set rsfile=server.createobject("adodb.recordset") 
	strSQL ="select fileurl_name,fileurl_path from [filetest] where fileurl_class=1 and fileurl_fileID ="&id1&""
	rsfile.open strSQL,conn,1,1
	if not(rsfile.eof and rsfile.bof) then
	do while not rsfile.eof
		file1=rsfile("fileurl_path")&rsfile("fileurl_name")
		FSOFiledel(file1)
	rsfile.movenext
    loop
	end if
	rsfile.close
	set rsfile=nothing
	conn.execute"delete from [filetest] where ID ="&id1&""

	set rsbo=server.createobject("adodb.recordset")
	sqlbo="select list_size from [list_book] where id="&view_id&""
	rsbo.open sqlbo,conn,1,3
	rsbo("list_size")=rsbo("list_size")-view_size
	rsbo.Update
	rsbo.close
	set rsbo=nothing

		viewFolder = SiteSystemPath&"HTML/"&view_id&"/"

		file3=viewFolder&"Z"&cookid&"."&htmlphe&""
		file2=viewFolder&id1&"."&htmlphe&""
		file1=viewFolder&id1&".TXT"
		FSOFiledel(file1)
		FSOFiledel(file2)
		FSOFiledel(file3)

rsco.movenext
loop
end if
rsco.close
set rsco=nothing
conn.execute "delete from [list_view] where list_cookid in ("&viewArray(i)&") "
Next
		Success = Success & "<li> 作品章节附件已全部清理！</li><br>"
		Success = Success & "<li> 作品章节静态页面已全部清理！</li><br>"
		Success = Success & "<li> 作品分卷静态页面已全部清理！</li><br>"
call connclose() 
response.write ("<script>opener.location.reload();</script>")
Call ShowAdminSuccessMsg("Success &<li>分卷删除操作成功！</li><br>","javascript:window.close()")
end if
end sub
'——————————
sub book_jie_add()
b_id=CheckSql(request.querystring("b_id"))
CheckSqlnum(b_id)
b_id=int(b_id)
c_id=CheckSql(request.querystring("c_id"))
CheckSqlnum(c_id)
c_id=int(c_id)

	if request.form("subject")="" then
		ErrCodes = ErrCodes & "<li>章节名称不能为空！</li><br>"
		FoundErr=True
	end if
	if request.form("message")="" then
		ErrCodes = ErrCodes & "<li>内容不能为空！</li><br>"
		FoundErr=True
	end if
	if request.form("view_lock")="" then
		ErrCodes = ErrCodes & "<li>请选择是否直接通过审核！</li><br>"
		FoundErr=True
	end if
	if request.form("view_IsVip")="" then
		ErrCodes = ErrCodes & "<li>请选择是否为ＶＩＰ章节！</li><br>"
		FoundErr=True
	end if
if len(request.form("subject"))>200 then
	ErrCodes = ErrCodes & "<li>章节名称大于所规定字数（限定200字之内）！</li><br>"
	FoundErr=True
end if
if len(request.form("message"))>viewsizeNum then
	ErrCodes = ErrCodes & "<li>内容大于所规定字数（限定"&viewsizeNum&"字之内）！</li><br>"
	FoundErr=True
end if
	vips=int(len(request.form("message"))/1000)
if FoundErr=True then
	Call ShowAdminErrMsg(ErrCodes,"javascript:history.go(-1)")
else
	set rs=server.CreateObject("ADODB.recordset")
	sql="select top 1 * from [list_view] where list_cookid="&c_id&" order by view_showid desc"
	rs.open sql,conn,1,3
	if rs.eof and rs.bof then
		view_showid=1
	else
		view_showid=rs("view_showid")+1
	end if
	rs.addnew
	rs("view_type")=GetTextFromHtml(trim(request.form("subject")))
	rs("view_size")=Len(trim(request.form("message")))
	rs("view_lock")=trim(request.form("view_lock"))
	rs("view_IsVip")=trim(request.form("view_IsVip"))
	rs("view_ok")=""
	rs("view_get")=1
	rs("view_showid")=view_showid
	rs("view_date")=now()
	rs("view_id")=b_id
	rs("list_cookid")=c_id
	rs("view_vips")=vips
	rs.update
	if IsSqlDataBase = 0 then
		view_size=rs("view_size")
		view_IsVip=rs("view_IsVip")
		id1=rs("id")
	end if
	rs.close
	if IsSqlDataBase = 1 then
	rs.open sql,conn,1,1
		view_size=rs("view_size")
		view_IsVip=rs("view_IsVip")
		id1=rs("id")
	rs.close
	end if
	set rs=nothing
	'处理上传文件开始
	if request.form("attach")<>"" then
		attachArray=Split(request.form("attach"),";")
		For i1=0 To Ubound(attachArray)-1
			if Instr(request.form("message"),attachArray(i1))> 0 then
				attachid=CheckSql(Replace(Replace(attachArray(i1),"[attach]",""),"[/attach]",""))
				CheckSqlnum(attachid)
				conn.execute ("update [filetest] set fileurl_fileID="&ID1&" where id="&attachid)
			end if
		Next
	end if
	'处理上传文件结束
	'处理远程获取文件开始
	if request.form("downpic")=1 then
		viewCont=Getimgs(request.form("message"),"管理员："&request.cookies("CnendWeb")("admininfo_loginname"),SiteSystemPath&"Bookview/",1,ID1)
	else
		viewCont=request.form("message")
	end if
	'处理远程获取文件结束
	'章节内容入库开始
	if SaveToTXT=1 and view_IsVip=0 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_SaveToTXT=0,view_ok2='"&htmlencode(viewCont)&"' where id="&id1)
		Else
			file=server.mappath( SiteSystemPath & BookViewPath&id1&".TXT" )
			view_view_ok="document.write('"
			view_view_ok=view_view_ok&""&htmlencode(viewCont)&""
			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
			view_ok="/"&BookViewPath&id1&".TXT"
			view_ok2="&nbsp;"
			conn.execute ("update [list_view] set view_SaveToTXT=1,view_ok='"&view_ok&"',view_ok2='"&view_ok2&"' where id="&id1)
		end if
	else
		conn.execute ("update [list_view] set view_SaveToTXT=0,view_ok2='"&htmlencode(viewCont)&"' where id="&id1)
	end if
	'章节内容入库结束

	set rsc=server.CreateObject("adodb.recordset")
	sqlc="select list_cookname from [list_cook] where list_cookid="&c_id
	rsc.open sqlc,conn,1,1
		if rsc.eof then
			list_cookname="正文"
		else
			list_cookname=rsc("list_cookname")
		end if
	rsc.close
	set rsc=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(viewCont),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
	if makehtml=1 and view_IsVip=0 then
		response.write "<iframe src='admin_makeHTMLzhang.asp?Tempid="&Tempid&"&b_id="&b_id&"&c_id="&c_id&"' width=100% height=15 border=0 vspace=0 hspace=0 marginwidth=0 marginheight=0 framespacing=0 frameborder=0 scrolling=no></iframe>"
		MakeViewHtml(id1)
		MakeindexHtml(b_id)
	end if
	if makeJS=1 then
		if view_IsVip=0 then
			temzxgx(zxgxNum)
		else
			temvipzxgx(vipzxgxNum)
		end if
	end if
	call connclose() 
	Call ShowAdminSuccessMsg("<li>作品章节添加成功！</li><br>","admin_book.asp?info=jielist&b_id="&b_id&"&c_id="&c_id&"&page="&Page&"")
end if
end sub
'——————————
sub book_jie_edit()
id=request.querystring("id")
b_id=CheckSql(request.querystring("b_id"))
CheckSqlnum(b_id)
b_id=int(b_id)
c_id=CheckSql(request.querystring("c_id"))
CheckSqlnum(c_id)
c_id=int(c_id)

	if request.form("subject")="" then
		ErrCodes = ErrCodes & "<li>名称不能为空！</li><br>"
		FoundErr=True
	end if
	if request.form("message")="" then
		ErrCodes = ErrCodes & "<li>内容不能为空！</li><br>"
		FoundErr=True
	end if
	if request.form("view_lock")="" then
		ErrCodes = ErrCodes & "<li>请选择是否直接通过审核！</li><br>"
		FoundErr=True
	end if
	if request.form("view_IsVip")="" then
		ErrCodes = ErrCodes & "<li>请选择是否为ＶＩＰ章节！</li><br>"
		FoundErr=True
	end if
if len(request.form("subject"))>200 then
	ErrCodes = ErrCodes & "<li>章节名称大于所规定字数（限定200字之内）！</li><br>"
	FoundErr=True
end if
if len(request.form("message"))>viewsizeNum then
	ErrCodes = ErrCodes & "<li>内容大于所规定字数（限定"&viewsizeNum&"字之内）！</li><br>"
	FoundErr=True
end if
	vips=int(len(request.form("message"))/1000)
if FoundErr=True then
	Call ShowAdminErrMsg(ErrCodes,"javascript:history.go(-1)")
else
	set rs=server.createobject("adodb.recordset")
	sql="select * from [list_view] where id="&id
	rs.open sql,conn,1,3
	
		rs("view_type")=GetTextFromHtml(trim(request.form("subject")))
		rs("view_size")=Len(trim(request.form("message")))
		rs("view_lock")=trim(request.form("view_lock"))
		rs("view_IsVip")=trim(request.form("view_IsVip"))
		rs("view_vips")=vips
		rs("view_ok")=""
		rs("view_get")=1
		rs("view_date")=Now()
		rs.update
		if IsSqlDataBase = 0 then
			view_size=rs("view_size")
			view_IsVip=rs("view_IsVip")
			id1=rs("id")
		end if
		rs.close
		if IsSqlDataBase = 1 then
		rs.open sql,conn,1,1
			view_size=rs("view_size")
			view_IsVip=rs("view_IsVip")
			id1=rs("id")
		rs.close
		end if
	set rs=nothing
	'处理上传文件开始
	if request.form("attach")<>"" then
	attachArray=Split(request.form("attach"),";")
		For i1=0 To Ubound(attachArray)-1
			if Instr(request.form("message"),attachArray(i1))> 0 then
				attachid=CheckSql(Replace(Replace(attachArray(i1),"[attach]",""),"[/attach]",""))
				CheckSqlnum(attachid)
				conn.execute ("update [filetest] set fileurl_fileID="&ID1&" where id="&attachid)
			end if
		Next
	end if
	'处理上传文件结束
	'处理远程获取文件开始
	if request.form("downpic")=1 then
		viewCont=Getimgs(request.form("message"),"管理员："&request.cookies("CnendWeb")("admininfo_loginname"),SiteSystemPath&"Bookview/",1,ID1)
	else
		viewCont=request.form("message")
	end if
	'处理远程获取文件结束
	'处理章节中包含的上传附件