admin_itemmodify3.asp

功能介绍： 一、会员功能模块 1、站内短信发布(设计中) 2、书架收藏夹 3、发表评论(功能不完善) 4、申请作家(与添书员整合) 5、申请添书员(与作家整合) 6、申请更新员

            ErrMsg=ErrMsg & "<br><li>请选择是否修正作品类别</li>" 
         Else
            B_LeiType1=Clng(B_LeiType1)
            If B_LeiType1=1 Then
               If B_LsString1="" or B_LoString1="" or B_LsType1="" or B_LoType1="" Then
                  FoundErr=True
                  ErrMsg=ErrMsg & "<br><li>请将作品类别修正的开始/结束标记填写完整</li>"
               End If
            ElseIf B_LeiType1=0 Then
            Else
               FoundErr=True
               ErrMsg=ErrMsg & "<br><li>修正的作品类别类型参数错误，请从有效链接进入</li>"
            End If
         End If
      End If
   ElseIf B_LeiType=2 Then
      If B_LeiStr="" Then
         FoundErr=True
         ErrMsg=ErrMsg & "<br><li>请指定作品类别</li>" 
      End If
   Else
      FoundErr=True
      ErrMsg=ErrMsg & "<br><li>作品类别类型参数错误，请从有效链接进入</li>" 
   End If 
End If

If B_PicType="" Then
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>请设置作品封面类型</li>" 
Else
   If B_PicStr1="" Then
       FoundErr=True
       ErrMsg=ErrMsg & "<br><li>请将无封面地址填写完整</li>"
   End If
   B_PicType=Clng(B_PicType)
   If B_PicType=0 Then
      If B_PsString="" or B_PoString="" or B_PsType="" or B_PoType="" Then
         FoundErr=True
         ErrMsg=ErrMsg & "<br><li>请将作品封面的开始/结束标记填写完整</li>" 
      Else
         If B_PicType1="" Then
            FoundErr=True
            ErrMsg=ErrMsg & "<br><li>请选择是否修正作品封面</li>" 
         Else
            B_PicType1=Clng(B_PicType1)
            If B_PicType1=1 Then
               If B_PsString1="" or B_PoString1="" or B_PsType1="" or B_PoType1="" Then
                  FoundErr=True
                  ErrMsg=ErrMsg & "<br><li>请将作品封面修正的开始/结束标记填写完整</li>"
               End If
            ElseIf B_PicType1=0 Then
            Else
               FoundErr=True
               ErrMsg=ErrMsg & "<br><li>修正的作品封面类型参数错误，请从有效链接进入</li>"
            End If
         End If
         If B_PicType2="" Then
            FoundErr=True
            ErrMsg=ErrMsg & "<br><li>请选择是否要在获取的地址前加入绝对地址</li>" 
         Else
            B_PicType2=Clng(B_PicType2)
            If B_PicType2=1 Then
               If B_PicStr2="" Then
                  FoundErr=True
                  ErrMsg=ErrMsg & "<br><li>请将在获取的地址前加入的绝对地址填写完整</li>"
               End If
            ElseIf B_PicType2=0 Then
            Else
               FoundErr=True
               ErrMsg=ErrMsg & "<br><li>是否要在获取的地址前加入绝对地址参数错误，请从有效链接进入</li>"
            End If
         End If
      End If
   ElseIf B_PicType=2 Then
      If B_PicStr="" Then
         FoundErr=True
         ErrMsg=ErrMsg & "<br><li>请指定作品封面</li>" 
      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_PicStr1")=B_PicStr1
   Rs("B_PicType2")=B_PicType2
   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