admin_itemaddnew5.asp

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

       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")
   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>"
						End if
					End if
					If HttpUrlType=1 Then
						NewsArray(Testi)=Replace(HttpUrlStr,"{$ID$}",NewsArray(Testi))
						NewsArray(Testi)=Replace(NewsArray(Testi),"{$Bl_id$}",ListStrUrl)
					Else
						NewsArray(Testi)=DefiniteUrl(NewsArray(Testi),NewsUrl)
					End If
				Next
				UrlTest=NewsArray(0)
			Else
	            FoundErr=True
	            ErrMsg=ErrMsg & "<br><li>在获取章节连接/章节ID时出错。</li>"
			End If
		elseif readType1=1 then
			if TsType=1 then
	     		TsType=true
	     	elseif TsType=0 then
	     		TsType=False
	     	end if
	    	if ToType=1 then
	     		ToType=true
	      	elseif ToType=0 then
	      		ToType=False
	      	end if
      		TitleCode=GetArray(ListCode,TsString,ToString,TsType,ToType)
			If TitleCode<>"$False$" Then
				TitleArray=Split(TitleCode,"$Array$")
				For Testi=0 To Ubound(TitleArray)
		            If TitleType1=1 Then
				      if TsType1=1 then
				    	TsType1=true
				      elseif TsType1=0 then
				    	TsType1=False
				      end if
				      if ToType1=1 then
				    	ToType1=true
				      elseif ToType1=0 then
				    	ToType1=False
				      end if
			   			TitleArray(Testi)=GetBody(TitleArray(Testi),TsString1,ToString1,TsType1,ToType1)
						If TitleArray(Testi)="$False$" Then
							FoundErr=True
							ErrMsg=ErrMsg & "<br><li>在修正章节标题时出错。</li>"
						End if
				    end if
				Next
				TitleTest=TitleArray(0)
			Else
            	FoundErr=True
            	ErrMsg=ErrMsg & "<br><li>在截取章节标题的时候发生错误：" & NewsUrl & "</li>"
   			End If

         	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
		    ContentCode=GetArray(ListCode,CsString,CoString,CsType,CoType)
			If ContentCode<>"$False$" Then
				ContentArray=Split(ContentCode,"$Array$")
				For Testi=0 To Ubound(ContentArray)
				    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
					    ContentArray(Testi)=GetBody(ContentArray(Testi),CsString1,CoString1,CsType1,CoType1)
						If ContentArray(Testi)="$False$" Then
							FoundErr=True
							ErrMsg=ErrMsg & "<br><li>在修正章节正文时出错。</li>"
						End if
				    End If
				     If ContType2=2 Then
					     ContentArray(Testi)=DefiniteUrl(ContentArray(Testi),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=ContentArray(Testi)
				      	ContentArray(Testi)=GetHttpPage(ViewUrl,EquivType)
		              	ContentArray(Testi)=GetBody(ContentArray(Testi),CsString2,CoString2,CsType2,CoType2)
		              	If ContentArray(Testi)="$False$" Then
		                 	FoundErr=True
		                 	ErrMsg=ErrMsg & "<br><li>在截取章节正文的时候发生错误：" & ViewUrl & "</li>"
		              	End If
				     End If
					If ContType2=3 Then
						ContentArray(Testi)="<IMG src="&ContentArray(Testi)&">"
					End If
				Next
				ContentTest=ContentArray(0)
			Else
            	FoundErr=True
            	ErrMsg=ErrMsg & "<br><li>在截取章节正文的时候发生错误：" & NewsUrl & "</li>"
   			End If
		end if
	Else
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>在截取目录页面时发生错误。</li>"
	End If
Else
	FoundErr=True
	ErrMsg=ErrMsg & "<br><li>在获取:" & ListUrl & "网页源码时发生错误。</li>"
End If
End If

If FoundErr=True Then
   Call WriteErrMsg(ErrMsg)
Else
if readType1=0 then%><table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tborder" style="LINE-HEIGHT: 150%">
	<tr align="center">
		<td colspan="2" align="center" class="thead">项 目 管 理--分 卷 页 采 集 测 试</td>
	</tr>
	<tr align="center" class="tdbg">
		<td colspan="2">分卷名称：<%=cook%></td>
	</tr>
	<tr>
		<td height="22" colspan="2">以下是分析后所得到的章节绝对链接地址，请查看是否正确。<br>
		<%
For Testi=0 To Ubound(NewsArray)
   Response.Write "<a href='" & NewsArray(Testi) & "'"
   Response.Write " target=_blank>"
   if TitleTypes=1 then
   Response.Write "" & Title(Testi) & ""
   else
   Response.Write "" & NewsArray(Testi) & ""
   end if
   Response.Write "</a><br>"
Next
%> <br>
		下面将抽取第一个章节地址进行测试的结果，在填写以下标记时尽量不要使用本内容。 </td>