⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 tl_cai_index5.asp

📁 音乐管理系统的采集数据程序可自行添加采集点,适合一些大型音乐网站数据的采集
💻 ASP
字号:
🔍 
<!--#include file="Conn.Asp" -->
<!--#include file="function.asp" -->
<%
if request("bmit")="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("musicnamelistS") = request("musicnamelistS")
	   rs("musicnamelistO") = request("musicnamelistO")
	   rs("musicnameS") = request("musicnameS")
	   rs("musicnameO") = request("musicnameO")
	   rs("musicIDS") = request("musicIDS")
	   rs("musicIDO") = request("musicIDO")
	   rs("musicwmaurl") = request("musicwmaurl")
	   rs("playurlS") = request("playurlS")
	   rs("playurlO") = request("playurlO")
	   rs("playurlStr") = request("playurlStr")
	   	   rs("gc_s") = request("gc_s")
		   rs("gc_o") = request("gc_o")
	   	   rs("gc_idS") = request("gc_idS")
		   rs("gc_ido") = request("gc_ido")
	   	   rs("gc_id_STr") = request("gc_id_STr")			   
       rs.update
end if
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,2,3
end if	   	
        url	 = Replace(rs("TlclassUrl"),"{$ID}",""&rs("TlstarID")&"")   
		musicnamelist=GetContent(GetFileText(url),""&rs("musicnamelistS")&"",""&rs("musicnamelistO")&"",1)
		musicname=GetContent(musicnamelist,""&rs("musicnameS")&"",""&rs("musicnameO")&"",0)
		musicnameABC=left(musicname,instr(musicname,musicname)+0)
		musicnameABC=GetPyChar(musicnameABC)
		if rs("musicwmaurl") = "0" then
		musicID=GetContent(musicnamelist,""&rs("musicIDS")&"",""&rs("musicIDO")&"",0)
		else
		musicID=""&rs("musicwmaurl")&""& GetContent(musicnamelist,""&rs("musicIDS")&"",""&rs("musicIDO")&"",0)
		end if
		musicwma=GetContent(GetFileText(musicID),""&rs("playurlS")&"",""&rs("playurlO")&"",0)
		'wname = Mid(musicwma, InStrRev(musicwma, "/")+1)
		if rs("playurlStr")= "0" then
                playurl=musicwma
		else
		        playurl=""&rs("playurlStr")&"" &musicwma
		end if
 'response.write musicID
	   %>
<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" -->
<br>
  <form method="post" action="TL_cai_list.asp?<%if request("edit") = "on" then%>edit=on&Tlid=<%=request("TlID")%>&TLPassed=1<%else%>add=on&Tlid=<%=request("TlID")%>&TLPassed=1<%end if%>">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="border" >
  <tr> 
    <td height="22" colspan="2" bgcolor="#006699"> 
        <div align="center"><font color="#FFFFFF">编 辑 项 目--链 接 测 试</font></div>
    </td>
  </tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="border" bgcolor="#00FFFF" >
  <tr align="center" class="tdbg"> 
      <td colspan="2" valign="bottom"><span lang="zh-cn"> <font size="5">歌曲标题：<%=musicname%></font></span></td>
  </tr>
  <tr align="center" class="tdbg"> 
      <td colspan="2">&nbsp; </td>
  </tr>
  <tr class="tdbg"> 
    <td colspan="2"> 
      <table width="100%" height="100%" border="0" cellpadding="0" cellspacing="5">
        <tr> 
          <td height="200" valign="top">
              <p>&nbsp;</p>
            <br>
              <b>歌曲地址：<%=playurl%></b></td>
        </tr>
      </table>
    </td>
  </tr>

    <table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="border" >
      <tr class="tdbg"> 
        <td colspan="2" align="center" class="tdbg"> 
          <input name="Action" type="hidden" id="Action" value="SaveEdit">
          <input name="ItemID" type="hidden" id="ItemID" value="<%=ItemID%>">
          <input name="Cancel" type="button" id="Cancel" value=" 上&nbsp;一&nbsp;步 " onClick="window.location.href='javascript:history.go(-1)'">
          &nbsp; 
          <input  type="submit" name="Submit" value="  下&nbsp;一&nbsp;步 ">
        </td>
      </tr>
    </table>
<%rs.close%>
 
</table>
 </form>

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

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -