📄 sk_gethy.asp
字号:
<td height="30" align="right"><STRONG>常用设置</STRONG>：</td>
<td>
<input name="SKxiuok" type="radio" value="radiobutton" onClick="SKxiuok1.style.display='none';SKxiuok2.style.display='none';SKxiuok3.style.display='none';SKxiuok4.style.display='none';SKxiuok5.style.display='none';SKxiuok6.style.display='none';" checked>
隐藏
<input type="radio" name="SKxiuok" onClick="SKxiuok1.style.display='';SKxiuok2.style.display='';SKxiuok3.style.display='';SKxiuok4.style.display='';SKxiuok5.style.display='';SKxiuok6.style.display='';" value="radiobutton">
显示 </td>
</tr>
<tr class="tdbg" bgcolor="#F3F3F3" id="SKxiuok1" style="display:none" >
<td height="30" width="20%" align="right"><b><font color=blue>标签过滤：</font></b></td>
<td>
<input name="Script_Iframe" type="checkbox" value="yes" <%If Script_Iframe=1 Then response.write "checked"%> style="border: 0px;background-color: #eeeeee;">
Iframe
<input name="Script_Object" type="checkbox" value="yes" <%If Script_Object=1 Then response.write "checked"%> onclick='return confirm("确定要选择该标记吗？这将删除正文中的所有Object标记，结果将导致该文章中的所有Flash动画被删除！");' style="border: 0px;background-color: #eeeeee;">
Object
<input name="Script_Script" type="checkbox" value="yes" <%If Script_Script=1 Then response.write "checked"%> style="border: 0px;background-color: #eeeeee;">
Script
<input name="Script_Div" type="checkbox" value="yes" <%If Script_Div=1 Then response.write "checked"%> style="border: 0px;background-color: #eeeeee;">
Div
<input name="Script_Class" type="checkbox" value="yes" <%If Script_Class=1 Then response.write "checked"%> style="border: 0px;background-color: #eeeeee;">
Class
<input name="Script_Table" type="checkbox" value="yes" <%If Script_Table=1 Then response.write "checked"%> style="border: 0px;background-color: #eeeeee;">
Table
<input name="Script_Tr" type="checkbox" value="yes" <%If Script_Tr=1 Then response.write "checked"%> style="border: 0px;background-color: #eeeeee;">
Tr
<br>
<input name="Script_Span" type="checkbox" value="yes" <%If Script_Span=1 Then response.write "checked"%> style="border: 0px;background-color: #eeeeee;">
Span
<input name="Script_Img" type="checkbox" value="yes" <%If Script_Img=1 Then response.write "checked"%> style="border: 0px;background-color: #eeeeee;">
Img
<input name="Script_Font" type="checkbox" value="yes" <%If Script_Font=1 Then response.write "checked"%> style="border: 0px;background-color: #eeeeee;">
Font
<input name="Script_A" type="checkbox" value="yes" <%If Script_A=1 Then response.write "checked"%> style="border: 0px;background-color: #eeeeee;">
A
<input name="Script_Html" type="checkbox" value="yes" <%If Script_Html=1 Then response.write "checked"%> onclick='return confirm("确定要选择该标记吗？这将删除正文中的所有Html标记，结果将导致该文章的可查看性降低！");' style="border: 0px;background-color: #eeeeee;">
Html
<input name="Script_Td" type="checkbox" value="yes" <%If Script_Td=1 Then response.write "checked"%> style="border: 0px;background-color: #eeeeee;">
Td </td>
</tr>
<tr class="tdbg" bgcolor="#F3F3F3" id="SKxiuok2" style="display:none" >
<td align="right"><b><font color=blue>内容字符替换操作：</font></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" bgcolor="#F3F3F3" id="SKxiuok3" style="display:none" >
<td align="right"><b><font color=blue>数量限制：</font></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" bgcolor="#F3F3F3" id="SKxiuok4" style="display:none" >
<td align="right"><b><font color=blue>评分等级：</font></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" bgcolor="#F3F3F3" id="SKxiuok5" style="display:none" >
<td align="right"><b><font color=blue>查看点数：</font></b></td>
<td><input name='ReadPoint' type='text' id='ReadPoint' value='<%=ReadPoint%>' size='5' maxlength='3'>
<font color='#0000FF'>如果大于0，则用户查看此<%=radioid%>时将消耗相应点数。（对游客和管理员无效）</font> </td>
</tr>
<tr class="tdbg" bgcolor="#F3F3F3" id="SKxiuok6" style="display:none" >
<td align="right"><b><font color=blue>点击数初始值：</font></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" bgcolor="#F3F3F3" 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="Colleclx" type="hidden" id="Action" value="<%= Colleclx %>">
<input name="Cancel" type="button" class="lostfocus" id="Cancel" style="cursor: hand;background-color: #cccccc;" onClick="window.location.href='<%= CJFileName %>'" value=" 返 回 ">
<input name="Submit" type="submit" class="lostfocus" style="cursor: hand;background-color: #cccccc;" 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 Skcj.G("ShowCode")="checkbox" Then
ListCode=Skcj.ReplaceTrim(Skcj.GetHttpPage(ListUrl,selEncoding))
If ListCode="$False$" Then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>在获取:" & ListUrl & "网页源码时发生错误</li>"
End If
End If
End If
If FoundErr=True Then
call WriteErrMsg(ErrMsg)
Else
If Skcj.G("ShowCode")="checkbox" Then
%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tableBorder" >
<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" bgcolor="f3f3f3" 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=ConnItem.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")
selEncoding=RsItem("selEncoding")
RsItem.close
set RsItem=nothing
action1="edit"
End If
%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tableBorder" >
<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" bgcolor="f3f3f3" class="tdbg" ><strong>列表开始代码：</strong></td>
<td bgcolor="f3f3f3" class="tdbg"><textarea name="LsString" cols="70" rows="7" class="lostfocus"><%=LsString %></textarea></td>
</tr>
<tr class="tdbg">
<td align="right" bgcolor="f3f3f3" class="tdbg" ><strong>列表结束代码：</strong></td>
<td bgcolor="f3f3f3" class="tdbg"><textarea name="LoString" cols="70" rows="7" class="lostfocus"><%=LoString %></textarea></td>
</tr>
<tr class="tdbg">
<td width="20%" align="right" bgcolor="f3f3f3" class="tdbg" ><strong>链接开始代码：</strong></td>
<td width="75%" bgcolor="f3f3f3" class="tdbg">
<textarea name="HsString" cols="70" rows="7" class="lostfocus"><%= HsString %></textarea></td>
</tr>
<tr class="tdbg">
<td width="20%" align="right" bgcolor="f3f3f3" class="tdbg" ><strong>链接结束代码：</strong></td>
<td width="75%" bgcolor="f3f3f3" class="tdbg">
<textarea name="HoString" cols="70" rows="7" class="lostfocus"><%= HoString %></textarea></td>
</tr>
<tr class="tdbg">
<td width="20%" align="right" bgcolor="f3f3f3" class="tdbg" ><strong>重定链接地址：</strong></td>
<td width="75%" bgcolor="f3f3f3" 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" bgcolor="f3f3f3" class="tdbg" ><b><font color=blue>重定链接字符：</font></b></td>
<td bgcolor="f3f3f3" 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.iising.com/</font>'+ ID + '<font color="#FF0000">.html</font>','','width=517,height=400,scrollbars=yes')}<br>
<font color="#FF0000">正确设置:http://www.iising.com/{$ID}.html</font>
</td>
</tr>
<tr class="tdbg">
<td align="right" bgcolor="f3f3f3" class="tdbg" ><strong>列表小图处设置：</strong></td>
<td bgcolor="f3f3f3" 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=''">
列表小图
<input type="radio" name="x_tp" value="2" <% if x_tp=2 then Response.Write("checked") %> onClick="picl1.style.display='none';picl.style.display=''">自动缩略图
</td>
</tr>
<tr class="tdbg" id="picl1" <% If x_tp<>1 Then Response.Write "style=""display:none""" %> >
<td align="right" bgcolor="f3f3f3" class="tdbg" ><p><strong><font color=blue>列表小图片开始代码：</font>
</strong></p>
<p> </p>
<p><strong><font color=blue>列表小图片结束代码：</font></strong></p></td>
<td bgcolor="f3f3f3" class="tdbg"><textarea name="imhstr" cols="70" rows="7" id="imhstr" class="lostfocus"><%= imhstr %></textarea>
<textarea name="imostr" cols="70" rows="7" id="imostr" class="lostfocus"><%= imostr %></textarea></td>
</tr>
<tr class="tdbg">
<td colspan="2" align="center" bgcolor="f3f3f3" class="tdbg" height="30">
<input name="ItemID" type="hidden" value="<%=ItemID%>">
<input name="selEncoding" type="hidden" value="<%=selEncoding%>">
<%
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)'" style="cursor: hand;background-color: #cccccc;">
<input type="submit" name="Submit" class="lostfocus" value="下 一 步" style="cursor: hand;background-color: #cccccc;"> <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 Skcj.G("ShowCode")="checkbox" Then'得到远程源码
ListCode=Skcj.ReplaceTrim(Skcj.GetHttpPage(ListUrl,selEncoding))
If ListCode<>"$False$" Then
ListCode=SKcj.GetBody(ListCode,LsString,LoString,False,False)
If ListCode<>"$False$" Then
NewsArrayCode=Skcj.GetArray(ListCode,HsString,HoString,False,False)
If x_tp =1 Then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -