admin_mov_database.asp

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

               RsLead("QoStringb")=RsItem("QoStringb")
               RsLead("QoStringbstr")=RsItem("QoStringbstr")
               RsLead("Script_IFRAME")=RsItem("Script_IFRAME")
               RsLead("Script_OBJECT")=RsItem("Script_OBJECT")
               RsLead("Script_SCRIPT")=RsItem("Script_SCRIPT")
               RsLead("Script_Div")=RsItem("Script_Div")
               RsLead("Script_CLASS")=RsItem("Script_CLASS")
               RsLead("Script_Span")=RsItem("Script_Span")
               RsLead("Script_IMG")=RsItem("Script_IMG")
               RsLead("Script_FONT")=RsItem("Script_FONT")
               RsLead("Script_A")=RsItem("Script_A")
               RsLead("Script_HTML")=RsItem("Script_HTML")
               RsLead("Script_Table")=RsItem("Script_Table")
               RsLead("Script_Tr")=RsItem("Script_Tr")
               RsLead("Script_Td")=RsItem("Script_Td")
               RsLead("CollectionNum")=RsItem("CollectionNum")
               RsLead("CollectionType")=RsItem("CollectionType")
               RsLead("SkinID")=RsItem("SkinID")
               RsLead("TemplateID")=RsItem("TemplateID")
               RsLead("OnTop")=RsItem("OnTop")
               RsLead("Hot")=RsItem("Hot")
               RsLead("Elite")=RsItem("Elite")
               RsLead("Hits")=RsItem("Hits")
               RsLead("Stars")=RsItem("Stars")
               RsLead("ShowCommentLink")=RsItem("ShowCommentLink")
               RsLead("CollecOrder")=RsItem("CollecOrder")
               RsLead("Passed")=RsItem("Passed")
               RsLead("CreateImmediate")=RsItem("CreateImmediate")
               RsLead("SaveFiles")=RsItem("SaveFiles")
               RsLead("lasttimestr")=RsItem("lasttimestr")
               RsLead("FileSavebType")=RsItem("FileSavebType")
               RsLead("FileSavebNum")=RsItem("FileSavebNum")
               RsLead("FileSavebstr")=RsItem("FileSavebstr")
               RsLead("SaveNameTypeb")=RsItem("SaveNameTypeb")
               RsLead("SaveDir")=RsItem("SaveDir")
               RsLead("SoftPoint")=RsItem("SoftPoint")
               ItemIDTemp=RsLead("ItemID")
               RsLead.Update
               RsLead.Close
               Set RsLead=Nothing

               '过滤信息
               Set RsF=server.createobject("adodb.recordset")         
               SqlF="select * from Filters Where ItemID=" & RsItem("ItemID") & " order by ItemID DESC"         
               RsF.open SqlF,ConnItem,1,1              
               If Not RsF.Eof then
                  Do While Not RsF.Eof
                     Set RsLead=server.createobject("adodb.recordset")         
                     SqlLead="select * from Filters"         
                     RsLead.open SqlLead,ConnLead,1,3
                     RsLead.AddNew
                     RsLead("ItemID")=ItemIDTemp
                     RsLead("FilterName")=RsF("FilterName")
                     RsLead("FilterObject")=RsF("FilterObject")
                     RsLead("FilterType")=RsF("FilterType")
                     RsLead("FilterContent")=RsF("FilterContent")
                     RsLead("FisString")=RsF("FisString")
                     RsLead("FioString")=RsF("FioString")
                     RsLead("FilterRep")=RsF("FilterRep")
                     RsLead.Update
                     RsLead.Close
                     Set RsLead=Nothing
                  RsF.MoveNext
                  Loop
               End If
               RsF.Close
               Set RsF=Nothing

            RsItem.MoveNext
            Loop
         End If
         RsItem.Close
         Set RsItem=Nothing
      End If
      ConnLead.close
      set connlead=nothing

   End If
   If FoundErr<>True Then
	Call WriteSuccessMsg("数据成功导出为：" & LeadOutMdb)
   Else
	Call WriteErrMsg()
   End If
End Sub

Sub ShowLeadInData()
   Dim LeadInMdb,connstrLead,connLead,RsLead,SqlLead
   LeadInMdb=Trim(Request("LeadInMdb"))
   If LeadInMdb="" Then
      FoundErr=True 
      ErrMsg="<br><li>数据库地址不能为空！</li>"
   End If
   If FoundErr<>True Then
      On error resume next
      Set connLead = Server.CreateObject("ADODB.Connection")
      connstrLead="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(LeadInMdb)
      connLead.Open connstrLead
      If Err Then
         err.Clear
         FoundErr=True
         ErrMsg=ErrMsg & "<br><li>数据库连接出错，请确认数据库是否存在。</li>"
      End If
      If FoundErr<>True Then
         Set RsLead=server.createobject("adodb.recordset")         
         SqlLead="select ItemID,ItemName,ListStr,ListPaingType,ListPaingStr2,ListPaingID1,ListPaingID2,ListPaingStr3,ChannelID,ClassID,SpecialID,Flag from Item order by ItemID DESC"
         RsLead.open SqlLead,ConnLead,1,1
         If Not RsLead.Eof then
%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="border">
<form method="post" action="Admin_mov_Database.asp?Action=LeadInData">
  <tr>
	<td colspan="2" align="center" class="title" height=22><b>项 目 导 入</b></td>
	</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="border">
   <tr class="tdbg">         
      <td width="5%"  align="center" class=ButtonList height="22">选择</td>                 
      <td width="10%" align="center" class=ButtonList>项目名称</td>
      <td width="10%" align="center" class=ButtonList>所属频道</td> 
      <td width="10%" align="center" class=ButtonList>所属栏目</td> 
      <td width="10%" align="center" class=ButtonList>所属专题</td>   
      <td width="5%"  align="center" class=ButtonList>状态</td>     </tr>
            <%Do While Not RsLead.Eof%>
   <tr class="tdbg">         
      <td width="5%" height="22" align="center"><input type="checkbox" value=<%=RsLead("ItemID")%> name="ItemID" onClick="unselectall(this.form)"></td>                 
      <td width="10%" align="left"><%=RsLead("ItemName")%></td>
      <td width="10%" height="22" align="center"><%Call ShowName(1,RsLead("ChannelID"))%></td> 
      <td width="10%" height="22" align="center"><%Call ShowName(2,RsLead("ClassID"))%></td> 
      <td width="10%" height="22" align="center"><%Call ShowName(3,RsLead("SpecialID"))%></td> 
      <td width="5%" align="center">
      <%If RsLead("Flag")=True Then
           Response.write "√"
        Else
           Response.Write "<font color=red>×</font>"
      End If%>
      </td>            
   </tr>   
<%
            RsLead.MoveNext
            Loop
%>

   <tr class="tdbg" >
     <td colspan=6><input name="LeadInMdb" type="hidden" value="<%=LeadInMdb%>"><input name="chkAll" type="checkbox" id="chkAll" onclick=CheckAll(this.form) value="checkbox" >全选&nbsp;&nbsp;&nbsp;&nbsp;<input name="step" type="hidden" value="1"><input name="submit" type=submit value=" 开始导入 ">
     </td>
   </tr>
</form>
</table>
<%
         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 WriteErrMsg()
   End If
End Sub

Sub LeadInData()
   Dim LeadInMdb,ItemMdbPath,connstrLead,connLead,RsLead,SqlLead,RsF,SqlF,ItemIDTemp
   LeadInMdb=trim(request.form("LeadInMdb"))
   ItemID=trim(request.form("ItemID"))
   If LeadInMdb="" Then
      FoundErr=True
      ErrMsg="<br><li>数据库地址不能为空！</li>"
   End If
   If ItemID="" Then
      FoundErr=True
      ErrMsg= ErrMsg & "<br><li>请选择项目！</li>"
   Else
      ItemID=Replace(ItemID," ","")
   End If
   If FoundErr<>True Then
      Set connLead = Server.CreateObject("ADODB.Connection")
      connstrLead="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(LeadInMdb)
      connLead.Open connstrLead
      If Err Then
         err.Clear
         ConnLead.Close
	 Set ConnLead = Nothing
         FoundErr=True
	 ErrMsg= ErrMsg & "<br><li>数据库连接出错，请确认数据库是否存在。</li>"
      End If
      If FoundErr<>True Then
	Set RsLead=server.createobject("adodb.recordset")
         SqlLead="select * from Item where ItemID in(" & ItemID & ") order by ItemID ASC"         
         RsLead.open SqlLead,ConnLead,1,1
	If Not RsLead.Eof then
            Do While Not RsLead.Eof
               Set RsItem=server.createobject("adodb.recordset")         
               SqlItem="select top 1 * from Item"
               RsItem.open SqlItem,ConnItem,1,3
               RsItem.AddNew
               RsItem("ItemName")=RsLead("ItemName")
               RsItem("ChannelID")=RsLead("ChannelID")
               RsItem("ClassID")=RsLead("ClassID")
               RsItem("SpecialID")=RsLead("SpecialID")
               RsItem("WebName")=RsLead("WebName")
               RsItem("WebUrl")=RsLead("WebUrl")
               RsItem("ItemDemo")=RsLead("ItemDemo")
               RsItem("LoginType")=RsLead("LoginType")
               RsItem("LoginUrl")=RsLead("LoginUrl")
               RsItem("LoginPostUrl")=RsLead("LoginPostUrl")
               RsItem("LoginUser")=RsLead("LoginUser")
               RsItem("LoginPass")=RsLead("LoginPass")
               RsItem("LoginFalse")=RsLead("LoginFalse")
               RsItem("ListStr")=RsLead("ListStr")
               RsItem("LsString")=RsLead("LsString")
               RsItem("LoString")=RsLead("LoString")
               RsItem("ListPaingType")=RsLead("ListPaingType")
               RsItem("LPsString")=RsLead("LPsString")
               RsItem("LPoString")=RsLead("LPoString")
               RsItem("ListPaingStr1")=RsLead("ListPaingStr1")
               RsItem("ListPaingStr2")=RsLead("ListPaingStr2")
               RsItem("ListPaingID1")=RsLead("ListPaingID1")
               RsItem("ListPaingID2")=RsLead("ListPaingID2")
               RsItem("ListPaingStr3")=RsLead("ListPaingStr3")
               RsItem("HsString")=RsLead("HsString")
               RsItem("HoString")=RsLead("HoString")
               RsItem("HttpUrlType")=RsLead("HttpUrlType")
               RsItem("HttpUrlStr")=RsLead("HttpUrlStr")
               RsItem("TsString")=RsLead("TsString")
               RsItem("ToString")=RsLead("ToString")
               RsItem("CsString")=RsLead("CsString")
               RsItem("CoString")=RsLead("CoString")
               RsItem("AuthorType")=RsLead("AuthorType")
               RsItem("AsString")=RsLead("AsString")
               RsItem("AoString")=RsLead("AoString")
               RsItem("AuthorStr")=RsLead("AuthorStr")
               RsItem("UpdateTimeType")=RsLead("UpdateTimeType")
               RsItem("UsString")=RsLead("UsString")
               RsItem("UoString")=RsLead("UoString")
               RsItem("UpdateTimeStr")=RsLead("UpdateTimeStr")
               RsItem("CopyFromType")=RsLead("CopyFromType")
               RsItem("FsString")=RsLead("FsString")
               RsItem("FoString")=RsLead("FoString")
               RsItem("CopyFromStr")=RsLead("CopyFromStr")
               RsItem("KeyType")=RsLead("KeyType")
               RsItem("KsString")=RsLead("KsString")
               RsItem("KoString")=RsLead("KoString")
               RsItem("KeyStr")=RsLead("KeyStr")
               RsItem("NewsPaingType")=RsLead("NewsPaingType")
               RsItem("NPsString")=RsLead("NPsString")
               RsItem("NPoString")=RsLead("NPoString")
               RsItem("NewsPaingStr1")=RsLead("NewsPaingStr1")
               RsItem("NewsPaingStr2")=RsLead("NewsPaingStr2")
               RsItem("Flag")=RsLead("Flag")
               RsItem("DsStringbType")=RsLead("DsStringbType")
               RsItem("DsStringb")=RsLead("DsStringb")
               RsItem("DoStringb")=RsLead("DoStringb")
               RsItem("DsStringbb")=RsLead("DsStringbb")
               RsItem("DoStringbb")=RsLead("DoStringbb")
               RsItem("XsStringbType")=RsLead("XsStringbType")
               RsItem("XsStringb")=RsLead("XsStringb")
               RsItem("XoStringb")=RsLead("XoStringb")
               RsItem("XsStringbb")=RsLead("XsStringbb")
               RsItem("XoStringbb")=RsLead("XoStringbb")
			   RsItem("HttpDownUrlType")=RsLead("HttpDownUrlType")
               RsItem("HttpDownUrlStr")=RsLead("HttpDownUrlStr")
               RsItem("BsStringbType")=RsLead("BsStringbType")
               RsItem("BsStringb")=RsLead("BsStringb")
               RsItem("BoStringb")=RsLead("BoStringb")
               RsItem("BoStringbstr")=RsLead("BoStringbstr")
               RsItem("YsStringbType")=RsLead("YsStringbType")
               RsItem("YsStringb")=RsLead("YsStringb")
               RsItem("YoStringb")=RsLead("YoStringb")
               RsItem("YoStringbstr")=RsLead("YoStringbstr")
               RsItem("PsStringbType")=RsLead("PsStringbType")
               RsItem("PsStringb")=RsLead("PsStringb")
               RsItem("PoStringb")=RsLead("PoStringb")
               RsItem("PoStringbstr")=RsLead("PoStringbstr")
               RsItem("HsStringbType")=RsLead("HsStringbType")
               RsItem("HsStringb")=RsLead("HsStringb")
               RsItem("HoStringb")=RsLead("HoStringb")
               RsItem("HoStringbstr")=RsLead("HoStringbstr")
               RsItem("JsStringbType")=RsLead("JsStringbType")
               RsItem("JsStringb")=RsLead("JsStringb")
               RsItem("JoStringb")=RsLead("JoStringb")
               RsItem("JoStringbstr")=RsLead("JoStringbstr")
               RsItem("SsStringbType")=RsLead("SsStringbType")
               RsItem("SsStringb")=RsLead("SsStringb")
               RsItem("SoStringb")=RsLead("SoStringb")
               RsItem("SoStringbstr")=RsLead("SoStringbstr")
               RsItem("ZsStringbType")=RsLead("ZsStringbType")
               RsItem("ZsStringb")=RsLead("ZsStringb")
               RsItem("ZoStringb")=RsLead("ZoStringb")
               RsItem("ZoStringbstr")=RsLead("ZoStringbstr")
               RsItem("LsStringbType")=RsLead("LsStringbType")
               RsItem("LsStringb")=RsLead("LsStringb")
               RsItem("LoStringb")=RsLead("LoStringb")
               RsItem("LoStringbstr")=RsLead("LoStringbstr")
               RsItem("MsStringbType")=RsLead("MsStringbType")
               RsItem("MsStringb")=RsLead("MsStringb")
               RsItem("MoStringb")=RsLead("MoStringb")
               RsItem("MoStringbstr")=RsLead("MoStringbstr")
               RsItem("QsStringbType")=RsLead("QsStringbType")
               RsItem("QsStringb")=RsLead("QsStringb")
               RsItem("QoStringb")=RsLead("QoStringb")
               RsItem("QoStringbstr")=RsLead("QoStringbstr")
               RsItem("Script_IFRAME")=RsLead("Script_IFRAME")
               RsItem("Script_OBJECT")=RsLead("Script_OBJECT")
               RsItem("Script_SCRIPT")=RsLead("Script_SCRIPT")
               RsItem("Script_Div")=RsLead("Script_Div")