p_index.asp

此文件为一个电子同学录

<!--#include file="conn.asp"-->
<!-- #include file="inc/const.asp" -->
<%
'=========================================================
' File: p_index.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]
'=========================================================

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 Cint(GroupSetting(17))=1 then
	Errmsg=Errmsg+"<br>"+"<li>您没有访问班级相册的权限，请<a href=login.asp>登陆</a>或者同管理员联系。"
	founderr=true
end if
if founderr then
	call head()
	call head_var("错误信息",Request.ServerVariables("HTTP_REFERER"))
	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%>
<%
dim i
for i=0 to classNum
	response.write "<tr><td height=100>&nbsp;"
	sql="select top 5 picid,filename,filesize,addtime,postuser,picinfo,hits from imgdata where classid="&i&" and picset<2 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 "&nbsp;&nbsp;<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;"
	rs.movenext
	loop
	response.write "</td></tr>"	
Next
%>
</table>
<br>
</td>
</tr>
</table>

<%
end sub
%>