admin_itemloadbook.asp

小说站源代码文件

				B_Name=B_NameStr
			End If
			if B_Name = "" or B_Name="$False$" then
				ListlookCode=""
				response.Write  "<br><li><font color='red'>作品名称截取错误，采集已停止！~</font></li><br>"
				Response.end
			End If
			set rsbx=server.createobject("adodb.recordset")
			if IsSqlDataBase = 2 then
				sqlbx="select list_name from list_book where list_name='"&B_Name&"' limit 1"
			else
				sqlbx="select top 1 list_name from [list_book] where list_name='"&B_Name&"'"
			end if
			rsbx.open sqlbx,conn,1,1
			if not(rsbx.eof) then														'如果作品作品名称在本地数据库存在（重复采集）提示错误信息
				ListlookCode=""
				response.Write  "<br><li><font color='red'>作品《　"&b_name&"　》已经存在....跳过</font>　↓</li><br>"
				rsbx.close
				Set Rsbx=Nothing
			else
				rsbx.close
				Set Rsbx=Nothing
'----------------------------------------------------------------------------------------
				If FolderType=0 Then
					If B_readsType="" or B_readoType="" or B_readsString="" or B_readoString="" or FolderType1="" Then
						FoundErr=True
						ErrMsg=ErrMsg & "<br><li>作品目录连接参数错误</li>" 
					Else
						if B_readsType=1 then
							B_readsType=true
						elseif B_readsType=0 then
							B_readsType=False
						end if
						if B_readoType=1 then
							B_readoType=true
						elseif B_readoType=0 then
							B_readoType=False
						end if
						ListsUrl=GetBody(ListlookCode,B_readsString,B_readoString,B_readsType,B_readoType)
						if FolderType1=1 then
						 	if B_readsType1=1 then
						 		B_readsType1=true
						 	elseif B_readsType1=0 then
						 		B_readsType1=False
						 	end if
						 	if B_readoType1=1 then
						 		B_readoType1=true
						 	elseif B_readoType1=0 then
						 		B_readoType1=False
						 	end if
							ListsUrl=GetBody(ListsUrl,B_readsString1,B_readoString1,B_readsType1,B_readoType1)
						End If
						ListsUrl=DefiniteUrl(ListsUrl,ListUrl)
					End If
				ElseIf FolderType=1 then
					ListsUrl=Replace(ListStr,"{$Bl_id$}",bl_id)
				ElseIf FolderType=2 Then
					ListsUrl=ListUrl
				Else
					FoundErr=True
					ErrMsg=ErrMsg & "<br><li>作品目录连接参数错误</li>" 
				End If
'Response.Write ListsUrl
'----------------------------------------------------------------------------------------
				If B_AuthorType=0 Then
					if B_AsType=1 then
						B_AsType=true
					elseif B_AsType=0 then
						B_AsType=False
					end if
					if B_AoType=1 then
						B_AoType=true
					elseif B_AoType=0 then
						B_AoType=False
					end if
					B_Author=GetBody(ListlookCode,B_AsString,B_AoString,B_AsType,B_AoType)
					If B_AuthorType1=1 Then
						if B_AsType1=1 then
							B_AsType1=true
						elseif B_AsType1=0 then
							B_AsType1=False
						end if
						if B_AoType1=1 then
							B_AoType1=true
						elseif B_AoType1=0 then
							B_AoType1=False
						end if
						B_Author=GetBody(B_Author,B_AsString1,B_AoString1,B_AsType1,B_AoType1)
					End If
            		B_Author=GetTextFromHtml(B_Author)
				ElseIf B_AuthorType=2 Then
					B_Author=B_AuthorStr
				End If
				if B_Author = "" or B_Author="$False$" then
					B_Author = "采集作品"
				End If

				If B_LeiType=0 Then
					if B_LsType=1 then
						B_LsType=true
					elseif B_LsType=0 then
						B_LsType=False
					end if
					if B_LoType=1 then
						B_LoType=true
					elseif B_LoType=0 then
						B_LoType=False
					end if
					B_Lei=GetBody(ListlookCode,B_LsString,B_LoString,B_LsType,B_LoType)
					If B_LeiType1=1 Then
						if B_LsType1=1 then
							B_LsType1=true
						elseif B_LsType1=0 then
							B_LsType1=False
						end if
						if B_LoType1=1 then
							B_LoType1=true
						elseif B_LoType1=0 then
							B_LoType1=False
						end if
						B_Lei=GetBody(B_Lei,B_LsString1,B_LoString1,B_LsType1,B_LoType1)
					end if
            		B_Lei=GetTextFromHtml(B_Lei)
				ElseIf B_LeiType=2 Then
					B_Lei=B_LeiStr
				End If
				if B_Lei<>"" and B_Lei<>"$False$" then
					set rsco=server.createobject("adodb.recordset")
					sql="select classID,typeID from [classdo] where ItemID="&ItemID&" and cname='"&B_Lei&"'"
					rsco.open sql,connItem,1,1
					if rsco.eof and rsco.bof then
						set rsc=server.createobject("adodb.recordset")
						if IsSqlDataBase = 2 then
							sqlc="select list_classID,list_typeID from list_class where list_classname='"&B_Lei&"' limit 1"
						else
							sqlc="select top 1 list_classID,list_typeID from [list_class] where list_classname='"&B_Lei&"'"
						end if
						rsc.open sqlc,conn,1,1
						if not rsc.eof then
							classid = rsc("list_classID")
							pclassid = rsc("list_typeID")
						else
							set rs2=server.createobject("adodb.recordset")
							if IsSqlDataBase = 2 then
								sql2="select list_classID,list_typeID from list_class order by list_classID limit 1"
							else
								sql2="select top 1 list_classID,list_typeID from [list_class] order by list_classID"
							end if
							rs2.open sql2,conn,1,1
								classid = rs2("list_classID")
								pclassid = rs2("list_typeID")
							rs2.close
							Set Rs2=Nothing
						end if
						rsc.close
						Set Rsc=Nothing
					else
						classid = rsco("classID")
						pclassid = rsco("typeID")
					end if
					rsco.close
					set rsco=nothing
				else
					set rsc=server.createobject("adodb.recordset")
					if IsSqlDataBase = 2 then
						sqlc="select list_classID,list_typeID from list_class order by list_classID limit 1"
					else
						sqlc="select top 1 list_classID,list_typeID from [list_class] order by list_classID"
					end if
					rsc.open sqlc,conn,1,1
						classid = rsc("list_classID")
						pclassid = rsc("list_typeID")
					rsc.close
					Set Rsc=Nothing
				end if

				If B_PicType=0 Then
					if B_PsType=1 then
						B_PsType=true
					elseif B_PsType=0 then
						B_PsType=False
					end if
					  	if B_PoType=1 then
						B_PoType=true
					elseif B_PoType=0 then
						B_PoType=False
					end if
					B_Pic=GetBody(ListlookCode,B_PsString,B_PoString,B_PsType,B_PoType)
					If B_PicType1=1 Then
						if B_PsType1=1 then
							B_PsType1=true
						elseif B_PsType1=0 then
							B_PsType1=False
						end if
						  	if B_PoType1=1 then
							B_PoType1=true
						elseif B_PoType1=0 then
							B_PoType1=False
						end if
						B_Pic=GetBody(B_Pic,B_PsString1,B_PoString1,B_PsType1,B_PoType1)
						If B_PicType2=1 Then
							B_Pic=B_PicStr2&B_Pic
						end if
					else
						If B_PicType2=1 Then
							B_Pic=B_PicStr2&B_Pic
						Else
							B_Pic=DefiniteUrl(B_Pic,ListUrl)
						end if
					End If
					if Instr(b_pic,B_PicStr1)>0 then
						b_pic="images/0.jpg"
					end if
				ElseIf B_PicType=2 Then
					B_Pic=B_PicStr
				End If
				if B_Pic<>"" and B_Pic<>"$False$" and b_pic<>"images/0.jpg" then
					arrB_PicStr=split(B_PicStr1,"|")
					for abpi=0 to ubound(arrB_PicStr)
						if Instr(b_pic,arrB_PicStr(abpi))>0 then
							if ab_pic<>"" then
								ab_pic=ab_pic&",1"
							else
								ab_pic=1
							end if
						else
							if ab_pic<>"" then
								ab_pic=ab_pic&",0"
							else
								ab_pic=0
							end if
						end if
					next
					if Instr(ab_pic,"1")>0 then
						B_Pic = "images/0.jpg"
					end if
					arrB_PicStr=""
				Else
					B_Pic = "images/0.jpg"
				End If

				If B_InfoType=0 Then
					if B_IsType=1 then
						B_IsType=true
					elseif B_IsType=0 then
						B_IsType=False
					end if
					  	if B_IoType=1 then
						B_IoType=true
					elseif B_IoType=0 then
						B_IoType=False
					end if
					B_Info=GetBody(ListlookCode,B_IsString,B_IoString,B_IsType,B_IoType)
					If B_InfoType1=1 Then
						if B_IsType1=1 then
							B_IsType1=true
						elseif B_IsType1=0 then
							B_IsType1=False
						end if
				  		if B_IoType1=1 then
							B_IoType1=true
						elseif B_IoType1=0 then
							B_IoType1=False
						end if
						B_Info=GetBody(B_Info,B_IsString1,B_IoString1,B_IsType1,B_IoType1)
					end if
					B_Info=GetTextFrHtml(B_Info)
				ElseIf B_InfoType=2 Then
					B_Info=B_InfoStr
				End If
				if B_Info = "" or B_Info="$False$" then
					B_Info = "暂无简介"
				End If

				If B_KeyType=0 Then
					if B_KsType=1 then
						B_KsType=true
					elseif B_KsType=0 then
						B_KsType=False
					end if
				  	if B_KoType=1 then
						B_KoType=true
					elseif B_KoType=0 then
						B_KoType=False
					end if
					B_Key=GetBody(ListlookCode,B_KsString,B_KoString,B_KsType,B_KoType)
					If B_KeyType1=1 Then
						if B_KsType1=1 then
							B_KsType1=true
						elseif B_KsType1=0 then
							B_KsType1=False
						end if
				  		if B_KoType1=1 then
							B_KoType1=true
						elseif B_KoType1=0 then
							B_KoType1=False
						end if
						B_Key=GetBody(B_Key,B_KsString1,B_KoString1,B_KsType1,B_KoType1)
					end if
				ElseIf B_KeyType=2 Then
					B_Key=B_KeyStr
				ElseIf B_KeyType=3 Then
					B_Key=B_Name
				End If
				if B_Key = "" or B_Key="$False$" then
					B_Key = B_Name
				End If

				If B_TaiType=0 Then