📄 vod_sort_reg.asp
字号:
<%Admin="VODAdminAll"%>
<!--#include file="check.asp"-->
<!--#include file="mdb_path_vod.asp"-->
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style>
td{font-size:9pt;line-height:140%}
body{font-size:9pt;line-height:140%}
a:link { color: #0033CC; text-decoration: none }
a:visited { color: #0033CC; text-decoration: none }
a:active { color: #4D9CC8; text-decoration: none }
a:hover { color: #4D9CC8; text-decoration: underline}
</style>
</head>
<script language="javascript">
function delcx(id)
{window.open("vod_cx_del.asp?id="+id,"","width=200,height=100,resizable=yes,scrollbars=yes,status=yes,toolbar=no,menubar=no,location=no");}
function makeHTML(id)
{window.open("vod_makesoft.asp?type=page&id="+id,"","width=200,height=100,resizable=yes,scrollbars=yes,status=yes,toolbar=no,menubar=no,location=no");}
</script>
<body bgcolor="#FFFFFF" topmargin="1" leftmargin="1">
<table border="0" cellspacing="1" style="border-collapse: collapse" width="100%" bgcolor="#cococo">
<tr>
<td width="100%" bgcolor="#4D9CC8"><b><font color="#FFFFFF">有注册连接作 品</font></b></td>
</tr>
<tr>
<td width="100%" bgcolor="#FFFFFF">
<%
if not isempty(request("page")) and request("page")<>"" then
currentPage=cint(request("page"))
else
currentPage=1
end if
MaxPerPage=12 '###每页显示条数
set rs=server.CreateObject("ADODB.RecordSet")
sql="select id,cxn,cxv,reg from down where reg<>'' order by date desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "<p align='center'>还没有任何注册作 品</p>"
else
totalPut=rs.recordcount
rs.move (currentPage-1)*MaxPerPage
rs.pagesize=MaxPerPage '得到每页数
mpage=rs.pagecount '得到总页数
%><table border="1" width="100%" cellspacing="0" bgcolor="#F4F4F4" style="border-collapse: collapse" bordercolor="#F4F4F4">
<tr>
<td width="8%" bgcolor="#C0C0C0" align="center" nowrap>ID</td>
<td width="100%" bgcolor="#C0C0C0" align="center">作 品名称|注册连接<font color="#FFFFFF">
(修改时只修改注册连接,作 品名不会被修改)</font></td>
<td bgcolor="#C0C0C0" align="center" nowrap>操作</td>
</tr>
<%
i=0
do while not rs.EOF
ti=ti+1
bgcolor="#ffffff"
if ti=2 then
ti=0
bgcolor="#F4F4F4"
end if%>
<form action="vod_sort_reg_save.asp?id=<%=rs("id")%>" method="post" name="edit" target="reg">
<tr bgcolor=<%=bgcolor%>>
<td width="8%" nowrap>
<p align="center"><a target="_blank" href="../vod/<%=rs("id")%>.htm"><%=rs("id")%></a></td>
<td width="100%"><a href=vod_cx_edit.asp?id=<%=rs("id")%>>作 品名</a><input type="text" name="cxn" size="15" value="<%=rs("cxn")%> <%=rs("cxv")%>"> <a href="<%=rs("reg")%>" target="_blank">连接</a><input type="text" name="reg" size="38" value="<%=rs("reg")%>"></td>
<td nowrap align="center">
<input onclick="javascript:delcx(<%=rs("id")%>)" name=type1 type=button value=删除 title="删除该作 品"><input onclick="javascript:makeHTML(<%=rs("id")%>)" name=type1 type=button value=生成 title="生成连接(HTML)页"><input name=type type=submit value=修改 title="修改注册连接"></td>
</tr>
</form>
<%i=i+1
if i>=MaxPerPage then exit do
rs.movenext
loop %>
<tr>
<td width="100%" colspan="3" bgcolor="#FFFFFF">
<%
call page()
sub page()%>页次：<b><font color="#4D9CC8"><%=currentPage%></font>/<%=mpage%></b>,每页<b><%=MaxPerPage%></b>个,当前作 品<b><%=totalPut%></b>个(<font color="#008000"><-</font><a title="生成此类目下所有作 品下载HTML页" href="vod_makesoftall.asp?type=reg"><font color="#008000">生成本类连接
页</font></a>)<%
pageno=currentPage
if isempty(pageno) or cint(pageno)<1 or cint(pageno)>mpage then
pageno=1
end if
%>
[ <%if cint(pageno)>1 then%><a href=<%=filename%>?><%end if%><<-</a> <%if cint(pageno)>1 then%><a href=<%=filename%>?page=<%=pageno-1%>><%end if%><-</a><%
pp=cint(pageno)-3
if pp<1 then
pp=1
end if
for pno=pp to mpage
p=p+1
if pno=cint(pageno) then%> <font color="#4D9CC8"><%=pno%></font><%else%> <a href=<%=filename%>?page=<%=pno%>><%=pno%></a><%end if%>
<%
if p>=7 then exit for
next%> <%if cint(pageno)< mpage then%> <a href=<%=filename%>?page=<%=pageno+1%>><%end if%>-></a> <%if cint(pageno)< mpage then%><a href=<%=filename%>?page=<%=mpage%>><%end if%>->></a> ]<%
end sub%>
</td>
</tr>
</table>
<%end if%>
</td>
</tr>
</table>
</body>
</html>
<%
set rs=nothing
conn.close
set conn=nothing%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -