<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%Option Explicit%>
<!--#include file="chk.asp"-->
<!--#include file="dbconn.asp"-->
<!--#include file="my_libs/my_request.asp"-->
<!--#include file="my_libs/my_lib.asp"-->
<!--#include file="my_libs/pages.asp"-->
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>报到地点名称管理</title>
<link rel="stylesheet" type="text/css" href="style_admin.css" />
</head>
<body>
<p><b>报到地点管理<font face="宋体" color="#FF6600">↓</font></b></p>
<table border="1" width="100%" id="table1">
<tr>
<td align="center" class="top_td">id</td>
<td align="center" class="top_td">报到地点名称</td>
<td align="center" class="top_td">添加时间</td>
<td align="center" class="top_td">排序</td>
<td align="center" class="top_td">修改</td>
<td align="center" class="top_td">删除</td>
</tr>
<%
dim sql,rs,i,arrlist(3),p
sql="select id,bddd,dd_flag,addtime from bddd order by dd_flag"
set rs=conn.execute (sql)
if rs.eof then
response.write "暂时没有任何报到地点名称，点击<a href=add_bddd.asp>这里添加</a>"
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
else
if 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
i=1
do while not rs.eof and i<=rs.pagesize
for p=0 to 3
arrlist(p)=rs(p)
next
%>
<tr>
<td align="center"><%=i%></td>
<td align="center"><%=arrlist(1)%> </td>
<td align="center"><%=arrlist(3)%></td>
<td align="center"><%=arrlist(2)%></td>
<td align="center"><a href=modi_bddd.asp?id=<%=arrlist(0)%>>修改</a></td>
<td align="center"><a href=pro_bddd.asp?id=<%=arrlist(0)%>&flag=del>删除</a></td>
</tr>
<%
rs.movenext
i=i+1
loop
call PageControl(iCount,maxpage,page,"border=0 width=100% align=center class=left_td ","<p align=right>")
rs.close
set rs=nothing
conn.close
set conn=nothing
end if
%>
</table>
</body>
</html>
