|
分類:[レガシ 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>
ここまで作ったのですが、一覧すら表示しなくなってしまい、
お手上げ状態です。
どなたかご指導いただける幸いです。
何卒よろしくお願い申し上げます。
|