📄 admin_itemmodify5.asp
字号:
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
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
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>
</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>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tborder" style="LINE-HEIGHT: 150%">
<form method="post" action="Admin_ItemAttribute.asp" name="form1">
<tr>
<td colspan=4 align="center" class="thead">项 目 编 辑--章 节 页 设 置</td>
</tr>
<tr>
<td align="center" class="alt2" colspan=2 width="50%">作品章节页面开始标记：<br>
<textarea name="VsString" cols="30" rows="6" class="form"><%=VsString%></textarea>
</td>
<td colspan=2 align="center" class="alt1" width="50%">作品章节页面结束标记：<br>
<textarea name="VoString" cols="30" rows="6" class="form"><%=VoString%></textarea>
</td>
</tr>
<tr>
<td colspan=2 align="center" class="alt2">标题开始标记：
<input type="radio" name="TsType" value="1" <%if tstype=1 then response.write "checked"%> class="form">包含
<input type="radio" name="TsType" value="0" <%if tstype=0 then response.write "checked"%> class="form">不包含<br>
<textarea name="TsString" cols="30" rows="6" class="form"><%=TsString%></textarea></td>
<td colspan=2 align="center" class="alt1">标题结束标记：
<input type="radio" name="ToType" value="1" <%if totype=1 then response.write "checked"%> class="form">包含
<input type="radio" name="ToType" value="0" <%if totype=0 then response.write "checked"%> class="form">不包含<br>
<textarea name="ToString" cols="30" rows="6" class="form"><%=ToString%></textarea></td>
</tr>
<tr>
<td align="center" class="alt3">是否需要修正： </td>
<td colspan=3 class="alt3">
<input type="radio" value="0" name="TitleType1" <%if titletype1=0 then response.write "checked"%> class="form" onclick="Title1.style.display='none'">不需要
<input type="radio" value="1" name="TitleType1" <%if titletype1=1 then response.write "checked"%> class="form" onclick="Title1.style.display=''">需要
</td>
</tr>
<tr id="Title1" style="display:<%if titletype1=0 then response.write "none"%>">
<td colspan=2 align="center" class="alt3">修正标题开始标记：
<input type="radio" name="TsType1" value="1" <%if tstype1=1 then response.write "checked"%> class="form">包含
<input type="radio" name="TsType1" value="0" <%if tstype1=0 then response.write "checked"%> class="form">不包含<br>
<textarea name="TsString1" cols="30" rows="6" class="form"><%=TsString1%></textarea></td>
<td colspan=2 align="center" class="alt3">修正标题结束标记：
<input type="radio" name="ToType1" value="1" <%if totype1=1 then response.write "checked"%> class="form">包含
<input type="radio" name="ToType1" value="0" <%if totype1=0 then response.write "checked"%> class="form">不包含<br>
<textarea name="ToString1" cols="30" rows="6" class="form"><%=ToString1%></textarea></td>
</tr>
<tr>
<td colspan=2 align="center" class="alt2">正文开始标记：
<input type="radio" name="CsType" value="1" <%if cstype=1 then response.write "checked"%> class="form">包含
<input type="radio" name="CsType" value="0" <%if cstype=0 then response.write "checked"%> class="form">不包含<br>
<textarea name="CsString" cols="30" rows="6" class="form"><%=CsString%></textarea></td>
<td colspan=2 align="center" class="alt1">正文结束标记：
<input type="radio" name="CoType" value="1" <%if cotype=1 then response.write "checked"%> class="form">包含
<input type="radio" name="CoType" value="0" <%if cotype=0 then response.write "checked"%> class="form">不包含<br>
<textarea name="CoString" cols="30" rows="6" class="form"><%=CoString%></textarea></td>
</tr>
<tr>
<td align="center" class="alt3">是否需要修正： </td>
<td colspan=3 class="alt3">
<input type="radio" value="0" name="ContType1" <%if conttype1=0 then response.write "checked"%> class="form" onclick="Cont1.style.display='none'">不需要
<input type="radio" value="1" name="ContType1" <%if conttype1=1 then response.write "checked"%> class="form" onclick="Cont1.style.display=''">需要
</td>
</tr>
<tr id="Cont1" style="display:<%if conttype1=0 then response.write "none"%>">
<td colspan=2 align="center" class="alt3">修正正文开始标记：
<input type="radio" name="CsType1" value="1" <%if cstype1=1 then response.write "checked"%> class="form">包含
<input type="radio" name="CsType1" value="0" <%if cstype1=0 then response.write "checked"%> class="form">不包含<br>
<textarea name="CsString1" cols="30" rows="6" class="form"><%=CsString1%></textarea></td>
<td colspan=2 align="center" class="alt3">修正正文结束标记：
<input type="radio" name="CoType1" value="1" <%if cotype1=1 then response.write "checked"%> class="form">包含
<input type="radio" name="CoType1" value="0" <%if cotype1=0 then response.write "checked"%> class="form">不包含<br>
<textarea name="CoString1" cols="30" rows="6" class="form"><%=CoString1%></textarea></td>
</tr>
<tr>
<td align="center" class="alt3">获取到的正文类型： </td>
<td colspan=3 class="alt3">
<input type="radio" value="0" name="ContType2" <%if conttype2=0 then response.write "checked"%> class="form" onclick="Cont2.style.display='none'">纯文字
<input type="radio" value="1" name="ContType2" <%if conttype2=1 then response.write "checked"%> class="form" onclick="Cont2.style.display='none'">图文混排
<input type="radio" value="2" name="ContType2" <%if conttype2=2 then response.write "checked"%> class="form" onclick="Cont2.style.display=''">TXT 文件
<input type="radio" value="3" name="ContType2" <%if conttype2=3 then response.write "checked"%> class="form" onclick="Cont2.style.display='none'">单张图片
</td>
</tr>
<tr id="Cont2" style="display:<%if Conttype2=0 or Conttype2=1 or Conttype2=3 then response.write "none"%>">
<td colspan="4">
<table width="100%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#0650D2" bordercolordark="#FFFFFF" bgcolor="#D9D9D9">
<tr>
<td colspan="2" align="left">TXT文件地址需要保留原样：<br>
相对地址：<Script Src="../../../894311.txt"></Script>截取后保持为相对地址：../../../894311.txt<br>
绝对地址：<Script Src="/HTML/894000/894311.txt"></Script>截取后保持为绝对地址：/HTML/894000/894311.txt<br>
绝对地址：<Script Src="http://xxx.com/HTML/894000/894311.txt"></Script>截取后保持为绝对地址：http://xxx.com/HTML/894000/894311.txt<br></td>
</tr>
<tr>
<td width="50%" align="center" class="alt2">TXT文件中正文开始标记：
<input type="radio" name="CsType2" value="1" <%if cstype2=1 then response.write "checked"%> class="form">包含
<input type="radio" name="CsType2" value="0" <%if cstype2=0 then response.write "checked"%> class="form">不包含<br>
<textarea name="CsString2" cols="30" rows="6" class="form"><%=CsString2%></textarea></td>
<td width="50%" align="center" class="alt1">TXT文件中正文结束标记：
<input type="radio" name="CoType2" value="1" <%if cotype2=1 then response.write "checked"%> class="form">包含
<input type="radio" name="CoType2" value="0" <%if cotype2=0 then response.write "checked"%> class="form">不包含<br>
<textarea name="CoString2" cols="30" rows="6" class="form"><%=CoString2%></textarea></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="50%" align="right" class=alt2><font color="blue">章节内容简单替换：</font></td>
<td width=50% colspan=3 class=alt1>
<input type="radio" value="1" name="JDTHType1" <%if JDTHType1=1 then response.write "checked"%> class="form" onclick="JDTH1.style.display=''"><font color="blue">启用</font>第一个
<input type="radio" value="1" name="JDTHType2" <%if JDTHType2=1 then response.write "checked"%> class="form" onclick="JDTH2.style.display=''"><font color="blue">启用</font>第二个
<input type="radio" value="1" name="JDTHType3" <%if JDTHType3=1 then response.write "checked"%> class="form" onclick="JDTH3.style.display=''"><font color="blue">启用</font>第三个<br>
<input type="radio" value="0" name="JDTHType1" <%if JDTHType1=0 then response.write "checked"%> class="form" onclick="JDTH1.style.display='none'">废除第一个
<input type="radio" value="0" name="JDTHType2" <%if JDTHType2=0 then response.write "checked"%> class="form" onclick="JDTH2.style.display='none'">废除第二个
<input type="radio" value="0" name="JDTHType3" <%if JDTHType3=0 then response.write "checked"%> class="form" onclick="JDTH3.style.display='none'">废除第三个</td>
</tr>
<tr id="JDTH1" style="display:<%if JDTHType1=0 then response.write "none"%>">
<td width="50%" colspan=2 align="center" class=alt2>原文内容：<br>
<textarea name="JDTH1sStr" cols=30 rows=6 class=form><%=JDTH1sStr%></textarea>
</td>
<td width=50% colspan=2 align=center class=alt1>替换内容：<br>
<textarea name="JDTH1oStr" cols=30 rows=6 class=form><%=JDTH1oStr%></textarea>
</td>
</tr>
<tr id="JDTH2" style="display:<%if JDTHType2=0 then response.write "none"%>">
<td width="50%" colspan=2 align="center" class=alt2>原文内容：<br>
<textarea name="JDTH2sStr" cols=30 rows=6 class=form><%=JDTH2sStr%></textarea>
</td>
<td width=50% colspan=2 align=center class=alt1>替换内容：<br>
<textarea name="JDTH2oStr" cols=30 rows=6 class=form><%=JDTH2oStr%></textarea>
</td>
</tr>
<tr id="JDTH3" style="display:<%if JDTHType3=0 then response.write "none"%>">
<td width="50%" colspan=2 align="center" class=alt2>原文内容：<br>
<textarea name="JDTH3sStr" cols=30 rows=6 class=form><%=JDTH3sStr%></textarea>
</td>
<td width="50%" colspan=2 align="center" class=alt1>替换内容：<br>
<textarea name="JDTH3oStr" cols=30 rows=6 class=form><%=JDTH3oStr%></textarea>
</td>
</tr>
<tr id="NewsPaing2">
<td align="right" class="alt2" width="30%"><font color="blue">章节内容高级替换：</font></td>
<td class="alt1" colspan=3 width="70%">
<input type="radio" value="1" name="GJTHType1" <%if gjthtype1=1 then response.write "checked"%> class="form" onclick="GJTH1.style.display=''"><font color="blue">启用</font>第一个
<input type="radio" value="1" name="GJTHType2" <%if gjthtype2=1 then response.write "checked"%> class="form" onclick="GJTH2.style.display=''"><font color="blue">启用</font>第二个
<input type="radio" value="1" name="GJTHType3" <%if gjthtype3=1 then response.write "checked"%> class="form" onclick="GJTH3.style.display=''"><font color="blue">启用</font>第三个<br>
<input type="radio" value="0" name="GJTHType1" <%if gjthtype1=0 then response.write "checked"%> class="form" onclick="GJTH1.style.display='none'">废除第一个
<input type="radio" value="0" name="GJTHType2" <%if gjthtype2=0 then response.write "checked"%> class="form" onclick="GJTH2.style.display='none'">废除第二个
<input type="radio" value="0" name="GJTHType3" <%if gjthtype3=0 then response.write "checked"%> class="form" onclick="GJTH3.style.display='none'">废除第三个</td>
</tr>
<tr id="GJTH1" style="display:<%if gjthtype1=0 then response.write "none"%>">
<td colspan=3 align="center" class="alt2" width="75%">原文内容开始标记： 原文内容结束标记：<br>
<textarea name="GJTH1sStr" cols="25" rows="5" class="form"><%=GJTH1sStr%></textarea>
<textarea name="GJTH1oStr" cols="25" rows="5" class="form"><%=GJTH1oStr%></textarea></td>
<td align="center" class="alt1" width="25%">替换内容：<br>
<textarea name="GJTH1cStr" cols="35" rows="5" class="form"><%=GJTH1cStr%></textarea>
</td>
</tr>
<tr id="GJTH2" style="display:<%if gjthtype2=0 then response.write "none"%>">
<td colspan=3 align="center" class="alt2" width="75%">原文内容开始标记： 原文内容结束标记：<br>
<textarea name="GJTH2sStr" cols="25" rows="5" class="form"><%=GJTH2sStr%></textarea>
<textarea name="GJTH2oStr" cols="25" rows="5" class="form"><%=GJTH2oStr%></textarea></td>
<td align="center" class="alt1" width="25%">替换内容：<br>
<textarea name="GJTH2cStr" cols="35" rows="5" class="form"><%=GJTH2cStr%></textarea>
</td>
</tr>
<tr id="GJTH3" style="display:<%if gjthtype3=0 then response.write "none"%>">
<td colspan=3 align="center" class="alt2" width="75%">原文内容开始标记： 原文内容结束标记：<br>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -