files_upload.asp

红金羚v1.5办公自动化软件是基于大型数据库系统开发的应用系统

<%@ LANGUAGE = VBScript %>
<!--#include file="utils.asp" -->
<%
Function sql_GetAllFolders()
	dim sql
	sql = "SELECT * FROM folders ORDER BY folder"
	sql_GetAllFolders = sql
End Function
%>
<% 
sqlFolders = sql_GetAllFolders()
Call RunSQL(sqlFolders, rsFolders)
 %>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="vos.css" type="text/css">
<table border="0" cellpadding="0" cellspacing="0" width="100%">
   <tr> 
    <td colspan="2" height=22 class="HeaderTD">文件上载</td>
  </tr>
  <form method="post" action="upload.asp" enctype="multipart/form-data" id=form name=form>
    <tr> 
      <td class="LabelTD">文件夹 </td>
      <td class="DataTD"> 
        <Select Name="folder" >
          <option selected value="">--选择文件夹--</option>
          <%	While Not rsFolders.EOF %>
          <option value="<%=rsFolders("folder_id")%>"><%=rsFolders("folder")%></option>
          <% rsFolders.MoveNext
			Wend
			rsFolders.Close
			set rsFolders = nothing	%>
        </Select>
      </td>
    </tr>
    <tr> 
      <td class="LabelTD">上载文件</td>
      <td class="DataTD"> 
        <input type="File" name="file" class="formstyleLong" size="60" maxlength="100">
      </td>
    </tr>
    <tr> 
      <td class="LabelTD">说明</td>
      <td class="DataTD"> 
        <input type="text" name="description" class="textfield" size="60" value="">
      </td>
    </tr>
    <tr> 
      <td align="center" colspan=2 class="LabelTD"> 
        <input type="Submit" value="提交" class="cmd">
      </td>
    </tr>
    <input TYPE="HIDDEN" NAME="filepath" value="file">
  </form>
</table>