info_manage.asp

来自「非常有商业价值的软件」· ASP 代码 · 共 104 行

ASP
104 行
字号 
<!--#include file="chk.asp"-->
<!--#include file="db_conn.asp"-->
<!--#include file="../my_lib/my_request.asp"-->
<!--#include file="../my_lib/pages.asp"-->
<%
flag=my_request("flag",1)%>
<html>

<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="style.css" rel=stylesheet type=text/css>
<title>信息管理</title>
</head>

<body>

<div align="center">
	<table border="1" width="760" id="table1" cellspacing="1" style="border-collapse: collapse" bordercolor="#EFEFEF">
		<tr>
			<td colspan="6">
			<p align="center">信息管理</td>
		</tr>
		<tr>
			<td width="36">ID</td>
			<td width="254">标题</td>
			<td width="124">类别</td>
			<td width="166">添加时间</td>
			<td width="146" colspan="2">操作</td>
		</tr>
		<%
	set rs=server.CreateObject("adodb.recordset")
	sql="select id,title,flag,addtime from info_list where flag="&flag
	rs.open sql,conn,1,1
	if (rs.eof and rs.bof) then
	response.write "<tr>"
    response.write "<td width=500 colspan=4><font color=#FF0000>您还没有收藏的商品</font></td>"
    response.write "</tr>"
    else
    rs.PageSize =20 '每页记录条数
			iCount=rs.RecordCount '记录总数
			iPageSize=rs.PageSize
    		maxpage=rs.PageCount 
    		page=request("page")
    
    if Not IsNumeric(page) or page="" then
        page=1
    else
        page=cint(page)
    end if
    
    if page<1 then
        page=1
    elseif  page>maxpage then
        page=maxpage
    end if
    
    rs.AbsolutePage=Page

	if page=maxpage then
		x=iCount-(maxpage-1)*iPageSize
	else
		x=iPageSize
	end if

end if
						  ii=1
						  while not rs.eof and ii<=rs.pagesize
						  set id=rs("id")
						  set title=rs("title")
						  set flag=rs("flag")
						  set addtime=rs("addtime")
						  select case flag
						  case 1
						  leibie="网站动态"
						  case 2
						  leibie="网站公告"
						  case else
						  leibie="不知道"
						  end select
						  %>
		<tr>
			<td width="36"><%=(page-1)*19+ii%></td>
			<td width="254"><%=title%></td>
			<td width="124"><%=leibie%></td>
			<td width="166"><%=addtime%></td>
			<td width="73"><a href="admin_modi_info.asp?id=<%=id%>&flag=<%=flag%>">修改</a></td>
			<td width="73"><a href="admin_del_info.asp?id=<%=id%>&flag=<%=flag%>">删除</a></td>
		</tr>
<%
rs.movenext
ii=ii+1
wend
%>
		<tr>
			<td colspan="6"><%call PageControl(iCount,maxpage,page,"border=0 align=left","<p align=left>")%></td>
		</tr>
	</table>
</div>

</body>

</html>

info_manage.asp - 源码说明

本页面展示了「非常有商业价值的软件」中的 info_manage.asp 源码文件，采用 ASP 编程语言编写，共 104 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与商相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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