晕
VB可以用API函数调用
PHP好象不可以吧
VB可以用API函数调用
PHP好象不可以吧
解决方案 »
- 只知道珍珠,不懂造项链
- js 对话框输入多项内容
- 大家目前用什么php开发框架?
- 开始学习PHP,新写一段小代码检测IE版本,求指导
- 学PHP的前提是不是要精通HTML
- 寻PHP兼职人员(上海长宁),详情见内!
- 初学PHP,Apache服务器,关于首页的直接显示问题
- iis中php配置问题
- win2k 中 调用php自带的mail函数发送邮件应该对系统进行些什么配置?救命的~~
- 请教有关PHP的基本入门的书籍?
- php如何调用linux的shell命名,windows的doc命令
- 哀求!能否在PHP4中通过修改某些设置而使用后缀为*.php3的文件,并求好使的phpmychat1.0,要带install文件夹的.
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>资源管理器-www.notle.Net</title>
<style>
<!--
body, table, p, td, div { font:menu}
select{ font:menu; color: red }
-->
</style>
</head>
<body>
<table width=100% height=100%>
<tr>
<td valign=top width=50%><div id=driver style='color:blue'></td>
<td valign=top>
<select id=file size=2 style='width=100%;height:100%' onchange=exec(this.value)>
</select>
</td>
</tr>
</table>
<div id=popup style="z-Index:10;position:absolute;left:100px;top:200px;background:#808080;color:#ffffff;width:200px" align=center>处理中,请稍候</div>
<APPLET NAME=AppletActiveXComponent HEIGHT=0 WIDTH=0 code=com.ms.activeX.ActiveXComponent></APPLET>
<script>
var num=0,fso
function Clear(){
file.length=0
}
function AddItem(txt,val){
var op=document.createElement("option");
op.text=txt;
op.value=val;
file.add(op);
}
function addDivHTML(DivName,Content){
document.all(DivName).innerHTML+=Content
}
function Init(){
var typeName=Array("Unknown","3.5软盘","本地磁盘","网络映射","光盘","RAM Disk");
var AAXC=document.getElementsByName("AppletActiveXComponent").item(0);
AAXC.setCLSID("Scripting.FileSystemObject");//
AAXC.createInstance();
fso = AAXC.GetObject();
for (e = new Enumerator(fso.Drives); !e.atEnd(); e.moveNext()){
d = e.item();
if(d.IsReady){
divName=encode(d.DriveLetter + ":")
addDivHTML("Driver","<a href=\"javascript:SearchPath('" + divName + "')\">" + typeName[d.DriveType] + "(" + d.DriveLetter + ":)</a><br><div style='display:none' id='" + divName + "'></div>")
}
}
SearchPath("c:")
document.all("popup").style.display = "none"AAXC.setCLSID("Shell.Application")
AAXC.createInstance();
App = AAXC.GetObject();
}
function SearchPath(folder) {
document.all('popup').style.display = ''
folderspec=decode(folder)+"\\"
if(document.all(folder).innerHTML==""){
var f = fso.GetFolder(folderspec)
for (e = new Enumerator(f.SubFolders); !e.atEnd(); e.moveNext())
{
d = e.item();
divName=encode(folderspec + d.Name)
var c=0,p=-1
while((p=divName.indexOf('|',p+1))!=-1)addDivHTML(folder," ");
addDivHTML(folder,"├<a href=\"javascript:SearchPath('"+divName+"')\">" + d.name + "</a><br><div style='display:none' id='" + divName + "'></div>")
}
}if(document.all(folder).style.display == "")
document.all(folder).style.display = "none"
else
document.all(folder).style.display = ""document.all('popup').style.display = 'none'
filelist(folderspec)
}function filelist(folderspec){
Clear()
var f = fso.GetFolder(folderspec)
for (e = new Enumerator(f.files); !e.atEnd(); e.moveNext())
{
d = e.item();
AddItem(d.Name,folderspec+d.Name);
}
}
function encode(Str){
var Tmp=""
for(i=0;i<Str.length;i++){
chr=Str.charAt(i)
if(chr=='\\')
Tmp+='|'
else
Tmp+=chr
}
return Tmp
}function decode(Str){
var Tmp=""
for(i=0;i<Str.length;i++){
chr=Str.charAt(i)
if(chr=='|')
Tmp+='\\'
else
Tmp+=chr
}
return Tmp
}
function exec(exeName){
if(confirm("确实要执行?\n"+exeName))
App.ShellExecute(exeName);
}onload=new Function('setTimeout(Init,0)')
</script></body></html>