项目需要将用户的部分信息到处到客户端的指定位置上,要求具体到磁盘根目录,花了些时间做了一个界面。
GetDiskInfo()函数用于获得盘符信息,并添加到HTML控件SELECT中。
ExportKey()函数用于确定用户选定的位置并将信息写入该位置下的userkey.txt文件中。
<HTML>
<HEAD>
<title>导出</title>
<script language="javascript">
function GetDiskInfo()
...{
var fso = new ActiveXObject("Scripting.FileSystemObject");
var drives = fso.Drives;
var e = new Enumerator(drives);
var selectInfo = document.getElementById("selectList");
for(; !e.atEnd(); e.moveNext()) 
...{
var anOption = document.createElement("OPTION");
anOption.text = e.item().Path;
selectInfo.add(anOption);
}
}
function ExportKey()
...{
var key = window.document.Form1.<%= this.UserInfoTextBox.ClientID %>.value;
var fso = new ActiveXObject("Scripting.FileSystemObject");
var e = new Enumerator(fso.Drives);
var path = window.document.Form1.selectList.options[window.document.Form1.selectList.selectedIndex].text + "/userkey.txt";
for(var i = 0; i < (window.document.Form1.selectList.selectedIndex - 1); i++)
...{
e.moveNext();
}
if(e.item().IsReady)
...{
f1 = fso.CreateTextFile(path, true);
f1.Write(key);
f1.Close();
alert("完成导出!");
}
else
...{
alert("你所选的存储位置存在问题,请重新输入!");
}
}
</script>
</HEAD>
<body onload="GetDiskInfo();" MS_POSITIONING="GridLayout">
<form id="Form1" method="post" runat="server">
<FONT face="宋体">
<SELECT id="selectList" style="Z-INDEX: 101; LEFT: 8px; WIDTH: 112px; POSITION: absolute; TOP: 8px">
<OPTION></OPTION>
</SELECT>
<INPUT onclick="ExportKey();" style="Z-INDEX: 102; LEFT: 128px; POSITION: absolute; TOP: 8px" type="button" value="导出">
<asp:TextBox id="UserKeyTextBox" style="Z-INDEX: 103; LEFT: 136px; POSITION: absolute; TOP: 64px"
runat="server" Height="0px" Width="0px"></asp:TextBox></FONT></form>
</body>
</HTML>
本文介绍了一种使用JavaScript和HTML实现的方案,能够获取计算机上的磁盘信息,并允许用户选择磁盘根目录来导出特定信息。通过枚举磁盘驱动器并创建下拉列表供用户选择,之后将选定位置下的userkey.txt文件写入所需信息。
5686

被折叠的 条评论
为什么被折叠?



