📄 admin_info.asp

📁 本实例为一个完整的网上购物商城的完整例子程序,里面有所以的源代码.希望对大家学习有用.
💻 ASP
字号:
<!--#include file="conn.asp"-->
<%
if session("admin_name")="" then
        response.redirect "error.asp?error=001"
end if
%>
<body bgcolor="#FFFFCC" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="100%" border="0" cellspacing="1" cellpadding="2" bgcolor="#FFFFFF" vspace="0" hspace="0">
<tr>
<td height="27" background="images/admin_bg_1.gif">.:: 您可以在这里进行用商品类别关操作</td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#FFFFFF">
<tr>
<td width="5%" height="25" align="center" bgcolor="#CBD7F5">ID</td>
<td width="25%" align="center" bgcolor="#CBD7F5">新闻标题</td>
<td width="10%" align="center" bgcolor="#CBD7F5">发布者</td>
<td width="15%" align="center" bgcolor="#CBD7F5">所属一级分类</td>
<td width="15%" align="center" bgcolor="#CBD7F5">所属二级分类</td>
<td width="20%" align="center" bgcolor="#CBD7F5">发布日期</td>
<td width="10%" align="center" bgcolor="#CBD7F5">操作</td>
</tr>
<%
page=clng(request("page"))
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from NEWS order by id desc"
rs.Open sql, conn, 1, 1
if rs.eof and rs.bof then
        response.Write("没有记录")
else
        rs.PageSize=10
if page=0 then page=1
        pages=rs.pagecount
if page > pages then page=pages
        rs.AbsolutePage=page

for j=1 to rs.PageSize
%>
<tr bgcolor="#FFFFFF">
<td height="22" align="center"><%=rs("id")%></td>
<td>　
<% if rs("imagenum")<>"0" then response.write "<img src='../images/news.gif' border=0 alt='图片新闻'>" end if %>
<a href="../list.asp?id=<%=rs("id")%>" target="_blank" title="<%=rs("title")%>"><%=left(rs("title"), 12)%></a></td>
<td align="center"><%=left(rs("user"), 5)%></td>
<td align="center"><%=rs("BigClassName")%> </td>
<td align="center"><%=rs("SmallClassName")%></td>
<td align="center"><%=rs("infotime")%></td>
<td align="center"><a href="admin_infomodi.asp?id=<%=rs("id")%>">修改</a> <a href="admin_infodel.asp?id=<%=rs("id")%>">删除</a></td>
</tr>
<%
rs.movenext
if rs.eof then exit for
        next
%>
</table>

<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td>&nbsp; </td>
</tr>
<tr>
<form method=Post action="admin_info.asp">
<td height="25" align="center" background="images/admin_bg_1.gif">
<%if Page<2 then
response.write "首页 上一页&nbsp;"
else
        response.write "<a href=admin_info.asp?page=1>首页</a>&nbsp;"
response.write "<a href=admin_info.asp?page=" & Page-1 & ">上一页</a>&nbsp;"
end if
if rs.pagecount-page<1 then
        response.write "下一页 尾页"
else
        response.write "<a href=admin_info.asp?page=" &(page+1)& ">"
response.write "下一页</a> <a href=admin_info.asp?page="&rs.pagecount&">尾页</a>"
end if
response.write "&nbsp;页次：<strong><font color=red>"&Page&"</font>/"&rs.pagecount&"</strong>页 "
response.write "&nbsp;共<b><font color='#FF0000'>"&rs.recordcount&"</font></b>条记录 <b>"&rs.pagesize&"</b>条记录/页"
response.write " 转到：<input type='text' name='page' size=4 maxlength=10 class=input value="&page&">"
response.write " <input class=input type='submit'  value=' Goto '  name='cndok'></span></p>"
%>
</td></form>
</tr>
</table>
<%
end if
rs.close
set rs=nothing
%>
</body>
</html>
⌨️ 快捷键说明

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