⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 admin_itemaddnew3.asp

📁 小说站源代码文件
💻 ASP
📖 第 1 页 / 共 4 页
字号:
🔍
1234 
      End If
   Else
      FoundErr=True
      ErrMsg=ErrMsg & "<br><li>作品封面类型参数错误，请从有效链接进入</li>" 
   End If 
End If

If B_KeyType="" Then
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>请设置作品关键字类型</li>" 
Else
   B_KeyType=Clng(B_KeyType)
   If B_KeyType=0 Then
      If B_KsString="" or B_KoString="" or B_KsType="" or B_KoType="" Then
         FoundErr=True
         ErrMsg=ErrMsg & "<br><li>请将作品关键字的开始/结束标记填写完整！</li>" 
      Else
         If B_KeyType1="" Then
            FoundErr=True
            ErrMsg=ErrMsg & "<br><li>请选择是否修正作品关键字</li>" 
         Else
            B_KeyType1=Clng(B_KeyType1)
            If B_KeyType1=1 Then
               If B_KsString1="" or B_KoString1="" or B_KsType1="" or B_KoType1="" Then
                  FoundErr=True
                  ErrMsg=ErrMsg & "<br><li>请将作品关键字修正的开始/结束标记填写完整</li>"
               End If
            ElseIf B_KeyType1=0 Then
            Else
               FoundErr=True
               ErrMsg=ErrMsg & "<br><li>修正的关键字类型参数错误，请从有效链接进入</li>"
            End If
         End If
      End If
   ElseIf B_KeyType=2 Then
      If B_KeyStr="" Then
         FoundErr=True
         ErrMsg=ErrMsg & "<br><li>请指定作品关键字</li>" 
      End If
   ElseIf B_KeyType=3 Then
   Else
      FoundErr=True
      ErrMsg=ErrMsg & "<br><li>关键字类型参数错误，请从有效链接进入</li>" 
   End If
End If

If B_InfoType="" Then
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>请设置作品介绍类型</li>" 
Else
   B_InfoType=Clng(B_InfoType)
   If B_InfoType=0 Then
      If B_IsString="" or B_IoString="" or B_IsType="" or B_IoType="" Then
         FoundErr=True
         ErrMsg=ErrMsg & "<br><li>请将作品介绍的开始/结束标记填写完整</li>" 
      Else
         If B_InfoType1="" Then
            FoundErr=True
            ErrMsg=ErrMsg & "<br><li>请选择是否修正作品介绍</li>" 
         Else
            B_InfoType1=Clng(B_InfoType1)
            If B_InfoType1=1 Then
               If B_IsString1="" or B_IoString1="" or B_IsType1="" or B_IoType1="" Then
                  FoundErr=True
                  ErrMsg=ErrMsg & "<br><li>请将作品介绍修正的开始/结束标记填写完整</li>"
               End If
            ElseIf B_InfoType1=0 Then
            Else
               FoundErr=True
               ErrMsg=ErrMsg & "<br><li>修正的作品介绍类型参数错误，请从有效链接进入</li>"
            End If
         End If
      End If
   ElseIf B_InfoType=2 Then
      If B_InfoStr="" Then
         FoundErr=True
         ErrMsg=ErrMsg & "<br><li>请指定作品介绍</li>" 
      End If
   Else
      FoundErr=True
      ErrMsg=ErrMsg & "<br><li>作品介绍类型参数错误，请从有效链接进入</li>" 
   End If 
End If

If B_TaiType="" Then
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>请设置作品状态类型</li>" 
Else
   B_TaiType=Clng(B_TaiType)
   If B_TaiType=0 Then
      If B_TsString="" or B_ToString="" or B_TsType="" or B_ToType="" Then
         FoundErr=True
         ErrMsg=ErrMsg & "<br><li>请将作品状态的开始/结束标记填写完整</li>" 
      Else
         If B_TaiType1="" Then
            FoundErr=True
            ErrMsg=ErrMsg & "<br><li>请选择是否修正作品状态</li>" 
         Else
            B_TaiType1=Clng(B_TaiType1)
            If B_TaiType1=1 Then
               If B_TsString1="" or B_ToString1="" or B_TsType1="" or B_ToType1="" Then
                  FoundErr=True
                  ErrMsg=ErrMsg & "<br><li>请将作品状态修正的开始/结束标记填写完整</li>"
               End If
            ElseIf B_TaiType1=0 Then
            Else
               FoundErr=True
               ErrMsg=ErrMsg & "<br><li>修正的作品状态类型参数错误，请从有效链接进入</li>"
            End If
         End If
      End If
   ElseIf B_TaiType=2 Then
      If B_TaiStr="" Then
         FoundErr=True
         ErrMsg=ErrMsg & "<br><li>请指定作品状态</li>" 
      End If
   Else
      FoundErr=True
      ErrMsg=ErrMsg & "<br><li>作品状态类型参数错误，请从有效链接进入</li>" 
   End If 
End If

If FoundErr<>True Then
   Sql="Select * from Item Where ItemID=" & ItemID
   Set Rs=server.CreateObject("adodb.recordset")
   Rs.Open Sql,ConnItem,2,3

   Rs("ShowStr")=ShowStr
   Rs("ShowStrUrl")=ShowStrUrl
   Rs("SBsString")=SBsString
   Rs("SBoString")=SBoString
   Rs("FolderType")=FolderType
   If FolderType=1 Then
      Rs("ListStr")=ListStr
   elseif FolderType=0 Then
      Rs("B_readsType")=B_readsType
      Rs("B_readoType")=B_readoType
      Rs("B_readsString")=B_readsString
      Rs("B_readoString")=B_readoString
      Rs("FolderType1")=FolderType1
   	  If FolderType1=1 Then
	      Rs("B_readsType1")=B_readsType1
	      Rs("B_readoType1")=B_readoType1
	      Rs("B_readsString1")=B_readsString1
	      Rs("B_readoString1")=B_readoString1
   	  End If
   End If
   
   Rs("B_NameType")=B_NameType
   Rs("B_NameType1")=B_NameType1
   If B_NameType=0 Then
      Rs("B_NsType")=B_NsType
      Rs("B_NoType")=B_NoType
      Rs("B_NsString")=B_NsString
      Rs("B_NoString")=B_NoString
   If B_NameType1=1 Then
      Rs("B_NsType1")=B_NsType1
      Rs("B_NoType1")=B_NoType1
      Rs("B_NsString1")=B_NsString1
      Rs("B_NoString1")=B_NoString1
   End If
   ElseIf B_NameType=2 Then
      Rs("B_NameStr")=B_NameStr
   End If

   Rs("B_AuthorType")=B_AuthorType
   Rs("B_AuthorType1")=B_AuthorType1
   If B_AuthorType=0 Then
      Rs("B_AsType")=B_AsType
      Rs("B_AoType")=B_AoType
      Rs("B_AsString")=B_AsString
      Rs("B_AoString")=B_AoString
   If B_AuthorType1=1 Then
      Rs("B_AsType1")=B_AsType1
      Rs("B_AoType1")=B_AoType1
      Rs("B_AsString1")=B_AsString1
      Rs("B_AoString1")=B_AoString1
   End If
   ElseIf B_AuthorType=2 Then
      Rs("B_AuthorStr")=B_AuthorStr
   End If

   Rs("B_LeiType")=B_LeiType
   Rs("B_LeiType1")=B_LeiType1
   If B_LeiType=0 Then
      Rs("B_LsType")=B_LsType
      Rs("B_LoType")=B_LoType
      Rs("B_LsString")=B_LsString
      Rs("B_LoString")=B_LoString
   If B_LeiType1=1 Then
      Rs("B_LsType1")=B_LsType1
      Rs("B_LoType1")=B_LoType1
      Rs("B_LsString1")=B_LsString1
      Rs("B_LoString1")=B_LoString1
   End If
   ElseIf B_LeiType=2 Then
      Rs("B_LeiStr")=B_LeiStr
   End If

   Rs("B_PicType")=B_PicType
   Rs("B_PicType1")=B_PicType1
   Rs("B_PicType2")=B_PicType2
   Rs("B_PicStr1")=B_PicStr1
   if B_PicType2=1 Then
      Rs("B_PicStr2")=B_PicStr2
   End If
   If B_PicType=0 Then
      Rs("B_PsType")=B_PsType
      Rs("B_PoType")=B_PoType
      Rs("B_PsString")=B_PsString
      Rs("B_PoString")=B_PoString
   If B_PicType1=1 Then
      Rs("B_PsType1")=B_PsType1
      Rs("B_PoType1")=B_PoType1
      Rs("B_PsString1")=B_PsString1
      Rs("B_PoString1")=B_PoString1
   End If
   ElseIf B_PicType=2 Then
      Rs("B_PicStr")=B_PicStr
   End If

   Rs("B_KeyType")=B_KeyType
   Rs("B_KeyType1")=B_KeyType1
   If B_KeyType=0 Then
      Rs("B_KsType")=B_KsType
      Rs("B_KoType")=B_KoType
      Rs("B_KsString")=B_KsString
      Rs("B_KoString")=B_KoString
   If B_KeyType1=1 Then
      Rs("B_KsType1")=B_KsType1
      Rs("B_KoType1")=B_KoType1
      Rs("B_KsString1")=B_KsString1
      Rs("B_KoString1")=B_KoString1
   End If
   ElseIf B_KeyType=2 Then
      Rs("B_KeyStr")=B_KeyStr
   End If

   Rs("B_InfoType")=B_InfoType
   Rs("B_InfoType1")=B_InfoType1
   If B_InfoType=0 Then
      Rs("B_IsType")=B_IsType
      Rs("B_IoType")=B_IoType
      Rs("B_IsString")=B_IsString
      Rs("B_IoString")=B_IoString
   If B_InfoType1=1 Then
      Rs("B_IsType1")=B_IsType1
      Rs("B_IoType1")=B_IoType1
      Rs("B_IsString1")=B_IsString1
      Rs("B_IoString1")=B_IoString1
   End If
   ElseIf B_InfoType=2 Then
      Rs("B_InfoStr")=B_InfoStr
   End If

   Rs("B_TaiType")=B_TaiType
   Rs("B_TaiType1")=B_TaiType1
   If B_TaiType=0 Then
      Rs("B_TsType")=B_TsType
      Rs("B_ToType")=B_ToType
      Rs("B_TsString")=B_TsString
      Rs("B_ToString")=B_ToString
   If B_TaiType1=1 Then
      Rs("B_TsType1")=B_TsType1
      Rs("B_ToType1")=B_ToType1
      Rs("B_TsString1")=B_TsString1
      Rs("B_ToString1")=B_ToString1
   End If
   ElseIf B_TaiType=2 Then
      Rs("B_TaiStr")=B_TaiStr
   End If

   Rs("B_KeyType")=B_KeyType
   Rs("B_KeyType1")=B_KeyType1
   If B_KeyType=0 Then
      Rs("B_KsType")=B_KsType
      Rs("B_KoType")=B_KoType
      Rs("B_KsString")=B_KsString
      Rs("B_KoString")=B_KoString
   If B_KeyType1=1 Then
      Rs("B_KsType1")=B_KsType1
      Rs("B_KoType1")=B_KoType1
      Rs("B_KsString1")=B_KsString1
      Rs("B_KoString1")=B_KoString1
   End If
   ElseIf B_KeyType=2 Then
      Rs("B_KeyStr")=B_KeyStr
   End If

   Rs.UpDate
   EquivType=Rs("EquivType")
   LoginType=Rs("LoginType")
   LoginUrl=Rs("LoginUrl")
   LoginPostUrl=Rs("LoginPostUrl")
   LoginUser=Rs("LoginUser")
   LoginPass=Rs("LoginPass")
   LoginFalse=Rs("LoginFalse")
   Rs.Close
   Set Rs=Nothing
   If LoginType=1 then
      LoginData=UrlEncoding(LoginUser & "&" & LoginPass)
      LoginResult=PostHttpPage(LoginUrl,LoginPostUrl,LoginData)
      If Instr(LoginResult,LoginFalse)>0 Then
         FoundErr=True
         ErrMsg=ErrMsg & "<br><li>网站登录失败，请检查登录参数！</li>"
      End If
   End If
   
   If FoundErr<>True Then
   

   ListUrl=Replace(ShowStr,"{$Bl_id$}",ShowStrUrl)
      ListCode=GetHttpPage(ListUrl,EquivType)
      If ListCode<>"$False$" Then
         ListCode=GetBody(ListCode,SBsString,SBoString,True,True)
         If ListCode="$False$" Then
            FoundErr=True
            ErrMsg=ErrMsg & "<br><li>在截取:" & ListUrl & "作品资料页时发生错误</li>"
         Else
'----------------------------------------------------------------------------------------
	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(ListCode,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$}",ShowStrUrl)
	ElseIf FolderType=2 Then
		ListsUrl=ListUrl
	Else
1234

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -