%
function cutstr(tempstr,tempwid)
if len(tempstr)>tempwid then
cutstr=left(tempstr,tempwid)&"..."
else
cutstr=tempstr
end if
end function
dim totalPut
dim CurrentPage
dim TotalPages
dim i,j
const MaxPerPage=16
if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if
dim rs
dim sql
if not isempty(request("id")) then
idlist=request("id")
if instr(idlist,",")>0 then
dim idarr
idArr=split(idlist)
for i = 0 to ubound(idarr)
id=clng(idarr(i))
call deleteannounce(id)
next
else
call deleteannounce(clng(idlist))
end if
end if
set rs=server.createobject("adodb.recordset")
sql="select * from zxdt order by id desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "
对不起,暂时还没有相关信息!!!
"
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 totalput,MaxPerPage
showpage totalput,MaxPerPage,"zxdt.asp"
else
if (currentPage-1)*MaxPerPage西安航空高等技术专科学校纪委