UC知道谁能帮我解决如下asp代码问题？
来源：百度知道 编辑：UC知道 时间：2024/05/17 13:31:43
<body>
<center><H2>您的计算机上各驱动器相关信息</H2>
<hr>
<%
function tran(driver)
select case drive
case 0:tran="设备无法识别"
case 1:tran="软盘驱动器"
case 2:tran="硬盘驱动器"
case 3:tran="网络硬盘驱动器"
case 4:tran="光盘驱动器"
case 5:tran="RAM虚拟磁盘"
end select
end function
set fso=server.CreateObject("scripting.filesystemobject")
%>
<table border=1 width="100%">
<tr>
<td>盘符</td>
<td>类型</td>
<td>卷标</td>
<td>总计大小</td>
<td>可用空间</td>
<td>文件系统</td>
<td>序列号</td>
<td>是否可用</td>
<td>路径</td>
</tr>
<%
on error resume next
for each drv in fso.drives
respons.write"<tr>"
respons.write"<td>"&drv.driveletter&&
<center><H2>您的计算机上各驱动器相关信息</H2>
<hr>
<%
function tran(driver)
select case drive
case 0:tran="设备无法识别"
case 1:tran="软盘驱动器"
case 2:tran="硬盘驱动器"
case 3:tran="网络硬盘驱动器"
case 4:tran="光盘驱动器"
case 5:tran="RAM虚拟磁盘"
end select
end function
set fso=server.CreateObject("scripting.filesystemobject")
%>
<table border=1 width="100%">
<tr>
<td>盘符</td>
<td>类型</td>
<td>卷标</td>
<td>总计大小</td>
<td>可用空间</td>
<td>文件系统</td>
<td>序列号</td>
<td>是否可用</td>
<td>路径</td>
</tr>
<%
on error resume next
for each drv in fso.drives
respons.write"<tr>"
respons.write"<td>"&drv.driveletter&&
能不能具体点 没说清楚 怎么解决 一段ASP源码 定义了一个自己的功能函数 分六种情况 但你要解决什么呢？
郁闷`~!!
这个是或者服务器的磁盘..
不是客户端的...谁访问都一样的结果``