📄 edit_title.asp

📁 鄂尔多斯建站网全站程序(冬季修正版)
💻 ASP
字号:
<!--#include file="conn.asp"-->
<!--#include file="session.asp"-->
<!--#include file="../include/code.asp"-->
<%
'**********************************
'版本:host_free 3.0               *
'官方网站:http://www.850518.com   *
'技术论坛:http://forum.850518.com *
'qq:54455245 (欢迎咨询商业版)     *
'msn: steven_bass@msn.com         *
'手机:(0)13632779827              *
'mail:wtez@vip.163.com            *
'版权所有，请保留该信息，谢谢合作 *
'**********************************
%>
<%
set rs = server.createobject("adodb.recordset")
sql="select * from list" 
rs.open sql,conn,1,3
%>
<%
   const maxperpage=20   
   dim totalput   
   dim currentpage
   dim totalpages
   dim i,j
   if not isempty(request("page")) then
      currentpage=cint(request("page"))
   else
      currentpage=1
   end if
   
%>
<html>

<head>
<meta http-equiv="content-language" content="zh-cn">
<meta http-equiv="content-type" content="text/html; charset=gb2312">
<meta name="generator" content="microsoft frontpage 4.0">
<meta name="progid" content="frontpage.editor.document">
<link href="style.css" rel=stylesheet>
</head>

<body style="background-color: #eeeeee">

<div align="center">
  <center>
  <table border="0" cellpadding="0" cellspacing="1" width="600" bgcolor="#626262">
    <tr>
      <td height="20">&nbsp; <font color="#ffffff"><b>栏目管理</b></font></td>  
    </tr>
    <tr>
      <td height="500" bgcolor="#ffffff" valign="top">
        <div align="center">
          <table border="0" cellpadding="0" cellspacing="0" width="90%">
            <tr>
              <td width="100%">　</td>
            </tr>
            <tr>
              <td width="100%">
                <p align="center"><%
if rs.eof and rs.bof then
       response.write "<p align='center'> 还没有添加栏目资料</p>"
   else
	  totalput=rs.recordcount
      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
       if currentpage=1 then
           showpage totalput,maxperpage,"edit_title.asp"
            showcontent
            showpage totalput,maxperpage,"edit_title.asp"
       else
          if (currentpage-1)*maxperpage<totalput then
            rs.move  (currentpage-1)*maxperpage
            dim bookmark
            bookmark=rs.bookmark
           showpage totalput,maxperpage,"edit_title.asp"
            showcontent
             showpage totalput,maxperpage,"edit_title.asp"
        else
	        currentpage=1
           showpage totalput,maxperpage,"edit_title.asp"
           showcontent
           showpage totalput,maxperpage,"edit_title.asp"
	      end if
	   end if
   rs.close
   end if
	        
   set rs=nothing  
   conn.close
   set conn=nothing
  

   sub showcontent
       dim i
	   i=0
  
%></td>
            </tr>
            <tr>
              <td width="100%">　</td>
            </tr>
            <tr>
              <td width="100%">
        <table border="0" cellpadding="0" cellspacing="1" width="100%" bgcolor="#626262">
          <tr>
            <td width="17%" height="20" bgcolor="#626262" align="center"><b><font color="#ffffff">栏目编号</font></b></td>
            <td width="61%" height="20" bgcolor="#626262" align="center"><b><font color="#ffffff">栏目名称</font></b></td>
            <td width="22%" height="20" bgcolor="#626262" align="center"><b><font color="#ffffff">操作</font></b></td>
          </tr>
          <%do while not rs.eof%>
          <tr>
            <td width="17%" height="20" bgcolor="#ffffff" align="center"><%=rs("id")%></td>
            <td width="61%" height="20" bgcolor="#ffffff" align="center"><%=rs("sort_name")%></td>
            <td width="22%" height="20" bgcolor="#ffffff" align="center"><a href="save_title.asp?id=<%=rs("id")%>">修改</a> 
              | <a href="del.asp?id=<%=rs("id")%>&action=del_title" onclick="return confirm('确定要删除吗？\n\n该操作不可恢复！')">删除</a></td> 
          </tr>
          <% i=i+1
	      if i>=maxperpage then exit do
	      rs.movenext
	   loop
		  %>
        </table>
              </td>
            </tr>
            <tr>
              <td width="100%">　</td>
            </tr>
            <tr>
              <td width="100%">
                <p align="center"><%
   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 "<form method=post action="&filename&">"
  response.write "<p align='center'><font color='#000080'>分页</font>&nbsp;"
  if currentpage<2 then
    response.write "<font color='#000080'>首页 上一页</font>&nbsp;"
  else
    response.write "<a href="&filename&"?page=1&>首页</a>&nbsp;"
    response.write "<a href="&filename&"?page="&currentpage-1&">上一页</a>&nbsp;"
  end if
  if n-currentpage<1 then
    response.write "<font color='#000080'>下一页 尾页</font>"
  else
    response.write "<a href="&filename&"?page="&(currentpage+1)
    response.write ">下一页</a> <a href="&filename&"?page="&n&">尾页</a>"
  end if
   response.write "<font color='#000080'>&nbsp;页次：</font><strong><font color=red>"&currentpage&"</font><font color='#000080'>/"&n&"</strong>页</font> "
    response.write "<font color='#000080'>&nbsp;共<b>"&totalnumber&"</b>条栏目<b>"&maxperpage&"</b>条栏目/页</font> " 
end function
%></td>
            </tr>
            <tr>
              <td width="100%">　</td>
            </tr>
          </table>
        </div>
      </td>
    </tr>
  </table>
  </center>
</div>

</body>

</html>
<%
'**********************************
'版本:host_free 3.0               *
'官方网站:http://www.850518.com   *
'技术论坛:http://forum.850518.com *
'qq:54455245 (欢迎咨询商业版)     *
'msn: steven_bass@msn.com         *
'手机:(0)13632779827              *
'mail:wtez@vip.163.com            *
'版权所有，请保留该信息，谢谢合作 *
'**********************************
%>
⌨️ 快捷键说明

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