<!--#include file="../conn.asp"-->
<!--#include file="../SqlIn.Asp"-->
<!--#include file="../config.asp"-->
<!--#include file=cookies.asp-->
<%
'=====================================
'天天供求信息网站管理系统
'天天网络科技工作室出品
'客服中心:http://www.ip126.com
'微信公众号:ip126com
'QQ:530051328 mail:bbfhq@163.com
'=====================================
call checkmanage("06")%>	
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>图片列表</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<meta name="description" content="图片列表" />
<meta name="keywords" content="图片列表" />
<link rel="stylesheet" type="text/css" href="../css/photo.css" media="screen" />

<script type="text/javascript"> 
    function jsCopy(){ 
        var e=document.getElementById("content");//对象是content 
        e.select(); //选择对象 
        document.execCommand("Copy"); //执行浏览器复制命令

       alert("已复制好，可贴粘。"); 
    } 
</script> 
</head>
<body>
<div id="wrap">
<div class="header">	
	<div class="menu">
		<ul>
			<li><a href="admin_article_upload.asp?photoid=<%=request.querystring("id")%>" target="_self" class="current">相册上传</a></li>			
			<li><a href="admin_article_piclist.asp?id=<%=request.querystring("id")%>" target="_self" class="current">相册列表</a></li>						
			<li><a href="admin_article_edit.asp?id=<%=request.querystring("id")%>" target="_self" class="current">相册管理</a></li>			
		</ul>
	</div>
</div>
<div class="main">
	<div class="index_left" style="width:1000px;">
	<%set rs=server.createobject("adodb.recordset")
	sql="select * from DNJY_news where id = " & request.querystring("id")
	rs.open sql,conn,1,1%>
		<h3>文章相册列表 隶属文章：<a href="../news_show.asp?id=<%=request.querystring("id")%>" target="_blank" style="font-weight:900;"><%=rs("title")%></a></h3>
<%If rs("s_photo")<>"" Then
Dim Bimg,Strsimg
Bimg=split(Mid(rs("s_photo"),2),"|")
For Each Strsimg In Bimg
		%>
		<div class="picture"><a href="../<%=Replace(Strsimg,"_s","")%>" target="_blank"><img src="../UploadFiles/upnews/<%=mid(Strsimg,19)%>" border="0" alt="" width="170" height="140"/><br/><%=mid(Replace(Strsimg,"_s",""),19)%></a></div>
		<%Next
		Else
		response.write"<div class=""picture"">此文章无图片相册</div>"
		End if%>
		<div class="clear"></div>
			<div class="clear"></div>
		</div>
	</div>
</div>
	<div class="clear"></div>
</div>
</body>
</html>

<%
Function ShowSpacesize(drvpath)'保存文件
	dim fso,d,size,showsize
	set fso=server.createobject("scripting.filesystemobject") 		
	drvpath=server.mappath(drvpath) 		 		
	set d=fso.getfolder(drvpath) 		
	size=d.size
	ShowSpacesize=size
 End Function	
Function spacesize(size)'计算文件大小
	spacesize=size &" Byte"
	if size>1024 then
		 size=(size\1024)
		 spacesize=size & "&nbsp;KB"
	end if
	if size>1024 then
		 size=(size/1024)
		 spacesize=formatnumber(size,2) & "&nbsp;MB"		
	end if
	if size>1024 then
		 size=(size/1024)
		 spacesize=formatnumber(size,2) & "&nbsp;GB"	   
	end if   
End Function 

sub delfile(filename)'删除
	dim fso
	set fso=server.createobject("scripting.filesystemobject")
	delefilepath=Server.MapPath(filename)
	if fso.FileExists(delefilepath) then
			fso.DeleteFile(delefilepath)
	end if
	set fso = nothing
end Sub
%>
