admin_works.asp

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

	conn.execute "delete from [list_book] where list_lei in ("&list_Classid&") "
end if
rscob.close
set rscob=nothing
		Success = Success & "<li> 作品资料静态页面已清理！</li><br>"
		Success = Success & "<li> 作品全文静态页面已清理！</li><br>"
		Success = Success & "<li> 作品目录静态页面已清理！</li><br>"
if makeJS=1 then
makeshowhots()
makeshowhits()
end if
call connclose() 
Call ShowAdminSuccessMsg(Success & "<li> 长篇作品小类删除操作完成！</li><br>","admin_bookclass.asp?info=listbclass&id="&id&"")
FoundErr=True

end sub
'——————————
sub bclass()
oldclass=request("oldclass")
CheckSqlnum(oldclass)
oldclass=int(oldclass)
newclass=request("newclass")
CheckSqlnum(newclass)
newclass=int(newclass)
if oldclass="" or newclass="" or oldclass=0 or newclass=0 then
	ErrCodes = ErrCodes & "<li>您需要选择原分类和目标分类，不能选择大类！</li><br>"
	FoundErr=True
end if
if newclass=oldclass then
	ErrCodes = ErrCodes & "<li>原分类和目标分类不能相同！</li><br>"
	FoundErr=True
end if
if FoundErr=True then
	Call ShowAdminErrMsg(ErrCodes,"javascript:history.go(-1)")
else
	set rs2=server.createobject("adodb.recordset")
	sql2="select top 1 list_typeID from [list_Class] where list_classid="&newclass
	rs2.open sql2,conn,1,1
	if rs2.eof then
		typeid=0
	else
		typeid=rs2("list_typeID")
	end if
	rs2.close
	set rs2=nothing
	conn.execute ("update [list_book] set list_lei="&newclass&",list_class="&typeid&" where list_lei="&oldclass)
	conn.execute ("update [list_cook] set classid="&newclass&" where classid="&oldclass)
call connclose() 
Call ShowAdminSuccessMsg("<li> 合并长篇作品分类　操作完成！</li><br>","admin_bookclass.asp?info=bclass")
end if

end sub
'——————————
sub ar_class()
if request.form("classname")="" then
	ErrCodes = ErrCodes & "<li>请添写短篇作品分类名称！</li><br>"
	FoundErr=True
	end if
if FoundErr=True then
	Call ShowAdminErrMsg(ErrCodes,"javascript:history.go(-1)")
else
	set rs=server.createobject("adodb.recordset")
	sql="select * from [Ar_class]"
	rs.open sql,conn,1,3
		rs.addnew
		rs("classname")=GetTextFromHtml(trim(request.form("classname")))
		rs("classinfo")=GetTextFrHtml(htmlencode(request.form("classinfo")))
		rs("classtime")=Now()
		rs.update
	rs.close
	set rs=nothing
	if makeJS=1 then
		temArticleclass()
		temArticleclass1()
	end if
call connclose() 
Call ShowAdminSuccessMsg("<li>短篇作品分类添加成功！</li><br>","admin_Article.asp?info=classlist")
end if
end sub
'——————————
sub ar_class_edit()
classid=CheckSql(request.querystring("classid"))
CheckSqlnum(classid)
classid=int(classid)
if request.form("classname")="" then
	ErrCodes = ErrCodes & "<li>短篇作品分类名称不能为空！</li><br>"
	FoundErr=True
end if
if FoundErr=True then
	Call ShowAdminErrMsg(ErrCodes,"javascript:history.go(-1)")
else
	set rs=server.createobject("adodb.recordset")
	sql="select * from [Ar_class] where id="&classid
	rs.open sql,conn,1,3
		rs("classname")=GetTextFromHtml(trim(request.form("classname")))
		rs("classinfo")=GetTextFrHtml(htmlencode(request.form("classinfo")))
		rs.update
	rs.close
	set rs=nothing
	if makeJS=1 then
		temArticleclass()
		temArticleclass1()
	end if
	call connclose() 
	Call ShowAdminSuccessMsg("<li>短篇作品分类修改成功！</li><br>","admin_Article.asp?info=classlist")
end if
end sub
'——————————
sub ar_class_del()
id=CheckSql(request.querystring("id"))
CheckSqlnum(id)
id=int(id)
set rs=server.CreateObject("ADODB.recordset")
sql="select Ar_userid from [Article] where Ar_class="&id&""
rs.open sql,conn,1,1
if not(rs.eof and rs.bof) then
do while not rs.eof
	userid=rs("Ar_userid")
	set rsu=server.CreateObject("ADODB.recordset")
	sqlu="select UserGrade from [userinfo] where ID="&userid&""
	rsu.open sqlu,conn,1,3
	if not(rsu.eof and rsu.bof) then
		rsu("UserGrade")=rsu("UserGrade")-1
		rsu.update
		rsu.close
	set rsu=nothing
	end if
	set rsfile=server.createobject("adodb.recordset") 
	strSQL ="select fileurl_name,fileurl_path from [filetest] where fileurl_class=2 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&""
rs.movenext
loop

conn.execute "delete from [Article] where Ar_class in ("&id&") "
		Success = Success & "<li> 短篇文章附件已全部清理！</li><br>"
rs.close
set rs=nothing
end if
conn.execute "delete from [Ar_class] where id in ("&id&") "
if makeJS=1 then
temArticleclass()
temArticleclass1()
end if
call connclose() 
Call ShowAdminSuccessMsg(Success & "<li>短篇作品分类删除成功！</li><br>","admin_Article.asp?info=classlist")
end sub
'——————————
sub aclass()
oldclass=CheckSql(request("oldclass"))
CheckSqlnum(oldclass)
oldclass=int(oldclass)
newclass=CheckSql(request("newclass"))
CheckSqlnum(newclass)
newclass=int(newclass)
if oldclass="" or newclass="" then
	ErrCodes = ErrCodes & "<li>您需要选择原分类和目标分类！</li><br>"
	FoundErr=True
end if
if newclass=oldclass then
	ErrCodes = ErrCodes & "<li>原分类和目标分类不能相同！</li><br>"
	FoundErr=True
end if
if FoundErr=True then
	Call ShowAdminErrMsg(ErrCodes,"javascript:history.go(-1)")
else
	conn.execute ("update [Article] set Ar_class="&newclass&" where Ar_class="&oldclass)
call connclose() 
Call ShowAdminSuccessMsg("<li> 合并短篇作品分类　操作完成！</li><br>","admin_Article.asp?info=classaclass")
end if

end sub

sub article_add()
if request.form("Ar_class")="" then
	ErrCodes = ErrCodes & "<li>类型不能为空!</li><br>"
	FoundErr=True
end if
if request.form("Ar_key")="" then
	ErrCodes = ErrCodes & "<li>关键字不能为空!</li><br>"
	FoundErr=True
end if
if request.form("subject")="" then
	ErrCodes = ErrCodes & "<li>名称不能为空!</li><br>"
	FoundErr=True
end if
if request.form("Ar_username")="" 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 len(request.form("subject"))>200 then
	ErrCodes = ErrCodes & "<li>您发表的短篇作品标题大于所规定字数（限定200字之内）！</li><br>"
	FoundErr=True
end if
if len(request.form("message"))>ArticlesizeNum then
	ErrCodes = ErrCodes & "<li>您发表的短篇作品内容大于所规定字数（限定"&ArticlesizeNum&"字之内）！</li><br>"
	FoundErr=True
end if
if FoundErr=True then
	Call ShowAdminErrMsg(ErrCodes,"javascript:history.go(-1)")
else
	set rs4=server.CreateObject("ADODB.recordset")
	sql4="select * from [Article] where Ar_name='"&GetTextFromHtml(request.form("subject"))&"' order by Ar_id desc"
	rs4.open sql4,conn,1,3
		rs4.addnew
		rs4("Ar_name")=GetTextFromHtml(trim(request.form("subject")))
		rs4("Ar_username")=GetTextFromHtml(trim(request.form("Ar_username")))
		rs4("Ar_Content")=htmlencode(request.form("message"))
		rs4("Ar_key")=GetTextFromHtml(trim(request.form("Ar_key")))
		rs4("Ar_class")=request.form("Ar_class")
		rs4("Ar_size")=Len(request.form("message"))
		rs4("Ar_data")=now()
		rs4("Ar_lock")=request.form("Ar_lock")
		rs4.update
		if IsSqlDataBase = 0 then
			ID=rs4("Ar_id")
		end if
		rs4.close
		if IsSqlDataBase = 1 then
			rs4.open sql4,conn,1,1
			ID=rs4("Ar_id")
		rs4.close
		end if
	set rs4=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="&ID&" 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&"articleview/",2,ID)
		conn.execute ("update [Article] set Ar_Content='"&htmlencode(viewCont)&"' where id="&id)
	end if
	'处理远程获取文件结束
call connclose() 
Call ShowAdminSuccessMsg("<li>短篇作品添加成功！</li><br>","admin_article.asp?info=list&cndb=all")
end if
end sub
'——————————
sub article_edit()
id=CheckSql(request.querystring("id"))
CheckSqlnum(id)
id=int(id)
urltype=request.querystring("urltype")
page=request.querystring("page")

if request.form("Ar_class")="" then
	ErrCodes = ErrCodes & "<li>类型不能为空！</li><br>"
	FoundErr=True
end if
if request.form("Ar_key")="" then
	ErrCodes = ErrCodes & "<li>关键字不能为空！</li><br>"
	FoundErr=True
end if
if request.form("subject")="" then
	ErrCodes = ErrCodes & "<li>名称不能为空！</li><br>"
	FoundErr=True
end if
if request.form("Ar_username")="" 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 len(request.form("subject"))>200 then
	ErrCodes = ErrCodes & "<li>您发表的短篇作品标题大于所规定字数（限定200字之内）！</li><br>"
	FoundErr=True
end if
if len(request.form("message"))>ArticlesizeNum then
	ErrCodes = ErrCodes & "<li>您发表的短篇作品内容大于所规定字数（限定"&ArticlesizeNum&"字之内）！</li><br>"
	FoundErr=True
end if
if FoundErr=True then
	Call ShowAdminErrMsg(ErrCodes,"javascript:history.go(-1)")
else
	set rs4=server.CreateObject("ADODB.recordset")
	sql4="select * from [Article] where Ar_id="&id&""
	rs4.open sql4,conn,1,3

		rs4("Ar_name")=GetTextFromHtml(trim(request.form("subject")))
		rs4("Ar_username")=GetTextFromHtml(trim(request.form("Ar_username")))
		rs4("Ar_key")=GetTextFromHtml(trim(request.form("Ar_key")))
		rs4("Ar_Content")=htmlencode(request.form("message"))
		rs4("Ar_size")=Len(request.form("message"))
		rs4("Ar_class")=request.form("Ar_class")
		rs4("Ar_lock")=request.form("Ar_lock")
		rs4("Ar_data")=now()
		rs4.update
		if IsSqlDataBase = 0 then
			ID=rs4("Ar_id")
		end if
		rs4.close
		if IsSqlDataBase = 1 then
			rs4.open sql4,conn,1,1
			ID=rs4("Ar_id")
			rs4.close
		end if
	set rs4=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="&ID&" 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&"articleview/",2,ID)
		conn.execute ("update [Article] set Ar_Content='"&htmlencode(viewCont)&"' where id="&id)
	end if
	'处理远程获取文件结束
	'处理文章中包含的上传附件开始
	nolinkfile=""
	set rs=server.createobject("adodb.recordset")
	sql="select id from [filetest] where fileurl_class=2 and fileurl_fileID="&ID&" order by id desc"
	rs.open sql,conn,1,3
	if rs.eof and rs.bof then
	else
		do while not rs.eof
			attachs="[attachimg]attachment.asp?id="&rs("id")&"[/attachimg]"
			attachs1="[attach]"&rs("id")&"[/attach]"
			if Instr(viewCont,attachs)< 1 then
				nolinkfile=nolinkfile&"||"&rs("id")
			end if
			if Instr(viewCont,attachs1)< 1 then
				nolinkfile=nolinkfile&"||"&rs("id")
			end if
		Rs.MoveNext
		Loop
	end if
	Rs.Close
	Set  Rs=Nothing
	if nolinkfile<>"" then
		arrnolink=split(nolinkfile,"||")
		for i=1 to ubound(arrnolink)
			conn.execute ("update [filetest] set fileurl_fileID=0 where id="&arrnolink(i))
		next
	end if
	'处理文章中包含的上传附件结束
call connclose() 
if urltype="list" then
	cndb=request.querystring("cndb")
	if cndb="" then
		cndb="all"
	end if
	Call ShowAdminSuccessMsg("<li>短篇作品修改成功！</li><br>","admin_article.asp?info=list&cndb="&cndb&"&page="&page&"")
elseif urltype="search" then
	key_keyword=request.querystring("key_keyword")
	key_type=request.querystring("key_type")
	Call ShowAdminSuccessMsg("<li>短篇作品修改成功！</li><br>","admin_booksearch.asp?key_type="&key_type&"&key_keyword="&key_keyword&"&page="&page&"")
else
	Call ShowAdminSuccessMsg("<li>短篇作品修改成功！</li><br>","admin_article.asp?info=list&cndb=all&page="&page&"")
end if
end if
end sub
'——————————
sub article_del()
id=request.querystring("id")
Ar_id=CheckSql(request.querystring("Ar_id"))
CheckSqlnum(Ar_id)
Ar_id=int(Ar_id)
userid=CheckSql(request.querystring("userid"))
CheckSqlnum(userid)
userid=int(userid)
urltype=request.querystring("urltype")
page=request.querystring("page")
set rsu=server.CreateObject("ADODB.recordset")
sqlu="select UserGrade from [userinfo] where ID="&userid&""
rsu.open sqlu,conn,1,3