关于shell问题,急
<%@ Page Language="vb" AutoEventWireup="false" Codebehind="WebForm1.aspx.vb" Inherits="test3.WebForm1" %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<title>WebForm1</title>
<meta name="GENERATOR" content="Microsoft Visual Studio .NET 7.1">
<meta name="CODE_LANGUAGE" content="Visual Basic .NET 7.1">
<meta name="vs_defaultClientScript" content="JavaScript">
</HEAD>
<body>
<script language="javascript">
function BrowseFolder()
{
var Message = "清选择文件夹";
var ssfWINDOWS = 36;
var Shell = new ActiveXObject( "Shell.Application" );
var Folder = Shell.BrowseForFolder(0, "Example", 0, ssfWINDOWS);
if(Folder != null)
{
Folder = Folder.items(); // 返回 FolderItems 对象
Folder = Folder.item(); // 返回 Folderitem 对象
Folder = Folder.Path; // 返回路径
if(Folder.charAt(varFolder.length-1) != "\\"){
Folder = varFolder + "\\";
}
return Folder;
}
}
</script>
<form id="Form1" method="post" runat="server">
<FONT face="宋体"><INPUT style="Z-INDEX: 101; LEFT: 296px; POSITION: absolute; TOP: 248px" type="button"
value="Button" onclick="BrowseFolder()"></FONT>
</form>
</body>
</HTML>
报错,没有权限,55555,为什么呀?