📄 admin_mov_add_02.asp
字号:
elseif document.form1.AnalyseWay(2).checked=true then
document.form1.AnalyseContent.value=Mid(Content,Analysetemp,document.form1.AnalyseNum.value)+Mid(Content,InStr(Content,AnalyseString),Len(AnalyseString)+document.form1.AnalyseNum.value)
End if
Else
alert("分析失败！分析代码有重复,要确认为一的字符。")
Exit Sub
End if
End if
End Sub
</script>
<script language="JavaScript">
<!--
function CheckForm(){
if (document.form1.Content.value.length > 200000){
document.form1.Content.value="";
}
}
function setFileFileds(weburl){
str="<iframe id='IFrame1' marginwidth=0 marginheight=0 frameborder=0 width='800' height='300' src="+weburl+"></iframe>";
objFiles.innerHTML=str;
}
//-->
</script>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="border">
<tr class="tdbg">
<td width="70" height="30"><strong>管理导航：</strong></td>
<td height="30"><a href="Admin_mov_Manage.asp">管理首页</a> >> <a href="Admin_mov_Add.asp?Type=modify&ItemID=<%=ItemID%>">基本设置</a> >> <a href="Admin_mov_Add.asp?Action=Add1&Type=modify&ItemID=<%=ItemID%>"><font color=red>列表设置</font></a> >> <a href="Admin_mov_Add.asp?Action=Add2&Type=modify&ItemID=<%=ItemID%>">链接设置</a> >> <a href="Admin_mov_Add.asp?Action=Add3&Type=modify&ItemID=<%=ItemID%>">正文设置</a> >> <a href="Admin_mov_Add.asp?Action=Add4&Type=modify&ItemID=<%=ItemID%>">采样测试</a> >> <a href="Admin_mov_Add.asp?Action=Add5&Type=modify&ItemID=<%=ItemID%>">属性设置</a> >> 完成</td>
</tr>
</table>
<br>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="border" >
<form method="post" action="Admin_mov_Add.asp" name="form1">
<tr>
<td height="22" colspan="2" class="title"> <div align="center"><strong> 项 目 编 辑--采集目标网页 </strong> <Input type="radio" value="0" name="page" onClick="javascript:ShowPage.style.display='none';" checked>不查看
<Input type="radio" value="1" name="page" onClick="javascript:ShowPage.style.display='';javascript:setFileFileds('<%=ListStr%>');" >查看网页
</div></td>
</tr>
<tr class="tdbg" id="ShowPage" style="display:'none'">
<td class='tdbg' colspan='2' align='center' id='objFiles'></td>
</tr>
<tr>
<td height="22" colspan="2" class="title"> <div align="center"><strong> 项 目 编 辑--采集目标源码 </strong> <Input type="radio" value="0" name="code" onClick="javascript:Content.style.height='1';" >不查看
<Input type="radio" value="1" name="code" onClick="javascript:Content.style.height='300';" checked>查看源码
</div></td>
</tr>
<tr class="tdbg"> <td class="tdbg" colspan='2' align='center'> <TEXTAREA NAME='Content' ROWS='' COLS='' style='width:800px;height:300px'><%=dvHtmlEnCode1(GetHttpPage(Liststr))%></TEXTAREA></td>
</tr>
<tr>
<td height="22" colspan="2" class="title"> <div align="center"><strong>项 目 编 辑--列 表 设 置</strong></div></td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="border" >
<tr class="tdbg">
<td width="150" class="tdbg" align="center"><strong> 列表开始代码： </strong></td>
<td class="tdbg"> <textarea name="LsString" style='width:450px;height:100px' id="LsString"><%=dvHtmlEnCode1(rrs("LsString"))%></textarea> <input TYPE='button' value='测试代码' onCLICK='ceshi(1)' ></td>
</tr>
<tr class="tdbg">
<td width="150" class="tdbg" align="center"><strong> 列表结束代码： </strong></td>
<td class="tdbg"> <textarea name="LoString" style='width:450px;height:100px' id="LoString"><%=dvHtmlEnCode1(rrs("LoString"))%></textarea> <input TYPE='button' value='测试代码' onCLICK='ceshi(2)' ></td>
</tr>
<tr>
<td width="150" class="tdbg" align="center"><strong> 列表索引分页： </strong></td>
<td class="tdbg" >
<input type="radio" value="0" name="ListPaingType" <%if rrs("ListPaingType")=0 or rrs("ListPaingType")="" then Response.Write "checked"%> onClick="javascript:ListPaing1.style.display='none';ListPaing12.style.display='none';ListPaing2.style.display='none';ListPaing3.style.display='none'">不作设置
<input type="radio" value="1" name="ListPaingType" <%if rrs("ListPaingType")=1 then Response.Write "checked" %> onClick="javascript:ListPaing1.style.display='';ListPaing12.style.display='';ListPaing2.style.display='none';ListPaing3.style.display='none'">设置标签
<input type="radio" value="2" name="ListPaingType" <%if rrs("ListPaingType")=2 then Response.Write "checked" %> onClick="javascript:ListPaing1.style.display='none';ListPaing12.style.display='none';ListPaing2.style.display='';ListPaing3.style.display='none'">批量生成
<input type="radio" value="3" name="ListPaingType" <%if rrs("ListPaingType")=3 then Response.Write "checked" %> onClick="javascript:ListPaing1.style.display='none';ListPaing12.style.display='none';ListPaing2.style.display='none';ListPaing3.style.display=''">手动添加
</td>
</tr>
<tr class="tdbg" id="ListPaing1" style="display:'<%if rrs("ListPaingType")<>1 then Response.Write "none" %>'">
<td width="150" class="tdbg" align="center"><strong>下页开始标记：</strong><br><br><br><br><br><br>
<strong>下页结束标记：</font></strong>
</td>
<td class="tdbg" >
<textarea name="LPsString" style='width:450px;height:100px'><%=dvHtmlEnCode1(rrs("LPsString"))%></textarea> <input TYPE='button' value='测试代码' onCLICK='ceshi(3)' ><br>
<textarea name="LPoString" style='width:450px;height:100px'><%=dvHtmlEnCode1(rrs("LPoString"))%></textarea> <input TYPE='button' value='测试代码' onCLICK='ceshi(4)' >
</td>
</tr>
<tr class="tdbg" id="ListPaing12" style="display:'<%if rrs("ListPaingType")<>1 then Response.Write "none" %>'">
<td width="150" class="tdbg" align="center"><strong>索引分页重定向： </strong></td>
<td class="tdbg" >
<input name="ListPaingStr1" type="text" size="60" maxlength="200" value="<%=rrs("ListPaingStr1")%>">
<br><font color=#0099FF>一般不会用到，如果采集分页很纵深，并且下一页代码是相对路径。
<br>在下一步链接设置分析到的下一页列表的URL和实际不符，应用此功能。
<br>在列表设置捕获相对路径，如果是动态页捕获ID。
<br>例：在索引分页中填写实际路径 http://www.xxxxx.com/xxx/xx/xxx/news/{$ID} {$ID}就是列表捕获的相对路径或动态ID。</font>
<br>系统能智能分析网站的相对路径，如果特殊情况分析不对，请按上述步骤使用此功能。 </td>
</tr>
<tr class="tdbg" id="ListPaing2" style="display:'<%if rrs("ListPaingType")<>2 then Response.Write "none" %>'">
<td width="150" class="tdbg" align="center"><strong>批量生成： </strong></td>
<td class="tdbg" >原字符串：<br>
<input name="ListPaingStr2" type="text" size="60" maxlength="200" value="<%=rrs("ListPaingStr2")%>"><br>
<font color=#0099FF>例：http://www.xxxxx.com/news/index_{$ID}.html {$ID}代表分页数</font><br>
生成范围：<br>
<input name="ListPaingID1" type="text" size="8" maxlength="200" value="<%=rrs("ListPaingID1")%>"><span lang="en-us"> To </span><input name="ListPaingID2" type="text" size="8" maxlength="200" value="<%=rrs("ListPaingID2")%>">
<font color=#0099FF>例： 1 ~ 9 或 9 ~ 1 升序或倒序采集</font><br>
</td>
</tr>
<tr class="tdbg" id="ListPaing3" style="display:'<%if rrs("ListPaingType")<>3 then Response.Write "none" %>'">
<td width="150" class="tdbg" align="center"><strong>手动添加： </strong></td>
<td class="tdbg" >
<textarea name="ListPaingStr3" style='width:450px;height:100px'><%
if rrs("ListPaingStr3")<>"" then Response.write replace(rrs("ListPaingStr3"),"|","")
%></textarea>
<br><font color=#0099FF>注：一行写一个网页地址</font>
</td>
</tr>
<tr class="tdbg">
<td width="150" class="tdbg" align="center"><strong> 分析代码： </strong></td>
<td class="tdbg">
<Input type="radio" value="0" name="analyseType" checked onClick="javascript:analyse.style.display='none';">不作分析
<Input type="radio" value="1" name="analyseType" onClick="javascript:analyse.style.display='';">启用分析
<font color='#0099FF'>注：此功能为辅助功能与采集配置无关</font> </td>
</tr>
<tr class="tdbg" id="analyse" style="display:none">
<td width="150" class="tdbg" align="right"></strong></td>
<td class="tdbg"> 分析网页字符：
<Input TYPE='text' NAME='AnalyseString' value='' id='AnalyseString' size='40' maxlength='200'>
<Input TYPE='button' value=' 分 析 ' NAME='AnalyseStart' onCLICK='Analyse()' ><br>
<Input TYPE='radio' NAME='AnalyseWay' value='0' checked>向前代码
<Input TYPE='radio' NAME='AnalyseWay' value='1'>向后代码
<Input TYPE='radio' NAME='AnalyseWay' value='2'>前后代码
字符数：
<Input TYPE='text' NAME='AnalyseNum' value='300' size='5' maxlength='4'>
<br>
<TEXTAREA NAME='AnalyseContent' style='width:550px;height:100px'></TEXTAREA>
</td>
</tr>
<tr class="tdbg">
<td colspan="2" align="center" class="tdbg" height='50'>
<input name="ListStr" type="hidden" id="ListStr" value="<%=ListStr%>">
<input name="ItemID" type="hidden" id="ItemID" value="<%=ItemID%>">
<input name="Action" type="hidden" id="Action" value="Add2">
<input TYPE='button' value='返回上一步' onCLICK='history.back(-1)'>
<input type="submit" name="Submit" value="下 一 步" onClick='CheckForm()'>
</tr>
</form>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="border" >
<tr>
<td colspan='2' height="20" align="center"><font color=#0099FF>注：截取的Html代码的开始部分和结束部分，至少有一处代码是网页的唯一才能截取的成功。<br>但是这个页面的唯一并不代表下一页面就是唯一，就是必须截取要采集页面的相同代码，并且要求代码在采集页面是唯一的才能准确采集。</font></td>
</tr>
</table>
</body></html>
<%
rrs.close
set rrs=nothing
End Sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -