📄 admin_itemaddnew5.asp

📁 功能介绍：一、会员功能模块 1、站内短信发布(设计中) 2、书架收藏夹 3、发表评论(功能不完善) 4、申请作家(与添书员整合) 5、申请添书员(与作家整合) 6、申请更新员
💻 ASP
📖 第 1 页 / 共 5 页
字号:
上一页 1 2 3 45
End If
If VoString="" Then
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>章节页面结束标记不能为空</li>" 
End If

If CsString="" or CsType="" Then
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>正文开始标记不能为空</li>"
End If
If CoString="" or CoType="" Then
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>正文结束标记不能为空</li>" 
End If
If ContType1="" then
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>请选择是否修正章节正文</li>" 
Else
   ContType1=Clng(ContType1)
   If ContType1=1 Then
      If CsString1="" or CoString1="" or CsType1="" or CoType1="" Then
         FoundErr=True
         ErrMsg=ErrMsg & "<br><li>请将章节正文修正的开始/结束标记填写完整</li>"
      End If
   ElseIf ContType1=0 Then
   Else
      FoundErr=True
      ErrMsg=ErrMsg & "<br><li>ContType1参数错误，请从有效链接进入</li>"
   End If
End If
If ContType2="" then
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>请选择获取到的正文类型</li>" 
Else
   ContType2=Clng(ContType2)
   If ContType2=2 Then
      If CsString2="" or CoString2="" or CsType2="" or CoType2="" Then
         FoundErr=True
         ErrMsg=ErrMsg & "<br><li>请将TXT文件中正文的开始/结束标记填写完整</li>"
      End If
   ElseIf ContType2=3 Then
   ElseIf ContType2=1 Then
   ElseIf ContType2=0 Then
   Else
      FoundErr=True
      ErrMsg=ErrMsg & "<br><li>正文类型参数错误，请从有效链接进入</li>"
   End If
End If

If cookTypes=0 Then
If cookType="" Then
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>请设置分卷标题</li>" 
Else
   cookType=Clng(cookType)
   If cookType=0 Then
   ElseIf cookType=1 Then
      If cosString="" or cooString="" or cosType="" or cooType="" Then
         FoundErr=True
         ErrMsg=ErrMsg & "<br><li>请将分卷标题的开始/结束标记填写完整！</li>" 
      Else
         If cookType1="" Then
            FoundErr=True
            ErrMsg=ErrMsg & "<br><li>请选择是否修正分卷标题</li>" 
         Else
            cookType1=Clng(cookType1)
            If cookType1=1 Then
               If cosString1="" or cooString1="" or cosType1="" or cooType1="" Then
                  FoundErr=True
                  ErrMsg=ErrMsg & "<br><li>请将分卷标题修正的开始/结束标记填写完整</li>"
               End If
            ElseIf cookType1=0 Then
            Else
               FoundErr=True
               ErrMsg=ErrMsg & "<br><li>cookType1参数错误，请从有效链接进入</li>"
            End If
         End If
      End If
   ElseIf cookType=2 Then
      If cookStr="" Then
         FoundErr=True
         ErrMsg=ErrMsg & "<br><li>请指定分卷标题</li>" 
      End If
   Else
      FoundErr=True
      ErrMsg=ErrMsg & "<br><li>分卷标题<参数错误，请从有效链接进入</li>" 
   End If 
End If
End If

If TitleTypes=0 Then
      If TsString="" or ToString="" or TsType="" or ToType="" Then
         FoundErr=True
         ErrMsg=ErrMsg & "<br><li>请将章节标题的开始/结束标记填写完整</li>" 
      Else
         If TitleType1="" Then
            FoundErr=True
            ErrMsg=ErrMsg & "<br><li>请选择是否修正章节标题</li>" 
         Else
            TitleType1=Clng(TitleType1)
            If TitleType1=1 Then
               If TsString1="" or ToString1="" or TsType1="" or ToType1="" Then
                  FoundErr=True
                  ErrMsg=ErrMsg & "<br><li>请将章节标题修正的开始/结束标记填写完整</li>"
               End If
            ElseIf TitleType1=0 Then
            Else
               FoundErr=True
               ErrMsg=ErrMsg & "<br><li>TitleType1参数错误，请从有效链接进入</li>"
            End If
         End If
      End If
End If


If JDTHType1="" Then
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>请选择是否替换章节内容一</li>"
ElseIf JDTHType1=1 then
	If JDTH1sStr="" then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>第一个原文内容不能为空</li>"
	End If
ElseIf JDTHType1=0 then
Else
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>参数传递错误</li>"
End If
	
If JDTHType2="" Then
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>请选择是否替换章节内容一</li>"
ElseIf JDTHType2=1 then
	If JDTH2sStr="" then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>第一个原文内容不能为空</li>"
	End If
ElseIf JDTHType2=0 then
Else
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>参数传递错误</li>"
End If
	
If JDTHType3="" Then
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>请选择是否替换章节内容一</li>"
ElseIf JDTHType3=1 then
	If JDTH3sStr="" then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>第一个原文内容不能为空</li>"
	End If
ElseIf JDTHType3=0 then
Else
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>参数传递错误</li>"
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("VsString")=VsString
   Rs("VoString")=VoString

If TitleTypes=0 Then
   Rs("TsType")=TsType
   Rs("ToType")=ToType
   Rs("TsString")=TsString
   Rs("ToString")=ToString
   Rs("TitleType1")=TitleType1
IF TitleType1=1 THEN
   Rs("TsType1")=TsType1
   Rs("ToType1")=ToType1
   Rs("TsString1")=TsString1
   Rs("ToString1")=ToString1
END IF
END IF

   Rs("CsType")=CsType
   Rs("CoType")=CoType
   Rs("CsString")=CsString
   Rs("CoString")=CoString
   Rs("ContType1")=ContType1
   Rs("ContType2")=ContType2
IF ContType1=1 THEN
   Rs("CsType1")=CsType1
   Rs("CoType1")=CoType1
   Rs("CsString1")=CsString1
   Rs("CoString1")=CoString1
END IF
IF ContType2=2 THEN
   Rs("CsType2")=CsType2
   Rs("CoType2")=CoType2
   Rs("CsString2")=CsString2
   Rs("CoString2")=CoString2
END IF

	Rs("CookTypes")=CookTypes
	if CookTypes=0 then
	   Rs("CookType")=CookType
	   Rs("CookType1")=CookType1
	   If CookType=1 Then
	      Rs("CosType")=CosType
	      Rs("CooType")=CooType
	      Rs("CosString")=CosString
	      Rs("CooString")=CooString
		   If CookType1=1 Then
		      Rs("CosType1")=CosType1
		      Rs("CooType1")=CooType1
		      Rs("CosString1")=CosString1
		      Rs("CooString1")=CooString1
		   End If
	   ElseIf CookType=2 Then
	      Rs("CookStr")=CookStr
	   End If
	End If

   Rs("JDTHType1")=JDTHType1

If JDTHType1=1 Then
	Rs("JDTH1sStr")=JDTH1sStr
	Rs("JDTH1oStr")=JDTH1oStr
End If

   Rs("JDTHType2")=JDTHType2
If JDTHType2=1 Then
	Rs("JDTH2sStr")=JDTH2sStr
	Rs("JDTH2oStr")=JDTH2oStr
End If

   Rs("JDTHType3")=JDTHType3
If JDTHType3=1 Then
	Rs("JDTH3sStr")=JDTH3sStr
	Rs("JDTH3oStr")=JDTH3oStr
End If

   Rs.UpDate
   EquivType=Rs("EquivType")
   Rs.Close
   Set Rs=Nothing
End If


If FoundErr<>True Then
   NewsCode=GetHttpPage(NewsUrl,EquivType)
   If NewsCode<>"$False$" Then
      If NewsCode<>"$False$" Then
         NewsCode=GetBody(NewsCode,VsString,VoString,True,True)
         If NewsCode="$False$" Then
            FoundErr=True
            ErrMsg=ErrMsg & "<br><li>在截取:" & NewsUrl & "章节内容页时发生错误</li>"
         Else

         	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

         If Content="$False$" Then
            FoundErr=True
            ErrMsg=ErrMsg & "<br><li>在截取正文的时候发生错误：" & NewsUrl & "</li>"
         Else
		     If ContType2=2 Then
		     Content=DefiniteUrl(Content,NewsUrl)
		      	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>在截取正文的时候发生错误：" & ViewUrl & "</li>"
              	End If
		     End If
			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
         End If
		if cookTypes=0 then
            If cookType=1 Then
		      	if cosType=1 then
		      		cosType=true
		      	elseif cosType=0 then
		      		cosType=False
		      	end if
		     	if cooType=1 then
		      		cooType=true
		      	elseif cooType=0 then
		      		cooType=False
		      	end if
      			cook=GetBody(NewsCode,cosString,cooString,cosType,cooType)
            	If cookType1=1 Then
		      	  if cosType1=1 then
		      		cosType1=true
		      	  elseif cosType1=0 then
		      		cosType1=False
		      	  end if
		     	  if cooType1=1 then
		      		cooType1=true
		      	  elseif cooType1=0 then
		      		cooType1=False
		      	  end if
      			  cook=GetBody(cook,cosString1,cooString1,cosType1,cooType1)
		      	end if
            ElseIf cookType=2 Then
				cook=cookStr
            ElseIf cookType=0 Then
				cook="正文"
        	Else
	    		FoundErr=True
	    		ErrMsg=ErrMsg & "<br><li>分卷标题类型参数错误，请从有效链接进入</li>" 
        	End If

         If cook="$False$" Then
            FoundErr=True
            ErrMsg=ErrMsg & "<br><li>在截取分卷标题的时候发生错误：" & NewsUrl & "</li>"
         End If
		End if

         If TitleTypes=0 Then
			if TsType=1 then
	     		TsType=true
	     	elseif TsType=0
上一页 1 2 3 45
⌨️ 快捷键说明

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