📄 tl_cai_list.asp.bak
字号:
<!--#include file="Conn.Asp" -->
<!--#include file="function.asp" -->
<%
if request("TLPassed")<>"" 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
if request("TLPassed") <> 1 then
rs("TLPassed") = 0
else
rs("TLPassed")= request("TLPassed") '''''''''''验证通过
end if
rs.update
end if
'''''''''''''''''''''''定义数据库连接'''''''''''''''''''''''''''
call TLconnstr1
set rs=server.createobject("adodb.recordset")
Sql="select * from list order by TlID DESC"
rs.Open sql,conn,1,1
%>
<%
const MaxPerPage=10
dim totalPut
dim CurrentPage
dim TotalPages
dim i,j
if request("page")<>"" then
currentPage=cint(request("page"))
else
currentPage=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'>
<SCRIPT language=javascript>
function unselectall(thisform){
if(thisform.chkAll.checked){
thisform.chkAll.checked = thisform.chkAll.checked&0;
}
}
function CheckAll(thisform){
for (var i=0;i<thisform.elements.length-6;i++){
var e = thisform.elements[i];
if (e.Name !="chkAll"&&e.disabled!=true)
e.checked = thisform.chkAll.checked;
}
}
</script>
</head>
<body bgcolor="#FFFFFF" text="#000000" leftmargin="2" topmargin="0" marginwidth="0" marginheight="0">
<div align="center">
<p>
<%
if rs.eof and rs.bof then
response.write "<p align='center'> 还 没 有 任 何 记 录</p>"
else
totalPut=rs.recordcount
totalPut=rs.recordcount
if currentpage<1 then
currentpage=1
end if
if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut \ MaxPerPage
else
currentpage= totalPut \ MaxPerPage + 1
end if
end if
if currentPage=1 then
showContent
showpage totalput,MaxPerPage,"TL_cai_list.asp"
else
if (currentPage-1)*MaxPerPage<totalPut then
rs.move (currentPage-1)*MaxPerPage
dim bookmark
bookmark=rs.bookmark
showContent
showpage totalput,MaxPerPage,"TL_cai_list.asp"
else
currentPage=1
showContent
showpage totalput,MaxPerPage,"TL_cai_list.asp"
end if
end if
rs.close
end if
set rs=nothing
conn.close
set conn=nothing
sub showContent
dim i
i=0
%>
<center>
<br>
<br>
<form name="myform" method="POST" action="cai_cai_pl.asp">
<br>
<table width="80%" border="0" cellpadding="0" cellspacing="1" bgcolor="#006699">
<tr class="title">
<td width="17%" height=22 align=center> <font color="#00FFFF">项目名称</font></td>
<td width="18%" height=22 align=center><font color="#00FFFF">采集来源</font></td>
<td width="41%" height=22 align=center><font color="#00FFFF">完成数</font></td>
<td width="24%" height=22 align=center><font color="#00FFFF">属性</font>
</td>
</tr>
<%do while not rs.eof%>
<tr bgcolor="#00FFFF">
<td height="24" width="17%"> <%=rs("TlName")%></td>
<td align="center" height="24" width="18%"><a href="<%=rs("TlWebUrl")%>" title="点击访问" target=_blank><%=rs("TlWebName")%></a></td>
<td align="center" height="24" width="41%">
<%if rs("over_c") = rs("TloverID") then%>
完成
<%else%>
已经完成<%if rs("over_c")="0" then%><%=rs("over_c")%><%else%><%=rs("over_c")-rs("TlstarID")%><%end if%>条
<a href="tl_cai_cai.asp?TlID=<%=rs("TlID")%>&cai=cai&over_c=on">接上次采集</a>
<%end if%>
</td>
<td height="24" align="center" width="24%">
<%if rs("TLPassed") = 1 then%>
<a href="tl_cai_cai.asp?TlID=<%=rs("TlID")%>&cai=cai&over_c=">采集</a> <a href="tl_cai_index1.asp?TlID=<%=rs("TlID")%>&edit=on">修改</a>
<%else%>
<a href="tl_cai_index1.asp?TlID=<%=rs("TlID")%>&edit=on">修改</a>
<%end if%>
<a href="tl_cai_del.asp?tlid=<%=rs("TlID")%>">删除</a></td>
</tr>
<% i=i+1
if i>=MaxPerPage then exit do
rs.movenext
loop
%>
</table>
</form>
</center>
</div>
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="500">
<tr>
<td height="24">
<p><%
end sub
function showpage(totalnumber,maxperpage,filename)
dim n
if totalnumber mod maxperpage=0 then
n= totalnumber \ maxperpage
else
n= totalnumber \ maxperpage+1
end if
response.write "<form method=Post action="&filename&">"
response.write "<p align='center'><font color='#000080'>分页</font> "
if CurrentPage<2 then
response.write "<font color='#000080'>首页 上一页</font> "
else
response.write "<a href="&filename&"?page=1>首页</a> "
response.write "<a href="&filename&"?page="&CurrentPage-1&">上一页</a> "
end if
if n-currentpage<1 then
response.write "<font color='#000080'>下一页 尾页</font>"
else
response.write "<a href="&filename&"?page="&(CurrentPage+1)
response.write ">下一页</a> <a href="&filename&"?page="&n&">尾页</a>"
end if
response.write "<font color='#000080'> 页次：</font><strong><font color=red>"&CurrentPage&"</font><font color='#000080'>/"&n&"</strong>页</font> "
response.write "<font color='#000080'> 共<b>"&totalnumber&"</b>条记录 <b>"&maxperpage&"</b>条记录/页</font> "
response.write "<font color='#000080'>第 <input type=text name=page size=1> 页 <input type='submit' name='Submit2' value='GO'></font>"
response.write "</form>"
end function
%></td>
</tr>
</table>
</div>
<div align="center"></div>
<!--#include file="Tl_down.asp" -->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -