tl_cai_index3.asp

音乐管理系统的采集数据程序可自行添加采集点,适合一些大型音乐网站数据的采集

<!--#include file="Conn.Asp" -->
<!--#include file="function.asp" -->
<%
if request("list")="on" Then
   if request("TlID") = "" then 
   			 response.write "<script language='javascript'>" & VbCRlf
	         response.write "alert('参数错误，请正确设置');" & VbCrlf
	         response.write "history.go(-1);" & vbCrlf
	         response.write "</script>" & VbCRLF
	         response.end
   end if
       
          call TLconnstr1
       set rs=server.createobject("adodb.recordset")        
       sql="select * from list where TlID =" & request("TlID") 
       rs.Open sql,conn,1,1
else
''''''''''''''''''''''''检查与添加一级分类''''''''''''''''''''''''''''''
    call TLconnstr
       set rs=server.createobject("adodb.recordset")        
       sql="select * from SClass"
       rs.Open sql,conn,1,3
       count = rs.recordcount 
       rs.close
if request("add") = "on" then 
	   if request("TlID") = "" then 
		response.write "<script language='javascript'>" & VbCRlf
	    response.write "alert('参数错误');" & VbCrlf
	    response.write "history.go(-1);" & vbCrlf
	    response.write "</script>" & VbCRLF
	    response.end
         end if

    call TLconnstr1
	   set rs=server.createobject("adodb.recordset")        
       sql="select * from list where TlID =" & request("TlID") 
       rs.Open sql,conn,1,3
	   rs("ClassT") = request("ClassT")
	   rs("Replace1S") = request("Replace1S")
	   rs("Replace1O") = request("Replace1O")
	   rs("Replace2") = request("Replace2")
	   rs("Replace3") = request("Replace3")
	   rs.update
	   rs.close
	   	 'call TLconnstr1
		   'set rs1=server.createobject("adodb.recordset") 
           'sql1="select * from Class"
           'rs1.Open sql1,conn,1,3
         for i = 1 to count
          call TLconnstr1
          set rs1=server.createobject("adodb.recordset") 
          sql1="select * from Class where SClass = '"&request("SClass"&i&"")&"' and TlID = '"&request("TlID")&"'"
          rs1.Open sql1,conn,1,3
          if rs1.eof and rs1.bof then
          rs1.Addnew
          rs1("SClass") = ""&request("SClass"&i&"")&""
          rs1("TSClass") = ""&request("TSClass"&i&"")&""
          rs1("TlID") = request("TlID")
		  rs1.update
		  else
          rs1("SClass") = ""&request("SClass"&i&"")&""
          rs1("TSClass") = ""&request("TSClass"&i&"")&""
          rs1("TlID") = request("TlID")
          rs1.update
          rs1.close
		  end if
		  'response.write ""&request("SClass"&i&"")&""
        next
		'rs1.close	
end if
if request("edit") = "on" then
	   if request("TlID") = "" then 
		response.write "<script language='javascript'>" & VbCRlf
	    response.write "alert('参数错误');" & VbCrlf
	    response.write "history.go(-1);" & vbCrlf
	    response.write "</script>" & VbCRLF
	    response.end
         end if
    call TLconnstr1
	   set rs=server.createobject("adodb.recordset")        
       sql="select * from list where TlID =" & request("TlID") 
       rs.Open sql,conn,1,3
	   rs("ClassT") = request("ClassT")
	   rs("Replace1S") = request("Replace1S")
	   rs("Replace1O") = request("Replace1O")
	   rs("Replace2") = request("Replace2")
	   rs("Replace3") = request("Replace3")
	   rs.update
	   rs.close
       set rs=server.createobject("adodb.recordset")        
         for i = 1 to count
          sql="select * from Class where SClass ='"&request("SClass"&i&"")&"' and TlID ='"&request("TlID")&"'"
          rs.Open sql,conn,1,3
          if rs.eof and rs.bof then
          rs.Addnew
          rs("SClass") = ""&request("SClass"&i&"")&""
          rs("TSClass") = ""&request("TSClass"&i&"")&""
          rs("TlID") = request("TlID")
          rs.update
          else
          rs("SClass") = ""&request("SClass"&i&"")&""
          rs("TSClass") = ""&request("TSClass"&i&"")&""
          rs("TlID") = request("TlID")
	  rs.update
	  rs.close
          end if
        next      
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
		  end if
	   if request("TlID") = "" then 
		response.write "<script language='javascript'>" & VbCRlf
	    response.write "alert('参数错误');" & VbCrlf
	    response.write "history.go(-1);" & vbCrlf
	    response.write "</script>" & VbCRLF
	    response.end
         end if
    call TLconnstr1
	   set rs=server.createobject("adodb.recordset")        
       sql="select * from list where TlID =" & request("TlID") 
       rs.Open sql,conn,1,1
end if
%>
<html>
<head>
<title>音乐通用采集--采集第三步</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name='description' content='免费MP3下载,免费MTV下载,在线音乐试听,网友翻唱,歌手资料档案,音乐论坛,手机铃声,和弦,电影下载,127.0.0.1,fjxn.com'>
<link href='css/style.css' rel='stylesheet' type='text/css'>
</head>

<body bgcolor="#FFFFFF" text="#000000">
<!--#include file="Tl_TB.asp" -->
              <form name="form1" method="post" action="TL_cai_index4.asp?<%if request("edit") = "on" then%>edit=on&Tlid=<%=request("TlID")%><%else%>add=on&Tlid=<%=request("TlID")%><%end if%>">
  <table width="570" border="1" cellpadding="0" cellspacing="0" bordercolor="#006699" align="center">
  <tr> 
      <td valign="top" height="16" width="566" bgcolor="#006699">
        <div align="center"><font color="#FFFFFF">项 目 编 辑 - 专 辑 设 置</font></div>
      </td>
  </tr>
  <tr> 
    <td valign="top" height="337" width="566"> 
      <table width="100%" border="0" cellpadding="0" cellspacing="0">
        <tr> 
          <td width="737" height="17" valign="top"> 
              <table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#00FFFF">
                <tr class="tdbg"> 
                  <td width="20%" class="tdbg" ><strong>列表开始标记：</strong></td>
                  <td class="tdbg" width="75%"> 
                    <textarea name="musicS" cols="49" rows="7" style="border: 1 solid #006699"><%call TlLY(rs("musicS"))%></textarea>
                  </td>
                </tr>
                <tr class="tdbg">