📄 admin_itemmodify5.asp

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

If cookTypes=0 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
End If

If readType1=0 Then
	If HsString="" or HsType="" or HoString="" or HoType="" Then
	   FoundErr=True
	   ErrMsg=ErrMsg & "<br><li>章节链接/章节ID开始/结束标记不能为空</li>"
	End If
	if HUrlType1="" then
	   FoundErr=True
	   ErrMsg=ErrMsg & "<br><li>请选择要是否修正章节链接/章节ID</li>" 
	else
        HUrlType1=Clng(HUrlType1)
		If HUrlType1=1 Then
			If HsString1="" or HsType1="" or HoString1="" or HoType1="" Then
			   FoundErr=True
			   ErrMsg=ErrMsg & "<br><li>修正章节链接/章节ID开始/结束标记不能为空</li>" 
			End If
        ElseIf HUrlType1=0 Then
        Else
            FoundErr=True
            ErrMsg=ErrMsg & "<br><li>HUrlType1参数错误，请从有效链接进入</li>"
        End If
	End If
	If HttpUrlType="" Then
	   FoundErr=True
	   ErrMsg=ErrMsg & "<br><li>请选择链接处理类型</li>"
	Else
	   HttpUrlType=Clng(HttpUrlType)
	   If HttpUrlType=1 Then
	      If HttpUrlStr="" Then
	         FoundErr=True
	         ErrMsg=ErrMsg & "<br><li>绝对链接字符设置不能为空</li>"
	      Else
	            If  Len(HttpUrlStr)<10  Then
	               FoundErr=True
	               ErrMsg=ErrMsg & "<br><li>绝对链接字符设置不正确(10个字符以上)</li>"
	            End  If      
	      End If
	   End If
	End If
ElseIf readType1=1 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

	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
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("cooksString")=cooksString
   Rs("cookoString")=cookoString
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("readType1")=readType1
if readType1=0 then
   Rs("HsType")=HsType
   Rs("HoType")=HoType
   Rs("HsString")=HsString
   Rs("HoString")=HoString
   Rs("HUrlType1")=HUrlType1
   if HUrlType1=1 then
	   Rs("HsType1")=HsType1
	   Rs("HoType1")=HoType1
	   Rs("HsString1")=HsString1
	   Rs("HoString1")=HoString1
   end if
   Rs("HttpUrlType")=HttpUrlType
   If HttpUrlType=1 Then
      Rs("HttpUrlStr")=HttpUrlStr
   End If
elseif readType1=1 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
   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
end if
   Rs.UpDate
   EquivType=Rs("EquivType")
JDTHType1=Rs("JDTHType1")
JDTH1sStr=Rs("JDTH1sStr")
JDTH1oStr=Rs("JDTH1oStr")
JDTHType2=Rs("JDTHType2")
JDTH2sStr=Rs("JDTH2sStr")
JDTH2oStr=Rs("JDTH2oStr")
JDTHType3=Rs("JDTHType3")
JDTH3sStr=Rs("JDTH3sStr")
JDTH3oStr=Rs("JDTH3oStr")
GJTHType1=Rs("GJTHType1")
GJTH1sStr=Rs("GJTH1sStr")
GJTH1oStr=Rs("GJTH1oStr")
GJTH1cStr=Rs("GJTH1cStr")

GJTHType2=Rs("GJTHType2")
GJTH2sStr=Rs("GJTH2sStr")
GJTH2oStr=Rs("GJTH2oStr")
GJTH2cStr=Rs("GJTH2cStr")

GJTHType3=Rs("GJTHType3")
GJTH3sStr=Rs("GJTH3sStr")
GJTH3oStr=Rs("GJTH3oStr")
GJTH3cStr=Rs("GJTH3cStr")

VsString=Rs("VsString")
VoString=Rs("VoString")
TsType=Rs("TsType")
ToType=Rs("ToType")
TsString=Rs("TsString")
ToString=Rs("ToString")
TitleType1=Rs("TitleType1")
TsType1=Rs("TsType1")
ToType1=Rs("ToType1")
TsString1=Rs("TsString1")
ToString1=Rs("ToString1")
CsType=Rs("CsType")
CoType=Rs("CoType")
CsString=Rs("CsString")
CoString=Rs("CoString")
ContType1=Rs("ContType1")
CsType1=Rs("CsType1")
CoType1=Rs("CoType1")
CsString1=Rs("CsString1")
CoString1=Rs("CoString1")
ContType2=Rs("ContType2")
CsType2=Rs("CsType2")
CoType2=Rs("CoType2")
CsString2=Rs("CsString2")
CoString2=Rs("CoString2")
ContType2=Rs("ContType2")
   Rs.Close
   Set Rs=Nothing

ListCode=GetHttpPage(NewsUrl,EquivType)
If ListCode<>"$False$" Then
	ListCode=GetBody(ListCode,cooksString,cookoString,True,True)
	If ListCode<>"$False$" Then
		if cookTypes=0 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
   			cookCode=GetArray(ListCode,cosString,cooString,cosType,cooType)
			If cookCode<>"$False$" Then
				cookArray=Split(cookCode,"$Array$")
				For Testi=0 To Ubound(cookArray)
		           	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
		   				cookArray(Testi)=GetBody(cookArray(Testi),cosString1,cooString1,cosType1,cooType1)
						If cookArray(Testi)="$False$" Then
							FoundErr=True
							ErrMsg=ErrMsg & "<br><li>在修正分卷标题的时候发生错误。</li>"
	    				End If
			      	end if
				Next
				cookTest=cookArray(0)
			Else
	            FoundErr=True
	            ErrMsg=ErrMsg & "<br><li>在截取分卷标题时出错：" & NewsUrl & "</li>"
			End If
		else
			cookTest=TitleTest
		end if
		if readType1=0 then
			if HsType=1 then
		    	HsType=true
		    elseif HsType=0 then
		    	HsType=False
		    end if
		    if HoType=1 then
		    	HoType=true
		    elseif HoType=0 then
		    	HoType=False
		    end if
			NewsArrayCode=GetArray(ListCode,HsString,HoString,HsType,HoType)
			If NewsArrayCode<>"$False$" Then
				NewsArray=Split(NewsArrayCode,"$Array$")
				For Testi=0 To Ubound(NewsArray)
					If HUrlType1=1 Then
						if HsType1=1 then
							HsType1=true
						elseif HsType1=0 then
							HsType1=False
						end if
						if HoType1=1 then
							HoType1=true
						elseif HoType1=0 then
							HoType1=False
						end if
						NewsArray(Testi)=GetBody(NewsArray(Testi),HsString1,HoString1,HsType1,HoType1)
						If NewsArray(Testi)="$False$" Then
							FoundErr=True
							ErrMsg=ErrMsg & "<br><li>在修正章节连接/章节ID时出错。</li>"
⌨️ 快捷键说明

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