📄 admin_itemloadnovel.asp
字号:
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 * 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 = "" or B_Pic="$False$" or Instr(b_pic,B_PicStr1)>0 then
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
if B_TsType=1 then
B_TsType=true
elseif B_TsType=0 then
B_TsType=False
end if
if B_ToType=1 then
B_ToType=true
elseif B_ToType=0 then
B_ToType=False
end if
B_Tai=GetBody(ListlookCode,B_TsString,B_ToString,B_TsType,B_ToType)
If B_TaiType1=1 Then
if B_TsType1=1 then
B_TsType1=true
elseif B_TsType1=0 then
B_TsType1=False
end if
if B_ToType1=1 then
B_ToType1=true
elseif B_ToType1=0 then
B_ToType1=False
end if
B_Tai=GetBody(B_Tai,B_TsString1,B_ToString1,B_TsType1,B_ToType1)
end if
if Instr(B_Tai,"转载")> 0 then
book_stateID = 1
elseif Instr(B_Tai,"连载")> 0 then
book_stateID = 2
elseif Instr(B_Tai,"出版")> 0 then
book_stateID = 3
elseif Instr(B_Tai,"暂")> 0 then
book_stateID = 4
elseif Instr(B_Tai,"止")> 0 then
book_stateID = 5
elseif Instr(B_Tai,"封")> 0 then
book_stateID = 5
elseif Instr(B_Tai,"完成")> 0 then
book_stateID = 6
elseif Instr(B_Tai,"完")> 0 then
book_stateID = 6
else
B_Tai="连载中"
book_stateID = 2
end if
ElseIf B_TaiType=2 Then
B_Tai="指定状态"
book_stateID=B_TaiStr
End If
'-----------------------------------------------------------------------------------------
'作品信息内容入库开始
'-----------------------------------------------------------------------------------------
set rsIt=server.createobject("adodb.recordset")
sqlIt="select ItemID,loadendId from [loadend] where ItemID="&ItemID
rsIt.open sqlIt,connItem,1,3
if rsIt.eof and rsIt.bof then
rsIt.addnew
rsIt("loadendId")=0
rsIt("ItemID")=ItemID
rsIt.update
End If
rsIt.close
Set RsIt=Nothing
set rsb=server.createobject("adodb.recordset")
if IsSqlDataBase = 2 then
sqlb="select id,list_news,list_hit,list_jian,list_cang,list_sftai,list_qianyue,list_gxdate,list_date,Isvip,Isgovip,IsgoVipAnswer,IsGood,Islist_good,Isweb_good,Lock_book,Lock_lun,list_userid,list_Adminid,list_abc,listvv_good,vip_bookid,yearhitstime,monthhitstime,weekdayhitstime,dayhitstime,list_yhit,list_mhit,list_zhit,list_dhit,yearjiantime,monthjiantime,weekdayjiantime,dayjiantime,list_yjian,list_mjian,list_zjian,list_djian,isuserread,list_class,list_pic,list_lei,list_tai,laiyuan,list_id,list_name,list_key,list_user,list_all,list_size,ItemId from list_book where list_name='"&B_Name&"' limit 1"
else
sqlb="select top 1 id,list_news,list_hit,list_jian,list_cang,list_sftai,list_qianyue,list_gxdate,list_date,Isvip,Isgovip,IsgoVipAnswer,IsGood,Islist_good,Isweb_good,Lock_book,Lock_lun,list_userid,list_Adminid,list_abc,listvv_good,vip_bookid,yearhitstime,monthhitstime,weekdayhitstime,dayhitstime,list_yhit,list_mhit,list_zhit,list_dhit,yearjiantime,monthjiantime,weekdayjiantime,dayjiantime,list_yjian,list_mjian,list_zjian,list_djian,isuserread,list_class,list_pic,list_lei,list_tai,laiyuan,list_id,list_name,list_key,list_user,list_all,list_size,ItemId from [list_book] where list_name='"&B_Name&"'"
end if
rsb.open sqlb,conn,1,3
if not(rsb.eof) then
response.Write "<br><li><font color='red'>作品"&b_name&"已经存在....跳过~</font></li><br>"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -