| 分類:[レガシ ASP]
みなさん お世話になります。
超初心者です。
ASPを使って、一つの画面でファイルアップロード、ファイルダウンロード、ファイルの削除機能 を一つのファイルに埋め込む形で作っていきたく、現在製作中です。
wwwrootの中にdbというフォルダを創り、それをサーバー内のフォルダと仮定して、そこに、エクセルやら、ワードやらを入れ 一覧を表示するような形をとっています。
で今↓
<%@Language= VBScript%>
<html> <title>文章共有・一覧表示</title>
<body>
<hr width="550"></hr>
<!--アップロード処理-->
<% Sub Upload()
a=Request.TotalBytes b=Request.BinaryRead(a) set obj=server.createobject("basp21") f1=obj.FormFileName(b,"file1") fsize1=obj.FormFileSize(b,"file1") newf1=Mid(f1,InstrRev(f1,"\")+1) l1=obj.FormSaveAs(b,"file1",Server.MapPath(curPath))
Upload=obj.From(b,"Upload") If Request=("Upload") Then call Upload End If
EndSub
%>
<FORM ACTION="Upload" ENCTYPE="multipart/form-data" METHOD=POST> ファイル: <INPUT TYPE=file NAME="file1"> <INPUT TYPE=SUBMIT NAME=UPLOAD> </FORM> <% curpath="./db"
Set objFso = Server.CreateObject("Scripting.FileSystemObject") Set fld=fso.GetFolder(Server.MapPath(curPath))
%>
<tr> <td> <table border="1"> <tr> <th nowrap="nowrap">ファイル名</th> <th nowrap="nowrap">サイズ</th> <th nowrap="nowrap">ファイルタイプ</th> <th nowrap="nowrap">最終更新日</th> <th nowrap="nowrap">ダウンロード</th> <th nowrap="nowrap">処理</th> </tr>
<% For Each sFld In fld.SubFolders %>
<tr> <td nowrap="nowrap"><p><%=sFld.Name %></p></td> <td nowrap="nowrap"></ br></td> <td nowrap="nowrap">ファイル フォルダ</td> <td nowrap="nowrap"><%=sfld.DateLastModified %></td> </tr>
<%
Next For Each fl In fld.Files
%>
<tr> <td nowrap="nowrap"><p><%=fl.Name%></p></td> <td nowrap><%=Int(fl.Size/1024) & "KB" %></td> <td nowrap><%=fl.Type %></td> <td nowrap><%=fl.DateLastModified %></td>
<!--ダウンロードのボタン↓--> <td><input type="button" name="Download" value="Download" onClick="Download_Click('<%=fl.Name%>')"></td>
<!--削除のボタン↓--> <td><form method="post" action="kyouyuorg1.asp"> <input type="hidden" name="delete" value="yes"> <input type="button" value="削除"> </form></td> </tr>
<% Next End Sub %>
</table> </body> </html>
ここまで作ったのですが、一覧すら表示しなくなってしまい、 お手上げ状態です。
どなたかご指導いただける幸いです。 何卒よろしくお願い申し上げます。
|