tl_cai_index3.asp.bak

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

<!--#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"> 
                  <td width="20%" class="tdbg" ><strong>列表结束标记：</strong></td>
                  <td class="tdbg" width="75%"> 
                    <textarea name="musicO" cols="49" rows="7" style="border: 1 solid #006699"><%call TlLY(rs("musicO"))%></textarea>

                  </td>
                </tr>
                <tr class="tdbg"> 
                  <td width="20%" class="tdbg" ><strong>一级分类开始标记：</strong></td>
                  <td class="tdbg" width="75%"> 
                    <textarea name="SClassS" cols="49" rows="7" style="border: 1 solid #006699"><%call TlLY(rs("SClassS"))%></textarea>
                  </td>
                </tr>
                <tr class="tdbg"> 
                  <td width="20%" class="tdbg" ><strong>一级分类结束标记：</strong></td>
                  <td class="tdbg" width="75%"> 
                    <textarea name="SClassO" cols="49" rows="7" style="border: 1 solid #006699"><%call TlLY(rs("SClassO"))%></textarea>
                  </td>
                </tr>
                <tr class="tdbg"> 
                  <td width="20%" class="tdbg" ><strong>歌手姓名开始标记：</strong></td>
                  <td class="tdbg" width="75%"> 
                    <textarea name="NClassS" cols="49" rows="7" style="border: 1 solid #006699"><%call TlLY(rs("NClassS"))%></textarea>
                  </td>
                </tr>
                <tr class="tdbg"> 
                  <td width="20%" class="tdbg" ><strong>歌手姓名结束标记：</strong></td>
                  <td class="tdbg" width="75%"> 
                    <textarea name="NClassO" cols="49" rows="7" style="border: 1 solid #006699"><%call TlLY(rs("NClassO"))%></textarea>
                  </td>
                </tr>
                <tr class="tdbg"> 
                  <td width="20%" class="tdbg" ><strong>专辑名称开始标记：</strong></td>
                  <td class="tdbg" width="75%"> 
                    <textarea name="NameS" cols="49" rows="7" style="border: 1 solid #006699"><%call TlLY(rs("NameS"))%></textarea>
                  </td>
                </tr>
                <tr class="tdbg"> 
                  <td width="20%" class="tdbg" ><strong>专辑名称结束标记：</strong></td>
                  <td class="tdbg" width="75%"> 
                    <textarea name="NameO" cols="49" rows="7" style="border: 1 solid #006699"><%call TlLY(rs("NameO"))%></textarea>
                  </td>
                </tr>
                <tr class="tdbg"> 
                  <td width="20%" class="tdbg" ><strong>所属语言开始标记：</strong></td>
                  <td class="tdbg" width="75%"> 
                    <textarea name="YuyanS" cols="49" rows="7" style="border: 1 solid #006699"><%call TlLY(rs("YuyanS"))%></textarea>
                  </td>
                </tr>
                <tr class="tdbg"> 
                  <td width="20%" class="tdbg" ><strong>所属语言结束标记：</strong></td>
                  <td class="tdbg" width="75%"> 
                    <textarea name="YuyanO" cols="49" rows="7" style="border: 1 solid #006699"><%call TlLY(rs("YuyanO"))%></textarea>
                  </td>
                </tr>
                <tr class="tdbg"> 
                  <td width="20%" class="tdbg" ><strong>发行公司开始标记：</strong></td>
                  <td class="tdbg" width="75%"> 
                    <textarea name="GongSiS" cols="49" rows="7" style="border: 1 solid #006699"><%call TlLY(rs("GongSiS"))%></textarea>
                  </td>
                </tr>
                <tr class="tdbg"> 
                  <td width="20%" class="tdbg" ><strong>发行公司结束标记：</strong></td>
                  <td class="tdbg" width="75%"> 
                    <textarea name="GongSiO" cols="49" rows="7" style="border: 1 solid #006699"><%call TlLY(rs("GongSiO"))%></textarea>
                  </td>
                </tr>
                <tr class="tdbg"> 
                  <td width="20%" class="tdbg" ><strong>发行日期开始标记：</strong></td>
                  <td class="tdbg" width="75%"> 
                    <textarea name="TimesS" cols="49" rows="7" style="border: 1 solid #006699"><%call TlLY(rs("TimesS"))%></textarea>
                  </td>
                </tr>
                <tr class="tdbg"> 
                  <td width="20%" class="tdbg" ><strong>发行日期结束标记：</strong></td>
                  <td class="tdbg" width="75%"> 
                    <textarea name="TimesO" cols="49" rows="7" style="border: 1 solid #006699"><%call TlLY(rs("TimesO"))%></textarea>
                  </td>
                </tr>
                <tr class="tdbg"> 
                  <td width="20%" class="tdbg" ><strong>专集介绍开始标记：</strong></td>
                  <td class="tdbg" width="75%"> 
                    <textarea name="InfoS" cols="49" rows="7" style="border: 1 solid #006699"><%call TlLY(rs("InfoS"))%></textarea>
                  </td>
                </tr>
                <tr class="tdbg"> 
                  <td width="20%" class="tdbg" ><strong>专集介绍结束标记：</strong></td>
                  <td class="tdbg" width="75%"> 
                    <textarea name="InfoO" cols="49" rows="7" style="border: 1 solid #006699"><%call TlLY(rs("InfoO"))%></textarea>
                  </td>
                </tr>
                <tr class="tdbg"> 
                  <td width="20%" class="tdbg" ><strong>专集图片开始标记：</strong></td>
                  <td class="tdbg" width="75%"> 
                    <textarea name="imaS" cols="49" rows="7" style="border: 1 solid #006699"><%call TlLY(rs("imaS"))%></textarea>
                  </td>
                </tr>
                <tr class="tdbg"> 
                  <td width="20%" class="tdbg" ><strong>专集图片结束标记：</strong></td>
                  <td class="tdbg" width="75%"> 
                    <textarea name="imaO" cols="49" rows="7" style="border: 1 solid #006699"><%call TlLY(rs("imaO"))%></textarea>
                  </td>
                </tr>
                <tr class="border"> 
                  <td width="20%" class="tdbg"><strong> 图片链接特殊处理：</strong></td>
                  <td class="tdbg" width="75%"> 
                    <input type="radio" value="0" name="Tlpic" <%If rs("Tlpic")=0 Then Response.Write "checked"%> onClick="sasdasd.style.display='none';sasdasds.style.display='none'">
                    自动处理&nbsp; 
                    <input type="radio" value="1" name="Tlpic" <%If rs("Tlpic")=1 Then Response.Write "checked"%> onClick="sasdasd.style.display='';sasdasds.style.display=''">
                    手动处理 </td>
                </tr>
                <tr class="tdbg" id="sasdasd" style="display:'<%If rs("Tlpic")=0 Then Response.Write "none"%>'"> 
                  <td width="20%" class="tdbg"><strong>图片连接前缀字符：</strong></td>
                  <td class="tdbg" width="75%"> 
                    <input name="StrpicURL" type="text" size="49" maxlength="200" value="<%call TlLY(rs("StrpicURL"))%>" style="border: 1 solid #006699"><br>
					例：http://www.abc.com/  使图片成为一个完整的连接
                  </td>
                </tr>
                <tr class="tdbg"  id="sasdasds" style="display:'<%If rs("Tlpic")=0 Then Response.Write "none"%>'">  
                  <td width="20%" class="tdbg"><strong>无图片替换字符：</strong></td>
                  <td class="tdbg" width="75%"> 
                    <p><br>
                      无图片字符串： <br>
                      <input name="StrHTTPpic" type="text" size="49" maxlength="200" value="<%call TlLY(rs("StrHTTPpic"))%>" style="border: 1 solid #006699">
                      <br>
                      有时会出现没有该专集图片，则显示目标站某一个固定图片，这时需要替换成我们的图片 </p>
                    <p>要替换的图片地址： <br>
                      <input name="StrGetpic" type="text" size="49" maxlength="200" value="<%call TlLY(rs("StrGetpic"))%>" style="border: 1 solid #006699">
                    </p>
                  </td>
                </tr>
                <tr class="tdbg"> 
                  <td colspan="2" align="center" class="tdbg" height="52"> 
                    <input name="bmit" type="hidden" id="id" value="on">
                    <input  type="button" name="button12" value="上&nbsp;一&nbsp;步" onClick="window.location.href='javascript:history.go(-1)'" style="border: 1 solid #006699">
                    &nbsp;&nbsp;&nbsp;&nbsp; 
                    <input  type="submit" name="Submit2" value="下&nbsp;一&nbsp;步" style="border: 1 solid #006699">
                  </td>
                </tr>
              </table>
          </td>
        </tr>
      </table>
    </td>
  </tr>
</table>
              </form>
<%rs.close%>

<!--#include file="Tl_down.asp" -->
</body>
</html>