file_head.html

来自「OFFICE办公自动化」· HTML 代码 · 共 25 行

<!--文件夹菜单-->
<%
'------------------------------------------------取记录
'取文件夹信息 （返回rs对象）
'
set rstype=Server.CreateObject("ADODB.RecordSet")
sql="select * from tbioaDownload_sort where ID="&typeid
rstype.open sql,oConn,1,1
if not rstype.eof then
'------------------------------------------------
%>
<img border="0" src="../images/icon_title.gif"> 当前文件夹：<%=rstype("name")%>　　　　创建时间:<%=rstype("sdate")%>　　　修改时间:<%=rstype("mdate")%>
<br><br>
<%if manageAuth or returnqx("0402") then%>
<table width="100" border=0 cellspacing="0" cellpadding="0">
  <tr>
    <td width=100><img border="0" src="../images/icon_close.gif" align="left"><a href="file_add.asp?typeid=<%=typeid%>">添加文件</a></td>
  </tr>
</table>
<%end if%>

<%
end if
rstype.close
set rstype=nothing%>