📄 projectmodify.asp
字号:
<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" colspan="2">
<table border="0" width="98%" id="table3">
<tr>
<td style="line-height: 150%">
以下是分析后所得到的新闻绝对链接地址，请查看是否正确。<br>
<%
For Testi=0 To Ubound(NewsArray)
If left(NewsArray(Testi),1)="/" then
Response.Write "<a href='" & session("WebUrl") & NewsArray(Testi) & "' target=_blank>" & session("WebUrl") & NewsArray(Testi) & "</a><br>"
else
if left(NewsArray(Testi),4)="http" then
Response.Write "<a href='" & NewsArray(Testi) & "' target=_blank>" & NewsArray(Testi) & "</a><br>"
else
Response.Write "<a href='" & session("Urlstr") & NewsArray(Testi) & "' target=_blank>" & session("WebUrl") & NewsArray(Testi) & "</a><br>"
end if
end if
Next
%>
<br>
下一步将抽取第一条新闻进行测试，在填写以下标记时尽量不要使用第一条新闻。<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"><%=TitleStartStr%></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"><%=TitleEndStr%></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"><%=ContentStartStr%></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"><%=ContentEndStr%></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 If%>
<%
If Action="Modify_Project4" then
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=Modify_Project5" name="form6" id="ng_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>
<% session("tmpContent") = content%>
检索到的新闻页面
<iframe src="showcontent.asp" width=100% height=300pt frameborder=0></iframe>
</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" onclick="javascript:ng_form6.submit();">
</td>
</tr>
</table>
</td>
</tr>
</table>
</form>
</center>
<%End If%>
<%
If Action="Modify_Project5" then
If FoundErr=True then
Call WriteErrMsg(ErrMsg)
Response.end
Else
Sql="Select ProjectID,UserName,Rank from Project where ProjectID="&session("ProjectID")
Set Rs=Server.Createobject("Adodb.Recordset")
Rs.Open Sql,connHistroy,1,1
UserName=Rs("UserName")
Rank=Rs("Rank")
Rs.Close
End If
%>
<center>
<form method="POST" action="?Action=Modify_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="<%=UserName%>">
默认是匿名，也可以自己填写。<br>
</td>
</tr>
<tr height="25">
<td width="25%" align="right">
文章等级：</td>
<td width="75%" align="left">
<select name="Rank"><option value="5" <%if Rank=5 then response.Write("selected")%>>
☆☆☆☆☆</option>
<option value="4" <%if Rank=4 then response.Write("selected")%>>☆☆☆☆</option>
<option value="3" <%if Rank=3 then response.Write("selected")%>>☆☆☆</option>
<option value="2" <%if Rank=2 then response.Write("selected")%>>☆☆</option>
<option value="1" <%if Rank=1 then response.Write("selected")%>>☆</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 If%>
<%
If Action="Modify_Project6" then
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 If%>
</body>
</html>
<%
Call CloseConn()
Call CloseConnHistroy()
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -