admin_itemaddnew4.asp

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

	Rs("readType")=readType
   Rs("rHsType")=rHsType
   Rs("rHoType")=rHoType
   Rs("rHsString")=rHsString
   Rs("rHoString")=rHoString
	   Rs("rHUrlType1")=rHUrlType1
	   if rHUrlType1=1 then
		   Rs("rHsType1")=rHsType1
		   Rs("rHoType1")=rHoType1
		   Rs("rHsString1")=rHsString1
		   Rs("rHoString1")=rHoString1
	   end if
   Rs("rHttpUrlType")=rHttpUrlType
   If rHttpUrlType=1 Then
      Rs("rHttpUrlStr")=rHttpUrlStr
   End If
	Rs("cookTypes")=cookTypes
	if cookTypes=1 then
			Rs("cosType")=cosType
			Rs("cooType")=cooType
			Rs("cosString")=cosString
			Rs("cooString")=cooString
			Rs("cooktype1")=cooktype1
			if cooktype1=1 then
				Rs("cosType1")=cosType1
				Rs("cooType1")=cooType1
				Rs("cosString1")=cosString1
				Rs("cooString1")=cooString1
			end if
	End if
   Rs.UpDate
   EquivType=Rs("EquivType")
   Rs.Close
   Set Rs=Nothing
   
'--------------------------------------------------------------------------------------------------------
ListUrl=ListsUrl
ListCode=GetHttpPage(ListUrl,EquivType)
If ListCode<>"$False$" Then
	ListCode=GetBody(ListCode,LsString,LoString,True,True)
	If ListCode<>"$False$" Then 
		if rHsType=1 then
			rHsType=true
		elseif rHsType=0 then
			rHsType=False
		end if
		if rHoType=1 then
			rHoType=true
		elseif rHoType=0 then
			rHoType=False
		end if
		NewsArrayCode=GetArray(ListCode,rHsString,rHoString,rHsType,rHoType)
		If NewsArrayCode<>"$False$" Then
			NewsArray=Split(NewsArrayCode,"$Array$")
			For Testi=0 to Ubound(NewsArray)
				If rHUrlType1=1 Then
					if rHsType1=1 then
						rHsType1=true
					elseif rHsType1=0 then
						rHsType1=False
					end if
					if rHoType1=1 then
						rHoType1=true
					elseif rHoType1=0 then
						rHoType1=False
					end if
					NewsArray(Testi)=GetBody(NewsArray(Testi),rHsString1,rHoString1,rHsType1,rHoType1)
					If NewsArray(Testi)="$False$" Then
						FoundErr=True
						ErrMsg=ErrMsg & "<br><li>在修正分卷连接/分卷ID时出错。</li>"
					End if
				End if
				If rHttpUrlType=1 Then
					NewsArray(Testi)=Replace(rHttpUrlStr,"{$ID$}",NewsArray(Testi))
					NewsArray(Testi)=Replace(NewsArray(Testi),"{$Bl_id$}",ListStrUrl)
				Else
					NewsArray(Testi)=DefiniteUrl(NewsArray(Testi),ListUrl)
				End If
			Next
			UrlTest=NewsArray(0)
		Else
			FoundErr=True
			ErrMsg=ErrMsg & "<br><li>在获取分卷连接/分卷ID时出错。</li>"
		End If
		if cookTypes=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
			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
				TitleTest=cookArray(0)
			Else
				FoundErr=True
				ErrMsg=ErrMsg & "<br><li>在获取分卷标题时出错。</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
%><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>
		<td height="22" colspan="2">以下是分析后所得到的分卷绝对链接地址，请查看是否正确。<br>
		<%
For Testi=0 To Ubound(NewsArray)
   Response.Write "<a href='" & NewsArray(Testi) & "'"
   Response.Write " target=_blank>"
   if cookTypes=1 then
   Response.Write "" & cookArray(Testi) & ""
   else
   Response.Write "" & NewsArray(Testi) & ""
   end if
   Response.Write "</a><br>"
Next
%> <br>
		下面将抽取第一个分卷地址进行测试的结果，在填写以下标记时尽量不要使用该内容。 </td>
	</tr>
</table>
<br>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tborder">
	<tr>
		<td height="22" colspan="2"></td>
	</tr>
</table>
<br>
<form method="post" action="Admin_ItemAddNew5.asp" name="form2">
	<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tborder" style="LINE-HEIGHT: 150%">
		<tr align="center">
			<td colspan="4" align="center" class="thead">添 加 新 项 目--分 卷 页 设 置</td>
		</tr>
		<tr>
			<td width="50%" align="center" class="alt2" colspan="2">作品分卷页面开始标记：<br>
			<textarea name="cooksString" cols="30" rows="6" class="form"></textarea>
			</td>
			<td width="50%" align="center" class="alt1" colspan="2">作品分卷页面结束标记：<br>
			<textarea name="cookoString" cols="30" rows="6" class="form"></textarea>
			</td>
		</tr>
		<%if cookTypes=0 then%>
		<tr>
			<td width="50%" align="center" class="alt2" colspan="2">分卷标题开始标记： 
			<input type="radio" name="cosType" value="1" class="form">包含 
			<input type="radio" name="cosType" value="0" checked class="form">不包含<br>
			<textarea name="cosString" cols="30" rows="6" class="form"></textarea><br>
			避免填写包含有“(”、“)”等的内容，容易引起程序错误。</td>
			<td width="50%" align="center" class="alt1" colspan="2">分卷标题结束标记： 
			<input type="radio" name="cooType" value="1" class="form">包含 
			<input type="radio" name="cooType" value="0" checked class="form">不包含<br>
			<textarea name="cooString" cols="30" rows="6" class="form"></textarea><br>
			避免填写包含有“(”、“)”等的内容，容易引起程序错误。</td>
		</tr>
		<tr>
			<td width="40%" align="right" class="alt3">是否需要修正：&nbsp; </td>
			<td width="60%" class="alt3" colspan="3">
			<input type="radio" value="0" name="cookType1" checked class="form" onclick="cook3.style.display='none'">不需要&nbsp; 
			<input type="radio" value="1" name="cookType1" class="form" onclick="cook3.style.display=''">需要&nbsp; 
			</td>
		</tr>
		<tr id="cook3" style="display:none">
			<td width="50%" align="center" class="alt2" colspan="2">修正分卷标题开始标记： 
			<input type="radio" name="cosType1" value="1" class="form">包含 
			<input type="radio" name="cosType1" value="0" checked class="form">不包含<br>
			<textarea name="cosString1" cols="30" rows="6" class="form"></textarea></td>
			<td width="50%" align="center" class="alt1" colspan="2">修正分卷标题结束标记： 
			<input type="radio" name="cooType1" value="1" class="form">包含 
			<input type="radio" name="cooType1" value="0" checked class="form">不包含<br>
			<textarea name="cooString1" cols="30" rows="6" class="form"></textarea></td>
		</tr>
		<input type="hidden" name="cookTypes" value="<%=cookTypes%>"><%else%>
		<input type="hidden" name="cookTypes" value="<%=cookTypes%>"><%end if%>
		<tr>
			<td width="40%" align="right" class="alt3">我要从分卷页中获取：</td>
			<td width="60%" colspan="3" class="alt3">
			<input type="radio" value="0" name="readType1" checked onclick="read1.style.display='';read2.style.display='none'" class="form">章节连接/ID
			<input type="radio" value="1" name="readType1" onclick="read1.style.display='none';read2.style.display=''" class="form">章节标题和章节内容</td>
		</tr>
		<tr id="read1" style="display:">
			<td colspan="4">
			<table width="100%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#0650D2" bordercolordark="#FFFFFF" bgcolor="#D9D9D9">
				<tr>
					<td width="50%" align="center" class="alt2" colspan="2">章节链接/章节ID开始标记： 
					<input type="radio" name="HsType" value="1" class="form">包含 
					<input type="radio" name="HsType" value="0" checked class="form">不包含<br>
					<textarea name="HsString" cols="30" rows="5" class="form"></textarea><br>
					避免填写包含有“(”、“)”等的内容，容易引起程序错误。</td>
					<td width="50%" align="center" class="alt1" colspan="2">章节链接/章节ID结束标记： 
					<input type="radio" name="HoType" value="1" class="form">包含 
					<input type="radio" name="HoType" value="0" checked class="form">不包含<br>
					<textarea name="HoString" cols="30" rows="5" class="form"></textarea><br>
					避免填写包含有“(”、“)”等的内容，容易引起程序错误。</td>
				</tr>
				<tr>
					<td width="50%" align="center" class="alt3" colspan="2">是否需要修正章节链接/章节ID</td>
					<td width="50%" class="alt3" colspan="2">
					<input type="radio" value="0" name="HUrlType1" checked class="form" onclick="listed1.style.display='none'">不需要&nbsp; 
					<input type="radio" value="1" name="HUrlType1" class="form" onclick="listed1.style.display=''">需要&nbsp; 
					</td>
				</tr>
				<tr id="listed1" style="display:none">
					<td width="50%" align="center" colspan="2" class="alt2">修正章节链接/章节ID开始标记： 
					<input type="radio" name="HsType1" value="1" class="form">包含 
					<input type="radio" name="HsType1" value="0" checked class="form">不包含<br>
					<textarea name="HsString1" cols="30" rows="5" class="form"></textarea></td>
					<td width="50%" align="center" colspan="2" class="alt1">修正章节链接/章节ID结束标记： 
					<input type="radio" name="HoType1" value="1" class="form">包含 
					<input type="radio" name="HoType1" value="0" checked class="form">不包含<br>
					<textarea name="HoString1" cols="30" rows="5" class="form"></textarea></td>
				</tr>
				<tr align="center">
					<td colspan="4" align="center" class="alt1"><b>获取后的内容如果为ID形式请在下面的处理类型中选择&quot;重新定向&quot;并按照要求正确填写.</b><br>
					例如:起点中文网获取后为ID形式<br>
					<b>获取后的内容如果为连接形式,则获取内容必须是以当前页面为基准的相对或绝对地址</b><br>
					例如:世纪文学获取后为连接形式</td>
				</tr>
				<tr>
					<td width="40%" align="right" class="alt3">章节链接/章节ID处理类型：</td>
					<td width="60%" colspan="3" class="alt3">
					<input type="radio" value="0" name="HttpUrlType" checked onclick="HttpUrl1.style.display='none'" class="form">自动处理&nbsp; 
					<input type="radio" value="1" name="HttpUrlType" onclick="HttpUrl1.style.display=''" class="form">重新定向 
					</td>
				</tr>
				<tr id="HttpUrl1" style="display:none">
					<td width="40%" align="right" class="alt2">重新定向链接字符：</td>
					<td width="60%" colspan="3" class="alt1">
					<input name="HttpUrlStr" type="text" size="49" maxlength="200" value class="form"><br>
					格式：http://www.cmfu.com/readchapter.asp?bl_id={$Bl_id$}&amp;bu_id={$ID$}<br>
					其中 {$Bl_id$} 代表作品ID/Url ； {$ID$} 代表上述截取到的章节ID </td>
				</tr>
			</table>
			</td>
		</tr>
		<tr id="read2" style="display:none">
			<td colspan="4">
			<table width="100%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#0650D2" bordercolordark="#FFFFFF" bgcolor="#D9D9D9">
				<tr>
					<td width="50%" align="center" class="alt2">标题开始标记： 
					<input type="radio" name="TsType" value="1" class="form">包含 
					<input type="radio" name="TsType" value="0" checked class="form">不包含<br>
					<textarea name="TsString" cols="30" rows="6" class="form"></textarea><br>
					避免填写包含有“(”、“)”等的内容，容易引起程序错误。</td>
					<td width="50%" align="center" class="alt1">标题结束标记： 
					<input type="radio" name="ToType" value="1" class="form">包含 
					<input type="radio" name="ToType" value="0" checked class="form">不包含<br>
					<textarea name="ToString" cols="30" rows="6" class="form"></textarea><br>
					避免填写包含有“(”、“)”等的内容，容易引起程序错误。</td>
				</tr>
				<tr>
					<td width="50%" align="center" class="alt3">是否需要修正：&nbsp; 
					</td>
					<td width="50%" class="alt3">
					<input type="radio" value="0" name="TitleType1" checked class="form" onclick="Title1.style.display='none'">不需要&nbsp; 
					<input type="radio" value="1" name="TitleType1" class="form" onclick="Title1.style.display=''">需要&nbsp; 
					</td>
				</tr>
				<tr id="Title1" style="display:none">
					<td width="50%" align="center" class="alt3">修正标题开始标记： 
					<input type="radio" name="TsType1" value="1" class="form">包含 
					<input type="radio" name="TsType1" value="0" checked class="form">不包含<br>
					<textarea name="TsString1" cols="30" rows="6" class="form"></textarea></td>
					<td width="50%" align="center" class="alt3">修正标题结束标记： 
					<input type="radio" name="ToType1" value="1" class="form">包含 
					<input type="radio" name="ToType1" value="0" checked class="form">不包含<br>
					<textarea name="ToString1" cols="30" rows="6" class="form"></textarea></td>
				</tr>
				<tr>
					<td width="50%" align="center" class="alt2">正文开始标记： 
					<input type="radio" name="CsType" value="1" class="form">包含 
					<input type="radio" name="CsType" value="0" checked class="form">不包含<br>
					<textarea name="CsString" cols="30" rows="6" class="form"></textarea><br>
					避免填写包含有“(”、“)”等的内容，容易引起程序错误。</td>
					<td width="50%" align="center" class="alt1">正文结束标记：