📄 admin_getarticle.asp
字号:
Div
<input name="Script_Class" type="checkbox" value="yes" <%If Script_Class=1 Then response.write "checked"%>>
Class
<input name="Script_Table" type="checkbox" value="yes" <%If Script_Table=1 Then response.write "checked"%>>
Table
<input name="Script_Tr" type="checkbox" value="yes" <%If Script_Tr=1 Then response.write "checked"%>>
Tr
<br>
<input name="Script_Span" type="checkbox" value="yes" <%If Script_Span=1 Then response.write "checked"%>>
Span
<input name="Script_Img" type="checkbox" value="yes" <%If Script_Img=1 Then response.write "checked"%>>
Img
<input name="Script_Font" type="checkbox" value="yes" <%If Script_Font=1 Then response.write "checked"%>>
Font
<input name="Script_A" type="checkbox" value="yes" <%If Script_A=1 Then response.write "checked"%>>
A
<input name="Script_Html" type="checkbox" value="yes" <%If Script_Html=1 Then response.write "checked"%> onclick='return confirm("确定要选择该标记吗？这将删除正文中的所有Html标记，结果将导致该文章的可查看性降低！");'>
Html
<input name="Script_Td" type="checkbox" value="yes" <%If Script_Td=1 Then response.write "checked"%>>
Td </td>
</tr>
<tr class="tdbg">
<td align="right"><b>内容字符替换操作：</b></td>
<td><table width="98%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="70%"><select name="strReplace" size="2" id="strReplace" style="width:400;height:100" ondblclick="return ModifyReplace();">
<%
If Not IsNull(strReplace) Then
Dim strReplaceArray
strReplaceArray = Split(strReplace, "$$$")
For i = 0 To UBound(strReplaceArray)
If Len(strReplaceArray(i)) > 1 Then
Response.Write "<option value=""" & strReplaceArray(i) & """>" & strReplaceArray(i) & "</option>" & vbCrLf
End If
Next
End If
%>
</select>
</td>
<td width="30%" align="left">
<input type="button" name="addreplace" value="添加替换字符" onClick="AddReplace();">
<br><br style="overflow: hidden; line-height: 5px">
<input type="button" name="modifyreplace" value="修改当前字符" onClick="return ModifyReplace();">
<br><br style="overflow: hidden; line-height: 5px">
<input type="button" name="delreplace" value="删除当前字符" onClick="DelReplace();">
<br>
<input type="hidden" name="ReplaceList" value=""></td>
</tr>
</table>
</td>
</tr>
<tr class="tdbg">
<td align="right"><b>数量限制：</b></td>
<%If CollecNewsNum="" then CollecNewsNum=0 %>
<td><input name="CollecNewsNum" type="text" id="CollecNewsNum" value="<%=CollecNewsNum%>" size="10" maxlength="10">
<font color='#0000FF'>0为采集所有 成功条数 </font></td>
</tr>
<tr class="tdbg">
<td align="right"><b>评分等级：</b></td>
<td>
<%If Stars=0 Then Stars=5 %>
<Select name="Stars">
<option value="5" Selected <%If Stars=5 Then response.write "Selected"%>>★★★★★</option>
<option value="4" <%If Stars=4 Then response.write "Selected"%>>★★★★</option>
<option value="3" <%If Stars=3 Then response.write "Selected"%>>★★★</option>
<option value="2" <%If Stars=2 Then response.write "Selected"%>>★★</option>
<option value="1" <%If Stars=1 Then response.write "Selected"%>>★</option>
</Select>
</td>
</tr>
<tr class="tdbg">
<td align="right"><b>查看点数：</b></td>
<td><input name='InfoPoint' type='text' id='InfoPoint' value='<%=InfoPoint%>' size='5' maxlength='3'>
<font color='#0000FF'>如果大于0，则用户查看此<%=radioid%>时将消耗相应点数。（对游客和管理员无效）</font> </td>
</tr>
<tr class="tdbg">
<td align="right"><b>点击数初始值：</b></td>
<td><input name="Hits" type="text" id="Hits" value="<%=Hits%>" size="10" maxlength="10">
<font color='#0000FF'>这功能是提供给管理员作弊用的。不过尽量不要用呀！^_^</font> </td>
</tr>
<tr class="tdbg">
<td height="30" colspan="2" align="center" class="tdbg">
<%
Select Case action
Case "add"
Response.Write "<input name=""Action1"" type=""hidden"" id=""Action"" value=""add"">"
Case "edit"
Response.Write "<input name=""Action1"" type=""hidden"" id=""Action"" value=""edit"">"
End Select
%>
<input name="ItemID" type="hidden" id="ItemID" value="<%=ItemID%>">
<input name="Action" type="hidden" id="Action" value="s1">
<input name="ModuleID" type="hidden" id="Action" value="<%= ModuleID %>">
<input name="Cancel" type="button" class="lostfocus" id="Cancel" onClick="window.location.href='Admin_GetArticle.asp'" value=" 返 回 ">
<input name="Submit" type="submit" class="lostfocus" value="下 一 步"> <input type="checkbox" name="ShowCode" value="checkbox">显示源码</td>
</tr>
</form>
</table>
</body>
</html>
<%End Sub%>
<%
Sub setup1()'第一步
If Action1="edit" And Action="s1" Or Action1="add" Then
Req_Err_msg 1 '检查提交设置并保存
If FoundErr<>True And CGet.G("ShowCode")="checkbox" Then
ListCode=CGet.ReplaceTrim(CGet.GetHttpPage(ListUrl,Encoding))
If ListCode="$False$" Then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>在获取:" & ListUrl & "网页源码时发生错误</li>"
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" class="tdbg" id="ShowCode1">
<td height="22" colspan="2" class="tdbg" align="center">
<textarea name="showCode" cols="120" rows="10" class="lostfocus"><%=ListCode%></textarea><br>采集的目标地址 →<a href=<%=ListUrl%> target="_blank"><%=ListUrl%></a> <a href='view-source:<%=ListUrl%>' target='_blank'><font color='blue'>点击查看目标源代码</font></a></td>
</tr>
</table>
<% End If
If action="edit" Or action1="edit" Or action="s1" And action1<>"add" Then'是否从链接来读数据
Set RsItem=Conn_C.execute("Select * from Item where ItemID=" & ItemID)
HttpUrlType=RsItem("HttpUrlType")'重定链接
HttpUrlStr=RsItem("HttpUrlStr")'重定链接
LsString=RsItem("LsString")
LoString=RsItem("LoString")
HsString=RsItem("HsString")
HoString=RsItem("HoString")
ListUrl=RsItem("ListStr")
imhstr=RsItem("imhstr")
imostr=RsItem("imostr")
x_tp=RsItem("x_tp")
Encoding=RsItem("Encoding")
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 align="right" class="tdbg" ><strong>列表开始代码：</strong></td>
<td class="tdbg"><textarea name="LsString" cols="70" rows="7" class="lostfocus"><%=LsString %></textarea></td>
</tr>
<tr class="tdbg">
<td align="right" class="tdbg" ><strong>列表结束代码：</strong></td>
<td class="tdbg"><textarea name="LoString" cols="70" rows="7" class="lostfocus"><%=LoString %></textarea></td>
</tr>
<tr class="tdbg">
<td width="20%" align="right" class="tdbg" ><strong>链接开始代码：</strong></td>
<td width="75%" class="tdbg">
<textarea name="HsString" cols="70" rows="7" class="lostfocus"><%= HsString %></textarea></td>
</tr>
<tr class="tdbg">
<td width="20%" align="right" class="tdbg" ><strong>链接结束代码：</strong></td>
<td width="75%" class="tdbg">
<textarea name="HoString" cols="70" rows="7" class="lostfocus"><%= HoString %></textarea></td>
</tr>
<tr class="tdbg">
<td width="20%" align="right" class="tdbg" ><strong>重定链接地址：</strong></td>
<td width="75%" class="tdbg">
<input type="radio" name="HttpUrlType" value="0" <%If HttpUrlType=0 Or HttpUrlType="" Then Response.Write("checked")%> onClick="HttpUrlType1.style.display='none'">自动外理
<input type="radio" name="HttpUrlType" value="1" <%If HttpUrlType=1 Then Response.Write("checked")%> onClick="HttpUrlType1.style.display=''">
重新链接位置
</td>
</tr>
<tr class="tdbg" id="HttpUrlType1" style="display:none" >
<td align="right" class="tdbg" ><b><font color=blue>重定链接字符：</font></b></td>
<td class="tdbg">
<input name="HttpUrlStr" type="text" size="70" maxlength="200" value="<%=HttpUrlStr%>" class="lostfocus">
<br>
如:javascript:Openwin("<font color="#FF0000">8785</font>") <br>
function Openwin(ID) {
popupWin = window.open('<font color="#FF0000">http://www.aspoo.com/</font>'+ ID + '<font color="#FF0000">.html</font>','','width=517,height=400,scrollbars=yes')}<br>
<font color="#FF0000">正确设置:http://www.aspoo.com/{$ID}.html</font>
</td>
</tr>
<tr class="tdbg">
<td align="right" class="tdbg" ><strong>列表缩略图设置：</strong></td>
<td class="tdbg">
<input type="radio" name="x_tp" value="0" <%If x_tp=0 Or x_tp="" Then Response.Write("checked")%> onClick="picl1.style.display='none'">
不作设置
<input type="radio" name="x_tp" value="1" <%If x_tp=1 Then Response.Write("checked")%> onClick="picl1.style.display=''">
列表缩略图</td>
</tr>
<tr class="tdbg" id="picl1" <%If x_tp<>1 Then Response.Write "style=""display:none""" %> >
<td align="right" class="tdbg" ><p><strong><font color=blue>列表缩略图开始代码：</font>
</strong></p>
<p> </p>
<p> </p>
<p><strong><font color=blue>列表缩略图结束代码：</font></strong></p></td>
<td class="tdbg"><textarea name="imhstr" cols="70" rows="7" id="imhstr" class="lostfocus"><%= imhstr %></textarea><br/>
<textarea name="imostr" cols="70" rows="7" id="imostr" class="lostfocus"><%= imostr %></textarea></td>
</tr>
<tr class="tdbg">
<td colspan="2" align="center" class="tdbg" height="30">
<input name="ItemID" type="hidden" value="<%=ItemID%>">
<input name="Encoding" type="hidden" value="<%=Encoding%>">
<%
Select Case action1
Case "add"
Response.Write "<input name=""Action1"" type=""hidden"" id=""Action"" value=""add"">"
Case "edit"
Response.Write "<input name=""Action1"" type=""hidden"" id=""Action"" value=""edit"">"
End Select
%>
<input name="Action" type="hidden" id="Action" value="s2">
<input type="button" name="button1" class="lostfocus" value="上 一 步" onClick="window.location.href='javascript:history.go(-1)'" >
<input type="submit" name="Submit" class="lostfocus" value="下 一 步"> <input type="checkbox" name="ShowCode" value="checkbox">显示源码</td>
</tr>
</form>
</table>
<%
End If
End Sub'第一步完
Sub setup2()'第二步
Req_Err_msg 2
'======================显示远程源码==============
If FoundErr<>True And CGet.G("ShowCode")="checkbox" Then'得到远程源码
ListCode=CGet.ReplaceTrim(CGet.GetHttpPage(ListUrl,Encoding))
If ListCode<>"$False$" Then
ListCode=CGet.GetBody(ListCode,LsString,LoString,False,False)
If ListCode<>"$False$" Then
NewsArrayCode=CGet.GetArray(ListCode,HsString,HoString,False,False)
If x_tp =1 Then
Newsimage=CGet.GetArray(ListCode,imhstr,imostr,False,False)
End If
If NewsArrayCode<>"$False$" Then
NewsArray=Split(NewsArrayCode,"$Array$")
For Testi=0 To Ubound(NewsArray)
If HttpUrlType=1 Then
NewsArray(Testi)=Replace(HttpUrlStr,"{$ID}",NewsArray(Testi))
Else
NewsArray(Testi)=CGet.FormatRemoteUrl(NewsArray(Testi),ListUrl)
End If
Next
UrlTest=NewsArray(0)
NewsCode=CGet.ReplaceTrim(CGet.GetHttpPage(UrlTest,Encoding))
Else
FoundErr=True
ErrMsg=ErrMsg & "<br><li>在获取链接列表时出错。</li>"
End If
Else
FoundErr=True
ErrMsg=ErrMsg & "<br><li>在截取列表时发生错误。</li>"
End If
Else
FoundErr=True
ErrMsg=ErrMsg & "<br><li>在获取:" & ListUrl & "网页源码时发生错误。</li>"
End If
'--
If x_tp =1 Then
If imostr="" Or imhstr="" Then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -