admin_newsmana.asp

本文通过分析国内外网上购物系统的发展现状

<!--#include file="Admin_Function.asp"-->
<!--#include file="Conn.asp"-->
<!--#include file=index_Top.asp-->
<%
if request.cookies("adminok")="" then
  response.redirect "shop_login.htm"
end if
%>
<script language="javascript">
<!--
   function test() {
      return confirm("您确认要删除吗？删除后不可恢复！是否继续？");
    }
//-->
</script>
<%
MaxPerPage=10
News_Title=request("News_Title")
News_Type=request("News_Type")
if News_Type=0 then 
	MyTitle="娱 乐 新 闻 标 题"
elseif News_Type=1 then
	MyTitle="站 点 公 告 标 题"
else
	response.write "操作错误"
	response.end
end if
if not isempty(request("page")) then
	currentPage=cint(request("page"))
else
	currentPage=1
end if
if not isempty(request("selNews")) then
   idlist=request("selNews")
     if instr(idlist,",")>0 then
			dim idarr
			idArr=split(idlist)
			dim id
		for i = 0 to ubound(idarr)
	       		id=clng(idarr(i))
	       		call delNews(id)
		next
    else
			call delNews(clng(idlist))
    end if
end if 
			  set rs=server.createobject("adodb.recordset")
%>
<table border="0" cellspacing="0" cellpadding="0" align="center" width="770">
  <tr> 
    <td width=1 valign=top background="../images/Line11.gif"><img src="../images/Line11.gif" width="1" height="3"> 
    </td>
    <td align=center width="600" valign="top"> 
      <%
	if News_Title<>"" then
		sql="select * from News where News_Type="&News_Type&" and News_Title like '%"&trim(News_Title)&"%' order by News_Id desc"
	else
		sql="select * from News where News_Type="&News_Type&" order by News_Id desc"
	end if
	rs.open sql,conn,1,1
	if rs.eof and rs.bof then 
		response.write "<p align='center'>暂时没有收集</p>" 
	else 
		totalPut=rs.recordcount
		PageUrl="admin_Newsmana.asp?News_Type="&News_Type
	if currentpage<1 then currentpage=1 
	if (currentpage-1)*MaxPerPage>totalput then 
		if (totalPut mod MaxPerPage)=0 then 
			currentpage= totalPut \ MaxPerPage 
		else 
			currentpage= totalPut \ MaxPerPage + 1 
		end if 
	end if 
	if currentPage=1 then 
		showpage totalput,MaxPerPage,PageUrl
		showContent 
		showpage totalput,MaxPerPage,PageUrl
	else 
		if (currentPage-1)*MaxPerPage<totalPut then 
			rs.move  (currentPage-1)*MaxPerPage 
			dim bookmark 
			bookmark=rs.bookmark 
			showpage totalput,MaxPerPage,PageUrl
			showContent 
			showpage totalput,MaxPerPage,PageUrl
		else 
			currentPage=1 
			showpage totalput,MaxPerPage,PageUrl
			showContent 
			showpage totalput,MaxPerPage,PageUrl
		end if 
	end if 
end if 
rs.close 

sub showContent 
i=0 
%>
      <table border="0" cellspacing="1" width="98%"  cellpadding="2">
        <form method=Post action="admin_Newsmana.asp?News_Type=<%=News_Type%>" onsubmit="return test()">
          <tr bgcolor="#f06420"> 
            <td width="10%" align="center" height="20" bgcolor="#FF6699"><font color="#FFFFFF">ID</font></td>
            <td width="80%" align="center" bgcolor="#FF6699"><font color="#FFFFFF"><%=Mytitle%></font></td>
            <td width="10%" align="center" bgcolor="#FF6699"> <b><font color="#FFFFFF"> 
              <input type='submit' value='删 除'>
              </font></b></td>
          </tr>
          <%do while not rs.eof%>
          <tr bgcolor="#E3FBE3"> 
            <td height="23" align="center" bgcolor="#FFFFFF"><%=rs("News_Id")%></td>
            <td bgcolor="#FFFFFF"><a href="admin_Newsedit.asp?News_id=<%=rs("News_Id")%>"><%=rs("News_Title")%></a></td>
            <td align="center" bgcolor="#FFFFFF"> 
              <input type='checkbox' name='selNews' value='<%=cstr(rs("News_Id"))%>'>
            </td>
          </tr>
          <%
i=i+1
if i>=MaxPerPage then exit do
rs.movenext
loop
%>
        </form>
      </table>
      <%
end sub 

function showpage(totalnumber,maxperpage,filename)
dim n
if totalnumber mod maxperpage=0 then
	n= totalnumber \ maxperpage
else
	n= totalnumber \ maxperpage+1
end if
response.write "<div align=right><form method=Post action="&filename&">"&_
				"共找到<b>"&totalnumber&"</b>项记录" 
if CurrentPage<2 then
response.write "&nbsp;首页 上一页&nbsp;"
else
response.write "&nbsp<a href="&filename&"&page=1>首页</a>&nbsp;<a href="&filename&"&page="&CurrentPage-1&">上一页</a>&nbsp;" 
end if
if n-currentpage<1 then
response.write "下一页 末页 "
else
response.write "<a href="&filename&"&page="&CurrentPage+1&">下一页</a>&nbsp;"&_
                "<a href="&filename&"&page="&n&">末页</a>" 
end if
response.write "&nbsp;页次:<strong>"&CurrentPage&"/"&n&"</strong>页  转到:<select name='page' size='1' onchange='javascript:submit()'>"
               for i = 1 to n
response.write "<option value="&i
 				if cint(CurrentPage)=cint(i) then response.write " selected "
response.write ">第"&i&"页</option>"
                next
response.write "</select></form></div>"      
end function


sub delNews(id)
sql="delete from News where News_Id="&cstr(id)
conn.execute sql
End sub%>
    </td>
  </tr>
</table>
<%
set rs=nothing
conn.close
set conn=nothing
%>