admin_mov_database.asp

重庆宽频P2P电影小偷程序,可以做一个大型的电影站了

               RsItem("Script_CLASS")=RsLead("Script_CLASS")
               RsItem("Script_Span")=RsLead("Script_Span")
               RsItem("Script_IMG")=RsLead("Script_IMG")
               RsItem("Script_FONT")=RsLead("Script_FONT")
               RsItem("Script_A")=RsLead("Script_A")
               RsItem("Script_HTML")=RsLead("Script_HTML")
               RsItem("Script_Table")=RsLead("Script_Table")
               RsItem("Script_Tr")=RsLead("Script_Tr")
               RsItem("Script_Td")=RsLead("Script_Td")
               RsItem("CollectionNum")=RsLead("CollectionNum")
               RsItem("CollectionType")=RsLead("CollectionType")
               RsItem("SkinID")=RsLead("SkinID")
               RsItem("TemplateID")=RsLead("TemplateID")
               RsItem("OnTop")=RsLead("OnTop")
               RsItem("Hot")=RsLead("Hot")
               RsItem("Elite")=RsLead("Elite")
               RsItem("Hits")=RsLead("Hits")
               RsItem("Stars")=RsLead("Stars")
               RsItem("ShowCommentLink")=RsLead("ShowCommentLink")
               RsItem("CollecOrder")=RsLead("CollecOrder")
               RsItem("Passed")=RsLead("Passed")
               RsItem("CreateImmediate")=RsLead("CreateImmediate")
               RsItem("SaveFiles")=RsLead("SaveFiles")
               RsItem("lasttimestr")=RsLead("lasttimestr")
               RsItem("FileSavebType")=RsLead("FileSavebType")
               RsItem("FileSavebNum")=RsLead("FileSavebNum")
               RsItem("FileSavebstr")=RsLead("FileSavebstr")
               RsItem("SaveNameTypeb")=RsLead("SaveNameTypeb")
               RsItem("SaveDir")=RsLead("SaveDir")
               RsItem("SoftPoint")=RsLead("SoftPoint")
               ItemIDTemp=RsItem("ItemID")
               RsItem.Update
               RsItem.close
               set rsItem=nothing
               '过滤信息
               Set RsF=server.createobject("adodb.recordset")         
               SqlF="select * from Filters Where ItemID=" & RsLead("ItemID") & " order by FilterID ASC"         
               RsF.open SqlF,ConnLead,1,1              
               If Not RsF.Eof then
                  Do While Not RsF.Eof
                     Set RsItem=server.createobject("adodb.recordset")         
                     SqlItem="select top 1 * from Filters"         
                     RsItem.open SqlItem,ConnItem,1,3
                     RsItem.AddNew
                     RsItem("ItemID")=ItemIDTemp
                     RsItem("FilterName")=RsF("FilterName")
                     RsItem("FilterObject")=RsF("FilterObject")
                     RsItem("FilterType")=RsF("FilterType")
                     RsItem("FilterContent")=RsF("FilterContent")
                     RsItem("FisString")=RsF("FisString")
                     RsItem("FioString")=RsF("FioString")
                     RsItem("FilterRep")=RsF("FilterRep")
                     RsItem.Update
                     RsItem.Close
                     Set RsItem=Nothing
                  RsF.MoveNext
                  Loop
               End If
               RsF.Close
               Set RsF=Nothing
            RsLead.MoveNext
            Loop
         Else
            FoundErr=True
            ErrMsg=ErrMsg & "<br>无任何记录！"
         End If
         RsLead.Close
         Set RsLead=Nothing
      End If
      connlead.close
      set connlead=nothing
   End If
   If FoundErr<>True Then
      Call WriteSuccessMsg("数据导入成功<br><!--请使用 检查更新数据 功能更新导入的数据-->")
   Else
      Call WriteErrMsg()
   End If
End Sub

Sub UpData()
   Dim sqlItem
   Set RsItem=server.createobject("adodb.recordset")         
   SqlItem="select * from Item"
   RsItem.open SqlItem,ConnItem,1,1
   If Not RsItem.Eof Then
      Do While (Not RsItem.Eof) and (Not RsItem.Bof)
         FoundErr=False
         ErrMsg=ErrMsg & "<b>" & RsItem("ItemName") & "</b> 项目数据： "
         If RsItem("ItemName")="" or isnull(RsItem("ItemName")) Then
            FoundErr=True
            ErrMsg=ErrMsg & "项目名称"
         End If
            If RsItem("ClassID")="" or RsItem("ClassID")=0 Or IsNull(RsItem("ClassID")) Then
               FoundErr=True
               ErrMsg=ErrMsg & " 栏目"
            Else
               'set tClass=conn.execute("select C.Child,C.LinkUrl From PE_Class C inner join PE_Template P on C.TemplateID=P.TemplateID Where C.ClassID=" & RsItem("ClassID"))
               set tClass=conn.execute("select C.Child,C.LinkUrl From PE_Class C Where C.ClassID=" & RsItem("ClassID"))
               If tClass.bof and tClass.eof then
                  FoundErr=True
                  ErrMsg=ErrMsg & " 栏目"
               Else
                  if tClass(0)>0 then
                     FoundErr=True
                     ErrMsg=ErrMsg & " 栏目"
                  End if
                  If tClass(1)<>"" then
                     FoundErr=True
                     ErrMsg=ErrMsg & " 栏目"
                  End if
               End If
               Set tClass=Nothing
            End If
         If RsItem("WebName")="" or IsNull(RsItem("WebName")) Then
            FoundErr=True
            ErrMsg=ErrMsg & " 网站名称"
         End If
         If RsItem("WebUrl")="" Or IsNull(RsItem("WebUrl")) Then
            FoundErr=True
            ErrMsg=ErrMsg & "、网站地址"
         End If
         If RsItem("LoginType")="" or IsNull(RsItem("LoginType")) Then
            FoundErr=True
            ErrMsg=ErrMsg & " 网站登录类型"
         else
            If RsItem("LoginType")=1 Then
               If RsItem("LoginUrl")="" or RsItem("LoginPostUrl")="" or Instr(RsItem("LoginUser"),"=")=0 or Instr(RsItem("LoginPass"),"=")=0 or RsItem("LoginFalse")="" then
                  FoundErr=True
                  ErrMsg=ErrMsg & " 网站登录参数"
               End If
            End If
         End If
         If RsItem("ListPaingType")="" or IsNull(RsItem("ListPaingType")) Then
            FoundErr=True
            ErrMsg=ErrMsg & " 列表分页类型"
         Else
            If RsItem("ListPaingType")=0 Then
               If RsItem("ListStr")="" or IsNull(RsItem("ListStr"))=True Then
                  FoundErr=True
                  ErrMsg=ErrMsg & " 列表索引"
               End If
            ElseIf RsItem("ListPaingType")=1 Then
               If RsItem("ListStr")="" Then
                  FoundErr=True
                  ErrMsg=ErrMsg & " 列表索引"
               End If
               If RsItem("LPsString")="" or IsNull(RsItem("LPsString")) or RsItem("LPoString")="" Or IsNull(RsItem("LPoString")) then
                  FoundErr=True
                  ErrMsg=ErrMsg & " 列表分页标记"
               end If
               If IsNull(RsItem("ListPaingStr1"))<>True and Len(RsItem("ListPaingStr1"))<15 Then
                  FoundErr=True
                  ErrMsg=ErrMsg & " 索引分页重定向"
               End If
            ElseIf RsItem("ListPaingType")=2 Then
               If Len(RsItem("ListPaingStr2"))<15 or Instr(RsItem("ListPaingStr2"),"{$ID}")=0 Then
                  FoundErr=True
                  ErrMsg=ErrMsg & " 列表原始字符"
               End If
               If IsNumeric(RsItem("ListPaingID1"))=False or IsNumeric(RsItem("ListPaingID2"))=False or (RsItem("ListPaingID1")=0 and RsItem("ListPaingID2")=0) Then
                  FoundErr=True
                  ErrMsg=ErrMsg & " 列表分页范围"
               End If
            ElseIf RsItem("ListPaingType")=3 Then
               If RsItem("ListPaingStr3")="" Then
                  FoundErr=True
                  ErrMsg=ErrMsg & " 列表手动分页标记"
               End If
            Else
               FoundErr=True
               ErrMsg=ErrMsg & " 列表分页类型"
            End If
         End If
         If RsItem("LsString")="" or IsNull(RsItem("LsString")) Or RsItem("LoString")="" Or IsNull(RsItem("LoString")) Then
            FoundErr=True
            ErrMsg=ErrMsg & " 列表标记设置"
         End If
         If RsItem("HsString")="" or IsNull(RsItem("HsString")) Or RsItem("HoString")="" Or IsNull(RsItem("HoString")) Then
            FoundErr=True
            ErrMsg=ErrMsg & " 链接标记设置"
         End If
         If IsNull(RsItem("HttpUrlType")) Then
            FoundErr=True
            ErrMsg=ErrMsg & " 链接类型"
         Else
            If RsItem("HttpUrlType")=1 and Len(Rsitem("HttpUrlStr"))<15 Then
               FoundErr=True
               ErrMsg=ErrMsg & " 链接字符"
            End If
         End If
         If RsItem("TsString")="" or IsNull(RsItem("TsString")) Or RsItem("ToString")="" Or IsNull(RsItem("ToString")) Then
            FoundErr=True
            ErrMsg=ErrMsg & " 标题标记设置"
         End If
         If RsItem("CsString")="" or IsNull(RsItem("CsString")) Or RsItem("CoString")="" Or IsNull(RsItem("CoString")) Then
            FoundErr=True
            ErrMsg=ErrMsg & " 正文标记设置"
         End If
         If IsNull(RsItem("AuthorType")) Then
            FoundErr=True
            ErrMsg=ErrMsg & " 作者标记设置"
         Else
            If RsItem("AuthorType")=1 Then
               If RsItem("AsString")="" or IsNull(RsItem("AsString")) Or RsItem("AoString")="" Or IsNull(RsItem("AoString")) Then
                  FoundErr=True
                  ErrMsg=ErrMsg & " 作者标记设置"
               End If
            ElseIf RsItem("AuthorType")=2 Then
               If RsItem("AuthorStr")="" or IsNull(RsItem("AuthorStr")) Then
                  FoundErr=True
                  ErrMsg=ErrMsg & " 指定作者设置"
               End If 
            End If
         End If
         If RsItem("CopyFromType")=1 Then
            If RsItem("FsString")="" or RsItem("FoString")="" Then
               FoundErr=True
               ErrMsg=ErrMsg & " 来源标记设置"
            End If
         ElseIf RsItem("CopyFromType")=2 Then
            If RsItem("CopyFromStr")="" Then
               FoundErr=True
               ErrMsg=ErrMsg & " 指定来源设置"
            End If 
         End If
         If RsItem("KeyType")=1 Then
            If RsItem("KsString")="" or RsItem("KoString")="" Then
               FoundErr=True
               ErrMsg=ErrMsg & " 关键字标记设置"
            End If
         ElseIf RsItem("KeyType")=2 Then
            If RsItem("KeyStr")="" Then
               FoundErr=True
               ErrMsg=ErrMsg & " 指定关键字设置"
            End If 
         End If
         If RsItem("NewsPaingType")=1 Then
            If RsItem("NPsString")="" or RsItem("NPoString")="" Then
               FoundErr=True
               ErrMsg=ErrMsg & " 正文分页标记设置"
            End If
            If RsItem("NewsPaingStr")<>"" And Len(RsItem("NewsPaingStr"))<15 Then
               FoundErr=True
               ErrMsg=ErrMsg & " 正文分页绝对链接"
            End If
         ElseIf RsItem("NewsPaingType")=2 Then
            FoundErr=True
            ErrMsg=ErrMsg & " 正文分页类型"
         End If
         If FoundErr=False Then
            ErrMsg=ErrMsg & " 状态--正常<br>"
         Else
            ErrMsg=ErrMsg & " 设置不正确 状态--<font color=red>异常</font><br>"
         End If
         foundErr=False
         RsItem.movenext
      Loop
   end if
   rsItem.close
   set rsItem=nothing
If FoundErr=False Then
   Call WriteSuccessMsg(ErrMsg)
Else
   Call WriteErrMsg()
End If
End Sub

sub ClearData()
	dim z
	z=0
	if request("Item")="yes" then
		connItem.execute("delete From Item")
                connItem.execute("delete From CollecTemp")
		response.write "成功清除了所有采集项目！<br>"
		z=z+1
	end if
	if request("Histroly")="yes" then
		connItem.execute("delete from Histroly")
                connItem.execute("delete from HistrolyNews")
		response.write "成功清除了历史记录！<br>"
		z=z+1
	end if
	if request("Filters")="yes" then
		connItem.execute("delete from Filters")
		response.write "成功清除了过滤设置！<br>"
		z=z+1
	end if
	if request("FilesType")="yes" then
		connItem.execute("delete from FilesType")
		response.write "成功清除了文件类型！<br>"
		z=z+1
	end if
	if z>0 then
		response.write cstr(z) & "个数据库被清空，你可以开始添加新内容。"
	else
		response.write "你没有选择任何数据库，0个数据库被清空。"
	end if

end sub
%>
<br>
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="border" >
  <tr>
   <td colspan='2' height="20" align="center">该插件修改自亿翔网提供的采集插件,修改作者QQ:271513820</td>
  </tr>
</table>