ad_article.asp

凡人网络购物系统 v8.0 中文版

<!--#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>

<%
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
response.write "内容删除完毕"
response.write "<Br>"
response.write "<a href=ad_article.asp>返回</a>"
response.end
end if
%>
<table border="0" cellpadding="5" cellspacing="0">
<tr><td valign="top" align="center">
<table width="130" border="0" cellspacing="1" cellpadding="0" height="23" bgcolor="#C0C0C0">
<tr><td align="center" height="20" class="fl" bgcolor="#F0F0F0"><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">&nbsp;<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" cellspacing="1" style="border-collapse: collapse" cellpadding="5" bgcolor="#C0C0C0">
<tr bgcolor="#6894d8"><td bgcolor="#F0F0F0">标题</td>
<td colspan="2" bgcolor="#F0F0F0" align="center">操作</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 bgcolor="#FFFFFF"> 
  <td width="300"><a href="ad_edita.asp?a_id=<%=rs("id")%>"><%=rs("a_name")%></a></td>
  <td align="center"><a href="ad_article.asp?id=<%=rs("id")%>&action=del"  onClick="return confirm('您确定进行删除操作吗？')">删除</a></td>
  <td align="center"><a href="ad_edita.asp?a_id=<%=rs("id")%>">修改</a></td></tr>
<%rs.movenext
loop
rs.close
set rs=nothing
conn.close
set conn=nothing
end if%>
<tr><td colspan="3" bgcolor="#FFFFFF" align="center">
共<font color=red><%=totalpage%></font>页 第<%=page%>页&nbsp;&nbsp;
<%if page-1>0 then%><a href="ad_article.asp?page=<%=page-1%>">上一页</a><%else%>上一页<%end if%>&nbsp;&nbsp;
<%if page+1<=totalpage then%><a href="ad_article.asp?page=<%=page+1%>">下一页</a> <%else%>下一页<%end if%>
</td></tr></table></td></tr></table>
<table cellSpacing="0" cellPadding="3" border="0" width="500"><tr><td height="20"></td></tr>
<tr><td bgcolor="#F2F2F2"><p style="LINE-HEIGHT: 150%"><font color="#FF0000">凡人网络购物系统V8.0 版权所有:</font><a target="_blank" href="http://www.venshop.com"><font color="#FF0000">凡人网络VenShop.Com</font></a><font color="#FF0000"><br>客服电话:[phone]&nbsp; QQ:57152557/5404818 Email/Msn:</font><a href="mailto:[e-mail]"><font color="#FF0000">[e-mail]</font></a></td>
</tr></table>