www.gusucode.com > 共享世纪内容管理系统 2.1 build 080704 全站开源版 > admin/down_sort_reg.asp
<%Admin="DownAdminAll"%> <!--#include file="check.asp"--> <!--#include file="mdb_path_down.asp"--> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <title>网站内容管理系统</title> <link rel="stylesheet" href="admin.css" type="text/css"> </head> <script language="javascript"> function delcx(id) {window.open("down_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("down_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="#555555"> <tr> <th width="100%" bgcolor="#6A6A6A"><b><font color="#FFFFFF">有注册连接软件</font></b></th> </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="0" width="100%" cellspacing="0" class="tableBorder"> <tr> <th width="8%" align="center" nowrap>ID</th> <th width="100%" align="center">程序名称|注册连接<font color="#FFFFFF"> (修改时只修改注册连接,软件名不会被修改)</font></th> <th align="center" nowrap>操作</th> </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="down_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="../software/xoYuSoft_<%=rs("id")%>.html"><%=rs("id")%></a></td> <td width="100%"><a href=down_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="#FF0000"><%=currentPage%></font>/<%=mpage%></b>,每页<b><%=MaxPerPage%></b>个,当前软件<b><%=totalPut%></b>个(<font color="#008000"><-</font><a title="生成此类目下所有软件下载HTML页" href="down_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="#FF0000"><%=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%>