📄 sk_getsoft.asp
字号:
FoundErr=True
ErrMsg=ErrMsg & "<br><li>在分析：" & ListUrl & "新闻列表时发生错误！</li>"
End If
End If
End If
end if
End If
'===================显示远程源码完=============================
If FoundErr=True Then
call WriteErrMsg(ErrMsg)
Else
If Request.Form("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")
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")
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")
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")
LinkUrlYn=RsItem("LinkUrlYn")
Colleclx=RsItem("Colleclx")
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" >
<strong>下载地址列表开始标记：</strong><p> </p>
<strong>下载地址列表结束标记：</strong><p> </p>
<strong>下载地址开始标记：</strong><p> </p>
<strong>下载地址结束标记：</strong>
</td>
<td width="75%" bgcolor="f3f3f3" class="tdbg">
<textarea name="Downlist_s" cols="70" rows="5" class="lostfocus"><%= Downlist_s %></textarea><br>
<textarea name="Downlist_o" cols="70" rows="5" class="lostfocus"><%= Downlist_o %></textarea><br>
<textarea name="DownUrl_s" cols="70" rows="5" class="lostfocus"><%= DownUrl_s %></textarea><br>
<textarea name="DownUrl_o" cols="70" rows="5" class="lostfocus"><%= DownUrl_o %></textarea>
<input type="checkbox" name="LinkUrlYn" <% if LinkUrlYn=1 then Response.Write "checked" %> value="1" >是否有下载列表
</td>
</tr>
<tr class="tdbg">
<td align="right" bgcolor="f3f3f3" class="tdbg" ><strong>是否新窗口打开下载连接设置：</strong></td>
<td bgcolor="f3f3f3" class="tdbg">
<input type="radio" name="DownNewType" value="0" <% if DownNewType<>1 then Response.Write("checked")%> onClick="picl222.style.display='none'">
不作设置
<input type="radio" name="DownNewType" value="1" <% if DownNewType=1 then Response.Write("checked")%> onClick="picl222.style.display=''">
新窗口打开</td>
</tr>
<tr class="tdbg" id="picl222" style="display:none" >
<td align="right" bgcolor="f3f3f3" class="tdbg" >
<strong><font color=blue>下载地址列表开始代码(新窗口)：</font></strong><p> </p>
<strong><font color=blue>下载地址列表结束代码(新窗口)：</font></strong><p> </p>
<strong><font color=blue>获取下载连接开始代码(新窗口)：</font></strong><p> </p>
<strong><font color=blue>获取下载连接结束代码(新窗口)：</font></strong>
</td>
<td bgcolor="f3f3f3" class="tdbg">
<textarea name="DownNewlist_s" cols="70" rows="5" class="lostfocus"><%= DownNewlist_s %></textarea><br>
<textarea name="DownNewlist_o" cols="70" rows="5" class="lostfocus"><%= DownNewlist_o %></textarea><br>
<textarea name="DownNewUrl_s" cols="70" rows="5" class="lostfocus"><%= DownNewUrl_s %></textarea><br>
<textarea name="DownNewUrl_o" cols="70" rows="5" class="lostfocus"><%= DownNewUrl_o %></textarea>
</td>
</tr>
<tr class="tdbg">
<td align="right" bgcolor="f3f3f3" class="tdbg" ><strong>软件图片设置：</strong></td>
<td bgcolor="f3f3f3" class="tdbg">
<input type="radio" name="ZdType_007" value="0" <% if ZdType_007<>1 then Response.Write("checked")%> onClick="picl1.style.display='none'">
不作设置
<input type="radio" name="ZdType_007" value="1" <% if ZdType_007=1 then Response.Write("checked")%> onClick="picl1.style.display=''">
软件图片</td>
</tr>
<tr class="tdbg" id="picl1" 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="Zds_007" cols="70" rows="7" id="Zds_007" class="lostfocus"><%= Zds_007 %></textarea>
<textarea name="Zdo_007" cols="70" rows="7" id="Zdo_007" class="lostfocus"><%= Zdo_007 %></textarea></td>
</tr>
<tr class="tdbg">
<td width="20%" align="right" bgcolor="f3f3f3" class="tdbg" ><b>软 件 大 小 设 置：</b></td>
<td width="75%" bgcolor="f3f3f3" class="tdbg">
<input type="radio" value="0" name="ZdType_001" <% if ZdType_001<>1 then Response.Write("checked") %> onClick="ZD001.style.display='none'">不作设置
<input type="radio" value="1" <% if ZdType_001=1 then Response.Write("checked") %> name="ZdType_001" onClick="ZD001.style.display=''">设置标签 </tr>
<tr class="tdbg" id="ZD001" style="display:none">
<td width="20%" align="right" bgcolor="f3f3f3" class="tdbg" >
<strong><font color=blue>获取软件大小开始代码：</font></strong>
<p> </p>
<strong><font color=blue>获取软件大小结束代码：</font></strong></td>
<td width="75%" bgcolor="f3f3f3" class="tdbg">
<textarea name="Zds_001" cols="70" rows="5" class="lostfocus"><%= Zds_001 %></textarea><br>
<textarea name="Zdo_001" cols="70" rows="5" class="lostfocus"><%= Zdo_001 %></textarea></td>
</tr>
<tr class="tdbg">
<td width="20%" align="right" bgcolor="f3f3f3" class="tdbg" ><b>软 件 语 言 设 置：</b></td>
<td width="75%" bgcolor="f3f3f3" class="tdbg">
<input type="radio" value="0" name="ZdType_002" <% if ZdType_002<>1 then Response.Write("checked") %> onClick="ZD002.style.display='none'">不作设置
<input type="radio" value="1" <% if ZdType_002=1 then Response.Write("checked") %> name="ZdType_002" onClick="ZD002.style.display=''">设置标签
</td>
</tr>
<tr class="tdbg" id="ZD002" style="display:none">
<td width="20%" align="right" bgcolor="f3f3f3" class="tdbg" >
<strong><font color=blue>软件语言开始代码：</font></strong>
<p> </p>
<strong><font color=blue>软件语言结束代码：</font></strong></td>
<td width="75%" bgcolor="f3f3f3" class="tdbg">
<textarea name="Zds_002" cols="70" rows="5" class="lostfocus"><%= Zds_002 %></textarea><br>
<textarea name="Zdo_002" cols="70" rows="5" class="lostfocus"><%= Zdo_002 %></textarea>
</td>
</tr>
<tr class="tdbg">
<td width="20%" align="right" bgcolor="f3f3f3" class="tdbg" ><b>授 权 方 式 设 置：</b></td>
<td width="75%" bgcolor="f3f3f3" class="tdbg">
<input type="radio" value="0" name="ZdType_003" <% if ZdType_003<>1 then Response.Write("checked") %> onClick="ZD003.style.display='none'">不作设置
<input type="radio" value="1" <% if ZdType_003=1 then Response.Write("checked") %> name="ZdType_003" onClick="ZD003.style.display=''">设置标签
</td>
</tr>
<tr class="tdbg" id="ZD003" style="display:none">
<td width="20%" align="right" bgcolor="f3f3f3" class="tdbg" >
<strong><font color=blue>授权方式开始代码：</font></strong>
<p> </p>
<strong><font color=blue>授权方式结束代码：</font></strong></td>
<td width="75%" bgcolor="f3f3f3" class="tdbg">
<textarea name="Zds_003" cols="70" rows="5" class="lostfocus"><%= Zds_003 %></textarea><br>
<textarea name="Zdo_003" cols="70" rows="5" class="lostfocus"><%= Zdo_003 %></textarea>
</td>
</tr>
<tr class="tdbg">
<td width="20%" align="right" bgcolor="f3f3f3" class="tdbg" ><b>运 行 环 境 设 置：</b></td>
<td width="75%" bgcolor="f3f3f3" class="tdbg">
<input type="radio" value="0" name="ZdType_004" <% if ZdType_004<>1 then Response.Write("checked") %> onClick="ZD004.style.display='none'">不作设置
<input type="radio" value="1" <% if ZdType_004=1 then Response.Write("checked") %> name="ZdType_004" onClick="ZD004.style.display=''">设置标签
</td>
</tr>
<tr class="tdbg" id="ZD004" style="display:none">
<td width="20%" align="right" bgcolor="f3f3f3" class="tdbg" >
<strong><font color=blue>运行环境开始代码：</font></strong>
<p> </p>
<strong><font color=blue>运行环境结束代码：</font></strong></td>
<td width="75%" bgcolor="f3f3f3" class="tdbg">
<textarea name="Zds_004" cols="70" rows="5" class="lostfocus"><%= Zds_004 %></textarea><br>
<textarea name="Zdo_004" cols="70" rows="5" class="lostfocus"><%= Zdo_004 %></textarea>
</td>
</tr>
<tr class="tdbg">
<td width="20%" align="right" bgcolor="f3f3f3" class="tdbg" ><b>演 示 地 址 设 置：</b></td>
<td width="75%" bgcolor="f3f3f3" class="tdbg">
<input type="radio" value="0" name="ZdType_005" <% if ZdType_005<>1 then Response.Write("checked") %> onClick="ZD005.style.display='none'">不作设置
<input type="radio" value="1" <% if ZdType_005=1 then Response.Write("checked") %> name="ZdType_005" onClick="ZD005.style.display=''">设置标签
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -