📄 privatefile.asp
字号:
<!--#include file="conn.asp" -->
<!--#include file="md5.inc" -->
<!--#include file="checkstr.asp" -->
<!--#include file="checkuser.asp" -->
<!--#include file="config.asp" -->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>留溪网上办公平台_私人文件</title>
<!--#include file="css.css" -->
</head>
<%doing=Trim(Request.QueryString("doing"))
doing=checkstr(doing)%>
<%'删除一个信息
if doing="dele" then
deleid=Int(Request.QueryString("deleid"))
str="select 发文者,附件数,附件名 from woa where id="&deleid&""
set rs=conn.execute(str)
if rs("发文者")=session("user_name") then
if rs("附件数")>0 then
fj_name=rs("附件名")
folder_name=left(fj_name,19)
folder_name=server.mappath(""&folder_name&"")
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.folderexists(folder_name) then
fso.DeleteFolder(folder_name)
end if
end if
str="delete from woa where id="&deleid&""
conn.execute(str)
end if
rs.close
end if
%>
<body background="images/index_bg.gif" topmargin="0">
<table width="760" height="101" border="0" align="center" cellpadding="0" cellspacing="0" class="tabletblg">
<tr>
<td><img src="images/top.jpg" width="758" height="100"></td>
</tr>
</table>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" class="tablelrb">
<tr>
<td class="fontsize04"> </td>
</tr>
</table>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" class="tablelrb">
<tr>
<td height="25" background="images/menu-d-gg.gif" class="fontsize12"><!--#include file="menu.asp" --></td>
</tr>
</table>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" class="tablelrb">
<tr>
<td height="30" background="images/bocolor02.gif" class="fontsize14"> <%=session("user_name")%>，你好！欢迎使用<%=ptmc%>。<font color="#FF0000">私人文件</font>：发送时不选任何接受人，只有发送者自己能收到。</td>
</tr>
</table>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" class="tablelrb">
<tr>
<td class="fontsize04"> </td>
</tr>
</table>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" class="tablelrb">
<tr>
<td background="images/bocolor01.gif"><table width="75%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td class="fontsize10"> </td>
</tr>
</table>
<%
str="select * from woa where 发文者='"&session("user_name")&"' and 接收者='|' and 所有人=0 order by id desc"
rs.open str,conn,3,2
rs.pagesize=flxxs
page=int(Request.QueryString("page"))
if page=0 or page="" then page=1 end if
if page<0 then page=1 end if
if page>rs.pagecount then page=rs.pagecount end if
%>
<%if rs.eof then%>
<table width="730" border="1" align="center" cellpadding="2" cellspacing="0" borderColorLight="#000000" borderColorDark="#ffffff">
<tr>
<td width="740" height="30" colspan="2"><div align="center" class="fontsize16"><strong>目前你没有私人信息！</strong></div></td>
</tr>
</table>
<%else%>
<%rs.absolutepage=page
for n=1 to rs.pagesize%>
<table width="730" border="1" align="center" cellpadding="2" cellspacing="0" borderColorLight="#000000" borderColorDark="#ffffff">
<tr>
<td width="700"><table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="26" class="fontsize14h20"><font color="#660033"><strong><%=rs("标题")%></strong></font></td>
</tr>
<%if rs("内容")<>" " then%>
<tr>
<td class="fontsize12h20">
<%if instr(rs("内容"),"<br>")=0 then%>
<%=left(rs("内容"),100)%><br>
……<a href=disp.asp?dispid=<%=rs("id")%>&page=<%=page%>&back=privatefile.asp>更多内容</a>
<%else%>
<%=left(rs("内容"),instr(rs("内容"),"<br>")-1)%><br>
……<a href=disp.asp?dispid=<%=rs("id")%>&page=<%=page%>&back=privatefile.asp>更多内容</a>
<%end if%>
</td>
</tr>
<%end if%>
<%if rs("附件数")>0 then%>
<tr>
<td height="10"><hr width="640" noshade></td>
</tr>
<tr>
<td height="26"><table width="640" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="60" valign="top"> <table width="50" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="26" class="fontsize14"><div align="center">附件：</div></td>
</tr>
</table></td>
<td width="580"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<%fj_all=rs("附件名")
do while len(fj_all)>1
fj_link=left(fj_all,instr(fj_all,"|")-1)
fj_all=mid(fj_all,instr(fj_all,"|")+1)
fj_name=mid(fj_link,21)
%>
<tr>
<td height="20"><a href=<%=fj_link%> class="fontsize14" target="_blank"><%=fj_name%></a></td>
</tr>
<%
loop
%>
<tr>
<td height="26" class="fontsize12h20">请右击附件名，选“目标别存为…”，把附件保存到本地硬盘上。</td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
<%end if%>
</table></td>
<td width="40" valign="top"><table width="40" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="40" class="fontsize14"><div align="center"><a href="privatefile.asp?doing=dele&deleid=<%=rs("id")%>&page=<%=page%>">删除</a></div></td>
</tr>
</table></td>
</tr>
</table>
<%rs.movenext
if rs.eof then exit for
next%>
<table width="75%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td class="fontsize04"> </td>
</tr>
</table>
<table width="730" border="1" align="center" cellpadding="2" cellspacing="0" borderColorLight="#000000" borderColorDark="#ffffff">
<tr>
<td width="740" height="30" colspan="2"><div align="center" class="fontsize16">
<p class="fontsize14">共有信息<font color="#FF0000"><strong><%=rs.recordcount%></strong></font> 每页<strong><font color="#FF0000"><%=rs.pagesize%></font></strong> 共<strong><font color="#FF0000"><%=rs.pagecount%></font></strong>页 <a href=privatefile.asp?page=1 class="fontsize14wu">首页</a> <a href=privatefile.asp?page=<%=page-5%> class="fontsize14wu">前五页</a> <a href=privatefile.asp?page=<%=page-1%> class="fontsize14wu">前一页</a> 第<strong><font color="#FF0000"><%=page%></font></strong>页 <a href=privatefile.asp?page=<%=page+1%> class="fontsize14wu">后一页</a> <a href=privatefile.asp?page=<%=page+5%> class="fontsize14wu">后五页</a> <a href=privatefile.asp?page=<%=rs.pagecount%> class="fontsize14wu">尾页</a></p>
</div></td>
</tr>
</table>
<%end if%>
<table width="75%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td class="fontsize10"> </td>
</tr>
</table></td>
</tr>
</table>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" class="tablelr">
<tr>
<td class="fontsize04"> </td>
</tr>
</table>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" class="tabletblg">
<tr>
<td background="images/bocolor02.gif">
<!--#include file="bottom.asp" --></td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -