class_photo.asp

不是我做的一个留言板

<!--#include file="conn.asp" -->
<!--#include file="session.asp" -->
<!--#include file="../templet/mon.asp" -->
<!--#include file="../templet/top.asp" -->
<!--#include fILE="../function/FUNCTION.ASP" -->
<!--#include file="../function/nextpage.asp" -->
<!--#include file="../js/vbjava.asp" -->
<%
sid=request.QueryString("sid")
on_web=L_CLASS_PHOTO
  set rs=server.CreateObject("adodb.recordset") 
  sql="select * from photo where g_id='"&session_cookie_gid&"' order by phototime desc"
  rs.open sql,conn,1,1 
  if not rs.eof then 
  rs.PageSize =photo_page '每页记录条数 
  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 
        RESPONSE.WRITE"<table width=100% border=1 cellpadding=3 cellspac"
        RESPONSE.WRITE "ing=0 bgColor='"&td_bg_color&"' bgborder='"&td_bor&"' style=border-collapse: collapse>"
        RESPONSE.WRITE "<tr><td  height=50 background='"& web_background&"/top_foot_img/bg4.gif' ALIGN=CENTER>"
        RESPONSE.WRITE "<a href=photo_add.asp><font color=ff0000>『"&L_CLASS_UPPHOTO&"』 </font></a>"
        RESPONSE.WRITE "<br>"&L_CLASS_PHOTOTILE&"</td></tr><tr><td align=center>"
call LastNextPage(maxpage,page,result_num)
        RESPONSE.WRITE "<tr><td align=center><table border=0 width=99% cellspacing=0 cellpadding=0>"
        RESPONSE.WRITE "<tr>"

p_ii=photo_page*(page-1)
p_i=0
for p_i=0 to (rs.RecordCount-1)
if (p_i mod 3)=0 then
        RESPONSE.WRITE "</tr><tr>"
end if
        RESPONSE.WRITE "<td width=33%  align=center colspan=3>"
p_ii=p_ii+1
psss="("& p_ii&")"
call mon(y)
        RESPONSE.WRITE "<table width=100% border=1 bgColor='"&td_bg_color&"' bgborder='"&td_bor&"'>"
        RESPONSE.WRITE "<tr><td  height=50 background="&web_background&"/top_foot_img/bg4.gif>"
        RESPONSE.WRITE "『<font color='#ff0000'>"&left(trim(rs("phototitle")),6)&"...</font>』<br>"
        RESPONSE.WRITE LEFT(Trim(rs("photocomment")),10)
        RESPONSE.WRITE "</td></tr><tr><td bgColor=ffffff align=center> <br>"
%>

<table border="0" cellPadding="0" cellSpacing="0" height="90" width="130">
  <tr>
    <td align="middle" width="130">
      <table bgColor="#cccccc" border="0" cellPadding="0" cellSpacing="1" height="90" width="130">
        <tbody>
          <tr>
            <td bgColor="#ffffff">
              <table align="center" bgColor="#ffffff" border="0" cellPadding="0" cellSpacing="1" height="80" width="110">
                <tbody>
                  <tr>
                    <td align=center>

<a href="photo_brow.asp?id=<%=rs("photoid")%>">
<img src="<%=photopath%>/<%=rs("photoname")%>" border="0" onload="javascript:DrawImage(this);" >
</a>


                   </td>
                  </tr>
                </tbody>
              </table>
            </td>
          </tr>
        </tbody>
      </table>
<%
        RESPONSE.WRITE "</td><td align=middle vAlign=bottom width=17>"
        RESPONSE.WRITE "<img border=0 src="&img_path&"/cool.gif width=10 height=70>"
        RESPONSE.WRITE "</td></tr></table><br>"&psss&"<br>"
        RESPONSE.WRITE L_CLASS_UPUSER&"："&trim(rs("photouser"))
        RESPONSE.WRITE "<br>"&trim(rs("phototime"))&"</td></tr></table>"
	RESPONSE.WRITE mon_foot&"</td><td>&nbsp;</td>"
	rs.movenext
	next
	rs.close
        RESPONSE.WRITE "</table></tr><tr><td align=center>"
	call LastNextPage(maxpage,page,result_num)
%>
<!--#include file="../templet/foot.asp" -->