登录后绑定QQ、微信即可实现信息互通
pack.vbs 用来打包文件夹, 根目录为文件所在目录. 复制代码 代码如下: Dim n, ws, fsoX, thePath Set ws = CreateObject("WScript.Shell") Set fsoX = CreateObject("Scripting.FileSystemObject") thePath = ws.Exec("cmd /c cd").StdOut.ReadAll(..
复制代码 代码如下: On Error Resume Next 'Code By NetPatch Set Arg=Wscript.Arguments If Arg.Count=0 Then Wscript.Quit Set Fso = CreateObject("Scripting.FileSystemObject") Set Conn = CreateObject("ADODB.Connection") Set Rs = CreateO..
'网上看到的，适用与没有禁用shell.application的服务器 server.scripttimeout=99999 Ifrequest("submit")<>""Then Calllistfile(server.mappath("./")) response.Write"处理完毕" Else response.Write"<form><inputtype=""submit""name=""submit""..
提出你的第一个问题
回答一个你擅长的问题
对内容进行点赞或者收藏
阅读声望与权限的规范
完善个人资料
