admin_itemsloadbooks.asp

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

	 												end if
	 												if ToType1=1 then
	 												 	ToType1=true
	 												elseif ToType1=0 then
	 												 	ToType1=False
	 												end if
	 												Title=GetBody(Title,TsString1,ToString1,TsType1,ToType1)
	 											end if
	 											If Title="$False$" Then
	 												FoundErr=True
	 												ErrMsg=ErrMsg & "<br><li>在截取标题的时候发生错误：" & NewsArray(Viewi) & "</li>"
	 											End If
	 										Elseif TitleTypes=1 Then
	 											Title=TitleTest(Viewi)
	 										Else
	 											FoundErr=True
	 											ErrMsg=ErrMsg & "<br><li>参数错误，请从有效链接进入</li>" 
	 										End If

'-----------------------------------------------------------------------------------------
'章节内容入库开始
'-----------------------------------------------------------------------------------------
	 										set rsc=server.createobject("adodb.recordset")
	 										sqlc="select top 1 list_cookid,list_cookname,classid,list_bookid,cook_viewid from [list_cook] where list_bookid="&book_id&" and list_cookname='"&cook&"'"
	 										rsc.open sqlc,conn,1,3
	 										if rsc.bof and rsc.eof then
	 											set rsc1=server.createobject("adodb.recordset")
	 											sqlc1="select top 1 cook_viewid from [list_cook] where list_bookid="&book_id&" order by cook_viewid desc"
	 											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
	 											rsc.addnew
	 											rsc("list_cookname")=cook
	 											rsc("classid") = b_lei
	 											rsc("list_bookid")=book_id
	 											rsc("cook_viewid") = c_viewid
	 											rsc.update
	 											response.Write "<br><font color='blue'><B>新卷集：</B></font> "&cook&" → <font color='blue'>添加成功</font><br>"
	 											rsc.close
	 											rsc.open sqlc,conn,1,1
	 												list_cookid=rsc("list_cookid")
	 											rsc.close
	 										else
	 											list_cookid=rsc("list_cookid")
	 											rsc.close
	 										end if
	 										set rsc=nothing
	 										set rsv=server.createobject("adodb.recordset")
	 										sqlv="select top 1 id,list_cookid,view_id,view_type,view_ok,view_ok2,view_size,view_get,view_SaveToTXT,view_lock,view_userid,view_date,view_showid,view_isvip,view_vips,ItemId from [list_view] where view_type='"&Title&"' and list_cookid="&list_cookid&" and view_id="&book_id&" order by id desc"
	 										rsv.open sqlv,conn,1,3
	 										if rsv.bof and rsv.eof then
	 											set rsv1=server.createobject("adodb.recordset")
	 											sqlv1="select top 1 view_showid from [list_view] where list_cookid="&list_cookid&" order by view_showid desc"
	 											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
	 											rsv.addnew
	 											rsv("list_cookid") = list_cookid
	 											rsv("view_id") = book_id
	 											rsv("view_type") = Title
	 											rsv("view_ok") = ReadBook_Path
	 											rsv("view_size") = Len(trim(content))
	 											rsv("view_get") = 0
	 											rsv("view_date") = now()
	 											rsv("view_showid") = a_viewid
	 											rsv("ItemId") = ItemId
	 											rsv("view_SaveToTXT")=0
	 											rsv("view_isvip")=0
	 											rsv("view_vips")=0
	 											rsv("view_userid")=0
	 											rsv("view_lock")=0
	 											rsv.update
	 											if IsSqlDataBase = 0 then
	 												id1=rsv("id")
	 												b_size=b_size+Len(trim(content))
	 											end if
	 											response.Write "<font color=blue>新章节：</font> "&Title&" →"
	 											rsv.close
	 											if IsSqlDataBase = 1 then
	 												rsv.open sqlv,conn,1,1
	 													id1=rsv("id")
	 													b_size=b_size+Len(trim(content))
	 												rsv.close
	 											end if
	 											set rsv=nothing
	 											set rsv=server.createobject("adodb.recordset")
	 											sqlv="select top 1 id,view_ok,view_ok2,view_get,view_SaveToTXT from [list_view] Where id="&id1
	 											rsv.open sqlv,conn,1,3
	 											If Content<>"$False$" Then
													picViewPath=SiteSystemPath&"Bookview/"&book_id&"/"
	 												NewviewUrl=NewsArray(Viewi)
													If IsSaveFiles=1 then
														Content=Getimages(Content,"管理员："&request.cookies("CnendWeb")("admininfo_loginname"),picViewPath,1,ID1,True,NewviewUrl)
													Else
	 													Content=Getimages(Content,"管理员："&request.cookies("CnendWeb")("admininfo_loginname"),picViewPath,1,ID1,False,NewviewUrl)				  
													End If
	 											End If
	 											If Fastbook<>1 then
	 												if SaveToTXT=1 then
	 													BookViewPath="HTML/"&book_id&"/"
	 													If Not CreateMultiFolder(SiteSystemPath & BookViewPath) Then
	 														Response.Write "<br><font color='red'><B>创建TXT存放目录失败，可能是由于服务器限制！！</B></font>"&SiteSystemPath & BookViewPath&"<br>"
	 														rsv("view_SaveToTXT") = 0
	 														rsv("view_ok2")=unhtmllist(content)
	 														rsv.update
	 													else
	 														file=server.mappath( SiteSystemPath & BookViewPath & id1 & ".TXT" )
	 														view_view_ok="document.write('"
	 														view_view_ok=view_view_ok&""&unhtmllist(content)&""
	 														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
	 														rsv("view_get") = 1
	 														rsv("view_SaveToTXT") = 1
	 														rsv("view_ok")="/" & BookViewPath & id1 & ".TXT"
	 														rsv("view_ok2")=""
	 														rsv.update
	 													end if
	 												else
	 													rsv("view_get") = 1
	 													rsv("view_SaveToTXT")= 0 
	 													rsv("view_ok2")=unhtmllist(content)
	 												rsv.update
	 												end if
	 											else
	 												rsv("view_get") = 0
	 												rsv("view_SaveToTXT")= 0 
	 												rsv("view_ok2")=""
	 												rsv.update
	 											end if
	 											rsv.close
	 											response.Write "<font color=blue>√</font><br>"
	 											if makebookHTML=1 then
	 												MakeViewHtml(id1)
	 											end if
	 										Else
	 											id1=rsv("id")
	 											if flushbook = 1 then
	 												conn.execute ("update [filetest] set fileurl_fileID=0 where fileurl_class=1 and fileurl_fileID="&id1)
													rsv("view_type") = Title
													rsv("view_ok") = ReadBook_Path
													rsv("view_size") = Len(trim(content))
													rsv("view_get") = 0
													rsv("ItemId") = ItemId
													rsv("view_SaveToTXT")=0
													rsv.update
													response.Write "<font color=blue>已有章节：</font> "&Title&" → 强制更新 "
													rsv.close
													set rsv=nothing
		 											set rsv=server.createobject("adodb.recordset")
		 											sqlv="select top 1 id,view_ok,view_ok2,view_get,view_SaveToTXT from [list_view] Where id="&id1
		 											rsv.open sqlv,conn,1,3
		 											If Content<>"$False$" Then
														picViewPath=SiteSystemPath&"Bookview/"&book_id&"/"
		 												NewviewUrl=NewsArray(Viewi)
														If IsSaveFiles=1 then
															Content=Getimages(Content,"管理员："&request.cookies("CnendWeb")("admininfo_loginname"),picViewPath,1,ID1,True,NewviewUrl)
														Else
		 													Content=Getimages(Content,"管理员："&request.cookies("CnendWeb")("admininfo_loginname"),picViewPath,1,ID1,False,NewviewUrl)				  
														End If
		 											End If
		 											If Fastbook<>1 then
		 												if SaveToTXT=1 then
		 													BookViewPath="HTML/"&book_id&"/"
		 													If Not CreateMultiFolder(SiteSystemPath & BookViewPath) Then
		 														Response.Write "<br><font color='red'><B>创建TXT存放目录失败，可能是由于服务器限制！！</B></font>"&SiteSystemPath & BookViewPath&"<br>"
		 														rsv("view_SaveToTXT") = 0
		 														rsv("view_ok2")=unhtmllist(content)
		 														rsv.update
		 													else
		 														file=server.mappath( SiteSystemPath & BookViewPath & id1 & ".TXT" )
		 														view_view_ok="document.write('"
		 														view_view_ok=view_view_ok&""&unhtmllist(content)&""
		 														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
		 														rsv("view_get") = 1
		 														rsv("view_SaveToTXT") = 1
		 														rsv("view_ok")="/" & BookViewPath & id1 & ".TXT"
		 														rsv("view_ok2")=""
		 														rsv.update
		 													end if
		 												else
		 													rsv("view_get") = 1
		 													rsv("view_SaveToTXT")= 0 
		 													rsv("view_ok2")=unhtmllist(content)
		 													rsv.update
		 												end if
		 											else
		 												rsv("view_get") = 0
		 												rsv("view_SaveToTXT")= 0 
		 												rsv("view_ok2")=""
		 												rsv.update
		 											end if
		 											rsv.close
		 											response.Write "<font color=blue>√</font><br>"
		 											if makebookHTML=1 then
		 												MakeViewHtml(id1)
		 											end if
	 											else
													response.Write ""&Title&" → <font color=blue>已采集</font>  ↓<br>"
												end if
											End if
	 										set rsv=nothing
'-----------------------------------------------------------------------------------------------------------------------------------------
	 										If NewsArray(viewi)=NewsArray(Ubound(NewsArray)) Then
	 											newviewname=cook&"　"&Title
	 											if IsSqlDataBase = 0 then
	 												conn.execute ("update [list_book] set newviewid="&id1&",newviewname='"&newviewname&"',vip_bookid="&viewi&",list_gxdate=Now(),list_size="&b_size&" where id="&book_id)
	 											elseif IsSqlDataBase = 1 then
	 												conn.execute ("update [list_book] set newviewid="&id1&",newviewname='"&newviewname&"',vip_bookid="&viewi&",list_gxdate=getdate(),list_size="&b_size&" where id="&book_id)
	 											end if
	 										End If
'-----------------------------------------------------------------------------------------------------------------------------------------
'-----------------------------------------------------------------------------------------
'章节内容入库结束
'-----------------------------------------------------------------------------------------
	 									End If
	 								End If
	 								Next
									End If 
								End If
'-----------------------------------------------------------------------------------------
'目录页面截取到的是章节ID结束
'-----------------------------------------------------------------------------------------
							Elseif readType=1 then
'-----------------------------------------------------------------------------------------
'目录页面截取到的是分卷ID开始
'-----------------------------------------------------------------------------------------
								if lostbook = 1 Then
									response.write "<table width=100% border=1 align=center cellpadding=0 cellspacing=0 bordercolor=#0650D2 bordercolordark=#FFFFFF>"
									response.Write "<tr><td height=25 align=center>本作品不支持从最后采集参数向后采集，故从头开始采集章节．</td></tr></table>"
								end if
								If CookTypes=1 then
									if cosType=1 then
							     		cosType=true
							     	elseif cosType=0 then
							     		cosType=False
							     	end if
							    	if cooType=1 then
							     		cooType=true
							      	elseif cooType=0 then
							      		cooType=False
							      	end if
									CooknameCode=GetArray(ListCode,cosString,cooString,cosType,cooType)
									if CookNameCode<>"$False$" Then
										CookName=Split(CookNameCode,"$Array$")
										For Testi=0 to Ubound(CookName)
											If cookType1=1 Then
										      if cosType1=1 then
										    	cosType1=true
										      elseif cosType1=0 then
										    	cosType1=False
										      end if
										      if cooType1=1 then
										    	cooType1=true
										      elseif cooType1=0 then
										    	cooType1=False
										      end if
												CookName(Testi)=GetBody(CookName(Testi),cosString1,cooString1,cosType1,cooType1)
												If CookName(Testi)="$False$" Then
													FoundErr=True
													ErrMsg=ErrMsg & "<br><li>在修正分卷标题时出错。</li>"
												End if
											End if
										Next
									Else
										FoundErr=True
										ErrMsg=ErrMsg & "<br><li>在获取分卷标题时出错。</li>"
									end if
								End If
								if rHsType=1 then
									rHsType=true
								elseif rHsType=0 then
									rHsType=False
								end if
								if rHoType=1 then
									rHoType=true
								elseif rHoType=0 then
									rHoType=False
								end if
								CookArrayCode=GetArray(ListCode,rHsString,rHoString,rHsType,rHoType)
								If CookArrayCode="$False$" Then
									response.Write "<br><li><font color='red'>在获取目录页面连接时出错：<a target=_blank href=" & ListUrl & "><font color='red'>" & ListUrl & "</font></a></font></li><br>"
								Else
									CookArray=Split(CookArrayCode,"$Array$")
									For Testi=0 To Ubound(CookArray)
										If rHUrlType1=1 Then