📄 projectmanage.asp
字号:
下一步将抽取第一条新闻进行测试，在填写以下标记时尽量不要使用第一条新闻。<br>
抽出的地址为：<font color="#FF0000"><%=ProjectName_Z%></font></td>
</tr>
</table>
</td>
</tr>
<tr height="25">
<td width="30%" align="right">
<b>标题开始代码：</b></td>
<td width="65%"> <br>
<textarea rows="6" name="TitleStartStr" cols="52"></textarea><br>
</td>
</tr>
<tr height="25">
<td width="30%" align="right">
<b>标题结束代码：</b></td>
<td width="65%"><br>
<textarea rows="6" name="TitleEndStr" cols="52"></textarea><br>
</td>
</tr>
<tr height="25">
<td width="30%" align="right"><b>内容结束代码：</b></td>
<td width="65%"> <br>
<textarea rows="6" name="ContentStartStr" cols="52"></textarea><br>
</td>
</tr>
<tr height="25">
<td width="30%" align="right"><b>内容结束代码：</b></td>
<td width="65%"> <br>
<textarea rows="6" name="ContentEndStr" cols="52"></textarea> <br>
</td>
</tr>
<tr height="25">
<td width="30%" align="right"> </td>
<td width="65%"> </td>
</tr>
<tr height="25">
<td width="30%" align="right"> </td>
<td width="65%"><input type="submit" value="下一步" name="B2"></td>
</tr>
</table>
</td>
</tr>
</table>
</form>
</center>
<%End Sub%>
<%
Sub Step4()
TitleStartStr=Request.form("TitleStartStr")
TitleEndStr=Request.form("TitleEndStr")
ContentStartStr=Request.form("ContentStartStr")
ContentEndStr=Request.form("ContentEndStr")
If TitleStartStr="" Then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>标题开始代码不能为空</li>"
End If
If TitleEndStr="" Then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>标题结束代码不能为空</li>"
End If
If ContentStartStr="" Then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>内容开始代码不能为空</li>"
End If
If ContentEndStr="" Then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>内容结束代码不能为空</li>"
End If
If FoundErr=True then
Call WriteErrMsg(ErrMsg)
Response.end
Else
'取得标题
title= GetArray(Session("ListCode_z"),TitleStartStr,TitleEndStr,False,False)
'取得内容
content= GetBody(Session("ListCode_z"),ContentStartStr,ContentEndStr,False,False)
Sql="Select ProjectID,TitleStartStr,TitleEndStr,ContentStartStr,ContentEndStr from Project where ProjectID="&session("ProjectID")
Set Rs=Server.Createobject("Adodb.Recordset")
Rs.Open Sql,connHistroy,1,2
Rs("TitleStartStr")=TitleStartStr
Rs("TitleEndStr")=TitleEndStr
Rs("ContentStartStr")=ContentStartStr
Rs("ContentEndStr")=ContentEndStr
Rs.Update
End If
%>
<center>
<form method="POST" action="?Action=Add_Project5" name="form6">
<table border="0" cellpadding="0" cellspacing="0" width="97%" class="tableBorder">
<tr>
<td width="100%" height="30" valign="middle">
<font color="#FF0000">采集项目：采样测试</font>
</td>
</tr>
<tr>
<td width="100%" valign="top">
<table cellpadding="0" cellspacing="0" width="100%" bgcolor="#FFFFFF" id="table1">
<tr height="25">
<td align="right">
<table border="0" width="100%" cellspacing="0" cellpadding="0" id="table5">
<tr>
<td>
</td>
</tr>
<tr>
<td>
<p align="center">恭喜您，采集项目能顺利的采集到页面数据，请继续设置相关参数！</td>
</tr>
<tr>
<td>
</td>
</tr>
<tr>
<td>
</td>
</tr>
<tr>
<td>
<p align="center"><font color="#FF0000"><b>标题：<%=title%><br>
</b></font></td>
</tr>
</table>
</td>
</tr>
<tr height="25">
<td width="95%" align="right">
<table border="0" width="100%" cellspacing="0" cellpadding="0" id="table4">
<tr>
<td>
</td>
</tr>
<tr>
<td>
</td>
</tr>
<tr>
<td>
<p align="center"><%=content%><br>
</td>
</tr>
</table>
</td>
</tr>
<tr height="25">
<td width="95%" align="right">
<p align="left"> </td>
</tr>
<tr height="25">
<td width="95%" align="right"><p align="center"><input type="submit" value="下一步" name="B2"></td> </tr> </table>
</td>
</tr>
</table>
</form>
</center>
<%End Sub%>
<%
Sub Step5()
%>
<center>
<form method="POST" action="?Action=Add_Project6" name="form7">
<table border="0" cellpadding="0" cellspacing="0" width="97%" class="tableBorder">
<tr>
<td width="100%" valign="middle" height="30">
<font color="#FF0000">采集项目：参数设置</font>
</td>
</tr>
<tr>
<td width="100%" valign="top">
<table cellpadding="0" cellspacing="0" width="100%" id="table1" bgcolor="#FFFFFF">
<tr height="25">
<td width="25%" height="25" align="right">采集者：</td>
<td align="left" width="75%">
<p align="left">
<input type="text" name="UserName" size="14" value="匿名">
默认是匿名，也可以自己填写。<br></td>
</tr>
<tr height="25">
<td width="25%" align="right">文章等级：</td>
<td width="75%" align="left">
<select name="Rank"><option value="5">☆☆☆☆☆</option><option value="4">☆☆☆☆</option><option value="3" selected>☆☆☆</option><option value="2">☆☆</option><option value="1">☆</option>
</select></td>
</tr>
<tr height="25">
<td width="25%" align="right"><p>备注：</td>
<td width="75%" align="right">
<p align="left"> 如果该处需要增加项目，同时在数据库里增加相应的字段。
</td>
</tr>
<tr height="25">
<td width="100%" align="right" colspan="2">
<p align="center"><input type="submit" value="下一步" name="B2"></td>
</tr>
</table>
</td>
</tr>
</table>
</form>
</center>
<%End Sub%>
<%
Sub Step6()
UserName=Request.form("UserName")
Rank=Request.form("Rank")
Sql="Select ProjectID,CollectionTime,UserName,Rank from Project where ProjectID="&session("ProjectID")
Set Rs=Server.Createobject("Adodb.Recordset")
Rs.Open Sql,connHistroy,1,2
Rs("UserName")=UserName
Rs("Rank")=Rank
Rs("CollectionTime")=now()
Rs.Update
%>
<center>
<table border="0" cellpadding="0" cellspacing="0" width="97%" class="tableBorder">
<tr>
<td width="100%" valign="middle" height="30">
<font color="#FF0000">采集项目：项目完成</font>
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="100%" valign="top">
<p align="left"> 恭喜您!<font color="#FF0000"> <%=session("ProjectName")%></font> 设置完成，请
选择操作！</p>
<ul>
<li>
<p align="left"> <a href="projectmanage.asp" target="_self">返回项目管理</a></p></li>
<li>
<p align="left"> <a href="collectmanage.asp" target="_self">开始采集</a></p></li>
</ul>
<p>
</td>
</tr>
</table>
</center>
<%End Sub%>
<%Sub Top()%>
<html>
<head>
<title>通用信息采集系统</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="css/style.css">
<SCRIPT language=javascript>
function unselectall(thisform){
if(thisform.chkAll.checked){
thisform.chkAll.checked = thisform.chkAll.checked&0;
}
}
function CheckAll(thisform){
for (var i=0;i<thisform.elements.length;i++){
var e = thisform.elements[i];
if (e.Name != "chkAll"&&e.disabled!=true)
e.checked = thisform.chkAll.checked;
}
}
</script>
<style type="text/css">
<!--
.STYLE1 {
color: #000000;
font-weight: bold;
}
.STYLE2 {color: #FF0000}
-->
</style>
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="97%" border="0" align="center" cellpadding="0" cellspacing="1" class="tableBorder">
<tr>
<th height="22" colspan="2" align="center"><span class="STYLE1">采 集 项 目 管 理</span></th>
</tr>
</table>
<table width="97%" border="0" align="center" cellpadding="0" cellspacing="1" class="tableBorder">
<tr>
<td height="30" colspan="2">说明：<br>
①、第一次使用本功能，请修改采集基本设置；<br>
②、采集前请编辑采集项目，测试项目确定无误后再进行采集。
</td>
</tr>
<tr>
<td width="65" height="30"><strong>管理导航：</strong></td>
<td height="30"><a href="projectmanage.asp">管理首页</a> | <a href="?action=Add_Project">添加项目</a>：<%if action="Add_Project" then %><span class="STYLE2">基本设置</span><%else%>基本设置<%end if%> >> <%if action="Add_Project1" then %><span class="STYLE2">列表设置</span><%else%>列表设置<%end if%> >> <%if action="Add_Project2" then %><span class="STYLE2">链接设置</span><%else%>链接设置<%end if%> >> <%if action="Add_Project3" then %><span class="STYLE2">标题/内容设置</span><%else%>标题/内容设置<%end if%> >> <%if action="Add_Project4" then %><span class="STYLE2">采样测试</span><%else%>采样测试<%end if%> >> <%if action="Add_Project5" then %><span class="STYLE2">属性设置</span><%else%>属性设置<%end if%> >>
<%if action="Add_Project6" then %><span class="STYLE2">完成</span><%else%>完成<%end if%></td>
</tr>
</table>
<br>
<%End Sub%>
<%Sub Bottom()%>
</body>
</html>
<%
Call CloseConn()
Call CloseConnHistroy()
End Sub%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -