资源名称
动易2006\2005图片采集插件--含采集项目
- 添加时间： 2007-7-3 15:34:59
- 下载次数： 月： 周： 日：
- 文件大小： 125 K
- 解压密码： www.xueol.com 或
下载地址
相关资源
动易2006下载频道变影视频道插件支持P2P|BOBO|rmvb|rm
无人值守自动[论坛]采集助手Editortools v1.4
动易2006\2005软件采集插件--含采集项目
网站实现flash调查插件 2.0
动网论坛网摘插件
资源简介
使用说明
1.将压缩包里的文件上传到空间的管理目录内（例如Admin）
2.参照下面的Admin_index_left.asp修改方法对此文件进行修改。
□□□□打开admin_index_left.asp,找到□□□□
If FoundInArr(AllModules, "Collection", ",") Then
If AdminPurview = 1 Or CheckPurview_Other(AdminPurview_Others, "Collection") = True Then
Response.Write "<table cellpadding=0 cellspacing=0 width=167 align=center>" & vbCrLf
Response.Write " <tr>" & vbCrLf
Response.Write " <td height=28 class=menu_title onmouseover=this.className='menu_title2'; onmouseout=this.className='menu_title'; background='Images/Admin_left_05.gif' id=menuTitle210 onclick=""new Element.toggle('submenu210')"" style='cursor:hand;'><a href='Admin_Help_Collection.asp' target='main'><span class=glow>采集管理</span></a></td></tr><tr><td style='display:none' align='right' id='submenu210'><div class=sec_menu style='width:165'><table cellpadding=0 cellspacing=0 align=center width=130>" & vbCrLf
Response.Write " <tr>" & vbCrLf
Response.Write " <td height=20><a href=Admin_Collection.asp?Action=Main target=main>文章采集</a></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr>" & vbCrLf
Response.Write " <td height=20><a href=Admin_CollectionManage.asp?Action=ItemManage target=main>项目管理</a></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr>" & vbCrLf
Response.Write " <td height=20><a href=Admin_Filter.asp?Action=main target=main>过滤管理</a></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr>" & vbCrLf
Response.Write " <td height=20><a href=Admin_CollectionHistory.asp?Action=main target=main>采集历史记录</a></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr>" & vbCrLf
Response.Write " <td height=20><a href=Admin_CollectionManage.asp?Action=Import target=main>项目导入</a> | <a href=Admin_CollectionManage.asp?Action=Export target=main>项目导出</a></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr>" & vbCrLf
Response.Write " <td height=20><a href=Admin_Timing.asp?Action=main target=main>定时设置</a> | <a href=Admin_Timing.asp?Action=DoMainTiming target='_blank'>启动定时</a></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr>" & vbCrLf
Response.Write " <td height=20><a href=Admin_AreaCollection.asp?Action=Main target=main>区域采集管理</a></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " </table>" & vbCrLf
Response.Write " </div>" & vbCrLf
Response.Write " <div style='width:167'>" & vbCrLf
Response.Write " <table cellpadding=0 cellspacing=0 align=center width=130>" & vbCrLf
Response.Write " <tr>" & vbCrLf
Response.Write " <td height=5></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " </table>" & vbCrLf
Response.Write " </div></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write "</table>" & vbCrLf
End If
End If
□□□□在下面添加如下代码并保存即可□□□□
'================图片采集开始==========================
If FoundInArr(AllModules, "Collection", ",") Then
If AdminPurview = 1 Or CheckPurview_Other(AdminPurview_Others, "Collection") = True Then
Response.Write "<table cellpadding=0 cellspacing=0 width=167 align=center>" & vbCrLf
Response.Write " <tr>" & vbCrLf
Response.Write " <td height=28 class=menu_title onmouseover=this.className='menu_title2'; onmouseout=this.className='menu_title'; background='Images/Admin_left_05.gif' id=menuTitle2102 onclick=""new Element.toggle('submenu2102')"" style='cursor:hand;'><a href='Admin_LZ_Help.asp' target='main'><span class=glow>图片采集</span></a></td></tr><tr><td style='display:none' align='right' id='submenu2102'><div class=sec_menu style='width:165'><table cellpadding=0 cellspacing=0 align=center width=130>" & vbCrLf
Response.Write " <tr>" & vbCrLf
Response.Write " <td height=20><a href=Admin_LZ_Collectino.asp target=main>图片采集</a></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr>" & vbCrLf
Response.Write " <td height=20><a href=Admin_LZ_Manage.asp target=main>项目管理</a></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr>" & vbCrLf
Response.Write " <td height=20><a href=Admin_LZ_Filters.asp target=main>过滤管理</a></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr>" & vbCrLf
Response.Write " <td height=20><a href=Admin_LZ_Histroly.asp target=main>采集历史记录</a></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr>" & vbCrLf
Response.Write " <td height=20><a href=Admin_LZ_Database.asp target=main>采集数据库管理</a></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr>" & vbCrLf
Response.Write " <td height=20><a href=Admin_LZ_Database.asp?Action=LeadIn target=main>项目导入</a> | <a href=Admin_LZ_Database.asp?Action=LeadOut target=main>项目导出</a></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " </table>" & vbCrLf
Response.Write " </div>" & vbCrLf
Response.Write " <div style='width:167'>" & vbCrLf
Response.Write " <table cellpadding=0 cellspacing=0 align=center width=130>" & vbCrLf
Response.Write " <tr>" & vbCrLf
Response.Write " <td height=5></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " </table>" & vbCrLf
Response.Write " </div></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write "</table>" & vbCrLf
End If
End If
'================图片采集结束==========================
