WEB源码(ASP,PHP,...)

开发平台：
HTML/CSS

p_more.asp：源码内容
							<!--#include file="conn.asp"-->
<!-- #include file="inc/const.asp" -->
<%
if Cint(GroupSetting(17))=1 then
	Errmsg=Errmsg+"<br>"+"<li>您没有访问班级相册的权限，请<a href=login.asp>登陆</a>或者同管理员联系。"
	founderr=true
end if
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 request("classid")="" then
	Errmsg=Errmsg+"<br>"+"<li>请选定相应的照片。"
	founderr=true
elseif not isInteger(request("classid")) then
	Errmsg=Errmsg+"<br>"+"<li>非法的照片参数。"
	founderr=true
else
	classid=request("classid")
end if
if founderr then
	call head()
	call head_var("","")
	call txl_error()
else
	set rs=conn.execute("select classname from imgclass where classid="&classid)
	if rs.bof or rs.eof then
		Errmsg=Errmsg+"<br>"+"<li>非法的照片参数。"
		founderr=true
	else
		classname=rs(0)
	end if
	stats=""&classname&""
	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>
<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 classid="&classid&" 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
%>

						