grphoto.asp

一对一校友录多班级而且非常漂亮http://free.cnyys.com/my/yhe/DEFAULT.ASP

<!--#include file="head.asp"-->
<!--#include file="popup.inc"-->
<% dim ao,orr,mmm,sql
mmm=request("mmm")
if mmm="" then mmm=0
photocx=Request("photocx")
	stype=Request("stype")
	photocx=LTRIM(RTRIM(photocx))
	stype=LTRIM(RTRIM(stype))
	if photocx="" then%>
<div align="center"> <br><br><br><br>请输入完整的地址，个人相册格式是：<br><br>
  <a href="http://wzxyl.com" target="_blank">http://wzxyl.com/grphoto.asp?mmm=0&photocx=用户名</a><br>
  <br>
将用户名换成你要查的就是了<br><br><br></div>
<%else
set rs=server.createobject("adodb.recordset")  
sql="select photo.*,user.username,user.name from photo,user where user.username=photo.username and photo.username like '%"&photocx&"%' order by LastUpdateTime desc,picid desc;"
rs.open sql,conn,1,1
if rs.eof then
response.write "<center>没有信息</center>"
else%>
<TABLE style="BORDER-RIGHT: #cccccc 1px solid; BORDER-LEFT: #cccccc 1px solid" 
cellSpacing=0 cellPadding=0 width=778 align=center bgColor=#ffffff>
  <TBODY>
  <TR vAlign=top>
    <TD>
      <TABLE cellSpacing=0 cellPadding=0 width="100%" align=center 
      bgColor=#ffffff border=0>
        <TBODY>
        <TR>
          <TD height=8 bgColor=#f4f4f4></TD></TR>
          <TD>
 <TABLE id=AutoNumber3 style="BORDER-COLLAPSE: collapse" 
            cellSpacing=0 cellPadding=0 width="100%" border=0>
              <TBODY>
              <TR>
                <TD vAlign=top height=52>
                  <TABLE id=AutoNumber5 style="BORDER-COLLAPSE: collapse" 
                  borderColor=#111111 cellSpacing=0 cellPadding=3 width="100%" 
                  border=0>
                    <TBODY>
                    <TR>
                      <TD class=6 width=495 background=image/type_bg.gif 
                      height=30><IMG height=12 src="image/type01.gif" width=12 
                        align=absMiddle>  <span class="style5"><span style="color: #CC3300">当前位置:</span> <a href="index.asp"><font color="#FF6699">网站首页</font></a> - <a href="grphoto.asp?mmm=0&photocx=<%=photocx%>"><font color="#FF6699">个人相册</font></a></TD>
                      <TD width=100 background=image/type_bg.gif>
                        <DIV align=center><IMG 
                       src="image/more.gif" 
                    border=0></DIV></TD></TR>
                    <TR>
                      <TD colSpan=2>
                        <DIV align=center> 
                       <table width="550" height="18" border="0" align="center" cellpadding="0" cellspacing="0">
          <tr>
            <td>这是<a href="datum.asp?username=<%=rs("Username")%>"><font color="#FF0000"><%=rs("name")%></font></a>的个人相册，共有（<font color="#FF0000"><%=rs.recordcount%></font>）张照片，每人至多10张，若要上传请将无用的删去</td>
          </tr>
        </table> <table width="99%" border="1" align="center" cellpadding="3" cellspacing="1" bordercolor="#99CCFF">
          <tr> 
            <td colspan="4">
                <%          
  if mmm<>0 then         
  	for iisf=1 to mmm *12
  		if rs.eof then exit for         
  		rs.movenext         
  	next         
  end if         
  do while not rs.eof          
  %>      <tr> 
            <td width="25%" bgcolor="#FFFFFF"><div align="center"> 
                <table width="99%" height="80" border="0" cellpadding="0" cellspacing="0">
                  <tr> 
                    <td><div align="center"><a href="grview.asp?picid=<%=rs("picid")%>"><%=rs("title")%></a><br>
                                                <a href="grview.asp?picid=<%=rs("picid")%>&photocx=<%=""&photocx&""%>"> 
                                                <%dim altinfo
altinfo="上传:"&rs("name")&"&lt;BR&gt;&nbsp;"&_
        "时间:"&rs("pubtime")&"&lt;BR&gt;&nbsp;"&_
		"人气:"&rs("dianji")&"&lt;BR&gt;&nbsp;"&_
		"大小:"&rs("photosize")&"K"
response.write "<IMG src='upphoto/"&rs("pic")&"' width=120 height=150 border=0 onmouseout=kill() onmouseover=""popup('"&altinfo&"','#d2e9fe')"">"%> 
                                              </a></div></td>
                  </tr>
                  <tr> 
                    
                  <td align="center"><%=rs("name")%>　　<%=rs("liuyanshu")&"/"&rs("dianji")%>
                    <div align="center"></div></td>
                  </tr>
                </table>
              </div></td>
            <% rs.movenext %>
            <td width="25%" align="left" bgcolor="#FFFFFF"><div align="center"> 
                <%if not rs.eof then %>
                <table width="99%" height="80" border="0" cellpadding="0" cellspacing="0">
                  <tr> 
                    <td width="99%"><div align="center"><a href="grview.asp?picid=<%=rs("picid")%>"><%=rs("title")%></a><br>
<a href="grview.asp?picid=<%=rs("picid")%>&photocx=<%=""&photocx&""%>"> 
            <%
response.write "<IMG src='upphoto/"&rs("pic")&"' width=120 height=150 border=0 onmouseout=kill() onmouseover=""popup('"&altinfo&"','#d2e9fe')"">"%> 
            </a></div></td>
                  </tr>
                  <tr> 
                  <td align="center">
 <%=rs("name")%>　　<%=rs("liuyanshu")&"/"&rs("dianji")%></td>
                  </tr>
                </table>
              </div></td>
            <%    rs.movenext
				   end if %>
				      <td width="25%" align="left" bgcolor="#FFFFFF"><div align="center"> 
                <%if not rs.eof then %>
                <table width="99%" height="80" border="0" cellpadding="0" cellspacing="0">
                  <tr> 
                    <td width="99%"><div align="center"><a href="grview.asp?picid=<%=rs("picid")%>"><%=rs("title")%></a><br>
<a href="grview.asp?picid=<%=rs("picid")%>&photocx=<%=""&photocx&""%>"> 
            <%
response.write "<IMG src='upphoto/"&rs("pic")&"' width=120 height=150 border=0 onmouseout=kill() onmouseover=""popup('"&altinfo&"','#d2e9fe')"">"%> 
            </a></div></td>
                  </tr>
                  <tr> 
                  <td align="center">
 <%=rs("name")%>　　<%=rs("liuyanshu")&"/"&rs("dianji")%></td>
                  </tr>
                </table>
              </div></td>
            <%    rs.movenext
				   end if %>
            <td width="25%" align="left" bgcolor="#FFFFFF"><div align="center">
                <%if not rs.eof then %>
                <table width="99%" height="80" border="0" cellpadding="0" cellspacing="0">
                  <tr> 
                   <td width="99%"><div align="center"><a href="grview.asp?picid=<%=rs("picid")%>"><%=rs("title")%></a><br><a href="grview.asp?picid=<%=rs("picid")%>&photocx=<%=""&photocx&""%>"> 
          <%
response.write "<IMG src='upphoto/"&rs("pic")&"' width=120 height=150 border=0 onmouseout=kill() onmouseover=""popup('"&altinfo&"','#d2e9fe')"">"%>
            </a></div></td>
                  </tr>
                  <tr> 
                    
                  <td align="center"><%=rs("name")%>　　<%=rs("liuyanshu")&"/"&rs("dianji")%></td>
                  </tr>
                </table>
              </div></td>
            <%    rs.movenext 
				  end if %>
            
          </tr>
          <% i=i+1                   
   if i=3 then exit do                                       
   loop                         
%>
        </table>
        <p align="center"> <span class="unnamed1"> 
          <!--上页-->
          <%if mmm<>0 then%>
          <%="<a href=?mmm=" & mmm-1 & "&photocx=" & photocx & "&stype=" & stype & "><font color=""#FF0000"">上页</font></a>"%> 
          <%end if%>
          <!--下页-->
          <%if not rs.eof then%>
          <%="<a href=?mmm=" & mmm+1 & "&photocx=" & photocx & "&stype=" & stype & "><font color=""#FF0000"">下页</font></a>"%> 
          <%end if%>
          </span></p>
  <%i=0
%>  
	                          </DIV>
                    <TR>
                      <TD colSpan=2>
                    </TBODY>
                  </TABLE>
                 </TD></TR></TBODY></TABLE></TD></TR></TABLE></TD></TR></TBODY></TABLE><%end if
				 end if
				  rs.close
 set rs=nothing%>
<!--#include file="bottom.asp"--></BODY></HTML>