hover_aboutus.asp

后台默认管理账号密码：admin 后台主要功能如下：一、系统管理：管理员管理

<!--#include file="toptable.asp"-->
<%
'=================================
'   良精科技企业管理系统
'   QQ在线客服:65961930 82993936
'   咨询定购Tel:010-81991660
'      [e-mail] 
'        www.liangjing.net
'  copyright(c)2001-2008 HoverCms 2007特别版
'=================================
%>
<%if Request.QueryString("no")="eshop" then

dim SQL, Rs, contentID,CurrentPage
CurrentPage = request("Page")
contentID=request("ID")

set rs=server.createobject("adodb.recordset")
sqltext="delete from  Hover_Aboutus where Id="& contentID
rs.open sqltext,conn,3,3
set rs=nothing
conn.close
response.write "<script language='javascript'>" & chr(13)
		response.write "alert('成功删除！');" & Chr(13)		
		response.write "</script>" & Chr(13)
		response.redirect "Hover_AboutUs.asp"
end if

%>
<%

set rs=server.createobject("adodb.recordset")
sqltext="select * from hover_aboutus order by id  "
rs.open sqltext,conn,1,1

dim MaxPerPage
MaxPerPage=20

dim text,checkpage
text="0123456789"
Rs.PageSize=MaxPerPage
for i=1 to len(request("page"))
checkpage=instr(1,text,mid(request("page"),i,1))
if checkpage=0 then
exit for
end if
next

If checkpage<>0 then
If NOT IsEmpty(request("page")) Then
CurrentPage=Cint(request("page"))
If CurrentPage < 1 Then CurrentPage = 1
If CurrentPage > Rs.PageCount Then CurrentPage = Rs.PageCount
Else
CurrentPage= 1
End If
If not Rs.eof Then Rs.AbsolutePage = CurrentPage end if
Else
CurrentPage=1
End if

call showpages
call list

If Rs.recordcount > MaxPerPage then
call showpages
end if

'显示帖子的子程序
Sub list()%>
<!-- #include file="Inc/Head.asp" -->
<BR>
<table cellpadding="3" cellspacing="1"    border="0" width="97%" align="center" class="tableBorder">
	<tr>
		<td class="title" height="25" align="center"  colspan="5"><strong>公司栏目信息管理</strong></td>
	</tr>
	<tr>
		<td  height="25"  colspan="5" align="center" class="title2"></td>
	</tr>
              <tr > 
                  <td width="8%" height="25" align="center" bgcolor="#F0F5F9" class="items"> ID</td>
                <td width="62%" align="center" bgcolor="#F0F5F9" class="items"> 公司栏目名称</td>
                <td width="10%" align="center" bgcolor="#F0F5F9" class="items"> 操作</td>
                <td width="10%" align="center" bgcolor="#F0F5F9" class="items"> 操作</td>
                <td width="10%" align="center" bgcolor="#F0F5F9" class="items"> 操作</td>
  </tr>
                <%
if not rs.eof then
i=0
do while not rs.eof
%>
                <tr bgcolor="#f0f0f0" > 
                  <td height="25" align="center" class="table"> <%=rs("id")%></td>
                  <td align="center" class="table">&nbsp;&nbsp;<%=rs("title")%></td>
                  <td align="center" class="table"> <a href=../Aboutus.asp?Id=<%=rs("id")%> target="_blank">查看</a></td>
                  <td align="center" class="table"> 
<a href="Hover_Aboutus_edit.asp?id=<%=rs("id")%>">修改</a></td>
                  <td align="center" class="table"><a href="Hover_Aboutus.asp?id=<%=rs("id")%>&amp;no=eshop">删除</a></td>
                </tr>
                <% 
i=i+1 
if i >= MaxPerpage then exit do 
rs.movenext 
loop 
end if 
%>
</table>
<%
End sub
rs.close

%><BR>
<%htmlend%>