📄 projectmanage.asp
字号:
<%
option explicit
response.buffer=true
Dim Rs,Sql,action,ErrMsg,channelid,classid,classname,classinfo,FoundErr,Del,SqlHistroy
Dim CurrentPage,Allpage,ProjectNum,iProject,ProjectID,ProjectCollectionTime,RsHistroy
Dim ProjectName,WebName,WebUrl,ListIndex,Url,Urlstr,ShowCode,ListCode
Dim ListStartString,ListEndString,ListType,ListPageStr,PageStart,PageEnd,PageOrder,strRemoteListUrl
Dim LinkStartStr,LinkEndStr,linkurl,NewsArray,Testi,ProjectName_Z,ListCode_z
Dim TitleStartStr,TitleEndStr,ContentStartStr,ContentEndStr,title,content
Dim UserName,Rank
Const PerPage=10
%>
<!--#include file="inc/conn.asp"-->
<!--#include file="inc/function.asp"-->
<%
Action=Request.QueryString("Action")
Del=Request("Del")
if Del="Del" then
call delproject()
end if
Call Top()
Select case Action
Case ""
Call Step()
Case "Add_Project"
Call Step0()
Case "Add_Project1"
Call Step1()
Case "Add_Project2"
Call Step2()
Case "Add_Project3"
Call Step3()
Case "Add_Project4"
Call Step4()
Case "Add_Project5"
Call Step5()
Case "Add_Project6"
Call Step6()
End Select
Call Bottom()
sub delproject()
ProjectID=Trim(Request.QueryString("ProjectID"))
If ProjectID<>"" Then
ProjectID=Replace(ProjectID," ","")
End If
If ProjectID="" Then
FoundErr=True
ErrMsg=ErrMsg & "<br>请选择要删除的记录"
Else
ProjectID=Replace(ProjectID," ","")
connHistroy.Execute("Delete From [Project] Where ProjectID In(" & ProjectID & ")")
connHistroy.Execute("Delete From [Histroy] Where ProjectID In(" & ProjectID & ")")
End If
end sub
%>
<%
Sub Step()
if FoundErr<>True then%>
<center>
<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 border="0" cellspacing="1" width="100%" cellpadding="0" bgcolor="#FFFFFF">
<form name="myform" method="POST" action="projectmanage.asp">
<tr style="padding: 0px 2px;">
<td width="41" height="22" align="center">选择</td>
<td width="146" align="center">项目名称</td>
<td width="171" align="center">采集地址</td>
<td width="93" height="22" align="center">所属频道</td>
<td width="89" height="22" align="center">所属栏目</td>
<td width="44" align="center">状态</td>
<td width="145" height="22" align="center">上次采集</td>
<td width="180" height="22" align="center">操作</td>
</tr>
<%
If Request("page")<>"" then
CurrentPage=Cint(Request("Page"))
Else
CurrentPage=1
End if
Set Rs=server.createobject("adodb.recordset")
Sql="select ProjectID,ProjectName,WebName,ChannelID,ClassID from Project order by ProjectID DESC"
Rs.open Sql,ConnHistroy,1,1
if Not Rs.Eof then
Rs.PageSize=PerPage
Allpage=Rs.PageCount
If Currentpage>Allpage Then Currentpage=1
ProjectNum=Rs.RecordCount
Rs.MoveFirst
Rs.AbsolutePage=CurrentPage
iProject=0
Do While Not Rs.Eof
ProjectID=Rs("ProjectID")
ProjectName=Rs("ProjectName")
WebName=Rs("WebName")
ChannelID=Rs("ChannelID")
ClassID=Rs("ClassID")
%>
<tr onMouseOut="this.style.backgroundColor=''" onMouseOver="this.style.backgroundColor='#BFDFFF'" style="padding: 0px 2px;">
<td width="41" align="center">
<input type="checkbox" value="<%=ProjectID%>" name="ProjectID" onClick="unselectall(this.form)">
</td>
<td width="146" align="center"><%=ProjectName%></td>
<td width="171" align="center"><a href="#" target="_bank"><%=WebName%></a></td>
<td width="93" height="22" align="center"><%Call ShowChannel_Name(ChannelID)%></td>
<td width="89" align="center"><%Call ShowClass_Name(ChannelID,ClassID)%></td>
<td width="44" align="center"> <b>
</b> </td>
<td width="145" align="center">
<%
Set RsHistroy=connHistroy.execute("select Top 1 CollectionTime From Histroy Where ProjectID=" & ProjectID & " Order by HistroyID desc")
If Not RsHistroy.Eof Then
ProjectCollectionTime=RsHistroy("CollectionTime")
Else
ProjectCollectionTime=""
End if
Set RsHistroy=Nothing
if ProjectCollectionTime<>"" then
Response.Write ProjectCollectionTime
Else
Response.Write "尚无记录"
End If
%>
</td>
<td width="180" align="center"><a href=projectmodify.asp?ProjectID=<%=ProjectID%>&action=Modify_Project>编辑</a> <a href=projectmanage.asp?Del=Del&ProjectID=<%=ProjectID%> onClick='return confirm("确定要删除此项目吗？请您慎重选择！这将删除该项目的项目信息，历史记录 2 个项目类型数据。");'>删除</a></td>
</tr>
<%
iProject=iProject+1
If iProject>=PerPage Then Exit Do
Rs.MoveNext
Loop
%>
<tr>
<td colspan=9 height="30">
<input name="Del" type="hidden" value="Del">
<input name="chkAll" type="checkbox" id="chkAll" onClick=CheckAll(this.form) value="checkbox" >
全选 </td>
</tr>
<tr>
<td colspan=9 height="30" align=center>
<input type="submit" value="清空所有记录" name="DelButton" onClick='return confirm("您真的要确定要清空所有项目吗？这将彻底格式化采集数据库的所有信息，请您先备份再选择！！！");' >
</td>
</tr>
<%Else%>
<tr>
<td colspan='9' align="center"><br>
系统中暂无采集项目！</td>
</tr>
<%End If
Rs.Close
Set Rs=Nothing
%>
</form>
</table>
</td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="border" >
<tr>
<td height="22" colspan="2" class="tdbg">
<%
Response.Write ShowPage("projectmanage.asp",ProjectNum,PerPage,True,True," 个项目")
%>
</td>
</tr>
</table>
</center>
<%else
Call WriteErrMsg(ErrMsg)
end if
End Sub%>
<%Sub Step0()%>
<script language = "javascript">
var onecount;
onecount=0;
subcat = new Array();
<%
set rs=server.createobject("adodb.recordset")
sql="select * from class"
rs.open sql,conn,1,1
dim i
i =0
do while not rs.eof and i<=rs.recordcount
%>
subcat[<%=i%>] = new Array("<%=rs("channelid")%>","<%=rs("classname")%>","<%=rs("classid")%>");
<%
i=i+1
rs.movenext
loop
%>
onecount=<%=rs.recordcount%>;
function changelocation(locationid)
{
document.form2.Class.length = 0;
var locationid=locationid;
var i;
for (i=0;i < onecount; i++)
{
if (subcat[i][0] == locationid)
{
document.form2.Class.options[document.form2.Class.length] = new Option(subcat[i][1], subcat[i][2]);
}
}
}
</script>
<center>
<form method="POST" action="?Action=Add_Project1" name="form2">
<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%" id="table1" bgcolor="#ffffff">
<tr height="25">
<td width="30%" align="right"><b>项目名称：</b></td>
<td width="65%"> <input type="text" name="ProjectName" size="31">
<font color="red">*</font>如：搜狐网－娱乐资讯 </td>
</tr>
<tr height="25">
<td width="30%" align="right"><b>所属栏目：</b></td>
<td width="65%"> <select name="Channel" onChange="changelocation(document.form2.Channel.options[document.form2.Channel.selectedIndex].value)" size="1">
<option selected value="">未指定条件</option>
<%
set rs=conn.execute("select channelid,channelname from channel order by channelid asc")
do while not rs.eof
%>
<option value=<%=rs("channelid")%>><%=rs("channelname")%></option>
<%
rs.movenext
loop
rs.close
%>
</select>
<select name="Class">
<option selected value="">未指定条件</option>
</select><font color="red"> *</font></td>
</tr>
<tr height="25">
<td width="30%" align="right"><b>被采集网站名称：</b></td>
<td width="65%"> <input type="text" name="WebName" size="21">
<font color="red">*</font></td>
</tr>
<tr height="25">
<td width="30%" align="right"><b>被采集网站地址：</b></td>
<td width="65%"> <input type="text" name="WebUrl" size="41">
<font color="red">*</font></td>
</tr>
<tr height="25">
<td width="30%" align="right"><b>列表索引页面：</b></td>
<td width="65%"> <input type="text" name="ListIndex" size="61">
<font color="red">*</font></td>
</tr>
<tr height="25">
<td width="30%" align="right"><b>是否显示源码：</b></td>
<td width="65%"> <input type="radio" name="ShowCode" value="yes">显示
<input type="radio" name="ShowCode" value="no" checked> 不显示</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 Step1()
ProjectName=Trim(Request.Form("ProjectName"))
session("ProjectName")=ProjectName
ChannelID=Trim(Request.Form("Channel"))
ClassID=Trim(Request.Form("Class"))
WebName=Trim(Request.Form("WebName"))
WebUrl=Trim(Request.Form("WebUrl"))
ListIndex=Trim(Request.Form("ListIndex"))
If ListIndex<>"" then
Url=split(ListIndex,"/")
Urlstr=""
dim i
For i=0 To Ubound(Url)-1
Urlstr=Urlstr&Url(i)&"/"
Next
session("Urlstr")=Urlstr
weburl=Url(0)&"//"&Url(2)
session("weburl")=weburl
end if
ShowCode=Trim(Request.Form("ShowCode"))
If ProjectName="" Then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>项目名称不能为空</li>"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -