📄 sk_getsoft.asp
字号:
<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
Newsimage=Skcj.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)=Skcj.FormatRemoteUrl(NewsArray(Testi),ListUrl)
End If
Next
UrlTest=NewsArray(0)
NewsCode=Skcj.ReplaceTrim(Skcj.GetHttpPage(UrlTest,selEncoding))
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
FoundErr=True
ErrMsg=ErrMsg & "<br><li>小图片代码不能为空</li>"
else
If Newsimage="$False$" Then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>在分析：" & ListUrl & CjName &"列表时发生错误！</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)=Skcj.FormatRemoteUrl(Newsim(Testi),ListUrl)
End If
Next
Else
FoundErr=True
ErrMsg=ErrMsg & "<br><li>在分析：" & ListUrl & CjName &"列表时发生错误！</li>"
End If
End If
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" id="ShowCode1">
<td height="22" colspan="2" bgcolor="f3f3f3" 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=ConnItem.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")
ZdType_001=RsItem("ZdType_001")'软件大小设置
Zds_001=RsItem("Zds_001")
Zdo_001=RsItem("Zdo_001")
ZdType_002=RsItem("ZdType_002")'软件语言设置
Zds_002=RsItem("Zds_002")
Zdo_002=RsItem("Zdo_002")
ZdType_003=RsItem("ZdType_003")'授权方式设置
Zds_003=RsItem("Zds_003")
Zdo_003=RsItem("Zdo_003")
ZdType_004=RsItem("ZdType_004")'运行环境设置
Zds_004=RsItem("Zds_004")
Zdo_004=RsItem("Zdo_004")
ZdType_005=RsItem("ZdType_005")'演示地址设置
Zds_005=RsItem("Zds_005")
Zdo_005=RsItem("Zdo_005")
ZdType_006=RsItem("ZdType_006")'注册地址设置
Zds_006=RsItem("Zds_006")
Zdo_006=RsItem("Zdo_006")
ZdType_007=RsItem("ZdType_007")'软件图片设置
Zds_007=RsItem("Zds_007")
Zdo_007=RsItem("Zdo_007")
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")
Downlist_s=RsItem("Downlist_s")'下载地址设置
Downlist_o=RsItem("Downlist_o")
DownUrl_s=RsItem("DownUrl_s")
DownUrl_o=RsItem("DownUrl_o")
DownNewType=RsItem("DownNewType")'新窗口打开下载连接
DownNewlist_s=RsItem("DownNewlist_s")
DownNewlist_o=RsItem("DownNewlist_o")
DownNewUrl_s=RsItem("DownNewUrl_s")
DownNewUrl_o=RsItem("DownNewUrl_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="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 width="30%" align="right" bgcolor="f3f3f3" class="tdbg" ><strong>标题开始标记：</strong><p> </p>
<strong>标题结束标记：</strong></td>
<td width="70%" bgcolor="f3f3f3" 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" bgcolor="f3f3f3" class="tdbg" ><strong>软件简介开始标记：</strong><p> </p>
<strong>软件简介结束标记：</strong></td>
<td width="75%" bgcolor="f3f3f3" class="tdbg">
<textarea name="CsString" cols="70" rows="5" class="lostfocus"><%= CsString %></textarea><br>
<textarea name="CoString" cols="70" rows="5" class="lostfocus"><%= CoString %></textarea></td>
</tr>
<tr class="tdbg">
<td width="20%" align="right" bgcolor="f3f3f3" class="tdbg" >
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -