📄 x_upan.asp
字号:
<!--#include file="x_top.asp" -->
<table width="100%" height="282" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="200" valign="top">
<% pictype="|rar|zip|doc|gif|jpg|exe|txt|mp3|"
ulei=Trim(Request.QueryString("ulei"))
mulu=Trim(Request.QueryString("mulu"))
if ulei=sessname then
l=1
call zuo_kuaijie(""&sessname&"U盘","我的U盘首页,?ulei="&ulei&"||新建立U盘目录,?chuli=addlei&ulei="&ulei&"||上传新文件,?chuli=addfile&ulei="&ulei&"&mulu="&mulu&"||")
else
call zuo_kuaijie("公司U盘","公司U盘首页,?||")
end if
if ulei<>"" then
'///////////////////////////////////////////////////////////////////
'获得目录
set urs= Server.CreateObject("adodb.recordset")
'///////////////////////////////////////////////
'读自己的U盘分类
urs.open ("select u_upan from nnt_user where u_bname='"&ulei&"'"),conn,1,1
if not urs.eof then
upanmulus=urs("u_upan")
end if
urs.close
'//////////////////////////////
'结束自己的U盘分类
set urs=nothing
end if
%>
</td>
<td valign="top"><table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td colspan="3"><div id="comlist"></div>
</td>
</tr>
<tr>
<td width="1%"><img src="skins/list/l1.gif" width="7" height="9" /></td>
<td width="98%" background="skins/list/l2.gif"></td>
<td width="1%"><img src="skins/list/l8.gif" width="8" height="9" /></td>
</tr>
<tr>
<td background="skins/list/l3.gif"> </td>
<td height="400" valign="top">
<% select case Trim(Request.QueryString("chuli"))
case "addlei"%>
<table width="100%" border="0" cellspacing="0" cellpadding="4">
<form id="form1" name="form1" method="post" action="c_kehu.asp?chuli=addupan"> <tr>
<td colspan="2" class="td_heng"><b>添加我的U盘目录</b></td>
</tr>
<tr>
<td width="20%">新目录名称：</td>
<td width="80%"><input name="upname" type="text" class="nnt_input" id="upname" /></td>
</tr>
<tr>
<td>浏览权限：</td>
<td><input name="uquanxian" type="radio" value="0" checked="checked" />
公开
<input type="radio" name="uquanxian" value="1" />
限本部门查看
<input type="radio" name="uquanxian" value="2" />
私有</td>
</tr>
<tr>
<td> </td>
<td><input name="Submit" type="submit" class="nnt_submit" value="提交" /></td>
</tr></form>
</table>
<% case "addfile"
call listsub("comlist","返回目录,?ulei="&ulei&"&mulu="&mulu&"||上传文件,#",1) %>
<table width="100%" border="0" cellspacing="0" cellpadding="4">
<form action="c_kehu.asp?chuli=addfile" method="post" enctype="multipart/form-data" name="form" id="form">
<tr>
<td colspan="2" class="td_heng"><b>上传新文件到U盘</b></td>
</tr>
<tr>
<td width="20%">选择文件：</td>
<td width="80%"><input name="fileupan" type="file" id="fileupan" onChange="fenjiefile(this.value)" /></td>
</tr>
<tr>
<td>上传到目录：</td>
<td><% if instr(upanmulus,"[|@@|]")>0 then
u_upanlei=split(upanmulus,"[|@@|]")
for lu=0 to ubound(u_upanlei)
if u_upanlei(lu)<>"" then
upanlei=split(u_upanlei(lu),"||")
plei=upanlei(1)&","&upanlei(1)&"||"&plei
end if
next
end if
if mulu<>"" then plei="默认 "&mulu&","&mulu&"||"&plei
call nnt_select("p_lei",plei) %></td>
</tr>
<tr>
<td>文件名称：</td>
<td><input name="p_name" type="text" class="nnt_input" id="p_name" /></td>
</tr>
<tr>
<td>文件简介：</td>
<td><textarea name="p_jie" cols="60" rows="5" id="p_jie"></textarea></td>
</tr>
<tr>
<td> </td>
<td><input name="Submit2" type="submit" class="nnt_submit" value="上传" onclick="tishi_qp_kai('<img src=skins/loading.gif>文件正在上传，请不要操作。文件越大，上传所需时间越长。<br>',1)" /></td>
</tr></form>
</table>
<% case "look"
'读文件信息
if ulei<>sessname then
if boo_md5(mulu&Trim(Request.QueryString("mululei")))<>Trim(Request.QueryString("mulumd5")) then call cnerror("请返回刷新后在进入！",1)
select case Trim(Request.QueryString("mululei"))
case "1"
if conn.execute("select * from nnt_user where u_bname='"&ulei&"' and u_zhiwei='"&sesszhiwei&"'").eof then
call cnerror("本U盘为部门查看，不允许外部门人员查看！",1)
end if
case "2"
call cnerror("本U盘为私有，不允许外人查看！",1)
end select
end if
pid=cnshu(Trim(Request.QueryString("pid")),9,1,"文件ID",1)
set prs= Server.CreateObject("adodb.recordset")
prs.open ("select * from nnt_upan where p_id="&pid&""),conn,1,1
if prs.eof then call cnerror("没有查询到此U盘文件，请返回。",1)
Response.Write("<div style='padding:5px 0px 10px 10px'>当前位置：<a href='?ulei="&prs("p_user")&"'>"&prs("p_user")&"的U盘</a> > <a href='?ulei="&prs("p_user")&"&mulu="&prs("p_lei")&"&mululei="&Trim(Request.QueryString("mululei"))&"&mulumd5="& Trim(Request.QueryString("mulumd5"))&"'>"&prs("p_lei")&"</a> > "&prs("p_name")&" </div>")
%>
<!--读单个文件开始 -->
<table width="100%" border="0" cellspacing="0" cellpadding="4">
<tr>
<td colspan="2" class="td_heng"><b>U盘文件信息</b></td>
</tr>
<tr>
<td width="20%">文件名称：</td>
<td width="80%"><b><font color="#003399"><%= prs("p_name") %> </font></b></td>
</tr>
<tr>
<td>文件目录：</td>
<td><%= prs("p_lei") %> </td>
</tr>
<tr>
<td>发布人：</td>
<td><%= prs("p_user") %> </td>
</tr>
<tr>
<td>发布时间：</td>
<td><%= prs("p_time") %> </td>
</tr>
<tr>
<td>下载地址：</td>
<td><a href="<%= prs("p_path") %>.<%= prs("p_ext") %>" target="_blank"><% if instr(pictype,"|"&prs("p_ext")&"|")>0 then %>
<img src="skins/upan/wenjian_<%= prs("p_ext") %>.gif" border="0"/>
<% Else %><img src="skins/upan/wenjian_no.gif" border="0"/><% End If %>点击立即下载</a></td>
</tr>
<tr>
<td>文件简介：</td>
<td><%= prs("p_jie") %> </td>
</tr>
<tr>
<td> </td>
<td> </td>
</tr>
</table>
<!--读文件结束 -->
<% prs.close
set prs=nothing
case ""
call listsub("comlist","公司U盘,?||我的U盘,?ulei="&sessname&"",int(l))
if ulei="" then
'/////////////////////////////////
'读用户列表
'////////////////////////////////
set rs= Server.CreateObject("adodb.recordset")
rs.open ("select * from nnt_user where u_zhuangtai=1 "),conn,1,1
for ul=1 to int(rs.recordcount) %>
<div class="divmulu1" >
<a href='?ulei=<%= rs("u_bname") %>' style='cursor:hand'>
<div class="divmulu2">
<img src="skins/upan/mulu_user.png" width="26" height="26"/> </div>
<%= rs("u_name") %> <%= rs("u_bname") %></a><br />
<%= request.cookies("q_"&rs("u_zhiwei"))("qname") %>
</div>
<% rs.movenext
next
rs.close
set rs=nothing
else
Response.Write("<div style='padding:5px 0px 10px 10px'>当前位置：<a href='?ulei="&ulei&"'>"&ulei&"的U盘</a> > "&mulu&"</div>")
'/////////////////////////////////////////////////
'读用户U目录
if instr(upanmulus,"[|@@|]")>0 and mulu="" then
u_upanlei=split(upanmulus,"[|@@|]")
for lu=0 to ubound(u_upanlei)
if u_upanlei(lu)<>"" then
upanlei=split(u_upanlei(lu),"||") %>
<div class="divmulu1" >
<a href='?ulei=<%= ulei %>&mulu=<%= upanlei(1) %>&mululei=<%= upanlei(2) %>&mulumd5=<%= boo_md5(upanlei(1)&upanlei(2)) %>' <% if sessname=ulei then %> onmouseover="wenjianbianji('mulu_<%= lu %>')" <% End If %> style='cursor:hand'>
<div class="divmulu2">
<img src="skins/upan/mulu_<%= upanlei(2) %>.png"/>
</div>
<%= upanlei(1) %></a>
<input type="hidden" name="mulu_<%= lu %>_name" id="mulu_<%= lu %>_name" value="<%= upanlei(1) %>"/>
<input name="mulu_<%= lu %>_quan" type="hidden" id="mulu_<%= lu %>_quan" value="<%= upanlei(2) %>" />
<div id="mulu_<%= lu %>"></div>
</div>
<% end if
next
end if
'//////////////////////////////
'结束自己的U盘分类
%>
<!--读U盘文件开始 -->
<% if mulu<>"" then
if ulei<>sessname then
if boo_md5(mulu&Trim(Request.QueryString("mululei")))<>Trim(Request.QueryString("mulumd5")) then call cnerror("请返回刷新后在进入！",1)
select case Trim(Request.QueryString("mululei"))
case "1"
if conn.execute("select * from nnt_user where u_bname='"&ulei&"' and u_zhiwei='"&sesszhiwei&"'").eof then
call cnerror("本U盘为部门查看，不允许外部门人员查看！",1)
end if
case "2"
call cnerror("本U盘为私有，不允许外人查看！",1)
end select
end if
'目录不为空则开始读
set urs= Server.CreateObject("adodb.recordset")
urs.open ("select * from nnt_upan where p_lei='"&mulu&"' and p_user='"&ulei&"'"),conn,1,1
if not urs.eof then
for ux=1 to int(urs.recordcount) %>
<div class="divmulu1" >
<a href='?chuli=look&ulei=<%= ulei %>&mulu=<%= mulu %>&pid=<%= urs("p_id") %>&mululei=<%= Trim(Request.QueryString("mululei")) %>&mulumd5=<%= Trim(Request.QueryString("mulumd5")) %>' <% if sessname=ulei then %> onmouseover="wenjianbianji('wenjian_<%= urs("p_id") %>')" <% End If %> style='cursor:hand' title="文件名：<%= urs("p_name") %> 发布时间：<%= urs("p_time") %> 文件简介：<%= urs("p_jie") %>">
<span class="divmulu2">
<% if instr(pictype,"|"&urs("p_ext")&"|")>0 then %>
<img src="skins/upan/wenjian_<%= urs("p_ext") %>.gif" border="0"/>
<% Else %><img src="skins/upan/wenjian_no.gif" border="0"/><% End If %>
</span><br>
<%= left(urs("p_name"),10) %><% if len(urs("p_name"))>10 then Response.Write("...") %></a>
<div id="wenjian_<%= urs("p_id") %>"></div>
</div>
<% urs.movenext
next
end if
urs.close
set urs=nothing
end if
end if %>
<!--读U盘文件结束 -->
<% case "editwenjian"
editid=cnshu(Trim(Request.QueryString("editid")),9,1,"文件ID",1)
set rs= Server.CreateObject("adodb.recordset")
rs.open ("select * from nnt_upan where p_user='"&sessname&"' and p_id="&editid&""),conn,1,1
if rs.eof then call cnerror("没有查询到此文件，无法修改!",1) %>
<table width="100%" border="0" cellspacing="0" cellpadding="4">
<form action="c_kehu.asp?chuli=editfile&editid=<%= editid %>" method="post" name="form" id="form">
<tr>
<td colspan="2" class="td_heng"><b>修改文件到U盘</b></td>
</tr>
<tr>
<td width="20%">所属目录：</td>
<td width="80%"><% if instr(upanmulus,"[|@@|]")>0 then
u_upanlei=split(upanmulus,"[|@@|]")
for lu=0 to ubound(u_upanlei)
if u_upanlei(lu)<>"" then
upanlei=split(u_upanlei(lu),"||")
plei=upanlei(1)&","&upanlei(1)&"||"&plei
end if
next
end if
if mulu<>"" then plei="默认 "&mulu&","&mulu&"||"&plei
call nnt_select("p_lei2",plei) %></td>
</tr>
<tr>
<td>文件名称：</td>
<td><input name="p_name2" type="text" class="nnt_input" id="p_name2" value="<%= rs("p_name") %>" /></td>
</tr>
<tr>
<td>文件简介：</td>
<td><textarea name="p_jie2" cols="60" rows="5" id="p_jie2"><%= rs("p_jie") %></textarea></td>
</tr>
<tr>
<td> </td>
<td><input name="Submit22" type="submit" class="nnt_submit" value="修改" /></td>
</tr>
</form>
</table>
<% rs.close
set rs=nothing
end select %>
<script language="JavaScript" type="text/javascript">
var shangmulu='0';
function wenjianbianji(eid){
document.all(eid).innerHTML='<a href=# onclick="wenjianchuliedit('+eid+')">编辑</a> | <a href=# onclick="wenjianchulidel('+eid+')">删除</a>';
//document.all('big_'+eid).className='divmulu3';
if (shangmulu!='0'&&shangmulu!=eid){
document.all(shangmulu).innerHTML='';
//document.all('big_'+shangmulu).className='divmulu1';
}
shangmulu=eid;
}
function fenjiefile(thisvalue){
ff=thisvalue.split("\\");
document.getElementById('p_name').value=ff[ff.length-1];
}
function wenjianchulidel(delid){
wenff=delid.id.split("_");
if (wenff[0]=="wenjian"){
tishi_qp_kai('您是否确定要删除此文件？<br><a href="c_kehu.asp?chuli=delfile&delid='+wenff[1]+'">1 确定 <br><a href=# onclick="tishi_qp_guan()">2 考虑考虑</a><br>',1);
}else{
tishi_qp_kai('您是否确定要删除此目录？删除前请确保目录内没有文件，不然无法删除。<br><a href="c_kehu.asp?chuli=delmulu&delid='+document.getElementById('mulu_'+wenff[1]+'_name').value+'">1 确定 <br><a href=# onclick="tishi_qp_guan()">2 考虑考虑</a><br>',1);
}
}
function wenjianchuliedit(editid){
wenff=editid.id.split("_");
if (wenff[0]=="wenjian"){
location.href='?chuli=editwenjian&editid='+wenff[1]+'&ulei=<%= ulei %>&mulu=<%= mulu %>';
}else{
tishi_qp_kai('<table width="100%" border="0" cellspacing="0" cellpadding="4"> <form id="form1" name="form1" method="post" action="c_kehu.asp?chuli=editupan&upname1='+document.getElementById('mulu_'+wenff[1]+'_name').value+'&uquanxian1='+document.getElementById('mulu_'+wenff[1]+'_quan').value+'"> <tr> <td colspan="2" class="td_heng"><b>修改我的U盘目录</b></td> </tr> <tr> <td width="20%">新目录名称：</td> <td width="80%"><input name="upname" type="text" class="nnt_input" id="upname" value='+document.getElementById('mulu_'+wenff[1]+'_name').value+' /></td> </tr> <tr> <td>浏览权限：</td> <td><label> <select name="uquanxian" id="uquanxian"><option value="'+document.getElementById('mulu_'+wenff[1]+'_quan').value+'">默认'+document.getElementById('mulu_'+wenff[1]+'_quan').value+'</option> <option value="0">公开</option> <option value="1">限本部门查看</option> <option value="2">私有</option> </select> </label></td> </tr> <tr> <td> </td> <td><input name="Submit" type="submit" class="nnt_submit" value="提交" /></td> </tr></form> </table>',1);
}
}
</script>
</td>
<td background="skins/list/l7.gif"> </td>
</tr>
<tr>
<td><img src="skins/list/l4.gif" width="7" height="8" /></td>
<td background="skins/list/l5.gif"></td>
<td><img src="skins/list/l6.gif" width="8" height="8" /></td>
</tr>
</table></td>
</tr>
</table>
<!--#include file="x_di.asp" -->
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -