admin_itemaddnew4.asp

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

		    	  	elseif ToType=0 then
		    	  		ToType=False
		    	  	end if
					TitleCode=GetArray(ListCode,TsString,ToString,TsType,ToType)
					if TitleCode<>"$False$" Then
						Title=Split(TitleCode,"$Array$")
						For Testi=0 To Ubound(Title)
							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
								Title(Testi)=GetBody(Title(Testi),TsString1,ToString1,TsType1,ToType1)
								If Title(Testi)="$False$" Then
									FoundErr=True
									ErrMsg=ErrMsg & "<br><li>在修正章节标题时出错。</li>"
								End if
							End if
						Next
					Else
						FoundErr=True
						ErrMsg=ErrMsg & "<br><li>在获取章节标题时出错。</li>"
					End If
					TitleTest=Title(0)
				End If
				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),ListUrl)
						End If
						okfile=okfile&"<a href='" & NewsArray(Testi) & "' target=_blank>"
						if TitleTypes=1 then
							okfile=okfile&Title(Testi)
						else
							okfile=okfile&NewsArray(Testi)
						end if
						okfile=okfile&"</a><br>"
					Next
					UrlTest=NewsArray(0)
				Else
					FoundErr=True
					ErrMsg=ErrMsg & "<br><li>在获取章节连接/章节ID时出错。</li>"
				End If
			Next
		Else
			FoundErr=True
			ErrMsg=ErrMsg & "<br><li>在目录页面没有发现 分卷区块分割标记 请返回修正。</li>"
		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

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>
<%
Response.Write okfile
okfile=""
%> <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="form3">
	<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 width="50%" align="center" class="alt2">作品章节页面开始标记：<br>
			<textarea name="VsString" cols="30" rows="6" class="form"></textarea>
			</td>
			<td width="50%" align="center" class="alt1">作品章节页面结束标记：<br>
			<textarea name="VoString" cols="30" rows="6" class="form"></textarea>
			</td>
		</tr>
		<%if TitleTypes=0 then%>
		<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></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></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>
		<input type="hidden" name="TitleTypes" value="<%=TitleTypes%>"><%else%>
		<input type="hidden" name="TitleTypes" value="<%=TitleTypes%>"><%end if%>
		<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></td>
			<td width="50%" align="center" class="alt1">正文结束标记： 
			<input type="radio" name="CoType" value="1" class="form">包含 
			<input type="radio" name="CoType" value="0" checked class="form">不包含<br>
			<textarea name="CoString" cols="30" rows="6" class="form"></textarea></td>
		</tr>
		<tr>
			<td width="50%" align="center" class="alt3">是否需要修正：&nbsp; </td>
			<td width="50%" class="alt3">
			<input type="radio" value="0" name="ContType1" checked class="form" onclick="Cont1.style.display='none'">不需要&nbsp; 
			<input type="radio" value="1" name="ContType1" class="form" onclick="Cont1.style.display=''">需要&nbsp; 
			</td>
		</tr>
		<tr id="Cont1" style="display:none">
			<td width="50%" align="center" class="alt3">修正正文开始标记： 
			<input type="radio" name="CsType1" value="1" class="form">包含 
			<input type="radio" name="CsType1" value="0" checked class="form">不包含<br>
			<textarea name="CsString1" cols="30" rows="6" class="form"></textarea></td>
			<td width="50%" align="center" class="alt3">修正正文结束标记： 
			<input type="radio" name="CoType1" value="1" class="form">包含 
			<input type="radio" name="CoType1" value="0" checked class="form">不包含<br>
			<textarea name="CoString1" cols="30" rows="6" class="form"></textarea></td>
		</tr>
		<tr>
			<td width="50%" align="center" class="alt3">获取到的正文类型：&nbsp; </td>
			<td width="50%" class="alt3">
			<input type="radio" value="0" name="ContType2" checked class="form" onclick="Cont2.style.display='none'">纯文字&nbsp; 
			<input type="radio" value="1" name="ContType2" class="form" onclick="Cont2.style.display='none'">图文混排&nbsp; 
			<input type="radio" value="2" name="ContType2" class="form" onclick="Cont2.style.display=''">TXT 
			文件&nbsp; 
			<input type="radio" value="3" name="ContType2" class="form" onclick="Cont2.style.display='none'">单张图片 
			</td>
		</tr>
		<tr id="Cont2" style="display:none">
			<td width="50%" align="center" class="alt2">TXT文件中正文开始标记： 
			<input type="radio" name="CsType2" value="1" class="form">包含 
			<input type="radio" name="CsType2" value="0" checked class="form">不包含<br>
			<textarea name="CsString2" cols="30" rows="6" class="form"></textarea></td>
			<td width="50%" align="center" class="alt1">TXT文件中正文结束标记： 
			<input type="radio" name="CoType2" value="1" class="form">包含 
			<input type="radio" name="CoType2" value="0" checked class="form">不包含<br>
			<textarea name="CoString2" cols="30" rows="6" class="form"></textarea></td>
		</tr>
		<%if cookTypes=0 then%>
		<tr>
			<td width="50%" align="center" class="alt2">分卷标题设置：</td>
			<td width="50%" class="alt1">
			<input type="radio" value="0" name="cookType" checked class="form" onclick="cook1.style.display='none';cook2.style.display='none'">默认名称&nbsp; 
			<input type="radio" value="1" name="cookType" class="form" onclick="cook1.style.display='';cook2.style.display='none'">设置标签&nbsp; 
			<input type="radio" value="2" name="cookType" class="form" onclick="cook1.style.display='none';cook2.style.display=''">指定名称</td>
			</td>
		</tr>
		<tr id="cook2" style="display:none">
			<td width="50%" align="center" class="alt2"><font color="blue">请指定分卷标题：</font></td>
			<td width="50%" align="center" class="alt1">
			<input name="cookStr" type="text" class="form" size="30"></td>
		</tr>
		<tr id="cook1" 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">分卷标题开始标记： 
					<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></td>
					<td width="50%" align="center">分卷标题结束标记： 
					<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></td>
				</tr>
				<tr>
					<td width="50%" align="center">是否需要修正：&nbsp; </td>
					<td width="50%">
					<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">修正分卷标题开始标记： 
					<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">修正分卷标题结束标记： 
					<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>
			</table>
			</td>
		</tr>
		<input type="hidden" name="cookTypes" value="<%=cookTypes%>"><%else%>
		<input type="hidden" name="cookTypes" value="<%=cookTypes%>"><%end if%>
		<tr id="NewsPaing2">
			<td width="50%" align="right" class="alt2"><font color="blue">章节内容简单替换：</font></td>
			<td width="50%" class="alt1">
			<input type="radio" value="1" name="JDTHType1" class="form" onclick="JDTH1.style.display=''"><font color="blue">启用</font>第一个&nbsp; 
			<input type="radio" value="1" name="JDTHType2" class="form" onclick="JDTH2.style.display=''"><font color="blue">启用</font>第二个&nbsp; 
			<input type="radio" value="1" name="JDTHType3" class="form" onclick="JDTH3.style.display=''"><font color="blue">启用</font>第三个<br>
			<input type="radio" value="0" name="JDTHType1" class="form" checked onclick="JDTH1.style.display='none'">废除第一个&nbsp; 
			<input type="radio" value="0" name="JDTHType2" class="form" checked onclick="JDTH2.style.display='none'">废除第二个&nbsp; 
			<input type="radio" value="0" name="JDTHType3" class="form" checked onclick="JDTH3.style.display='none'">废除第三个</td>
		</tr>
		<tr id="JDTH1" style="display:none">
			<td width="50%" align="center" class="alt2">原文内容：<br>
			<textarea name="JDTH1sStr" cols="30" rows="6" class="form"></textarea>
			</td>
			<td width="50%" align="center" class="alt1">替换内容：<br>
			<textarea name="JDTH1oStr" cols="30" rows="6" class="form"></textarea>
			</td>
		</tr>
		<tr id="JDTH2" style="display:none">
			<td width="50%" align="center" class="alt2">原文内容：<br>
			<textarea name="JDTH2sStr" cols="30" rows="6" class="form"></textarea>
			</td>
			<td width="50%" align="center" class="alt1">替换内容：<br>
			<textarea name="JDTH2oStr" cols="30" rows="6" class="form"></textarea>
			</td>
		</tr>
		<tr id="JDTH3" style="display:none">
			<td width="50%" align="center" class="alt2">原文内容：<br>
			<textarea name="JDTH3sStr" cols="30" rows="6" class="form"></textarea>
			</td>
			<td width="50%" align="center" class="alt1">替换内容：<br>
			<textarea name="JDTH3oStr" cols="30" rows="6" class="form"></textarea>
			</td>
		</tr>
		<tr>
			<td colspan="2" align="center" class="alt3">
			<input type="button" name="button1" value="上&nbsp;一&nbsp;步" onclick="window.location.href='javascript:history.go(-1)'" class="button">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
			<input name="ItemID" type="hidden" value="<%=ItemID%>">
			<input name="readType" type="hidden" value="<%=readType%>">
			<input type="submit" name="Submit" value="下&nbsp;一&nbsp;步" class="button"></td>
			<input type="hidden" name="UrlTest" value="<%=UrlTest%>">
			<input type="hidden" name="TitleTest" value="<%=TitleTest%>">
			<input type="hidden" name="cookTest" value="<%=cookTest%>">
		</tr>
	</table>
</form>