📄 listing1303.aspx
字号:
<%@ Import Namespace="System.IO" %>
<script language="VB" runat="server">
private dir as DirectoryInfo
private f as FileInfo
private strDir as string
sub Page_Load(obj as object, e as eventargs)
if not Page.IsPostBack then
strDir = Request.Params("dir")
if strDir = "" then
strDir = "c:\"
end if
tbDir.Text = strDir
dir = new DirectoryInfo(strDir)
ListFiles()
end if
end sub
sub tbDir_Handle(obj as object, e as EventArgs)
strDir = obj.Text
if Directory.Exists(strDir) then
dir = new DirectoryInfo(strDir)
ListFiles()
else
lblMessage.Text = "Invalid directory"
end if
end sub
sub ListFiles()
dim hl as HyperLink
'dim lc as LiteralControl
dim d as DirectoryInfo
if not dir.Root.FullName = dir.FullName then
hl = new HyperLink
hl.Text = ".."
hl.NavigateURL = "listing1203.aspx?dir=" & _
Server.URLEncode(dir.Parent.FullName)
Panel1.Controls.Add(hl)
Panel1.Controls.Add(new LiteralControl("<br>"))
end if
for each d in dir.GetDirectories
hl = new Hyperlink
hl.Text = d.Name
hl.NavigateURL = "listing1303.aspx?dir=" & _
Server.URLEncode(d.FullName)
Panel1.Controls.Add(hl)
Panel1.Controls.Add(new LiteralControl("<br>"))
next
for each f in dir.GetFiles("*.*")
lblMessage.Text += f.Name & "<br>"
next
end sub
</script>
<html><body>
<form runat="server">
<b>Directory:</b>
<asp:Textbox id="tbDir" runat="server"
OnTextChanged="tbDir_Handle"
AutoPostBack=true /><p>
<asp:Panel id="Panel1" runat="server"
MaintainState="true" />
<asp:label id="lblMessage" runat=server
maintainstate=false />
</form>
</body></html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -