📄 managenews.asp

📁 简单整站程序
💻 ASP
字号:
<!--#include virtual="/include/check.asp"-->
<% CheckAdminIsLogin("信息管理") %>
<!--#include virtual="/include/conn.asp"-->
<!--#include virtual="/include/FunctionManage.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script language="javascript" src="../../js/Manage.js" type="text/javascript"></script>
<link href="../css/style.css" rel="stylesheet" type="text/css">
</head>
<body>
<table width="93%" border="0" align="center" cellpadding="2" cellspacing="1" class="tableBorder">
	<tr>
     	<th colspan="5">== 管理信息 ==</th>
</tr>
<% RecordSearch "ProductName|标题名称","" %>
<tr>
		<th width="3%" nowrap>选择</th><th width="78%">标题名称</th>
		<th style="width: 6%">操 作</th><th width="11%" nowrap>
		更新时间</th>
	</tr>
	<form name="form3" method="post" action="?action=<%=request("action")%>&page=<%=int(request("page"))%>&keyword=<%=request("keyword")%>&class=<%=request("class")%>">
    <tr align="right">
    	<td height="22" colspan="5" class="forumRowHighlight"></td>
	</tr>
<% 
   if request.querystring("action")="search" then
	  sql="select * from proclass_Product where " &request("class")&" like '%"&request("keyword")&"%' order by ProductID desc"
      
      url="action=search&keyword="&request("keyword")&"&class="&request("class")&"&" 
   else
      sql="Select * from proclass_Product order by ProductID desc"
   end if

   set rs=Server.CreateObject("Adodb.RecordSet")
   rs.open sql,conn,1,1
   
 if not (rs.bof and rs.eof) then
      page = request("page") 
      intPageSize=15
      rs.pagesize = intpagesize
      intcount = rs.recordcount
      intpagecount = rs.pagecount
	  if int(page)>rs.pagecount then
		page=rs.pagecount
	  end if
      if page="" or page=0 then
		page=1
      else
	    page=int(page)
   	  end if
	  if intcount > 0 then      
		rs.AbsolutePage=page 
      end if
   for i=1 to intPageSize
%>
	<tr>
      	<td width="3%" class=forumrow align="center"><input type="checkbox" name="selectid" id="selectid" value="<%=rs("ProductID")%>"></td>
      	<td height="22" width="78%" class="forumrow" align="center"><%=rs("ProductName")%></td>
      	<td width="6%" class=forumrow align="center"><a href="ModifyNews.asp?<%=url%>id=<%=rs("ProductID")%>&page=<%=page%>">编  辑</a></td>
      	<td width="11%" class=forumrow align="center" nowrap><font color="#FF3300"><%=rs("ChangeDate")%></font></td>
	</tr>
<%
       rs.movenext
       if rs.eof then exit for
   next
 else
      Response.Write "<tr><td class='forumRow' colspan='10' align='center'><font color=red>暂无记录!</font></td></tr>"
 end if
 RsClose()
%>
<%  DelProduct "Product","ProductID"  %>
</form>
<% ChangePage() %>
</table>
</body>
</html>
<% ConnClose() %>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -