www.gusucode.com > 运动用品商城网站系统源代码程序 > feyok/ad_article.asp
<!--#include file="conn.asp"--> <!--#include file="ad_chk.asp"--> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <link href=inc/css.css rel=STYLESHEET type=text/css> <body topmargin="5" leftmargin="5" rightmargin="5" bottommargin="5"> <% if Request.Cookies("venshop")("admin_class")<>0 then response.write "你没有这个权限!" response.end end if %> <% if request("action")="del" then id=request("id") set rs=server.createobject("adodb.recordset") sql="select * from venshop_article where id="&id&"" rs.open sql,conn,1,3 if rs.eof then response.redirect "ad_article.asp" response.end else rs.delete rs.update end if rs.close set rs=nothing call deleok(delet,"ad_article.asp") end if %> <table border="0" cellpadding="5" cellspacing="0" width="100%"> <tr><td valign="top" align="center" width="130"> <table border="0" cellpadding="5" cellspacing="0" class="st"> <tr><td align="center" height="20" class="sa"><font color="#000000"><b>分类</b></font></td></tr> <%set rs=server.createobject("adodb.recordset") sql="select * from venshop_newssort" rs.open sql,conn,1,1 if rs.bof and rs.eof then response.write "<tr><td align=center>没有任何分类</td></tr>" else do while not rs.eof id=rs("sort_id")%> <tr><td height="23" bgcolor="#FFFFFF"> <b><u><a href=ad_article.asp?a_sort=<%=rs("sort_id")%>><%=rs("sort_name")%></u></b></td></tr> <%rs.movenext loop end if rs.close set rs=nothing%> </table></td> <td valign="top"> <table border="0" cellpadding="5" cellspacing="0" class="st"> <tr bgcolor="#6894d8"><td class="sa">标题</td> <td colspan="2" align="center" class="sa">操作</td></tr> <%page=request("page") if page="" then page=1 if not(isnumeric(page)) then page=1 if page<1 then page=1 page=int(page) set rs=server.createobject("adodb.recordset") if request("a_sort")<>"" then a_sort=request("a_sort") sql="select * from venshop_article where a_sort="&a_sort&" order by id DESC" else sql="select * from venshop_article order by id DESC" end if rs.open sql,conn,1,1 if rs.eof then%> <tr><td colspan="3" bgcolor="#FFFFFF" align="center">没有内容</td></tr> <%else rs.pagesize=20 totalrec=rs.recordcount totalpage=rs.pagecount if page>totalpage then page=totalpage rs.absolutepage=page rs.cachesize=rs.pagesize i=0 do while not rs.eof and (i<rs.pagesize) i=i+1%> <tr> <td width="300" class="s<%=i mod 2%>"><a href="ad_edita.asp?a_id=<%=rs("id")%>"><%=rs("a_name")%></a></td> <td align="center" class="s<%=i mod 2%>"><a href="ad_article.asp?id=<%=rs("id")%>&action=del" onClick="return confirm('您确定进行删除操作吗?')">删除</a></td> <td align="center" class="s<%=i mod 2%>"><a href="ad_edita.asp?a_id=<%=rs("id")%>">修改</a></td></tr> <%rs.movenext loop rs.close set rs=nothing end if i=i+1%> <tr><td colspan="3" class="s<%=i mod 2%>" align="center"> 共<font color=red><%=totalpage%></font>页 第<%=page%>页 <%if page-1>0 then%><a href="ad_article.asp?page=<%=page-1%>">上一页</a><%else%>上一页<%end if%> <%if page+1<=totalpage then%><a href="ad_article.asp?page=<%=page+1%>">下一页</a> <%else%>下一页<%end if%> </td></tr></table></td></tr></table> <!--#include file="ad_bottom.asp"-->