p_my.asp

此文件为一个电子同学录

<!--#include file="conn.asp"-->
<!-- #include file="inc/const.asp" -->
<%
'=========================================================
' File: p_my.asp
 ' Date: 2006-04-06
' Script Written by Leibo
'=========================================================
' Copyright (C) 2002,2008 Mathren.com. All rights reserved.
' Web: http://www.hrbyydz.com
' Email: [e-mail]
'=========================================================

if not founduser then
  	errmsg=errmsg+"<br>"+"<li>您没有<a href=login.asp target=_blank>登录</a>。"
	founderr=true
end if

stats="我上传的照片"
dim picid,classname,classnum
dim currentPage,totalrec,Pcount,page_count,endpage
dim filename,filesize,picset,classid,addtime,postuser,postuserid,picinfo,hits
dim abgcolor,altstr

if founderr then
	call head()
	call head_var("","")
	call txl_error()
else
	call head()
	call head_var("班级相册","p_index.asp")
	if founderr then
		call txl_error()
	else
		call main()
		if founderr then call txl_error()
	end if
end if
call foot()

sub main()
abgcolor="tablebody2"
%>
<table width="<%=txl_body(0)%>" cellpadding="0" cellspacing="0" align="center" style="border:1px <%=txl_body(9)%> solid; border-top-width: 0px; border-right-width: 1px; border-bottom-width: 0px; border-left-width: 1px;">  
<tr> 
<td width=120 bgcolor=<%=txl_body(10)%> align="center" valign="top">
<br>
<a href=p_send.asp><img src="<%=txl_info(6)&txl_skinpic(10)%>"  height="25" border=0></a> <br><br>
<a href=p_my.asp><img src="<%=txl_info(6)&txl_skinpic(11)%>"  height="25" border=0></a> <br><br>
<a href=p_order.asp><img src="<%=txl_info(6)&txl_skinpic(12)%>"  height="25" border=0></a><br><br><br>
<%
	set rs=server.createobject("adodb.recordset")
	sql="select classid,classname,classinfo from imgclass order by classid"
	rs.open sql,conn,1
	if rs.eof and rs.bof then
		response.write "<p>还没有设定班级照片类别</p>"
	else	
		ClassNum=rs.recordcount
		do while not rs.eof	
	response.write "<a href=""p_more.asp?classid="&rs("classid")&""" title="""&rs("classinfo")&"""><img src="""&txl_info(7)&"dot02.gif"" border=0>&nbsp;"&rs("classname")&"</a><br><br>"
		rs.movenext
	loop
	end if
%>
</td>
<td width=* bgcolor=<%=txl_body(10)%>  valign="top"><br>
<table cellpaddin=0 cellspacing=0 border=5 bordercolor=<%=txl_body(21)%> width=98%>
<tr>
<%
dim i
i=1
	sql="select picid,filename,filesize,addtime,postuser,picinfo,hits from imgdata where postuserid="&userid&" order by addtime desc"
	set rs=conn.execute(sql)
	do while not rs.eof 
	altstr="&#13&#10  〓〓  "&rs("postuser")&"上传  〓〓  "
	altstr=altstr&"&#13&#10"
	altstr=altstr&"&#13&#10  照片大小："&int(rs("filesize")/1024)
	altstr=altstr&"K"
	altstr=altstr&"&#13&#10  上传日期："&rs("addtime")
	altstr=altstr&"&#13&#10  详细说明："&rs("picinfo")
	altstr=altstr&"&#13&#10"
	response.write "<td height=100 width=""20%"" align=center>"
	response.write "<a href=""p_show.asp?id="&rs("picid")&""" target=_blank title="""&altstr&"""><img src="""&txl_info(12)&rs("filename")&""" border=0  width=100 height=85></a>&nbsp;&nbsp;"
	response.write "</td>"
	if (i mod 5)=0 then response.write"</tr><tr>"
	i=i+1
	rs.movenext
	loop

%>
  </tr>
</table>
<br>
</td>
</tr>
</table>

<%
end sub
%>