<% data_path="../" 'ACC连接数据库路径，对SQL无效 %>
 <!--#include file="../conn/conn.asp"-->
  <!--#include file="../inc/safe.asp"-->
<%
 	if issession=0 then
	 if request.Cookies("Yxmemberid")="" then
    response.write "<script language='javascript'>"
	response.write"parent.location.href='../login/login1.asp';</SCRIPT>"
	response.end
    end if
	username=Replace_Text(request.Cookies("Yxmember"))
	gsid=Replace_Text(request.Cookies("Yxmemberid"))
	else
	if session("id")="" then
    response.write "<script language='javascript'>"
	response.write"parent.location.href='../login/login1.asp';</SCRIPT>"
	response.end
    end if
	username=session("user")
	gsid=session("id")
	end if 
	

%>
<script language="javascript">
<!--
	function select(image1,i){
		var image2 = image1
		parent.document.form['magicfacepic('+i+')'].value=image2;
		parent.lookmagic(i)
	}
//-->
</script><style type="text/css">
<!--
body,td,th {
	font-size: 12px;
	color: #333333;
}
a {
	font-size: 12px;
}
a:link {
	color: #003366;
}
a:visited {
	color: #003366;
}
a:hover {
	color: #FF3300;
}
body {
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
}
-->
</style>
<table width="100%" border="1" bordercolor="#E6E6E6" align=center cellpadding="3" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<% dim sql,rs,listnum,page,i,j,filename,n,filetype,fileurl
sql="select * from yixiang_files where userid="&gsid&""
set rs=server.createobject("adodb.recordset")                     
rs.open sql,Conn,1,1                     
if rs.eof and rs.bof then                     
	response.write "<tr><td   colspan=6 align=center>暂无内容，请到<A  href=""javascript:win=window.open('myfiles.asp','contact','left=100,top=100,width=650,height=500,scrollbars=yes,status=no,toolbar=no,menubar=no,location=no');win.focus();"">我的公文包</A>&nbsp;&nbsp;里添加&nbsp;<a href='javascript:window.location.reload();'><span style='color:red; text-decoration::none;'><strong>刷新</strong></span></a>&nbsp;<a href=""javascript:void(0)"" onClick=""select('',"&request("action")&")""><strong><span style=""color:red; text-decoration::none;"">默认</span></strong></a></td></tr>"
	
	
	
else  
'分页的实现 
listnum=8
Rs.pagesize=listnum
page=Request("page")
if (page-Rs.pagecount) > 0 then
page=Rs.pagecount
elseif page = "" or page < 1 then
page = 1
end if
Rs.absolutepage=page
'编号的实现
j=rs.recordcount
j=j-(page-1)*listnum
i=0
n=0
do while not rs.eof and i<listnum
n=n+1
filetype=split(rs("fileurl"),".")
%>
  <td align=center bgcolor="#EEEEEE" valign="top">
  <%
    If filetype(1)="gif" or filetype(1)="bmp" or filetype(1)="jpg" or filetype(1)="png" Then
	  fileurl="../vipcom/"&username&"/"&rs("fileurl")
	Else
	  fileurl="../vipcom/"&username&"/file_ico/"&filetype(1)&".gif"
	End If
  %>
  <img src="<%=fileurl%>" width=80 height=80 alt="<%=rs("wjname")%>" vspace="2" style="border:1px #000000 solid;CURSOR: hand" onClick="select('<%=rs("fileurl")%>',<%=request("action")%>)"><br><%=left(rs("wjname"),10)%></td>
<%if n mod 4=0 then response.write"</tr><tr>"
rs.movenext 
i=i+1 
j=j-1
loop
if listnum*page-rs.recordcount>4 then response.write "</tr><tr><td colspan=4 height=92></td>"
if listnum*page-rs.recordcount=4 then response.write "<td colspan=4 height=92></td>"
%>
</tr>
<%filename="inc_file.asp?action="&request("action")&""%>
<tr>
  <td height="18" colspan=4 align=right bgcolor="#EEEEEE"><a href="javascript:window.location.reload();"><span style="color:red; text-decoration::none;"><strong>刷新</strong></span></a>&nbsp;<a href="javascript:void(0)" onClick="select('',<%=request("action")%>)"><strong><span style="color:red; text-decoration::none;">默认</span></strong></a>&nbsp; 共 <%=Rs.pagecount%> 页 
      <% if page=1 then %>
      <%else%>
      <a href=<%=filename%>>|<<</a>
      <a href=<%=filename%>&page=<%=page-1%>><<</a>
      <a href=<%=filename%>&page=<%=page-1%>>[<%=page-1%>]</a>
<%end if
 if Rs.pagecount>1 then 
response.write "["&page&"]"
end if
%>
	  <% if Rs.pagecount-page <> 0 then %>
      <a href=<%=filename%>&page=<%=page+1%>>[<%=page+1%>]</a>
      <a href=<%=filename%>&page=<%=page+1%>>>></a>
      <a href=<%=filename%>&page=<%=Rs.pagecount%>>>>|</a>
    <%end if%></td>
<%end if%></tr>
</table>
<%
rs.close
set rs=nothing
Conn.close
set Conn=nothing
%>