grview.asp

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

<!--#include file="head.asp"-->
<!--#include file="UbbCode.asp"-->
<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 width=200 bgColor=#f4f4f4>
      <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
        <TBODY>
        <TR borderColor=#999999>
          <TD vAlign=center align=middle><IMG height=8 alt="" 
            src="image/stu.htm" width=1 name=""></TD></TR>
        <TR>
          <TD vAlign=top height=350>
            <TABLE 
            style="BORDER-RIGHT: #cccccc 1px solid; BORDER-TOP: #cccccc 1px solid; BORDER-LEFT: #cccccc 1px solid; BORDER-BOTTOM: #cccccc 1px solid" 
            cellSpacing=0 cellPadding=0 width="90%" align=center 
bgColor=#ffffff>
              <TBODY>
              <TR>
                <TD>
                  <DIV align=center><IMG height=29 
                  src="image/type_left_01.gif" width=180></DIV></TD></TR>
              <TR>
                <TD class=6>
                  <TABLE cellSpacing=6 cellPadding=0 width="100%" 
                    align=center><TBODY>
                    <TR>
                      <TD>
                        <TABLE id=AutoNumber2 style="BORDER-COLLAPSE: collapse" 
                        cellSpacing=0 cellPadding=3 width="100%" border=0>
                          <TBODY>
                          <TR>
                            <TD colSpan=2 height=22><IMG height=11 
                              src="image/arrow00.gif" width=9> <A 
                              href="seachphoto2.asp?type1=1">学校风景</A></TD>
                          </TR></TBODY></TABLE>
                        <TABLE id=AutoNumber2 style="BORDER-COLLAPSE: collapse" 
                        cellSpacing=0 cellPadding=3 width="100%" border=0>
                          <TBODY>
                          <TR>
                            <TD colSpan=2 height=22><IMG height=11 
                              src="image/arrow00.gif" width=9> <A 
                              href="seachphoto2.asp?type1=2">同学照片</A></TD>
                          </TR></TBODY></TABLE>
                        <TABLE id=AutoNumber2 style="BORDER-COLLAPSE: collapse" 
                        cellSpacing=0 cellPadding=3 width="100%" border=0>
                          <TBODY>
                          <TR>
                            <TD colSpan=2 height=22><IMG height=11 
                              src="image/arrow00.gif" width=9> <A 
                              href="seachphoto2.asp?type1=3">其它经典</A></TD>
                          </TR></TBODY></TABLE>
                        </TD>
                    </TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
            <TABLE id=AutoNumber4 cellSpacing=0 cellPadding=0 width="90%" 
            align=center border=0>
              <TBODY>
              <TR>
                <TD align=middle width="100%"><IMG height=8 alt="" 
                  src="image/stu.htm" width=1 name=""></TD></TR></TBODY></TABLE>
            <TABLE width="90%" height="80" align=center cellPadding=0 
            cellSpacing=0 bgColor=#ffffff id=AutoNumber4 
            style="BORDER-RIGHT: #cccccc 1px solid; BORDER-TOP: #cccccc 1px solid; BORDER-LEFT: #cccccc 1px solid; BORDER-BOTTOM: #cccccc 1px solid">
              <TBODY>
              <TR>
                <TD align=top width="100%"><IMG height=29 
                  src="image/type_left_02.gif" width=180></TD></TR>
              <TR>
                <TD align=middle><IMG height=8 alt="" src="" 
                  width=1 name=""></TD></TR>
              <TR>
                <TD>
                  <TABLE cellSpacing=0 cellPadding=0 width="80%" align=center 
                  border=0>
                    <TBODY>
                    <TR>
                      <TD><form action="seachphoto.asp" method="post" name="stype">
                <select name="stype" size="1">
						   <option value="username">用户名</option>
                          <option value="title">图片标题</option>
                          <option value="remark">图片说明</option>
						  </select>
<input name="photocx" type="text" size="20"><br><br>
<input type="submit" name="Submit" value="提交">　　<input name="reset" type="reset" value="重来">
                      </form>
                 </TD></TR></TBODY></TABLE></TD></TR>
</TBODY></TABLE>
            <TABLE id=AutoNumber4 cellSpacing=0 cellPadding=0 width="90%" 
            align=center border=0>
              <TBODY>
              <TR>
                <TD align=middle width="100%"><IMG height=8 alt="" 
                  src="image/stu.htm" width=1 name=""></TD></TR></TBODY></TABLE>
            <TABLE 
            style="BORDER-RIGHT: #cccccc 1px solid; BORDER-TOP: #cccccc 1px solid; BORDER-LEFT: #cccccc 1px solid; BORDER-BOTTOM: #cccccc 1px solid" 
            cellSpacing=0 cellPadding=0 width="90%" align=center 
bgColor=#ffffff>
              <TBODY>
              <TR>
                <TD>
                  <DIV align=center><STRONG><FONT color=#000000><IMG height=29 
                  src="image/type_left_03.gif" 
                width=180></FONT></STRONG></DIV></TD></TR>
              <TR>
                <TD><%dim sql
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select top 15 * from photo where type2=3 order by liuyanshu desc"
rs.open sql,conn,1,1
do while not rs.eof%>
　　<A href="viewphoto.asp?picid=<%=rs("picid")%>" title="已有<%=rs("liuyanshu")%>条留言"><%=rs("title")%></A><BR>
                 <%rs.movenext
      loop
	    rs.close
	  set rs= nothing%>
</TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD>
    <TD bgColor=#cccccc><IMG height=1 alt="" src="image/stu.htm" width=1 
      name=""></TD>
    <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><%dim photocx
photocx=Request.QueryString("photocx")%>
                      <TD class=6 width=495 background=image/type_bg.gif 
                      height=30><IMG height=12 src="image/type01.gif" width=12 
                        align=absMiddle> <span style="color: #CC3300">当前位置:</span><span style="color: #000000">振云中学校友录</span> - <a href="grphoto.asp?mmm=0&photocx=<%=photocx%>" style="color: #FF6699">个人相册</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> 						
<%dim picid,i,pe,ad,user,sitejob,username,picimgname
picid=request.QueryString("picid")
pe=request.querystring("pe")
ad=request.querystring("ad")
sitejob=Session("sitejob")
username=Session("wzname")
if picid="" and ad="" then
response.redirect "photo.asp"
else
Select Case pe
	Case "del":
		 call del
	Case "del2":
		 call del2
		 Case "hf":
		Call hf
	Case "show":
		Call show
	Case Else:
		 call show
End Select 
end if
sub show
sql="update photo set dianji=dianji+1 where picid=" &picid& ""
	conn.execute (sql)
Set rs = Server.CreateObject("ADODB.recordset")
sql="select photo.*,user.username,user.name,user.money,user.userlogins from photo,user where photo.picid=" &picid& " and photo.username=user.username"