adminaboutus.asp

唐网公司企业网站管理系统源码 双数据库 sql access 功能强大 易于扩展

<!--#include file="conn.asp"-->
<!--#include file="admin.asp"-->
<!--#include file="Inc/Function.asp"-->
<%
dim strFileName
const MaxPerPage=20
dim totalPut,CurrentPage,TotalPages
dim rs, sql
strFileName="AdminAboutus.asp"

if request("page")<>"" then
    currentPage=cint(request("page"))
else
	currentPage=1
end if

Set rs=Server.CreateObject("Adodb.RecordSet")
sql="select * from Aboutus order by Aboutusorder"
rs.Open sql,conn,1,1
%>
<script language=javascript>
function ConfirmDel()
{
   if(confirm("确定要删除此记录吗？"))
     return true;
   else
     return false;
}
</script>
<!-- #include file="Inc/Head.asp" -->
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
  <tr> 
    <td width="862" align="center" valign="top">
      <br>
      <%
  	if rs.eof and rs.bof then
		response.write "目前共有 0 条记录"
	else
    	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        
        	showContent
        	showpage strFileName,totalput,MaxPerPage,true,true,"条记录"
   	 	else
   	     	if (currentPage-1)*MaxPerPage<totalPut then
         	   	rs.move  (currentPage-1)*MaxPerPage
         		dim bookmark
           		bookmark=rs.bookmark        		
            	showContent
            	showpage strFileName,totalput,MaxPerPage,true,true,"条记录"
        	else
	        	currentPage=1        
           		showContent
           		showpage strFileName,totalput,MaxPerPage,true,true,"条记录"
	    	end if
		end if
	end if

sub showContent
   	dim i
    i=0
%> 
      <table width="556" border="0" cellpadding="2" cellspacing="1" class="table_southidc">
        <tr>
          <td width="550" height="25" class="back_southidc"> 
            <div align="center"><strong>栏目管理</strong></div></td>
        </tr>
        <tr> 
          <td height="66"> 
            <div align="center">
              <table width="100%" height="62" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#000000" class="border">
                <tr bgcolor="#ECF5FF" class="title"> 
                  <td width="78" align="center"><strong>排序号</strong></td>
                  <td width="94" align="center"><strong>语种</strong></td>
                  <td width="265" height="29" align="center"><strong> 栏目名称</strong></td>
                  <td width="108" align="center"><strong> 操作</strong></td>
                </tr>
                <%do while not rs.EOF %>
                <tr class="tdbg"> 
                  <td align="center" bgcolor="#ECF5FF"><%=rs("Aboutusorder")%></td>
                  <td align="center" bgcolor="#ECF5FF">
				  <% if rs("Language")="1" then 
				        response.Write "中文"
				     else
					    response.Write "英文"
					 end if 
				   %></td>
                  <td height="28" align="center" bgcolor="#ECF5FF"><%=rs("Title")%></td>
                  <td align="center" bgcolor="#ECF5FF">
				   <% if rs("Language")="1" then %>
				  <a href=../Aboutus.asp?Title=<%=rs("Title")%> target="_blank">查看</a>&nbsp; 				  
				  <%else
				  EnTitle=rs("Title")
				  'Response.Write(EnTitle)
				  %>
				   <a href=../EnAboutus.asp?Title=<%=EnTitle%> target="_blank">查看</a>&nbsp;  <%end if %>
                    &nbsp;<a href="AdminAboutusModify.asp?ID=<%=rs("ID")%>">修改</a>&nbsp; 
                    &nbsp;<a href="AdminAboutusDel.asp?ID=<%=rs("ID")%>" onClick="return ConfirmDel();">删除</a></td>
                </tr>
                <%
	i=i+1
	if i>=MaxPerPage then exit do
	rs.movenext
loop
%>
              </table>
            </div></td>
        </tr>
      </table>
      <%
end sub 
%> </td>
  </tr>
</table>
<!-- #include file="Inc/Foot.asp" -->
<%
rs.Close
set rs=Nothing
call CloseConn()  
%>