admin_itemmodify4.asp
来自「实现一个用JSP、Servlet技术实现的小型物流网站系统。实现功能如下：管理员」· ASP 代码 · 共 572 行 · 第 1/2 页
ASP
572 行
<!--#include file="inc/conn.asp"-->
<!--#include file="inc/function.asp"-->
<!--#include file="inc/ubbcode.asp"-->
<%
Dim RsItem,SqlItem,FoundErr,ErrMsg,Action,ItemID
Dim LoginType,LoginUrl,LoginPostUrl,LoginUser,LoginPass,LoginFalse,LoginResult,LoginData
Dim ListStr,LsString,LoString,ListPaingType,LPsString,LPoString,ListPaingStr1,ListPaingStr2,ListPaingID1,ListPaingID2,ListPaingStr3,HsString,HoString,HttpUrlType,HttpUrlStr
Dim TsString,ToString,CsString,CoString,DateType,DsString,DoString,AuthorType,AsString,AoString,AuthorStr,CopyFromType,FsString,FoString,CopyFromStr,KeyType,KsString,KoString,KeyStr,NewsPaingType,NPsString,NPoString,NewsPaingStr,NewsPaingHtml
Dim ListUrl,ListCode,NewsArrayCode,NewsArray,UrlTest,NewsCode
Dim Testi
Action=Trim(Request("Action"))
ItemID=Trim(Request("ItemID"))
FoundErr=False
If ItemID="" Then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>参数错误，项目ID不能为空</li>"
Else
ItemID=Clng(ItemID)
End If
If Action="SaveEdit" And FoundErr<>True Then
Call SaveEdit()
End If
If FoundErr<>True Then
Call GetTest()
End If
If FoundErr=True Then
Call WriteErrMsg(ErrMsg)
Else
Call Main()
End If
'关闭数据库链接
Call CloseConn()
Call CloseConnItem()
%>
<%Sub Main()%>
<html>
<head>
<title>采集系统</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="../css/Admin_Style.css">
<script language="VBScript">
Private Sub ceshi(Num)
Dim content
Content=document.form1.Content.value
Select Case Num
Case 1
huoqv=document.form1.LsString.value
Case 2
huoqv=document.form1.LoString.value
Case 3
huoqv=document.form1.LPsString.value
Case 4
huoqv=document.form1.LPoString.value
Case 5
huoqv=document.form1.TsString.value
Case 6
huoqv=document.form1.ToString.value
Case 7
huoqv=document.form1.CsString.value
Case 8
huoqv=document.form1.CoString.value
Case 9
huoqv=document.form1.AsString.value
Case 10
huoqv=document.form1.AoString.value
Case 11
huoqv=document.form1.FsString.value
Case 12
huoqv=document.form1.FoString.value
Case 13
huoqv=document.form1.KsString.value
Case 14
huoqv=document.form1.KoString.value
Case 15
huoqv=document.form1.NPsString.value
Case 16
huoqv=document.form1.NPsString.value
Case 17
huoqv=document.form1.DsString.value
Case 18
huoqv=document.form1.DoString.value
Case Else
Exit sub
End Select
if huoqv="" then
alert("测试无效！代码为空！")
exit Sub
End if
If InStr(Content,huoqv) = 0 Then
alert("测试无效！网页没有这些代码。")
Else
If InStr(Mid(Content,InStr(Content,huoqv)+LenB(huoqv),LenB(Content)),huoqv) = 0 Then
alert("测试成功！代码在页面是唯一的。")
Else
alert("测试失败！代码有重复,开始或结束至少有一处代码是唯一才有效！")
End if
End if
End Sub
Private Sub Analyse()
Dim AnalyseString,AnalyseString2
Dim content,Analysetemp
Content=document.form1.Content.value
AnalyseString=document.form1.AnalyseString.value
if AnalyseString="" then
alert("分析无效！分析代码为空！")
Exit Sub
End if
if isNumeric(document.form1.AnalyseNum.value)=false then
alert("分析字符数不是有效数字！")
Exit Sub
End if
AnalyseString2=LenB(AnalyseString)
If InStr(Content,AnalyseString) = 0 Then
alert("分析无效！网页没有这些代码。")
Else
if InStr(Content,AnalyseString)-document.form1.AnalyseNum.value <= 0 then
Analysetemp = 1
Else
Analysetemp =InStr(Content,AnalyseString)-document.form1.AnalyseNum.value
End if
If InStr(Mid(Content,InStr(Content,AnalyseString)+AnalyseString2, LenB(Content)),AnalyseString) = 0 Then
if document.form1.AnalyseWay(0).checked=true Then
document.form1.AnalyseContent.value=Mid(Content,Analysetemp,Len(AnalyseString)+document.form1.AnalyseNum.value)
elseif document.form1.AnalyseWay(1).checked=true then
document.form1.AnalyseContent.value=Mid(Content,InStr(Content,AnalyseString),Len(AnalyseString)+document.form1.AnalyseNum.value)
elseif document.form1.AnalyseWay(2).checked=true then
document.form1.AnalyseContent.value=Mid(Content,Analysetemp,document.form1.AnalyseNum.value)+Mid(Content,InStr(Content,AnalyseString),Len(AnalyseString)+document.form1.AnalyseNum.value)
End if
Else
alert("分析失败！分析代码有重复,要确认为一的字符。")
Exit Sub
End if
End if
End Sub
</script>
<script language="JavaScript">
<!--
function CheckForm(){
if (document.form1.Content.value.length > 200000){
document.form1.Content.value="";
}
}
function setFileFileds(weburl){
str="<iframe id='IFrame1' marginwidth=0 marginheight=0 frameborder=0 width='800' height='300' src="+weburl+"></iframe>";
objFiles.innerHTML=str;
}
//-->
</script>
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="border">
<tr>
<td height="22" colspan="2" align="center" class="topbg"><strong>采 集 系 统 项 目 管 理</strong></td>
</tr>
<tr class="tdbg">
<td width="65" height="30"><strong>管理导航：</strong></td>
<td height="30"><a href="Admin_ItemAddNew.asp">添加项目</a> >> <a href="Admin_ItemModify.asp?ItemID=<%=ItemID%>">基本设置</a> >> <a href="Admin_ItemModify2.asp?ItemID=<%=ItemID%>">列表设置</a> >> <a href="Admin_ItemModify3.asp?ItemID=<%=ItemID%>">链接设置</a> >> <font color=red>正文设置</font> >> 采样测试 >> 属性设置 >> 完成</td>
</tr>
</table>
<br>
<form method="post" action="Admin_ItemAddNew5.asp" name="form1">
<table class=border cellSpacing=1 cellPadding=0 width="100%" align=center border=0>
<tr>
<td height="22" colspan="2" class="title"> <div align="center"><strong> 项 目 编 辑--采集目标网页 </strong> <Input type="radio" value="0" name="page" onClick="javascript:ShowPage.style.display='none';" checked>不查看
<Input type="radio" value="1" name="page" onClick="javascript:ShowPage.style.display='';javascript:setFileFileds('<%=NewsArray(0)%>');" >查看网页
</div></td>
</tr>
<tr class="tdbg" id="ShowPage" style="display:'none'">
<td class="tdbg" colspan='2' align='center' id='objFiles'></td>
</tr>
<tr>
<td height="22" colspan="2" class="title"> <div align="center"><strong> 项 目 编 辑--采集目标源码 </strong> <Input type="radio" value="0" name="code" onClick="javascript:Content.style.height='1';" >不查看
<Input type="radio" value="1" name="code" onClick="javascript:Content.style.height='300';" checked>查看源码
</div></td>
</tr>
<tr class="tdbg">
<td class="tdbg" colspan='2' align='center'> <TEXTAREA NAME='Content' ROWS='' COLS='' style='width:800px;height:300px'><%=Replace(Replace(NewsCode, "</textarea>", "</textarea>"),"</TEXTAREA>","</TEXTAREA>")%></TEXTAREA></td>
</tr>
</table>
<table class=border cellSpacing=1 cellPadding=0 width="100%" height='30' align=center border=0>
<tr>
<td class=tdbg colSpan=2 height=22> 这是分析后所得到的新闻绝对链接地址：<A href=<%=NewsArray(0)%> target="_blank"><FONT color=red><%=NewsArray(0)%></FONT></A> 请查看是否正确。</td>
<input type='hidden' name='Testi' value='0'>
</tr>
</table>
<br>
<form method="post" action="Admin_ItemModify5.asp" name="form1">
<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>
<tr class="tdbg">
<td width="150" class="tdbg" align='center'><strong>标题开始标记：</strong><br><br><br><br><br><br>
<strong>标题结束标记：</strong></td>
<td class="tdbg" >
<textarea name="TsString" style='width:450px;height:100px'><%=TsString%></textarea> <input TYPE='button' value='测试代码' onCLICK='ceshi(5)' ><br>
<textarea name="ToString" style='width:450px;height:100px'><%=ToString%></textarea> <input TYPE='button' value='测试代码' onCLICK='ceshi(6)' ></td>
</tr>
<tr class="tdbg">
<td width="150" class="tdbg" align='center'><strong>正文开始标记：</strong><p> </p><p> </p>
<strong>正文结束标记：</strong></td>
<td class="tdbg" >
<textarea name="CsString" style='width:450px;height:100px'><%=CsString%></textarea> <input TYPE='button' value='测试代码' onCLICK='ceshi(7)' ><br>
<textarea name="CoString" style='width:450px;height:100px'><%=CoString%></textarea> <input TYPE='button' value='测试代码' onCLICK='ceshi(8)' ></td>
</tr>
<tr class="tdbg">
<td width="150" class="tdbg" align='center'><b> 时间设置：</b></td>
<td class="tdbg" >
<input type="radio" value="0" name="DateType" <%If DateType=0 Then Response.Write "checked"%> onClick="javascript:Date1.style.display='none'">不作设置
<input type="radio" value="1" name="DateType" <%If DateType=1 Then Response.Write "checked"%> onClick="javascript:Date1.style.display=''">设置标签 </td>
</tr>
<tr class="tdbg" id="Date1" style="display:'<%If DateType<>1 Then Response.Write "none"%>'">
<td width="150" class="tdbg" align='center'><strong>时间开始标记：</font></strong><br><br><br><br><br><br>
<strong>时间结束标记：</font></strong></td>
<td class="tdbg" >
<textarea name="DsString" style='width:450px;height:100px'><%=DsString%></textarea> <input TYPE='button' value='测试代码' onCLICK='ceshi(17)' ><br>
<textarea name="DoString" style='width:450px;height:100px'><%=DoString%></textarea> <input TYPE='button' value='测试代码' onCLICK='ceshi(18)' ></td>
</tr>
<tr class="tdbg">
<td width="150" class="tdbg" align='center'><b> 作者设置：</b></td>
<td class="tdbg" >
<input type="radio" value="0" name="AuthorType" <%If AuthorType=0 Then Response.Write "checked"%> onClick="javascript:Author1.style.display='none';Author2.style.display='none'">不作设置
<input type="radio" value="1" name="AuthorType" <%If AuthorType=1 Then Response.Write "checked"%> onClick="javascript:Author1.style.display='';Author2.style.display='none'">设置标签
<input type="radio" value="2" name="AuthorType" <%If AuthorType=2 Then Response.Write "checked"%> onClick="javascript:Author1.style.display='none';Author2.style.display=''">指定作者</td>
</tr>
<tr class="tdbg" id="Author1" style="display:'none'">
<td width="150" class="tdbg" align='center'><strong>作者开始标记：</font></strong><br><br><br><br><br><br>
<strong>作者结束标记：</font></strong></td>
<td class="tdbg" >
<textarea name="AsString" style='width:450px;height:100px'><%=AsString%></textarea> <input TYPE='button' value='测试代码' onCLICK='ceshi(9)' ><br>
<textarea name="AoString" style='width:450px;height:100px'><%=AoString%></textarea> <input TYPE='button' value='测试代码' onCLICK='ceshi(10)' ></td>
</tr>
<tr class="tdbg" id="Author2" style="display:'<%If AuthorType<>2 Then Response.Write "none"%>'">
<td width="150" class="tdbg" align='center'><strong>请指定作者：</font></strong></td>
<td class="tdbg" >
<input name="AuthorStr" type="text" id="AuthorStr" value="<%=AuthorStr%>">
</td>
</tr>
<tr class="tdbg">
<td width="150" class="tdbg" align='center'><b> 来源设置：</b></td>
<td class="tdbg" >
<input type="radio" value="0" name="CopyFromType" <%If CopyFromType=0 Then Response.Write "checked"%> onClick="javascript:CopyFrom1.style.display='none';CopyFrom2.style.display='none'">不作设置
<input type="radio" value="1" name="CopyFromType" <%If CopyFromType=1 Then Response.Write "checked"%> onClick="javascript:CopyFrom1.style.display='';CopyFrom2.style.display='none'">设置标签
<input type="radio" value="2" name="CopyFromType" <%If CopyFromType=2 Then Response.Write "checked"%> onClick="javascript:CopyFrom1.style.display='none';CopyFrom2.style.display=''">指定来源</td>
</tr>
<tr class="tdbg" id="CopyFrom1" style="display:'<%If CopyFromType<>1 Then Response.Write "none"%>'">
<td width="150" class="tdbg" align='center'><strong>来源开始标记：</font></strong><br><br><br><br><br><br>
<strong>来源结束标记：</font></strong></td>
<td class="tdbg" >
<textarea name="FsString" style='width:450px;height:100px'><%=FsString%></textarea> <input TYPE='button' value='测试代码' onCLICK='ceshi(11)' ><br>
<textarea name="FoString" style='width:450px;height:100px'><%=FoString%></textarea> <input TYPE='button' value='测试代码' onCLICK='ceshi(12)' ></td>
</tr>
<tr class="tdbg" id="CopyFrom2" style="display:'<%If CopyFromType<>2 Then Response.Write "none"%>'">
<td width="150" class="tdbg" align='center'><strong>请指定来源：</font></strong></td>
<td class="tdbg" >
<input name="CopyFromStr" type="text" id="CopyFromStr" value="<%=CopyFromStr%>">
</td>
</tr>
<tr class="tdbg">
<td width="150" class="tdbg" align='center'><b>关键字词设置：</b></td>
<td class="tdbg" >
<input type="radio" value="0" name="KeyType" <%If KeyType=0 Then Response.Write "checked"%> onClick="javascript:Key1.style.display='none';Key2.style.display='none'">不作设置
<input type="radio" value="1" name="KeyType" <%If KeyType=1 Then Response.Write "checked"%> onClick="javascript:Key1.style.display='';Key2.style.display='none'">设置标签
<input type="radio" value="2" name="KeyType" <%If KeyType=2 Then Response.Write "checked"%> onClick="javascript:Key1.style.display='none';Key2.style.display=''">指定关键字</td>
</tr>
<tr class="tdbg" id="Key1" style="display:'<%If KeyType<>1 Then Response.Write "none"%>'">
<td width="150" class="tdbg" align='center'><strong>关键词开始标记：</font></strong><br><br><br><br><br><br>
<strong>关键词结束标记：</font></strong></td>
<td class="tdbg" >
<textarea name="KsString" style='width:450px;height:100px'><%=KsString%></textarea> <input TYPE='button' value='测试代码' onCLICK='ceshi(13)' ><br>
<textarea name="KoString" style='width:450px;height:100px'><%=KoString%></textarea> <input TYPE='button' value='测试代码' onCLICK='ceshi(14)' ></td>
</tr>
<tr class="tdbg" id="Key2" style="display:'<%If KeyType<>2 Then Response.Write "none"%>'">
<td width="150" class="tdbg" align='center'><strong>请指定关键：</font></strong></td>
<td class="tdbg" >
<input name="KeyStr" type="text" id="KeyStr" value="<%=KeyStr%>">
</td>
</tr>
<tr>
<td width="150" class="tdbg" align='center'><strong>正文分页设置：</strong></td>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?