📄 admin_itemaddnew4.asp
字号:
<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 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>
<form method="post" action="Admin_ItemAddNew5.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 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">是否需要修正： </td>
<td width="50%" class="alt3">
<input type="radio" value="0" name="TitleType1" checked class="form" onclick="Title1.style.display='none'">不需要
<input type="radio" value="1" name="TitleType1" class="form" onclick="Title1.style.display=''">需要
</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">是否需要修正： </td>
<td width="50%" class="alt3">
<input type="radio" value="0" name="ContType1" checked class="form" onclick="Cont1.style.display='none'">不需要
<input type="radio" value="1" name="ContType1" class="form" onclick="Cont1.style.display=''">需要
</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">获取到的正文类型： </td>
<td width="50%" class="alt3">
<input type="radio" value="0" name="ContType2" checked class="form" onclick="Cont2.style.display='none'">纯文字
<input type="radio" value="1" name="ContType2" class="form" onclick="Cont2.style.display='none'">图文混排
<input type="radio" value="2" name="ContType2" class="form" onclick="Cont2.style.display=''">TXT
文件
<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>
<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'">默认名称
<input type="radio" value="1" name="cookType" class="form" onclick="cook1.style.display='';cook2.style.display='none'">设置标签
<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">是否需要修正： </td>
<td width="50%">
<input type="radio" value="0" name="cookType1" checked class="form" onclick="cook3.style.display='none'">不需要
<input type="radio" value="1" name="cookType1" class="form" onclick="cook3.style.display=''">需要
</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>
<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>第一个
<input type="radio" value="1" name="JDTHType2" class="form" onclick="JDTH2.style.display=''"><font color="blue">启用</font>第二个
<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'">废除第一个
<input type="radio" value="0" name="JDTHType2" class="form" checked onclick="JDTH2.style.display='none'">废除第二个
<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="上 一 步" 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>
<input type="hidden" name="UrlTest" value="<%=UrlTest%>">
<input type="hidden" name="TitleTest" value="<%=TitleTest%>">
</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
FoundErr=True
ErrMsg=ErrMsg & "<br><li>请选择要是否修正分卷链接/分卷ID</li>"
elseif rHUrlType1=1 then
If rHsString1="" or rHsType1="" or rHoString1="" or rHoType1="" Then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>修正分卷链接/分卷ID开始/结束标记不能为空</li>"
End If
elseif rHUrlType1=0 then
else
FoundErr=True
ErrMsg=ErrMsg & "<br><li>参数传递错误</li>"
End If
If rHttpUrlType="" Then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>请选择分卷链接处理类型</li>"
Else
rHttpUrlType=Clng(rHttpUrlType)
If rHttpUrlType=1 Then
If rHttpUrlStr="" Then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>绝对链接字符设置不能为空</li>"
Else
If Len(rHttpUrlStr)<10 Then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>绝对链接字符设置不正确(10个字符以上)</li>"
End If
End If
End If
End If
If cookTypes="" Then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>请设置分卷标题类型</li>"
Else
cookTypes=Clng(cookTypes)
If cookTypes=1 Then
If cosType="" or cooType="" or cosString="" or cooString="" Then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>请将分卷标题的开始/结束标记填写完整</li>"
Else
if cooktype1="" then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>请选择是否修正分卷标题</li>"
elseif cooktype1=1 then
If cosType1="" or cosString1="" or cooType1="" or cooString1="" Then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>请将修正分卷标题的开始/结束标记填写完整</li>"
end if
elseif cooktype1=0 then
else
FoundErr=True
ErrMsg=ErrMsg & "<br><li>参数传递错误</li>"
End If
End If
ElseIf cookTypes=0 Then
Else
FoundErr=True
ErrMsg=ErrMsg & "<br><li>分卷标题类型参数错误，请从有效链接进入</li>"
End If
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("ListStrUrl")=ListStrUrl
Rs("LsString")=LsString
Rs("LoString")=LoString
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -