filelist.asp
来自「房地产管理系统 vb写的,很不错!!!!!!!!!!!」· ASP 代码 · 共 207 行
ASP
207 行
<!--#include file="Config.asp" -->
<html>
<head>
<title>文件列表</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
table {
font-size: 9pt;
}
BODY{
background-color: #FFFFFF;
scrollbar-face-color: #DEE3E7;
scrollbar-highlight-color: #FFFFFF;
scrollbar-shadow-color: #DEE3E7;
scrollbar-3dlight-color: #D1D7DC;
scrollbar-arrow-color: #006699;
scrollbar-track-color: #EFEFEF;
scrollbar-darkshadow-color: #98AAB1;
}
-->
</style>
<style type="text/css">
<!--
a:link {
color: #000000;
text-decoration: none;
}
a:visited {
text-decoration: none;
color: #000000;
}
a:hover {
color: #000000;
text-decoration: none;
}
a:active {
color: #000000;
text-decoration: none;
}
-->
</style>
<link href="images/style.css" rel="stylesheet" type="text/css">
</head>
<body bgcolor="#FFFFFF" text="#000000" leftmargin="2" topmargin="2" onselectStart="return false;">
<SCRIPT LANGUAGE="JavaScript">
<!--
function cd(path)
{
StateBar.innerHTML=StateBar.innerHTML+"<font color=red>(正在打开目录...)</font>"
top.SetNowPath(path);
}
function view(path)
{
top.viewItem(path);
}
function ReturnItemValue(Id,fTitle,fName,fDate)
{
top.ReturnItemValue(Id,fTitle,fName,fDate);
}
function Del()
{
document.form1.WorkType.value="Del";
document.form1.submit();
}
function ChangeTitle()
{
document.form1.WorkType.value="ChangeTitle";
document.form1.submit();
}
function ChangeTrBg(obj)
{
if(obj.checked){
// eval("Item"+n+".style.bgColor='#000000';");
obj.className="box1";
}else{
obj.className="";
}
}
//-->
</SCRIPT>
<!--#include file="ConnectDB.asp" -->
<!--#include file="Inc.asp" -->
<%
Dim WorkType,NowPath,ParentTitle
WorkType=Trim(Request("WorkType"))
NowPath=Request("NowPath")
Dim Sql,Rs
'### 取父目录的pID值
Sql="Select pId,title,Parent From FileLibrary Where pID='" & NowPath & "' Order By UpdateTime DESC"
Set Rs=Conn.ExeCute(Sql)
If Not(Rs.Eof And Rs.Bof) Then
parent=Rs("Parent")
ParentTitle=Rs("title")
Else
ParentTitle="根目录"
parent="00000000000000"
End If
Set Rs=Nothing
Dim OrderStr
OrderStr="Order by UpdateTime DESC"
If Request("Order")<>"" Then
OrderStr="Order By Type DESC,"&Request("Order")
If Request("Desc")<>"" Then
OrderStr=OrderStr & " DESC"
End If
End If
Sql="Select pId,filename,type,id,title,UpdateTime,Parent From FileLibrary Where Parent='" & NowPath & "' " & OrderStr
Set Rs=Conn.ExeCute(Sql)
%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td id="StateBar">位置：<%=ParentTitle%></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="2" cellpadding="0">
<form name="form1" method="post" action="ActionSelect.asp">
<tr>
<td width="4%" align="center" bgcolor="#CCCCCC"> </td>
<td width="51%" bgcolor="#CCCCCC" >
<%
If Request("Desc")<>"" And Request("Order")="title" Then
%>
<a href="FileList.asp?Order=title&Desc=&NowPath=<%=NowPath%>">标题</a>↓（降序）
<%Else%>
<a href="FileList.asp?Order=title&Desc=Desc&NowPath=<%=NowPath%>">标题</a>↑（升序）
<%End If%>
<input name="WorkType" type="hidden" id="WorkType"> <input name="TempValue" type="hidden" id="TempValue">
</td>
<td width="6%" align="center" bgcolor="#CCCCCC">View</td>
<td width="26%" bgcolor="#CCCCCC">
<%
If Request("Desc")<>"" And Request("Order")="UpdateTime" Then
%>
<a href="FileList.asp?Order=UpdateTime&Desc=&NowPath=<%=NowPath%>">UpdateTime</a>↓（升序）
<%Else%>
<a href="FileList.asp?Order=UpdateTime&Desc=Desc&NowPath=<%=NowPath%>">UpdateTime</a>↑（降序）
<%End If%>
</td>
<td width="8%" align="center" bgcolor="#CCCCCC">选定</td>
</tr>
<%If NowPath<>"00000000000000" Then%>
<tr>
<td align="center"><IMG SRC="images/Folder_Root.gif" WIDTH="20" HEIGHT="20" BORDER=0 ALT=""></td>
<td> <span onClick="cd('00000000000000')" style="cursor:hand" title="根目录">根目录</span></td>
<td align="center"><span onClick="cd('00000000000000')" style="cursor:hand;color:#" title="根目录">打开</span></td>
<td> </td>
<td> </td>
</tr>
<tr>
<td align="center"><IMG SRC="images/Folder_Parent.gif" WIDTH="20" HEIGHT="20" BORDER=0 ALT=""></td>
<td> <span onClick="cd('<%=parent%>')" style="cursor:hand" title="父目录">上级目录</span></td>
<td align="center"><span onClick="cd('<%=parent%>')" style="cursor:hand" title="父目录">打开</span></td>
<td> </td>
<td> </td>
</tr>
<%End If%>
<%
Dim I
I=0
While Not Rs.eof
I=I+1
%>
<tr onMouseOver="this.className='box1'" onMouseOut="this.className=''" id="Item<%=I%>">
<%If Rs("Type")=1 Then%>
<td align="center"> <table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td align="center"><IMG SRC="images/Folder.gif" WIDTH="20" HEIGHT="20" BORDER=0 ALT=""></td>
</tr>
</table></td>
<td> <span onClick="cd('<%=Rs("pID")%>')" Title="打开目录:<%=Rs("Title")%>" style="cursor:hand"><%=Rs("Title")%></span> </td>
<td align="center" ><a href="javascript:cd('<%=Rs("pID")%>')" title="打开目录" >打开</FONT></a></td>
<%Else%>
<td> <table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td align="center"> <a href="OpenFile01.asp?pID=<%=Rs("pId")%>" Title="请用'目标另存为(A)...'进行下载" style="cursor:default" onclick="return false;">
<%FileIco(Rs("FileName"))%>
</a> </td>
</tr>
</table></td>
<td><span onClick="ReturnItemValue('<%=Rs("pID")%>','<%=Rs("Title")%>','<%=Rs("FileName")%>','<%=Rs("UpdateTime")%>')" style="cursor:hand" Title="用鼠标左键点击选中文件！"> <%=Rs("Title")%>（<%=Rs("FileName")%>）</span>
</td>
<td align="center"><a Title="浏览文件" href="javascript:view('<%=Rs("pID")%>')">预览</a></td>
<%End If%>
<td width="2%"><%=Rs("UpdateTime")%></td>
<td width="3%" align="center"><INPUT NAME="pID" TYPE="checkbox" id="pID" Value="<%=Trim(Rs("pID"))%>" onClick="ChangeTrBg(this)"></td>
</tr>
<%
Rs.MoveNext()
Wend
rs.close
Set Rs=Nothing
%>
</form>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?