admin_itemgxbook.asp

小说站源代码文件

	 														CsType2=False
	 													end if
	 													if CoType2=1 then
	 														CoType2=true
	 													elseif CoType2=0 then
	 														CoType2=False
	 													end if
	 													ViewUrl=Content
	 													ContentCode=GetHttpPage(ViewUrl,EquivType)
	 													Content=GetBody(ContentCode,CsString2,CoString2,CsType2,CoType2)
	 													If Content="$False$" Then
	 														response.Write		"<br><li>在截取正文的时候发生错误：<a href=" & ViewUrl & " target=_blank><font color='red'>" & ViewUrl & "</font></a><br>"
	 													End If
	 												End If
												    If ContType2=3 Then
												    	Content="<IMG src="&Content&">"
												    End If
	 												Set Rs=server.CreateObject("adodb.recordset")
	 												Sql="Select JDTHType1,JDTHType2,JDTHType3,JDTH1sStr,JDTH2sStr,JDTH3sStr,JDTH1oStr,JDTH2oStr,JDTH3oStr,GJTHType1,GJTHType2,GJTHType3,GJTH1sStr,GJTH2sStr,GJTH3sStr,GJTH1oStr,GJTH2oStr,GJTH3oStr,GJTH1cStr,GJTH2cStr,GJTH3cStr from [Item] Where ItemID=" & ItemID
	 												Rs.Open Sql,ConnItem,1,1
	 												If Rs.Eof And Rs.Bof  Then
	 												Else
	 													JDTHType1=Rs("JDTHType1")
	 													JDTHType2=Rs("JDTHType2")
	 													JDTHType3=Rs("JDTHType3")
	 													JDTH1sStr=Rs("JDTH1sStr")
	 													JDTH1oStr=Rs("JDTH1oStr")
	 													JDTH2sStr=Rs("JDTH2sStr")
	 													JDTH2oStr=Rs("JDTH2oStr")
	 													JDTH3sStr=Rs("JDTH3sStr")
	 													JDTH3oStr=Rs("JDTH3oStr")

	 													GJTHType1=Rs("GJTHType1")
	 													GJTHType2=Rs("GJTHType2")
	 													GJTHType3=Rs("GJTHType3")
	 													GJTH1sStr=Rs("GJTH1sStr")
	 													GJTH1oStr=Rs("GJTH1oStr")
	 													GJTH1cStr=Rs("GJTH1cStr")
	 													GJTH2sStr=Rs("GJTH2sStr")
	 													GJTH2oStr=Rs("GJTH2oStr")
	 													GJTH2cStr=Rs("GJTH2cStr")
	 													GJTH3sStr=Rs("GJTH3sStr")
	 													GJTH3oStr=Rs("GJTH3oStr")
	 													GJTH3cStr=Rs("GJTH3cStr")
	 													If JDTHType1=1 Then
	 														Content=Replace(Content,JDTH1sStr,JDTH1oStr)
	 													End If
	 													If JDTHType2=1 Then
	 														Content=Replace(Content,JDTH2sStr,JDTH2oStr)
	 													End If
	 													If JDTHType3=1 Then
	 														Content=Replace(Content,JDTH3sStr,JDTH3oStr)
	 													End If
	 													If GJTHType1=1 Then
	 														ContentCode1=GetArray(Content,GJTH1sStr,GJTH1oStr,true,true)
	 														ContentArray1=Split(ContentCode1,"$Array$")
	 														For i1=0 To Ubound(ContentArray1)
	 															Content=Replace(Content,ContentArray1(i1),GJTH1cStr)
	 														Next
	 													End If
	 													If GJTHType2=1 Then
	 														ContentCode2=GetArray(Content,GJTH2sStr,GJTH2oStr,true,true)
	 														ContentArray2=Split(ContentCode2,"$Array$")
	 														For i2=0 To Ubound(ContentArray2)
	 															Content=Replace(Content,ContentArray2(i2),GJTH2cStr)
	 														Next
	 													End If
	 													If GJTHType3=1 Then
	 														ContentCode3=GetArray(Content,GJTH3sStr,GJTH3oStr,true,true)
	 														ContentArray3=Split(ContentCode3,"$Array$")
	 														For i3=0 To Ubound(ContentArray3)
	 															Content=Replace(Content,ContentArray3(i3),GJTH3cStr)
	 														Next
	 													End If
	 												End If
	 												Rs.close
	 												Set Rs=Nothing
	 											End If
											Else
	 											If ContType2=2 Then
	 												if CsType=1 then
	 													CsType=true
	 												elseif CsType=0 then
	 													CsType=False
	 												end if
	 												if CoType=1 then
	 													CoType=true
	 												elseif CoType=0 then
	 													CoType=False
	 												end if
	 												Content=GetBody(NewsCode,CsString,CoString,CsType,CoType)
	 												If ContType1=1 Then
	 													if CsType1=1 then
	 														CsType1=true
	 													elseif CsType1=0 then
	 														CsType1=False
	 													end if
	 													if CoType1=1 then
	 														CoType1=true
	 													elseif CoType1=0 then
	 														CoType1=False
	 													end if
	 													Content=GetBody(Content,CsString1,CoString1,CsType1,CoType1)
	 												End If
	 												ReadBook_Path=DefiniteUrl(Content,NewsArray(Viewi))
	 											End If
	 										End If
			
	 										If cookType=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
	 											cook=GetBody(NewsCode,cosString,cooString,cosType,cooType)
	 											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
	 												cook=GetBody(cook,cosString1,cooString1,cosType1,cooType1)
	 											end if
	 										ElseIf cookType=2 Then
	 											cook=cookStr
	 										ElseIf cookType=0 Then
	 											cook="正文"
	 										End If
	 										If cook="$False$" or cook="" Then
	 											cook="正文"
	 										else
	 											cook=GetTextFromHtml(cook)
	 										End If
	 										If TitleTypes=0 Then
	 											if TsType=1 then
	 										  		TsType=true
	 										  	elseif TsType=0 then
	 										  		TsType=False
	 										  	end if
	 											if ToType=1 then
	 												ToType=true
	 											elseif ToType=0 then
	 												ToType=False
	 											end if
	 											Title=GetBody(NewsCode,TsString,ToString,TsType,ToType)
	 											If TitleType1=1 Then
	 												if TsType1=1 then
	 												 	TsType1=true
	 												elseif TsType1=0 then
	 												 	TsType1=False
	 												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>"
	 											Else
	 												Title=GetTextFromHtml(Title)
	 											End If
	 										Elseif TitleTypes=1 Then
	 											Title=GetTextFromHtml(TitleTest(Viewi))
	 										Else
	 											FoundErr=True
	 											ErrMsg=ErrMsg & "<br><li>参数错误，请从有效链接进入</li>" 
	 										End If

'-----------------------------------------------------------------------------------------
'章节内容入库开始
'-----------------------------------------------------------------------------------------
	 										set rsc1=server.createobject("adodb.recordset")
	 										if IsSqlDataBase = 2 then
	 											sqlc1="select cook_viewid from list_cook where list_bookid="&book_id&" order by cook_viewid desc limit 1"
	 										else
	 											sqlc1="select top 1 cook_viewid from [list_cook] where list_bookid="&book_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 rsc=server.createobject("adodb.recordset")
	 										if IsSqlDataBase = 2 then
	 											sqlc="select list_cookid,list_cookname,classid,list_bookid,cook_viewid from list_cook where list_bookid="&book_id&" and list_cookname='"&cook&"' limit 1"
	 										else
	 											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&"'"
	 										end if
	 										rsc.open sqlc,conn,1,3
	 										if rsc.bof and rsc.eof then
	 											rsc.addnew
	 											rsc("list_cookname")=cook
	 											rsc("classid") = classid
	 											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 rsv1=server.createobject("adodb.recordset")
	 										if IsSqlDataBase = 2 then
	 											sqlv1="select view_showid from list_view where list_cookid="&list_cookid&" order by view_showid desc limit 1"
	 										else
	 											sqlv1="select top 1 view_showid from [list_view] where list_cookid="&list_cookid&" 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 rsv=server.createobject("adodb.recordset")
	 										if IsSqlDataBase = 2 then
	 											sqlv="select 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 limit 1"
	 										else
	 											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"
	 										end if
	 										rsv.open sqlv,conn,1,3
	 										if rsv.bof and rsv.eof then
	 											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
	 											rsv.close
 												rsv.open sqlv,conn,1,1
 													id1=rsv("id")
 													b_size=b_size+Len(trim(content))
 												rsv.close
	 											set rsv=nothing
	 											response.Write "<font color=blue>新章 "&Viewi+1&"：</font> "&Title&" →"
	 											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>"
	 														conn.execute ("update list_view set view_get=1,view_SaveToTXT=0,view_ok2='"&unhtmllist(content)&"' where id="&id1)
	 													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
	 														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='"&unhtmllist(content)&"' where id="&id1)
	 												end if
	 											else
	 												conn.execute ("update list_view set view_get=0,view_SaveToTXT=0,view_ok2='' where id="&id1)
	 											end if
	 											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)
													conn.execute ("update list_view set view_type='"&Title&"',view_get=0,view_SaveToTXT=0,view_ok='"&ReadBook_Path&"',ItemId="&ItemId&",view_size="&Len(trim(Content))&" where id="&id1)
													response.Write "<font color=blue>已有章节 "&Viewi+1&"：</font> "&Title&" → 强制更新 "
		 											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>"
	 															conn.execute ("update list_view set view_get=1,view_SaveToTXT=0,view_ok2='"&unhtmllist(content)&"' where id="&id1)
		 													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&"');"