📄 tl_cai_index4.asp.bak
字号:
<!--#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("musicS") = request("musicS")
rs("musicO") = request("musicO")
rs("SClassS") = request("SClassS")
rs("SClassO") = request("SClassO")
rs("NClassS") = request("NClassS")
rs("NClassO") = request("NClassO")
rs("NameS") = request("NameS")
rs("NameO") = request("NameO")
rs("YuyanS") = request("YuyanS")
rs("YuyanO") = request("YuyanO")
rs("GongSiS") = request("GongSiS")
rs("GongSiO") = request("GongSiO")
rs("TimesS") = request("TimesS")
rs("TimesO") = request("TimesO")
rs("InfoS") = request("InfoS")
rs("InfoO") = request("InfoO")
rs("imaS") = request("imaS")
rs("imaO") = request("imaO")
rs("Tlpic") = request("Tlpic")
rs("StrpicURL") = request("StrpicURL")
rs("StrHTTPpic") = request("StrHTTPpic")
rs("StrGetpic") = request("StrGetpic")
rs.update
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
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" -->
<table width="570" border="1" cellpadding="0" cellspacing="0" bordercolor="#006699" align="center">
<tr>
<td height="16" bgcolor="#006699">
<div align="center"><font color="#FFFFFF">编 辑</font><font color="#FFFFFF">
项 目 - 列 表 测 试</font></div>
</td>
</tr>
<tr>
<td valign="top" height="26" width="831" align="center">
<table width="94%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="765" height="25" valign="top"> <br>
<%
url = Replace(rs("TlclassUrl"),"{$ID}",""&rs("TlstarID")&"")
music_list = GetFileText(url)
music_list = Repla(music_list)
music=GetContent(music_list,""&rs("musicS")&"",""&rs("musicO")&"",0)
SClass=GetContent(music,""&rs("SClassS")&"",""&rs("SClassO")&"",0)
NClass=GetContent(music,""&rs("NClassS")&"",""&rs("NClassO")&"",0)
ABC=left(NClass,instr(NClass,NClass)+0)
ABC=GetPyChar(ABC)
Name=GetContent(music,""&rs("NameS")&"",""&rs("NameO")&"",0)
Yuyan=GetContent(music,""&rs("YuyanS")&"",""&rs("YuyanO")&"",0)
GongSi=GetContent(music,""&rs("GongSiS")&"",""&rs("GongSiO")&"",0)
Times=GetContent(music,""&rs("TimesS")&"",""&rs("TimesO")&"",0)
Info=GetContent(music,""&rs("InfoS")&"",""&rs("InfoO")&"",0)
if info="" then
info="暂无介绍"
end if
ima=GetContent(music,""&rs("imaS")&"",""&rs("imaO")&"",0)
Response.Write "歌手字母："&ABC&"<br>" &vbcrlf
response.Flush
Response.Write "歌手分类："&SClass&"<br>" &vbcrlf
response.Flush
Response.Write "专辑歌手："&NClass&"<br>" &vbcrlf
response.Flush
Response.Write "专辑名称："&Name&"<br>" &vbcrlf
response.Flush
if rs("Tlpic") = 1 then
if rs("StrpicURL") <> 0 then
ima=""&rs("StrpicURL")&"" &ima
end if
else
if instr(""&ima&"","http") = 0 then
ima=""&rs("TlWebUrl")&"" &ima
end if
end if
Response.Write "专辑图片：<a href="&ima&">"&ima&"</a>" &vbcrlf
Response.Write "<br>"
response.Flush
Response.Write "发行公司："&GongSi&"<br>" &vbcrlf
response.Flush
Response.Write "发行日期："&Times&"<br>" &vbcrlf
response.Flush
Response.Write "所属语言："&Yuyan&"<br>" &vbcrlf
response.Flush
Response.Write "专辑简介：<span title='"&Info&"'>此处略"&len(Info)&"字。</span><br>" &vbcrlf
response.Flush
%>
</td>
</tr>
</table>
</td>
</tr>
</table>
<form name="form1" method="post" action="TL_cai_index5.asp?<%if request("edit") = "on" then%>edit=on&Tlid=<%=request("TlID")%><%else%>add=on&Tlid=<%=request("TlID")%><%end if%>">
<table border="0" align="center" cellpadding="0" cellspacing="1" class="border" bgcolor="#00FFFF" width="570" >
<tr>
<td height="16" colspan="2" bgcolor="#006699">
<div align="center"><font color="#FFFFFF">编 辑 项 目 - 歌 曲 链 接 设 置</font></div>
</td>
</tr>
<tr class="tdbg">
<td width="148" class="tdbg"><strong><font color="#000000">歌曲列表开始标记：</font></strong>
<p> </p>
<p> </p>
<strong><font color="#000000">歌曲列表结束标记：</font></strong></td>
<td class="tdbg" width="419">
<textarea name="musicnamelistS" cols="49" rows="7" style="border: 1 solid #006699"><%call TlLY(rs("musicnamelistS"))%></textarea>
<br>
<textarea name="musicnamelistO" cols="49" rows="7" style="border: 1 solid #006699"><%call TlLY(rs("musicnamelistO"))%></textarea>
<br>
说明：截取歌曲列表，以第一首歌曲截取到最后一首歌曲！ </td>
</tr>
<tr class="tdbg">
<td width="148" class="tdbg" height="243"><strong><font color="#000000">歌曲名字开始标记：</font></strong>
<p> </p>
<p> </p>
<strong><font color="#000000">歌曲名字结束标记：</font></strong></td>
<td class="tdbg" width="419" height="243">
<textarea name="musicnameS" cols="49" rows="7" style="border: 1 solid #006699"><%call TlLY(rs("musicnameS"))%></textarea>
<br>
<textarea name="musicnameO" cols="49" rows="7" style="border: 1 solid #006699"><%call TlLY(rs("musicnameO"))%></textarea>
</td>
</tr>
<tr class="tdbg">
<td width="148" class="tdbg"><strong><font color="#000000">歌曲试听ID开始标记：</font></strong>
<p> </p>
<p> </p>
<strong><font color="#000000">歌曲试听ID结束标记：</font></strong></td>
<td class="tdbg" width="419">
<textarea name="musicIDS" cols="49" rows="7" style="border: 1 solid #006699"><%call TlLY(rs("musicIDS"))%></textarea>
<br>
<textarea name="musicIDO" cols="49" rows="7" style="border: 1 solid #006699"><%call TlLY(rs("musicIDO"))%></textarea>
<br>
说明：这里截取歌曲视听的ID号 再结合下面项“歌曲试听前缀链接”成为完整的试听连接 </td>
</tr>
<tr class="tdbg">
<td width="148" class="tdbg"><b><font color="#000000">歌曲试听前缀链接：</font></b></td>
<td class="tdbg" width="419">
<input name="musicwmaurl" type="text" size="50" value="<%call TlLY(rs("musicwmaurl"))%>" style="border: 1 solid #006699">
<br>
说明：结合上面截取的歌曲ID，成为完整的试听连接 </td>
</tr>
<tr class="tdbg">
<td width="148" class="tdbg"><strong><font color="#000000">歌曲URL开始标记：</font></strong>
<p> </p>
<p> </p>
<strong><font color="#000000">歌曲URL结束标记：</font></strong></td>
<td class="tdbg" width="419">
<textarea name="playurlS" cols="49" rows="7" style="border: 1 solid #006699"><%call TlLY(rs("playurlS"))%></textarea>
<br>
<textarea name="playurlO" cols="49" rows="7" style="border: 1 solid #006699"><%call TlLY(rs("playurlO"))%></textarea>
<br>
说明：上面已经有完整的试听连接后，此项截取为歌曲的原始URL地址 </td>
</tr>
<tr class="tdbg">
<td width="148" class="tdbg"><b><font color="#000000">歌曲URL前缀链接：</font></b></td>
<td class="tdbg" width="419">
<input name="playurlStr" type="text" size="50" value="<%call TlLY(rs("playurlStr"))%>" style="border: 1 solid #006699">
<br>
说明：有时候截取的歌曲原始URL不是一个完整的连接，此项为组合一个完整的歌曲URL地址 </td>
</tr>
<tr class="tdbg">
<td width="148" class="tdbg"><strong><font color="#000099">歌词ID开始标记：</font></strong>
<p> </p>
<p> </p>
<strong><font color="#000099">歌词ID结束标记：</font></strong></td>
<td class="tdbg" width="419">
<textarea name="gc_idS" cols="49" rows="7" style="border: 1 solid #006699"><%call TlLY(rs("gc_idS"))%></textarea>
<br>
<textarea name="gc_idO" cols="49" rows="7" style="border: 1 solid #006699"><%call TlLY(rs("gc_idO"))%></textarea>
<br>
说明：上面已经有完整的试听连接后，此项截取为歌曲的原始URL地址 </td>
</tr>
<tr class="tdbg">
<td width="148" class="tdbg"><b><font color="#000099">歌词绝对连接前缀：</font></b></td>
<td class="tdbg" width="419">
<input name="gc_id_STr" type="text" size="50" value="<%call TlLY(rs("gc_id_STr"))%>" style="border: 1 solid #006699">
<br>
说明：有时候截取的歌曲原始URL不是一个完整的连接，此项为组合一个完整的歌曲URL地址 </td>
</tr>
<tr class="tdbg">
<td width="148" class="tdbg"><strong><font color="#000099">歌词开始标记：</font></strong>
<p> </p>
<p> </p>
<strong><font color="#000099">歌词结束标记：</font></strong></td>
<td class="tdbg" width="419">
<textarea name="gc_s" cols="49" rows="7" style="border: 1 solid #006699"><%call TlLY(rs("gc_s"))%></textarea>
<br>
<textarea name="gc_o" cols="49" rows="7" style="border: 1 solid #006699"><%call TlLY(rs("gc_o"))%></textarea>
<br>
说明：上面已经有完整的试听连接后，此项截取为歌曲的原始URL地址 </td>
</tr>
<tr class="tdbg">
<td colspan="2" align="center" class="tdbg"><br>
<input name="bmit" type="hidden" id="ItemID" value="on">
<input type="button" name="button1" value="上 一 步" onClick="window.location.href='javascript:history.go(-1)'" style="border: 1 solid #006699">
<input type="submit" name="Submit" value="下 一 步" style="border: 1 solid #006699">
</td>
<input type="hidden" name="UrlTest" id="UrlTest" value="<%=UrlTest%>">
</tr>
</table>
</form>
<%
rs.close
%>
<!--#include file="Tl_down.asp" -->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -