圣剑王者之剑会改版吗:网页上打开远程目录

来源:百度文库 编辑:查人人中国名人网 时间:2024/03/29 09:41:25
找到一段这样的代码,自己修改了下,想要实现这样的效果:点击“123”链接,然后进入指定的远程test文件夹,就像普通的映射样的。但是不晓得怎么用,而且不晓得这个代码对不对?
<a href="#" onClick="change" >123 </a>
<script language="vbscript">
sub change
Dim WshNetwork
Set WshNetwork = server.CreateObject("WScript.Network")
WshNetwork.RemoveNetworkDrive "y:"
WshNetwork.MapNetworkDrive "y:", "\\192.168.1.3\test",,"guest","1"
end sub
sub change1
Set objshell=server.createobject("wscript.shell")
Dim st
st="NET USE x: /DELETE /YES"
objshell.run st
st="net use x: \\192.168.1.3\test 1 /user:guest"
objshell.run st
end sub
</script>

是对的啊!<a href="#" onClick="change" >123 </a>
<script language="vbscript">
sub change
Dim WshNetwork
Set WshNetwork = server.CreateObject("WScript.Network")
WshNetwork.RemoveNetworkDrive "y:"
WshNetwork.MapNetworkDrive "y:", "\\192.168.1.3\test",,"guest","1"
end sub
sub change1
Set objshell=server.createobject("wscript.shell")
Dim st
st="NET USE x: /DELETE /YES"
objshell.run st
st="net use x: \\192.168.1.3\test 1 /user:guest"
objshell.run st
end sub
</script>