?? adminachieve1_body.asp
字號(hào):
<%sub adminachieve1_body()
dim totalart,Currentpage,totalpages,i,colname
sql="select * from achieve order by achieve_id DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%>
<!--#include file="admintop.asp"-->
<table width="<%=tablewidth%>" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td width="205" bgcolor="#FFFFFF" valign="top" class="line">
<%call adminmenu()%>
</td>
<td width="565" bgcolor="#FFFFFF" valign="top" align="center" class="linee"> <table width="98%" border="0" cellspacing="1" cellpadding="0" class="linee" background="images/dh.gif">
<tr align="center">
<td width="50%" height="25"><a href="admin_achieve1.asp">成果管理</a></td>
<td width="50%"><a href="admin_achieve2.asp?action=newachieve">新增成果</a></td>
</tr>
</table>
<table width="98%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="6"></td>
</tr>
</table>
<table width="98%" border="1" cellspacing="0" cellpadding="4" bordercolor="#09DD77" style="border-collapse: collapse">
<tr align="center">
<td bgcolor="#FFFFFF" width="10%">編號(hào)</td>
<td bgcolor="#FFFFFF" width="60%">文章標(biāo)題</td>
<td bgcolor="#FFFFFF" width="10%">瀏覽</td>
<td bgcolor="#FFFFFF" width="20%">操作</td>
</tr>
<%if not rs.eof then
rs.movefirst
rs.pagesize=achieveperpage
if trim(request("page"))<>"" then
currentpage=clng(request("page"))
if currentpage>rs.pagecount then
currentpage=rs.pagecount
end if
else
currentpage=1
end if
totalart=rs.recordcount
if currentpage<>1 then
if(currentpage-1)*achieveperpage<totalart then
rs.move(currentpage-1)*achieveperpage
dim bookmark
bookmark=rs.bookmark
end if
end if
if (totalart mod achieveperpage)=0 then
totalpages=totalart\achieveperpage
else
totalpages=totalart\achieveperpage+1
end if
i=0
do while not rs.eof and i<achieveperpage%>
<tr>
<td bgcolor="#FFFFFF" align="center"><%=rs("achieve_id")%></td>
<td bgcolor="#FFFFFF"><a href="showachieve.asp?achieve_id=<%=rs("achieve_id")%>" target="_blank"><%if len(rs("achieve_title"))>26 then
response.write ""&left(rs("achieve_title"),24)&"..."
else
response.write ""&rs("achieve_title")
end if%></a></td>
<td bgcolor="#FFFFFF" align="center"><%=rs("achieve_count")%></td>
<td bgcolor="#FFFFFF" align="center"><a href="admin_achieve2.asp?achieve_id=<%=rs("achieve_id")%>&action=editachieve">edit</a>
<a href="admin_achieve2.asp?achieve_id=<%=rs("achieve_id")%>&action=delachieve">del</a></td>
</tr>
<%
i=i+1
rs.movenext
loop
else
if rs.eof and rs.bof then
%>
<tr align="center">
<td bgcolor="#FFFFFF" colspan="4">當(dāng)前沒有文章!</td>
</tr>
<%end if
end if%>
</table>
<table width="96%" border="0" cellspacing="0" cellpadding="0" align="center">
<form name="form1" method="post" action="admin_achieve1.asp">
<tr>
<td align="right"><%=currentpage%> /<%=totalpages%>頁,共<%=totalart%>條記錄,<%=achieveperpage%>篇/每頁.
<%
i=1
showye=totalpages
if showye>10 then
showye=10
end if
for i=1 to showye
if i=currentpage then
%>
<B><%=i%></B>
<%else%>
<a href="admin_achieve1.asp?page=<%=i%>"><%=i%></a>
<%end if
next
if totalpages>currentpage then
if request("page")="" then
page=1
else
page=request("page")+1
end if%>
<a href="admin_achieve1.asp?page=<%=page%>" title="下一頁">>></a>
<%end if%>
<input type="text" name="page" class="input" style="width:30px;">
<input type="submit" name="Submit" value="Go" class="button" style="width:24px;">
</td>
</tr>
</form>
</table>
<br>
</td>
</tr>
</table>
<%
rs.close
set rs=nothing
end sub%>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -