adminuppic1_body.asp

南鄂电子商务学校网: 学校概况、校园动态、师资力量、教学成果、师生论坛、友情链接

<%sub adminuppic1_body()
dim keyword,colname,totaluppic,Currentpage,totalpages,i

keyword=trim(replace(request.form("keyword"),"'",""))
colname=request("colname")

sql="select uppic_id,uppic_name,uppic_url from uppic order by uppic_date desc"
if keyword<>"" and colname<>"0" then
	sql="select uppic_id,uppic_name,uppic_date,uppic_url from uppic where "&colname&" like '%"&keyword&"%' order by uppic_date desc"
else
	sql="SELECT uppic_id,uppic_name,uppic_date,uppic_url FROM uppic order by uppic_date desc"
end if
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_uppic1.asp">图片地址管理</a></td>
          <td width="50%"><a href="admin_uppic2.asp?action=newuppic">新增图片地址</a></td>
        </tr>
      </table>
            <br>
			<table width="98%" border="1" cellspacing="0" cellpadding="4" bordercolor="#09DD77" style="border-collapse: collapse">
        <tr> 
                <td width="10%" height="25" align="center" background="images/dh.gif" bgcolor="#FFFFFF">序号</td>
				<td width="15%" align="center" background="images/dh.gif" bgcolor="#FFFFFF">图片名称</td>
                <td width="60%" align="center" background="images/dh.gif" bgcolor="#FFFFFF">图片地址</td>
                <td width="15%" align="center" background="images/dh.gif" bgcolor="#FFFFFF">操作</td>
              </tr>
<%if not rs.eof then
rs.movefirst
rs.pagesize=uppicperpage
if trim(request("page"))<>"" then
   currentpage=clng(request("page"))
   if currentpage>rs.pagecount then
      currentpage=rs.pagecount
   end if
else
   currentpage=1
end if
   totaluppic=rs.recordcount
   if currentpage<>1 then
       if (currentpage-1)*uppicperpage<totaluppic then
	       rs.move(currentpage-1)*uppicperpage
		   dim bookmark
		   bookmark=rs.bookmark
	   end if
   end if
   if (totaluppic mod uppicperpage)=0 then
      totalpages=totaluppic\uppicperpage
   else
      totalpages=totaluppic\uppicperpage+1
   end if
i=0
do while not rs.eof and i<uppicperpage%>
              <tr> 
                <td align="center" bgcolor="#FFFFFF"><%=rs("uppic_id")%></td>
				<td bgcolor="#FFFFFF"><%if len(rs("uppic_name"))>6 then
 response.write ""&left(rs("uppic_name"),4)&"..."
else
 response.write ""&rs("uppic_name")
end if%></td>
                <td bgcolor="#FFFFFF"><%=rs("uppic_url")%></td>
                <td align="center" bgcolor="#FFFFFF"><a href="admin_uppic2.asp?id=<%=rs("uppic_id")%>&action=edituppic">edit</a> 
                  <a href="admin_uppic2.asp?id=<%=rs("uppic_id")%>&action=deluppic">del</a> </td>
              </tr>
<%i=i+1
rs.movenext
loop
else
if rs.eof and rs.bof then%>
              <tr> 
                <td height="30" colspan="4" align="center" bgcolor="#FFFFFF">当前没有图片地址！</td>
              </tr>
<%end if
end if%>
            </table>
            <table width="98%" border="0" cellspacing="0" cellpadding="0" align="center">
        <form name="form3" method="post" action="admin_uppic1.asp?keyword=<%=request("keyword")%>&colname=<%=request("colname")%>">
          <tr> 
                  <td align="right"><%=currentpage%> /<%=totalpages%>页,<%=totaluppic%>个图片,<%=uppicperpage%>个/每页. 
                    <%
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_uppic1.asp?page=<%=i%>&keyword=<%=request("keyword")%>&colname=<%=request("colname")%>"><%=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_uppic1.asp?page=<%=page%>&keyword=<%=request("keyword")%>&colname=<%=request("colname")%>" title="下一页">>></a> 
                    <%end if%>
                    &nbsp;&nbsp;&nbsp;&nbsp; 
                    <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>  
    </td>
  </tr>
</table>
<%
rs.close
set rs=nothing
end sub%>