<%
Call showPict
Call showMovie
Sub showPict
dirname = Request("dirname")
If dirname = "" Then
dirname = Server.Mappath(".") & "\pictures\"
End If
foldername = Request("foldername")
filename = Request("filename")
sub1 = Request.Form("sub1")
Set ObjFSO = Server.CreateObject("Scripting.FileSystemObject")
Set ObjFolder = ObjFSO.GetFolder(dirname)
Response.Write "
"
'サブフォルダを一覧表示します。
Set ColFiles = ObjFolder.SubFolders
For Each f in ColFiles
Response.Write "- " & f.Name & "の写真を見る
"
Next
'ファイルを一覧表示します。
Set ColFiles = ObjFolder.Files
For Each f in ColFiles
If f.Name <> "disp.asp" Then
Response.Write "- " & f.Name & "
"
End If
Next
Response.Write "
"
'オブジェクトを解放します。
Set ColFiles = Nothing
Set ObjFolder = Nothing
Set ObjFSO = Nothing
End Sub
Sub showMovie
Response.Write "
"
End Sub
Function SQLCheck(value)
SQLCheck = Replace (value,"'","''")
SQLCheck = Replace (SQLCheck,"\","\\")
End Function
'ユーザ情報をチェックするサブルーチン
Function ninshou(user, pass)
If user = CstUserID and pass = CstPass Then
ninshou = "OK"
Else
ninshou = "NG"
End If
End Function
Sub disp_form
Response.Write "
"
End Sub
%>