<% dim strFileName const MaxPerPage=15 dim totalPut,CurrentPage,TotalPages dim i,j dim ArticleID dim Title dim sql,rs dim BigClassName,SmallClassName,SpecialName dim PurviewChecked dim strAdmin,arrAdmin BigClassName=request("BigClassName") title=request("title") PurviewChecked=false if Request.QueryString("no")="yes" then id= Trim(Request("id")) Set Rs = Server.CreateObject("ADODB.Recordset") Rs.Open "DELETE FROM links Where id="&id,Conn,2,3,1 Set Rs= Nothing Set Conn = Nothing Response.Redirect "Manage_Link.asp" end if strFileName="Manage_Link.asp?BigClassName="&BigClassName if request("page")<>"" then currentPage=cint(request("page")) else currentPage=1 end if bigid=request("bigid") if request("Action")="passed" then if bigid<>"" then if request("act")="clock" then sql="Update [links] set passed=true where id=" & CLng(bigid) else sql="Update [links] set passed=false where id=" & CLng(bigid) end if conn.Execute sql call CloseConn() end if response.redirect "?page="¤tPage end if if request("Action")="Del" then sql="delete from links where id=" &bigid& "" conn.Execute sql end if sql="select * from links where id>0" if BigClassName<>"" then sql=sql&" and kinds='"&BigClassName&"'" end if if title<>"" then sql=sql&" and name like '%"&title&"%'" end if sql=sql & " order by id desc" Set rs= Server.CreateObject("ADODB.Recordset") rs.open sql,conn,1,1 %>

刷新  添加

所有	<% if rs.eof and rs.bof then response.write "共找到 0 个

" else 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 response.Write "共找到 " & totalPut & " 个 " %> <% if currentPage=1 then showContent showpage strFileName,totalput,MaxPerPage,true,false,"个 " else if (currentPage-1)*MaxPerPage <% sub showContent dim i i=0 %> <%do while not rs.eof%> <% i=i+1 if i>=MaxPerPage then exit do rs.movenext loop %>

网站名称	网站说明	LOGO图片	排序	加入时间	操 作
" target="_blank"><%=rs("name")%>	<%=Rs("note")%>	<%if rs("linkpic")<>"" then%> " height="30"> <%else response.Write("无图") end if%>	<%= rs("num") %>	<%= rs("time") %>	">修改 &no=yes" onClick="return ConfirmDel();">删除

<% end sub %>
">

查找 ：   请输入标题。如果为空，则查找所有 。

<% rs.close set rs=nothing call CloseConn() %>