📄 admin_mov_add_04.asp
字号:
alert("分析字符数不是有效数字！")
Exit Sub
End if
AnalyseString2=LenB(AnalyseString)
If InStr(Content,AnalyseString) = 0 Then
alert("分析无效！网页没有这些代码。")
Else
if InStr(Content,AnalyseString)-document.form1.AnalyseNum.value <= 0 then
Analysetemp = 1
Else
Analysetemp =InStr(Content,AnalyseString)-document.form1.AnalyseNum.value
End if
If InStr(Mid(Content,InStr(Content,AnalyseString)+AnalyseString2, LenB(Content)),AnalyseString) = 0 Then
if document.form1.AnalyseWay(0).checked=true Then
document.form1.AnalyseContent.value=Mid(Content,Analysetemp,Len(AnalyseString)+document.form1.AnalyseNum.value)
elseif document.form1.AnalyseWay(1).checked=true then
document.form1.AnalyseContent.value=Mid(Content,InStr(Content,AnalyseString),Len(AnalyseString)+document.form1.AnalyseNum.value)
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%>">列表设置</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%>"><font color=red>正文设置</font></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 cellSpacing=1 cellPadding=0 width="100%" align=center border=0>
<tr >
<td align='right'>
<select name="testUrl" onChange="javascript:window.location='Admin_mov_Add.asp?action=Add3&Type=modify&ItemID=<%=ItemID%>&testUrl='+this.options[this.selectedIndex].value;">
<%=ListArrb%>
</select>
</td>
</tr>
</table>
<br>
<form method="post" action="Admin_mov_Add.asp" name="form1">
<table class=border cellSpacing=1 cellPadding=0 width="100%" align=center border=0>
<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('<%=UrlTest%>');" >查看网页</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(UrlTest))%></TEXTAREA></td>
</tr>
</table>
<table class=border cellSpacing=1 cellPadding=0 width="100%" height='30' align=center border=0>
<tr>
<td class=tdbg colSpan=2 height=22> 这是分析后所得到的新闻绝对链接地址：<A href=<%=UrlTest%> target=_blank><FONT color=red><%=UrlTest%></FONT></A> 请查看是否正确。</td><input type='hidden' name='Testi' value='0'>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="border" >
<tr>
<td class=title colSpan=2 height=22><DIV align=center><STRONG> 项 目 编 辑--正 文 设 置</STRONG></DIV></td>
</tr>
<tr class="tdbg">
<td width="150" class="tdbg" align='center'><strong>标题开始标记：</strong><br><br><br><br><br><br><strong>标题结束标记：</strong></td>
<td class="tdbg" >
<textarea name="TsString" style='width:450px;height:100px'><%=dvHtmlEnCode1(rrs("TsString"))%></textarea> <input TYPE='button' value='测试代码' onCLICK='ceshi(5)' ><br>
<textarea name="ToString" style='width:450px;height:100px'><%=dvHtmlEnCode1(rrs("ToString"))%></textarea> <input TYPE='button' value='测试代码' onCLICK='ceshi(6)' >
</td>
</tr>
<tr class="tdbg">
<td width="150" class="tdbg" align='center'><strong>简介开始标记：</strong><br><br><br><br><br><br><strong>简介结束标记：</strong></td>
<td class="tdbg" >
<textarea name="CsString" style='width:450px;height:100px'><%=dvHtmlEnCode1(rrs("CsString"))%></textarea> <input TYPE='button' value='测试代码' onCLICK='ceshi(7)' ><br>
<textarea name="CoString" style='width:450px;height:100px'><%=dvHtmlEnCode1(rrs("CoString"))%></textarea> <input TYPE='button' value='测试代码' onCLICK='ceshi(8)' >
</td>
</tr>
<tr class="tdbg">
<td width="150" class="tdbg" align='center'><b>电影地址设置：</b></td>
<td class="tdbg" >
<input type="radio" value="1" name="DsStringbType" <% if rrs("DsStringbType")<>0 then Response.Write "checked"%> onClick="javascript:DsStringb1.style.display='';document.form1.XsStringbType[1].disabled='';">设置标签
<input type="radio" value="0" name="DsStringbType" <% if rrs("DsStringbType")=0 then Response.Write "checked"%> onClick="javascript:DsStringb1.style.display='none';document.form1.XsStringbType[1].disabled='True';XsStringb1.style.display='none';">将页面链接为电影地址(特殊用途)
</td>
</tr>
<tr class="tdbg" id="DsStringb1" style="display:'<% if rrs("DsStringbType")=0 then Response.Write"none"%>'">
<td width="150" class="tdbg" align='center'><strong>电影列表开始标记：</font></strong><br><br><br><br><br><br><strong>电影列表结束标记：</font></strong><br><br><br><br><br><br><strong>电影地址开始标记：</font></strong><br><br><br><br><br><br><strong>电影地址结束标记：</font></strong></td>
<td class="tdbg" >
<textarea name="DsStringb" style='width:450px;height:100px'><%=dvHtmlEnCode1(rrs("DsStringb"))%></textarea> <input TYPE='button' value='测试代码' onCLICK='ceshi(33)' ><br>
<textarea name="DoStringb" style='width:450px;height:100px'><%=dvHtmlEnCode1(rrs("DoStringb"))%></textarea> <input TYPE='button' value='测试代码' onCLICK='ceshi(34)' ><br>
<textarea name="DsStringbb" style='width:450px;height:100px'><%=dvHtmlEnCode1(rrs("DsStringbb"))%></textarea> <input TYPE='button' value='测试代码' onCLICK='ceshi(39)' ><br>
<textarea name="DoStringbb" style='width:450px;height:100px'><%=dvHtmlEnCode1(rrs("DoStringbb"))%></textarea> <input TYPE='button' value='测试代码' onCLICK='ceshi(40)' >
</td>
</tr>
<tr class="tdbg">
<td width="150" class="tdbg" align='center'><b>新页面电影地址设置：</b></td>
<td class="tdbg" >
<input type="radio" value="0" name="XsStringbType" <% if rrs("XsStringbType")=0 then Response.Write "checked"%> onClick="javascript:XsStringb1.style.display='none'">不作设置
<input type="radio" value="1" name="XsStringbType" <% if rrs("XsStringbType")=1 then Response.Write "checked"%> onClick="javascript:XsStringb1.style.display=''">设置标签
</td>
</tr>
<tr class="tdbg" id="XsStringb1" style="display:'none'">
<td width="150" class="tdbg" align='center'><strong>新页面电影列表开始：</font></strong><br><br><br><br><br><br><strong>新页面电影列表结束：</font></strong><br><br><br><br><br><br><strong>新页面电影地址开始：</font></strong><br><br><br><br><br><br><strong>新页面电影地址结束：</font></strong></td>
<td class="tdbg" >
<textarea name="XsStringb" style='width:450px;height:80px'><%=dvHtmlEnCode1(rrs("XsStringb"))%></textarea> <br>
<textarea name="XoStringb" style='width:450px;height:80px'><%=dvHtmlEnCode1(rrs("XoStringb"))%></textarea> <br>
<textarea name="XsStringbb" style='width:450px;height:80px'><%=dvHtmlEnCode1(rrs("XsStringbb"))%></textarea> <br>
<textarea name="XoStringbb" style='width:450px;height:80px'><%=dvHtmlEnCode1(rrs("XoStringbb"))%></textarea> <br>
</td>
</tr>
<!--电影地址截取链接处理开始-->
<tr>
<td width="150" class="tdbg" align='center'><strong>电影地址链接处理：</strong></td>
<td class="tdbg" >
<input type="radio" value="0" name="HttpDownUrlType" <% if rrs("HttpDownUrlType")=0 then Response.Write "checked"%> onClick="javascript:HttpDownUrl.style.display='none'">不作处理
<input type="radio" value="1" name="HttpDownUrlType" <% if rrs("HttpDownUrlType")=1 then Response.Write "checked"%> onClick="javascript:HttpDownUrl.style.display=''"> 重新定位
</td>
</tr>
<tr class="tdbg" id="HttpDownUrl" style="display:'<% if rrs("HttpDownUrlType")<>1 then Response.Write "none"%>'">
<td width="150" class="tdbg" align='center'><strong>绝对链接字符：</strong></td>
<td class="tdbg" >
<input name="HttpDownUrlStr" type="text" size="49" maxlength="200" value="<%=dvHtmlEnCode1(rrs("HttpDownUrlStr"))%>">
<br><font color=#0099FF>如果是动态js链接，用此功能。
<br>用链接设置捕获js的传值 例： onClick="nameid('xx')" 截取 onClick="nameid(' 和 ") 得到里面的ID
<br>再在绝对链接中填写实际路径 http://www.xxxxx.com/xxx/news.asp?id={$ID} {$ID}就是链接捕获的动态ID。</font>
</td>
</tr>
<!--电影地址截取链接处理结束-->
<tr class="tdbg">
<td width="150" class="tdbg" align='center'><b>电影主演设置：</b></td>
<td class="tdbg" >
<input type="radio" value="0" name="BsStringbType" <% if rrs("BsStringbType")=0 then Response.Write "checked"%> onClick="javascript:BsStringb1.style.display='none';BsStringb2.style.display='none'">不作设置
<input type="radio" value="1" name="BsStringbType" <% if rrs("BsStringbType")=1 then Response.Write "checked"%> onClick="javascript:BsStringb1.style.display='';BsStringb2.style.display='none'">设置标签
<input type="radio" value="2" name="BsStringbType" <% if rrs("BsStringbType")=2 then Response.Write "checked"%> onClick="javascript:BsStringb1.style.display='none';BsStringb2.style.display=''">指定主演
</td>
</tr>
<tr class="tdbg" id="BsStringb1" style="display:'none'">
<td width="150" class="tdbg" align='center'><strong>主演开始标记：</font></strong><br><br><br><br><br><br><strong>主演结束标记：</font></strong></td>
<td class="tdbg" >
<textarea name="BsStringb" style='width:450px;height:100px'><%=dvHtmlEnCode1(rrs("BsStringb"))%></textarea> <input TYPE='button' value='测试代码' onCLICK='ceshi(19)'><br>
<textarea name="BoStringb" style='width:450px;height:100px'><%=dvHtmlEnCode1(rrs("BoStringb"))%></textarea> <input TYPE='button' value='测试代码' onCLICK='ceshi(20)'>
</td>
</tr>
<tr class="tdbg" id="BsStringb2" style="display:'none'">
<td width="150" class="tdbg" align='center'><strong>请指定主演：</font></strong></td>
<td class="tdbg" ><input name="BoStringbstr" type="text" id="BoStringbstr" value="<%=dvHtmlEnCode1(rrs("BoStringbstr"))%>"></td>
</tr>
<tr class="tdbg">
<td width="150" class="tdbg" align='center'><b>电影语言设置：</b></td>
<td class="tdbg" >
<input type="radio" value="0" name="YsStringbType" <% if rrs("YsStringbType")=0 then Response.Write "checked"%> onClick="javascript:YsStringb1.style.display='none';YsStringb2.style.display='none'">不作设置
<input type="radio" value="1" name="YsStringbType" <% if rrs("YsStringbType")=1 then Response.Write "checked"%> onClick="javascript:YsStringb1.style.display='';YsStringb2.style.display='none'">设置标签
<input type="radio" value="2" name="YsStringbType" <% if rrs("YsStringbType")=2 then Response.Write "checked"%> onClick="javascript:YsStringb1.style.display='none';YsStringb2.style.display=''">指定语言
</td>
</tr>
<tr class="tdbg" id="YsStringb1" style="display:'none'">
<td width="150" class="tdbg" align='center'><strong>语言开始标记：</font></strong><br><br><br><br><br><br><strong>语言结束标记：</font></strong></td>
<td class="tdbg" >
<textarea name="YsStringb" style='width:450px;height:100px'><%=dvHtmlEnCode1(rrs("YsStringb"))%></textarea> <input TYPE='button' value='测试代码' onCLICK='ceshi(21)'><br>
<textarea name="YoStringb" style='width:450px;height:100px'><%=dvHtmlEnCode1(rrs("YoStringb"))%></textarea> <input TYPE='button' value='测试代码' onCLICK='ceshi(22)'>
</td>
</tr>
<tr class="tdbg" id="YsStringb2" style="display:'none'">
<td width="150" class="tdbg" align='center'><strong>请指定语言：</font></strong></td>
<td class="tdbg" ><input name="YoStringbStr" type="text" id="YoStringbStr" value="<%=dvHtmlEnCode1(rrs("YoStringbstr"))%>"></td>
</tr>
<tr class="tdbg">
<td width="150" class="tdbg" align='center'><b>电影图片设置：</b></td>
<td class="tdbg" >
<input type="radio" value="0" name="PsStringbType" <% if rrs("PsStringbType")=0 then Response.Write "checked"%> onClick="javascript:PsStringb1.style.display='none';PsStringb2.style.display='none'">不作设置
<input type="radio" value="1" name="PsStringbType" <% if rrs("PsStringbType")=1 then Response.Write "checked"%> onClick="javascript:PsStringb1.style.display='';PsStringb2.style.display='none'">设置标签
<input type="radio" value="2" name="PsStringbType" <% if rrs("PsStringbType")=2 then Response.Write "checked"%> onClick="javascript:PsStringb1.style.display='none';PsStringb2.style.display=''">指定图片
</td>
</tr>
<tr class="tdbg" id="PsStringb1" style="display:'none'">
<td width="150" class="tdbg" align='center'><strong>图片开始标记：</font></strong><br><br><br><br><br><br><strong>图片结束标记：</font></strong></td>
<td class="tdbg" >
<textarea name="PsStringb" style='width:450px;height:100px'><%=dvHtmlEnCode1(rrs("PsStringb"))%></textarea> <input TYPE='button' value='测试代码' onCLICK='ceshi(23)'><br>
<textarea name="PoStringb" style='width:450px;height:100px'><%=dvHtmlEnCode1(rrs("PoStringb"))%></textarea> <input TYPE='button' value='测试代码' onCLICK='ceshi(24)'>
</td>
</tr>
<tr class="tdbg" id="PsStringb2" style="display:'none'">
<td width="150" class="tdbg" align='center'><strong>请指定图片地址：</font></strong></td>
<td class="tdbg" ><input name="PoStringbStr" type="text" id="PoStringbStr" value="<%=dvHtmlEnCode1(rrs("PoStringbstr"))%>"></td>
</tr>
<tr class="tdbg">
<td width="150" class="tdbg" align='center'><b>电影平台设置：</b></td>
<td class="tdbg" >
<input type="radio" value="0" name="HsStringbType" <% if rrs("HsStringbType")=0 then Response.Write "checked"%> onClick="javascript:HsStringb1.style.display='none';HsStringb2.style.display='none'">不作设置
<input type="radio" value="1" name="HsStringbType" <% if rrs("HsStringbType")=1 then Response.Write "checked"%> onClick="javascript:HsStringb1.style.display='';HsStringb2.style.display='none'">设置标签
<input type="radio" value="2" name="HsStringbType" <% if rrs("HsStringbType")=2 then Response.Write "checked"%> onClick="javascript:HsStringb1.style.display='none';HsStringb2.style.display=''">指定平台
</td>
</tr>
<tr class="tdbg" id="HsStringb1" style="display:'none'">
<td width="150" class="tdbg" align='center'><strong>平台开始标记：</font></strong><br><br><br><br><br><br><strong>平台结束标记：</font></strong></td>
<td class="tdbg" >
<textarea name="HsStringb" style='width:450px;height:100px'><%=dvHtmlEnCode1(rrs("HsStringb"))%></textarea> <input TYPE='button' value='测试代码' onCLICK='ceshi(25)'><br>
<textarea name="HoStringb" style='width:450px;height:100px'><%=dvHtmlEnCode1(rrs("HoStringb"))%></textarea> <input TYPE='button' value='测试代码' onCLICK='ceshi(26)'>
</td>
</tr>
<tr class="tdbg" id="HsStringb2" style="display:'none'">
<td width="150" class="tdbg" align='center'><strong>请指定电影平台：</font></strong></td>
<td class="tdbg" ><input name="HoStringbStr" type="text" id="HoStringbStr" value="<%=dvHtmlEnCode1(rrs("HoStringbstr"))%>"></td>
</tr>
<tr class="tdbg">
<td width="150" class="tdbg" align='center'><b>解压密码设置：</b></td>
<td class="tdbg" >
<input type="radio" value="0" name="JsStringbType" <% if rrs("JsStringbType")=0 then Response.Write "checked"%> onClick="javascript:JsStringb1.style.display='none';JsStringb2.style.display='none'">不作设置
<input type="radio" value="1" name="JsStringbType" <% if rrs("JsStringbType")=1 then Response.Write "checked"%> onClick="javascript:JsStringb1.style.display='';JsStringb2.style.display='none'">设置标签
<input type="radio" value="2" name="JsStringbType" <% if rrs("JsStringbType")=2 then Response.Write "checked"%> onClick="javascript:JsStringb1.style.display='none';JsStringb2.style.display=''">指定密码
</td>
</tr>
<tr class="tdbg" id="JsStringb1" style="display:'none'">
<td width="150" class="tdbg" align='center'><strong>密码开始标记：</font></strong><br><br><br><br><br><br><strong>密码结束标记：</font></strong></td>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -