admin_loade_cookid.asp

小说站源代码文件

								 											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
																				If ContType2=3 Then
																				Content="<IMG src="&Content&">"
																			End If
								 										End If
																		If FoundErr=True Then
																			Call WriteErrMsg(ErrMsg)
																			FoundErr=False
																			ErrMsg=""
																			rsv.addnew
																			rsv("list_cookid") = list_cookid
																			rsv("view_id") = book_id
																			rsv("view_type") = Title
																			rsv("view_ok") = ReadBook_Path
																			rsv("view_size") = 0
																			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
																			set rsv=nothing
																		Else
				 															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 newview<>"" then
																				newview=newview&"||"&id1
																			else
																				newview=id1
																			end if
				 															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>"
				 														End If
							 										Else
							 											id1=rsv("id")
							 											if flushbook = 1 then
									 										If Fastbook<>1 then
								 												If ContType2=2 Then
								 													Content=DefiniteUrl(Content,NewsArray(Viewi))
								 													ReadBook_Path=Content
								 													if CsType2=1 then
								 														CsType2=true
								 													elseif CsType2=0 then
								 														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
								 														FoundErr=True
						 																ErrMsg=ErrMsg & "<br><li>在截取正文的时候发生错误：<a href=" & ViewUrl & " target=_blank><font color='red'>" & ViewUrl & "</font></a><br>"
								 													End If
								 												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
																			    If ContType2=3 Then
																			    	Content="<IMG src="&Content&">"
																			    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
																					If ContType2=3 Then
																					Content="<IMG src="&Content&">"
																				End If
									 										End If
																			If FoundErr=True Then
																				Call WriteErrMsg(ErrMsg)
																				FoundErr=False
																				ErrMsg=""
																			Else
								 												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)