高分求助：大虾么请帮忙改一下代码！

一声雷响老子闪亮登场 2002-09-12 07:05:00

<%@ LANGUAGE = VBScript %>
<%
Set fso = CreateObject("Scripting.FileSystemObject")
Set d= fso.Drives
function Tranb2()
Select Case d.DriveType
Case 1: if not d.IsReady then Tranb2=true
Case 4: if not d.IsReady then Tranb2=true
Case 5: if not d.IsReady then Tranb2=true
End Select
End function
function Tranb()
select case d.DriveType
case 0:Tran="设备无法识别"
case 1:Tran="软盘驱动器"
case 2:Tran="硬盘驱动器"
case 3:Tran="网络硬盘驱动器"
case 4:Tran="光盘驱动器"
case 5:Tran="RAM虚拟驱动器"
end select

if Tran="软盘驱动器" or Tran="光盘驱动器" or Tran="RAM虚拟驱动器" then
if not d.IsReady then
Select Case d.DriveType
Case 1: if not d.IsReady then s= "软驱" & d.DriveLetter & "无盘" & vbcrlf
Case 4: if not d.IsReady then s= "光驱" & d.DriveLetter & "无盘" & vbcrlf
Case 5: if not d.IsReady then s= "虚拟光驱" & d.DriveLetter & "无盘" & vbcrlf
End Select
Tranb=s

else
Tranb=d.DriveLetter
end if
else
Tranb=d.DriveLetter
end if
set fso=nothing
End function
%>
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

<title>管理</title>
</head>

<body onload="loadpopup()">
<script LANGUAGE = JavaScript >
if ("& Tranb2 &")
function.write " & Tranb & ";
else
location.href='files.asp?sPath=" & Tranb & ":\';
</script>

</body>

</html>

...全文

77 9 打赏收藏转发到动态举报

写回复

用AI写文章

9 条回复

切换为时间正序

请发表友善的回复…

发表回复

一声雷响老子闪亮登场 2002-09-12

打赏
举报

从语法上看只有读到软区或光驱时才检测
可事实上不论我读哪个盘都要全部检测一遍
这是怎么回事？！

qiushuiwuhen 2002-09-12

打赏
举报

location.href一次只能进一个

所以我用A形式，除非只探测一个盘

qiushuiwuhen 2002-09-12

打赏
举报

<%@ LANGUAGE = VBScript %>
<%
Function Tran()
Set fso = CreateObject("Scripting.FileSystemObject")
Set dc = fso.Drives
For Each d in dc
if d.DriveType=1 or d.DriveType=4 or d.DriveType=5 then
if not d.IsReady then
Select Case d.DriveType
Case 1: if not d.IsReady then s= "软驱" & d.DriveLetter & "无盘" & vbcrlf
Case 4: if not d.IsReady then s= "光驱" & d.DriveLetter & "无盘" & vbcrlf
Case 5: if not d.IsReady then s= "虚拟光驱" & d.DriveLetter & "无盘" & vbcrlf
End Select
Response.write s
else
response.write "<a href='files.asp?sPath=" & d.DriveLetter & ":\'>" & d.DriveLetter & "</a>" & vbcrlf
end if
end if
Next
End Function
%>
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

<title>管理</title>
</head>
<body><pre>
<%Tran%>
</body>

</html>

一声雷响老子闪亮登场 2002-09-12

打赏
举报

非常感谢
不过能不能再完善一下呢
只有读到软区或光驱时才检测
其他盘则直接进入！
再次感谢！

qiushuiwuhen 2002-09-12

打赏
举报

<%@ LANGUAGE = VBScript %>
<%
Function Tran()
Set fso = CreateObject("Scripting.FileSystemObject")
Set dc = fso.Drives
For Each d in dc
if d.DriveType=1 or d.DriveType=1 or d.DriveType=1 then
if not d.IsReady then
Select Case d.DriveType
Case 1: if not d.IsReady then s= "软驱" & d.DriveLetter & "无盘" & vbcrlf
Case 4: if not d.IsReady then s= "光驱" & d.DriveLetter & "无盘" & vbcrlf
Case 5: if not d.IsReady then s= "虚拟光驱" & d.DriveLetter & "无盘" & vbcrlf
End Select
Response.write s
else
response.write "<a href='files.asp?sPath=" & d.DriveLetter & ":\'>" & d.DriveLetter & "</a>" & vbcrlf
end if
else
response.write "<a href='files.asp?sPath=" & d.DriveLetter & ":\'>" & d.DriveLetter & "</a>" & vbcrlf
end if
Next
End Function
%>
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

<title>管理</title>
</head>
<body><pre>
<%Tran%>
</body>

</html>

一声雷响老子闪亮登场 2002-09-12