admin_photo.asp

不是我做的一个留言板

<%
bg_id="1"
%>
<!--#include file="../main/conn.asp" -->
<!--#include file="admin_session.asp" -->
<!--#include file="../function/nextpage.asp" -->
<!--#include file="../js/vbJava.ASP" -->
<%

web_id1="../language/"
web_id=web_id1&l_id&"/ADMIN.ASP"
call include(web_id)


fname=request.QueryString("username")
set rs=server.CreateObject("adodb.recordset")
sql="select * from photo order by phototime desc"
rs.open sql,conn,1,1

if not rs.eof then
	rs.PageSize =admin_photopage    ' 每页记录条数
	result_num=rs.RecordCount       ' 记录总数
	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
	elseif  page>maxpage then
		page=maxpage
	end if
	rs.AbsolutePage=Page
else
	result_num=0
	maxpage=0
	page=0
end if
  %>

   <table border="1" width="100%" bgcolor=<%=top_bg_color%> bordercolor=<%=top_borderbg_color%>>
  <tr>
    <td width="6%" height="18" align="center" bgcolor=<%=tr_bg_color%>><%=L_ADMIN_PH3%></td>
    <td width="48%" height="18" align="center" bgcolor=<%=tr_bg_color%>><%=L_ADMIN_PH4%></td>
    <td width="15%" height="18" align="center" bgcolor=<%=tr_bg_color%>><%=L_ADMIN_PH5%></td>
    <td width="15%" height="18" align="center" bgcolor=<%=tr_bg_color%>><%=L_ADMIN_PH6%></td>
    <td width="15%" height="18" align="center" bgcolor=<%=tr_bg_color%>><%=L_ADMIN_PH7%></td>
  </tr>
<%
size=rs.PageSize * (page-1)
if not rs.eof then 
for i=1 to rs.PageSize 
size=size+1
  %>

<tr style="background-color: <%=test_style_onMouseOut%>" onMouseOver = "this.style.backgroundColor = '<%=test_style_onMouseOver%>'" onMouseOut = "this.style.backgroundColor = '<%=test_style_onMouseOut%>'">
    <td width="6%" height="18" align="center"> <%=size%> </td>
    <td width="48%" height="18">
<!--     标题       -->
<img src="<%=web_background%>/rigth1.gif">
<a href="../main/photo_brow.asp?id=<%=rs("photoid")%>" target="_blank"
title="<img src='<% response.write photopath &"/"&rs("photoname")%>' border=0 width=50 heigth=50 />">
    
<%=trim(rs("phototitle"))%>
</a>
</td>


<td width="15%" height="18" align="center">
<!-- 上传人 -->
<a href="#" onClick="javascript:window.open('../main/member.asp?id=<%=trim(rs("photouser"))%>','','width=<%=win_w%>,height=<%=win_h%>,left=<%=win_left%>,top=<%=win_top%>')"> <%=trim(rs("photouser"))%></a>

</td>
    <td width="15%" height="18" align="center">
<a href="../main/photoedit.asp?id=<%=trim(rs("photoid"))%>&group=admin">
<img border="0" src="<%=web_background%>/edit.gif"> </a>

</td>
    <td width="15%" height="1" align="center">
<a href='javascript:go("../main/photodel.asp?group=admin&photoid=<%=rs("photoid")%>&filename=<%=rs("photoname")%>","<%=L_ADMIN_PH8%>?")'>

<img src="<%=web_background%>/del.gif" border="0"></a>
</td>
  </tr>
<%
rs.movenext
if rs.EOF or ii=rs.PageSize then Exit For
		next
if i<>1 then
for j=1 to 4-i
response.Write("<td width='150'>&nbsp;</td>")
 next
	end if
end if
rs.close
set rs=nothing
%>

 </table>
<p>
<table>

      <tr>  <td colspan="9" algin='center'>
<table>
<% call LastNextPage(maxpage,page,result_num) %>
</td></tr>
</table>