📄 index.asp
字号:
<!--#include file="Conn.Asp" -->
<!--#include file="function.asp" -->
<%
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,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" -->
<table width="570" border="1" cellpadding="0" cellspacing="0" bordercolor="#006699" align="center">
<tr>
<td valign="top" height="16" width="594" bgcolor="#006699">
<div align="center"><font color="#FFFFFF">项 目 编 辑 - 添 加 项 目</font></div>
</td>
</tr>
<tr>
<td valign="top" height="18" width="594">
<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" bordercolor="#006699">
<form name="form1" method="post" action="TL_cai_index2.asp?<%if request("edit") = "on" then%>edit=on&Tlid=<%=request("TlID")%><%else%>add=on&Tlid=<%=request("TlID")%><%end if%>">
<tr>
<td width="103" height="17">项目名称：</td>
<td width="463" height="25">
<input type="text" name="TlName" value="<%=rs("TlName")%>" style="border: 1 solid #006699">
(<font color="#FF0000">*</font>) 添写项目名称 </td>
</tr>
<tr>
<td width="103" height="17">网站名称：</td>
<td width="463" height="25">
<input type="text" name="TlWebName" value="<%=rs("TlWebName")%>" style="border: 1 solid #006699">
(<font color="#FF0000">*</font>) 添写采集目标站名称</td>
</tr>
<tr>
<td width="103" height="17">网站网址：</td>
<td width="463" height="25">
<input type="text" name="TlWebUrl" size="30" value="<%=rs("TlWebUrl")%>" style="border: 1 solid #006699">
(<font color="#FF0000">*</font>) 添写采集目标站地址 <br>
例：http://www.139mtv.com/ 必须以“http”开头“/”结束</td>
</tr>
<tr>
<td width="103" height="17">起始专辑页</td>
<td width="463" height="25">
<input type="text" name="TlclassUrl" size="50" value="<%=rs("TlclassUrl")%>" style="border: 1 solid #006699">
(<font color="#FF0000">*</font>) <br>
例：http://www.139mtv.com/Html/MusicList_{$ID}.htm 其中{$ID}就是循环变量</td>
</tr>
<tr>
<td width="103" height="17">启始ID</td>
<td width="463" height="25">
<input type="text" name="TlstarID" size="10" value="<%=rs("TlstarID")%>" style="border: 1 solid #006699">
(<font color="#FF0000">*</font>)<br>
只能填写数字，起始专辑页项的开始ID </td>
</tr>
<tr>
<td width="103" height="17">结束ID</td>
<td width="463" height="25">
<input type="text" name="TloverID" size="10" value="<%=rs("TloverID")%>" style="border: 1 solid #006699">
(<font color="#FF0000">*</font>)<br>
只能填写数字，起始专辑页项的结束ID </td>
</tr>
<tr>
<td width="103" height="17">音乐文件保存本地</td>
<td width="463" height="25">
<input type="checkbox" value="on" name="SaveMode" <%if rs("SaveMode") = "on" then response.write "checked"%> >
选择后音乐文件将保存本地</td>
</tr>
<tr>
<td width="103" height="17"></td>
<td width="463" height="25">
<div align="center">
<input type="submit" name="Submit" value="下一步" style="border: 1 solid #006699">
</div>
</td>
</tr>
</form>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<%rs.close%>
<!--#include file="Tl_down.asp" --></body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -