📄 admin_itemmodify4.asp
字号:
if TitleTypes=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
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
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 Err.Number <> 0 Then
Response.Write Err.Description
Err.Clear()
end if
If FoundErr=True Then
Call WriteErrMsg(ErrMsg)
Else
%>
<form method="post" action="Admin_ItemModify5.asp" name="form1">
<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 "<input type=radio name=UrlTest value='" & NewsArray(Testi) & "' class=form> <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%">
<tr>
<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"><%=VsString%></textarea>
</td>
<td width="50%" align="center" class="alt1">作品章节页面结束标记：<br>
<textarea name="VoString" cols="30" rows="6" class="form"><%=VoString%></textarea>
</td>
</tr>
<%if TitleTypes=0 then%>
<tr>
<td width="50%" 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 width="50%" 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 width="50%" align="center" class="alt3">是否需要修正： </td>
<td width="50%" 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 width="50%" 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 width="50%" 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>
<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" <%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 width="50%" 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 width="50%" align="center" class="alt3">是否需要修正： </td>
<td width="50%" 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 width="50%" 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 width="50%" 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 width="50%" align="center" class="alt3">获取到的正文类型： </td>
<td width="50%" 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="#d1d1e1">
<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="center" class="alt2">分卷标题设置：</td>
<td width="50%" class="alt1">
<input type="radio" value="0" name="cookType" <%if cooktype=0 then response.write "checked"%> class="form" onclick="cook1.style.display='none';cook2.style.display='none'">默认名称
<input type="radio" value="1" name="cookType" <%if cooktype=1 then response.write "checked"%> class="form" onclick="cook1.style.display='';cook2.style.display='none'">设置标签
<input type="radio" value="2" name="cookType" <%if cooktype=2 then response.write "checked"%> class="form" onclick="cook1.style.display='none';cook2.style.display=''">指定名称</td>
</td>
</tr>
<tr id="cook2" style="display:<%if Cooktype=0 or Cooktype=1 then response.write "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" value="<%=cookStr%>"></td>
</tr>
<tr id="cook1" style="display:<%if Cooktype=0 or Cooktype=2 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 width="50%" align="center" class="alt2">分卷标题开始标记：
<input type="radio" name="cosType" value="1" <%if costype=1 then response.write "checked"%> class="form">包含
<input type="radio" name="cosType" value="0" <%if costype=0 then response.write "checked"%> class="form">不包含<br>
<textarea name="cosString" cols="30" rows="6" class="form"><%=cosString%></textarea></td>
<td width="50%" align="center" class="alt1">分卷标题结束标记：
<input type="radio" name="cooType" value="1" <%if cootype=1 then response.write "checked"%> class="form">包含
<input type="radio" name="cooType" value="0" <%if cootype=0 then response.write "checked"%> class="form">不包含<br>
<textarea name="cooString" cols="30" rows="6" class="form"><%=CooString%></textarea></td>
</tr>
<tr>
<td width="50%" align="center" class="alt3">是否需要修正：
</td>
<td width="50%" class="alt3">
<input type="radio" value="0" name="cookType1" <%if cooktype1=0 then response.write "checked"%> class="form" onclick="cook3.style.display='none'">不需要
<input type="radio" value="1" name="cookType1" <%if cooktype1=1 then response.write "checked"%> class="form" onclick="cook3.style.display=''">需要
</td>
</tr>
<tr id="cook3" style="display:<%if Cooktype1=0 then response.write "none"%>">
<td width="50%" align="center" class="alt3">修正分卷标题开始标记：
<input type="radio" name="cosType1" value="1" <%if costype1=1 then response.write "checked"%> class="form">包含
<input type="radio" name="cosType1" value="0" <%if costype1=0 then response.write "checked"%> class="form">不包含<br>
<textarea name="cosString1" cols="30" rows="6" class="form"><%=CosString1%></textarea></td>
<td width="50%" align="center" class="alt3">修正分卷标题结束标记：
<input type="radio" name="cooType1" value="1" <%if cootype1=1 then response.write "checked"%> class="form">包含
<input type="radio" name="cooType1" value="0" <%if cootype1=0 then response.write "checked"%> class="form">不包含<br>
<textarea name="cooString1" cols="30" rows="6" class="form"><%=CooString1%></textarea></td>
</tr>
</table>
</td>
</tr>
<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" <%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%" align="center" class="alt2">原文内容：<br>
<textarea name="JDTH1sStr" cols="30" rows="6" class="form"><%=JDTH1sStr%></textarea>
</td>
<td width="50%" 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%" align="center" class="alt2">原文内容：<br>
<textarea name="JDTH2sStr" cols="30" rows="6" class="form"><%=JDTH2sStr%></textarea>
</td>
<td width="50%" 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%" align="center" class="alt2">原文内容：<br>
<textarea name="JDTH3sStr" cols="30" rows="6" class="form"><%=JDTH3sStr%></textarea>
</td>
<td width="50%" align="center" class="alt1">替换内容：<br>
<textarea name="JDTH3oStr" cols="30" rows="6" class="form"><%=JDTH3oStr%></textarea>
</td>
</tr>
<tr>
<td colspan="2" align="center" class="alt3">
<input type="button" name="button1" value="上 一 步" onclick="window.location.href='javascript:history.go(-1)'" class="button">
<input name="ItemID" type="hidden" value="<%=ItemID%>">
<input name="readType" type="hidden" value="<%=readType%>">
<input type="submit" name="Submit" value="下 一 步" class="button"></td>
</tr>
</table>
</form>
<%End If
end sub
Sub cookset()
rHsType=Trim(Request.Form("rHsType"))
rHoType=Trim(Request.Form("rHoType"))
rHsString=Request.Form("rHsString")
rHoString=Request.Form("rHoString")
rHUrlType1=Request.Form("rHUrlType1")
rHsType1=Request.Form("rHsType1")
rHoType1=Request.Form("rHoType1")
rHsString1=Request.Form("rHsString1")
rHoString1=Request.Form("rHoString1")
rHttpUrlType=Trim(Request.Form("rHttpUrlType"))
rHttpUrlStr=Trim(Request.Form("rHttpUrlStr"))
CookTypes=Request.Form("CookTypes")
Costype=Request.Form("Costype")
Cootype=Request.Form("Cootype")
CosString=Request.Form("CosString")
CooString=Request.Form("CooString")
CookType1=Request.Form("CookType1")
Costype1=Request.Form("Costype1")
Cootype1=Request.Form("Cootype1")
CosString1=Request.Form("CosString1")
CooString1=Request.Form("CooString1")
If rHsString="" or rHsType="" or rHoString="" or rHoType="" Then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>分卷链接/章节ID开始/结束标记不能为空</li>"
End If
if rHUrlType1="" then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -