%@ LANGUAGE = VBScript.Encode %><%sqladm="select * from admin"
Set rsadm= Server.CreateObject("ADODB.Recordset")
rsadm.open sqladm,conn,1,1
if jypx=jypx then
if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if
MaxPerPage=rsamd("pagesize")
if MaxPerPage="" or isempty(MaxPerPage) or MaxPerPage<1 then
MaxPerPage=3
end if%><%if request("type")="" then
sqlu="select * from link order by outcount desc"
else
sqlu="select * from link where type='"&request("type")&"' order by outcount desc"
end if
Set rsu= Server.CreateObject("ADODB.Recordset")
rsu.open sqlu,conn,1,1
totalPut=rsu.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
showpage totalput,MaxPerPage
showContent
showpage totalput,MaxPerPage
else
if (currentPage-1)*MaxPerPage中巴海军海上联合搜救演习
<%if session("jypxadmin")="ok" then%>
<%end if%>