📄 admin_getarticle.asp
字号:
FoundErr=True
ErrMsg=ErrMsg & "<br><li>缩略图代码不能为空</li>"
else
If Newsimage="$False$" Then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>在分析：" & ListUrl & "新闻列表时发生错误！</li>"
Else
Newsim=Split(Newsimage,"$Array$")
If IsArray(Newsim)=True Then
For Testi=0 To Ubound(Newsim)
If HttpUrlType=1 Then
Newsim(Testi)=Replace(HttpUrlStr,"{$ID}",Newsim(Testi))
Else
Newsim(Testi)=CGet.FormatRemoteUrl(Newsim(Testi),ListUrl)
End If
Next
Else
FoundErr=True
ErrMsg=ErrMsg & "<br><li>在分析：" & ListUrl & "新闻列表时发生错误！</li>"
End If
End If
End If
End If
End If
'===================显示远程源码完=============================
If FoundErr=True Then
call Cl.ShowErr(ErrMsg)
Else
If CGet.G("ShowCode")="checkbox" Then
%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="Border" >
<tr>
<td height="22" colspan="2" class="title"> <div align="center"><strong>项 目 编 辑 -- 采集目标网站源代码 </strong>
<input type="radio" value="0" name="ShowCodeobt" onClick="ShowCode1.style.display='none';">
隐藏源代码窗口
<input type="radio" value="0" name="ShowCodeobt" checked onClick="ShowCode1.style.display='';">
显示源代码窗口
</div></td>
</tr>
<tr class="tdbg" id="ShowCode1">
<td height="22" colspan="2" class="tdbg" align="center">
<textarea name="showCode" cols="120" rows="10" class="lostfocus"><%=NewsCode%></textarea><br>
<%
For Testi=0 To Ubound(NewsArray)
Response.Write "采集的目标地址 →<a href="& NewsArray(Testi) &" target=""_blank"">"& NewsArray(Testi) &"</a>"
Response.Write "<a href='view-source:" & NewsArray(Testi) & "' target=_blank><font color='blue'>点击查看目标源代码</font></a><br>"
Next
If x_tp = 1 Then
For Testi=0 To Ubound(Newsim)
Response.Write "采集的缩略图地址 →"
Response.Write "<a href='" & Newsim(Testi) & "' target=_blank>" & Newsim(Testi) & "</a><br>"
Next
End If
%>
</td>
</tr>
</table>
<%
End If
If action="edit" Or action1="edit" Or action="s2" And action1<>"add" Then'是否从链接来读数据
Set RsItem=Conn_C.execute("Select * from Item where ItemID=" & ItemID)
TsString=RsItem("TsString")
ToString=RsItem("ToString")
CsString=RsItem("CsString")
CoString=RsItem("CoString")
photourls=RsItem("photourls")
photourlo=RsItem("photourlo")
NewsPaingType=RsItem("NewsPaingType")
NPsString=RsItem("NPsString")
NPoString=RsItem("NPoString")
NewsUrlPaing_s=RsItem("NewsUrlPaing_s")
NewsUrlPaing_o=RsItem("NewsUrlPaing_o")
PhotoPaingType=RsItem("PhotoPaingType")
PhotoType_s=RsItem("PhotoType_s")
PhotoType_o=RsItem("PhotoType_o")
PhotoLurl_s=RsItem("PhotoLurl_s")
PhotoLurl_o=RsItem("PhotoLurl_o")
Phototypefy_s=RsItem("Phototypefy_s")
Phototypefy_o=RsItem("Phototypefy_o")
Phototypefyurl_s=RsItem("Phototypefyurl_s")
Phototypefyurl_o=RsItem("Phototypefyurl_o")
Phototypeurl_s=RsItem("Phototypeurl_s")
Phototypeurl_o=RsItem("Phototypeurl_o")
DateType=RsItem("DateType")
DsString=RsItem("DsString")
DoString=RsItem("DoString")
AuthorType=RsItem("AuthorType")
AsString=RsItem("AsString")
AoString=RsItem("AoString")
AuthorStr=RsItem("AuthorStr")
CopyFromType=RsItem("CopyFromType")
FsString=RsItem("FsString")
FoString=RsItem("FoString")
CopyFromStr=RsItem("CopyFromStr")
KeyType=RsItem("KeyType")
KsString=RsItem("KsString")
KoString=RsItem("KoString")
KeyStr=RsItem("KeyStr")
RsItem.close
set RsItem=nothing
action1="edit"
End If
%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="Border">
<form method="post" action="?" name="form1">
<tr>
<td height="22" colspan="2" class="title"> <div align="center"><strong>添 加 新
项 目--正 文 设 置</strong></div> </td>
</tr>
<tr class="tdbg">
<td width="30%" align="right" class="tdbg" ><strong>标题开始标记：</strong><p> </p>
<strong>标题结束标记：</strong></td>
<td width="70%" class="tdbg">
<textarea name="TsString" cols="70" rows="5" class="lostfocus"><%= TsString %></textarea><br>
<textarea name="ToString" cols="70" rows="5" class="lostfocus"><%= ToString %></textarea></td>
</tr>
<tr class="tdbg">
<td width="20%" align="right" class="tdbg" ><strong>正文开始标记：</strong><p> </p>
<strong>正文结束标记：</strong></td>
<td width="75%" class="tdbg">
<textarea name="CsString" cols="70" rows="5" class="lostfocus"><%= CsString %></textarea> 设为"0"不采集<br>
<textarea name="CoString" cols="70" rows="5" class="lostfocus"><%= CoString %></textarea> 设为"0"不采集</td>
</tr>
<tr class="tdbg">
<td align="right" class="tdbg" ><b>是否正文分页设置：</b></td>
<td class="tdbg"><input type="radio" value="0" name="NewsPaingType" <%If NewsPaingType=0 Or NewsPaingType="" Then Response.Write("checked") %> onClick="photo1.style.display='none'">
不作设置
<input type="radio" value="1" name="NewsPaingType" <%If NewsPaingType=1 Then Response.Write("checked") %> onClick="photo1.style.display=''">
正文分页 </tr>
<tr class="tdbg" id="photo1" style="display:none">
<td align="right" class="tdbg" ><p><strong><font color=blue>分页开始标记:</font></strong></p>
<p> </p>
<p><strong><font color=blue>分页结束标记:</font></strong></p>
<p> </p>
<p><strong><font color=blue><br>
分页链接开始标记:</font></strong></p>
<p> </p>
<p><strong><font color=blue>分页链接结束标记:</font></strong></p>
</td>
<td class="tdbg"><p>
<textarea name="NPsString" cols="70" rows="5" class="lostfocus"><%= NPsString %></textarea>
<br>
<textarea name="NPoString" cols="70" rows="5" class="lostfocus"><%= NPoString %></textarea>
<br>
<textarea name="NewsUrlPaing_s" cols="70" rows="5" class="lostfocus"><%= NewsUrlPaing_s %></textarea>
<br>
<textarea name="NewsUrlPaing_o" cols="70" rows="5" class="lostfocus"><%= NewsUrlPaing_o %></textarea>
</p> </tr>
<tr class="tdbg">
<td width="20%" align="right" class="tdbg" ><b>时 间
设 置：</b></td>
<td width="75%" class="tdbg">
<input type="radio" value="0" name="DateType" <%If DateType<>1 Then Response.Write("checked") %> onClick="Date1.style.display='none'">不作设置
<input type="radio" value="1" <%If DateType=1 Then Response.Write("checked") %> name="DateType" onClick="Date1.style.display=''">设置标签 </tr>
<tr class="tdbg" id="Date1" style="display:none">
<td width="20%" align="right" class="tdbg" ><strong><font color=blue>时间开始标记：</font></strong><p> </p>
<strong><font color=blue>时间结束标记：</font></strong></td>
<td width="75%" class="tdbg">
<textarea name="DsString" cols="70" rows="5" class="lostfocus"><%= DsString %></textarea><br>
<textarea name="DoString" cols="70" rows="5" class="lostfocus"><%= DoString %></textarea></td>
</tr>
<tr class="tdbg">
<td width="20%" align="right" class="tdbg" ><b>作<span lang="en-us"> </span>者<span lang="en-us">
</span>设<span lang="en-us"> </span>置：</b></td>
<td width="75%" class="tdbg">
<input type="radio" value="0" <%If AuthorType=0 Or AuthorType="" Then Response.Write("checked") %> name="AuthorType" onClick="Author1.style.display='none';Author2.style.display='none'">不作设置
<input type="radio" value="1" <%If AuthorType=1 Then Response.Write("checked") %> name="AuthorType" onClick="Author1.style.display='';Author2.style.display='none'">设置标签
<input type="radio" value="2" name="AuthorType" <%If AuthorType=2 Then Response.Write("checked") %> onClick="Author1.style.display='none';Author2.style.display=''">指定作者</td>
</tr>
<tr class="tdbg" id="Author1" style="display:none">
<td width="20%" align="right" class="tdbg" ><strong><font color=blue>作者开始标记：</font></strong><p> </p>
<p> </p>
<strong><font color=blue>作者结束标记：</font></strong></td>
<td width="75%" class="tdbg">
<textarea name="AsString" cols="70" rows="7" class="lostfocus"><%= AsString %></textarea><br>
<textarea name="AoString" cols="70" rows="7" class="lostfocus"><%= AoString %></textarea></td>
</tr>
<tr class="tdbg" id="Author2" style="display:none">
<td width="20%" align="right" class="tdbg" ><strong><font color=blue>请指定作者：</font></strong></td>
<td width="75%" class="tdbg">
<input name="AuthorStr" type="text" class="lostfocus" id="AuthorStr" value="<%= AuthorStr %>"> </td>
</tr>
<tr class="tdbg">
<td width="20%" align="right" class="tdbg" ><b>来 源
设 置：</b></td>
<td width="75%" class="tdbg">
<input type="radio" value="0" name="CopyFromType" <%If CopyFromType=0 Or CopyFromType="" Then Response.Write("checked") %> onClick="CopyFrom1.style.display='none';CopyFrom2.style.display='none'">不作设置
<input type="radio" value="1" name="CopyFromType" <%If CopyFromType=1 Then Response.Write("checked") %> onClick="CopyFrom1.style.display='';CopyFrom2.style.display='none'">设置标签
<input type="radio" value="2" name="CopyFromType" <%If CopyFromType=2 Then Response.Write("checked") %> onClick="CopyFrom1.style.display='none';CopyFrom2.style.display=''">指定来源</td>
</tr>
<tr class="tdbg" id="CopyFrom1" style="display:none">
<td width="20%" align="right" class="tdbg" ><strong><font color=blue>来源开始标记：</font></strong><p> </p>
<p> </p>
<strong><font color=blue>来源结束标记：</font></strong></td>
<td width="75%" class="tdbg">
<textarea name="FsString" cols="70" rows="7" class="lostfocus"><%= FsString %></textarea><br>
<textarea name="FoString" cols="70" rows="7" class="lostfocus"><%= FoString %></textarea></td>
</tr>
<tr class="tdbg" id="CopyFrom2" style="display:none">
<td width="20%" align="right" class="tdbg" ><strong><font color=blue>请指定来源：</font></strong></td>
<td width="75%" class="tdbg">
<input name="CopyFromStr" type="text" class="lostfocus" id="CopyFromStr" value="<%= CopyFromStr %>"> </td>
</tr>
<tr class="tdbg">
<td width="20%" align="right" class="tdbg" ><b>关键字词设置：</b></td>
<td width="75%" class="tdbg">
<input type="radio" value="0" name="KeyType" <%If KeyType=0 Or KeyType="" Then Response.Write("checked") %> onClick="Key1.style.display='none';Key2.style.display='none'">标题生成
<input type="radio" value="1" name="KeyType" <%If KeyType=1 Then Response.Write("checked") %> onClick="Key1.style.display='';Key2.style.display='none'">标签生成
<input type="radio" value="2" name="KeyType" <%If KeyType=2 Then Response.Write("checked") %> onClick="Key1.style.display='none';Key2.style.display=''">自定义关键字</td>
</tr>
<tr class="tdbg" id="Key1" style="display:none">
<td width="20%" align="right" class="tdbg" ><strong><font color=blue>关键词开始标记：</font></strong><p> </p>
<p> </p>
<strong><font color=blue>关键词结束标记：</font></strong></td>
<td width="75%" class="tdbg">
<textarea name="KsString" cols="70" rows="7" class="lostfocus"><%= KsString %></textarea><br>
<textarea name="KoString" cols="70" rows="7" class="lostfocus"><%= KoString %></textarea></td>
</tr>
<tr class="tdbg" id="Key2" style="display:none">
<td width="20%" align="right" class="tdbg" ><strong><font color=blue>请指定关键：</font></strong></td>
<td width="75%" class="tdbg"><input name="KeyStr" type="text" class="lostfocus" id="KeyStr" value="<%= KeyStr %>">
<br>
格式：关键字之间用<font color=red>|</font>分隔，如：新闻|IT </td>
</tr>
<tr class="tdbg">
<td height="30" colspan="2" align="center" class="tdbg">
<input name="ItemID" type="hidden" value="<%=ItemID%>">
<%
Response.Write "<input name=""Action1"" type=""hidden"" id=""Action"" value="& action1 &">"
%>
<input name="Action" type="hidden" id="Action" value="demo">
<input type="hidden" name="UrlTest" id="UrlTest" value="<%=UrlTest%>">
<input name="button1" type="button" class="lostfocus" onClick="window.location.href='javascript:history.go(-1)'" value="上 一 步">
<input name="Submit" type="submit" class="lostfocus" value="下 一 步"> <input type="checkbox" name="ShowCode" value="checkbox">进行采集测试</td>
</tr>
</form>
</table>
<%
End If
End Sub'第二完
Sub demo()'测试页
If ItemID="" Then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>参数错误，项目ID不能为空</li>"
Else
ItemID=Clng(ItemID)
End If
If FoundErr<>True Then
Req_Err_msg 3
End If
If FoundErr<>True And Action="demo" And Action1="" Then
GetTest()
End If
If FoundErr=True Then
Call Cl.ShowErr(ErrMsg)
Else
If Action1="" And Action="demo" Or CGet.G("ShowCode")="checkbox" Then
%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="Border" >
<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 align="center" class="tdbg">
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -