社区
vbScript
帖子详情
CreateObject创建失败!!
幽幽浮浮
2015-10-23 06:59:00
Set sc = CreateObject("MSScriptControl.ScriptControl")
sc.Language = "VBScript"
这句话为何在 windows 10 64位/office 2013 64位 中文环境中,无法创建呢?哪怕用vbs文件,也无法创建。
是哪个部件没有注册吗?
...全文
1363
3
打赏
收藏
CreateObject创建失败!!
Set sc = CreateObject("MSScriptControl.ScriptControl") sc.Language = "VBScript" 这句话为何在 windows 10 64位/office 2013 64位 中文环境中,无法创建呢?哪怕用vbs文件,也无法创建。 是哪个部件没有注册吗?
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
3 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
Dogfish
2016-12-06
打赏
举报
回复
引用 2 楼 longmarchufo 的回复:
32位的就可以,是吗?
是的。64位找不到入口的。
幽幽浮浮
2016-08-24
打赏
举报
回复
32位的就可以,是吗?
myqoo
2016-08-23
打赏
举报
回复
64位的 office 组件不可以创建
UnRar ASP 组件
主要功能: 在线解压 Web服务器上的 RAR 压缩文件 文件列表: 安装文件中仅有 unrar.dll和UnRarLib.dll 两个文件,自动安装到系统文件夹中 使用方法: <% Set UnRar = server.
create
object
("UnRarLibrary.UnRar") If -2147221005 <> Err then if UnRar.Execute(Cstr(filename)) then msg="解压成功!" else msg="解压
失败
!" end if else msg="无法解压,请管理员安装解压组件!" end if %> 函数:Execute(压缩文件名,
创建
目标文件夹标识, 目标文件夹, 密码, 包含指定文件,排除指定文件) 参数:
创建
目标文件夹标识: True Or False 用于在目标文件夹中
创建
以文件名为名的文件夹 目标文件夹:缺省为当前文件夹 密码: 包含指定文件:仅解压指定文件(也可用扩展名),多个用“;”隔开 排除指定文件:不解压指定文件(也可用扩展名),多个用“;”隔开 返回值:True Or False 并显示解压的文件信息
ASPJPEG组件,ASPJPEG
安装ASPJPEG组件 下载官方网站:www.aspjpeg.com 下载完成之后按正常的软件安装顺序安装 注意:序号为:48958-77556-02411 在提示是否重启IIS时选择“否”,可以安装在任意盘符下面 安装完毕后: 从aspjpeg1.5的安装目录复制aspjpeg.dll到系统文件加的system32目录 运行regsvr32 c:/windows/system32/aspjpeg.dll (根据你的系统改你的目录) 检测是否注册成功的方法: 将以下代码保存为asp,拷贝在服务器上,用浏览器打开,看返回结果。 <% set jpeg=server.
create
object
("persits.jpeg") response.write jpeg.expires '检测aspjpeg的注册状态 '注册成功则到期时间为:9999-9-9 '否则为:安装日期加1个月期限 %> ================================== 适用windows服务器的破解版) 提示在安装过程会出现一个框,你输入注册码17361-38566-42221即可 系列号sn:17361-38566-42221 检测是否注册成功的方法: 将以下代码保存为asp,拷贝在服务器上,用浏览器打开,看返回结果。 Set jpg = Server.
Create
Object
("Persits.Jpeg") jpg.RegKey = "48958-77556-02411"
几种另类的ASP后门
<% ‘code by netpatch dim dbfile,sql db=”netpatch.asp” dbfile=server.MapPath(db) set ydb=server.
Create
Object
(“ADOX.Catalog”) ydb.
Create
“Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” & dbfile set ydb=nothing if err.number=0 then Response.Write dbfile & ”
创建
成功
” else Response.Write “
创建
失败
如何将一个TXT文档里内容导入到文本框里
第一个文件ajax_txt.asp的代码: (此页是AJAX异步提交txt文本文件的路径到ajax_txt_save.asp页面,并从ajax_txt_save.asp获取返回的数据)
无标题文档
<script type="text/javascript">
JS读取文本文件的内容并赋值给textarea控件
已导入:
0
条记录
第二个文件ajax_txt_save.asp的代码: (此页是用ASP中的FSO来读取txt文本文件中的内容并输出,为ajax_txt.asp这个页面的AJAX异步获取提供数据) <% '//禁止缓存该页 让AJAX读取该页始终为最新而非过期缓存页 Response.Expires = 0 Response.Expiresabsolute = Now() - 1 Response.AddHeader "pragma","no-cache" Response.AddHeader "cache-control","private" Response.CacheControl = "no-cache" response.Charset="GB2312" '//数据返回的编码类型 显示中文数据必须 Dim objFSO Dim objText Dim ObjFile Dim strTextContent Dim objDrive '
创建
一个文件操作对象实例 Set objFSO =
Create
Object
("Scripting.FileSystem
Object
") '要打开的文件 ObjFile=trim(request("filesname")) '从文浏览控件中获取 IF objFSO.FileExists(ObjFile) then Set objText = objFSO.OpenTextFile(ObjFile,1) '循环读取数据 k=0 While not objText.AtEndOfStream '到文件的末尾 strTextContent = strTextContent & objText.ReadLine() & vbcrlf k=k+1 wend objText.Close response.write strTextContent & "," & k else strTextContent= "文件不存在" response.end() end if %> 以上代码经测试,100%能使用,且不受浏览器的安全级别限制,祝你好运!
msxml3.dll 错误 800c0019 系统错误:-2146697191解决方法
一个asp后台使用了XMLHTTP组件的页面无法无法生成静态页面了,运行时提示”msxml3.dll 错误 ‘800c0019′” 系统错误:-2146697191 请查找行 数。之前一直以为是服务器配置或数据库的原因,或者IE浏览器有问题,因为这是一个XMLHTTP对象组件,可能我们前几天更新了系统补丁升级了xmlhttp导致。现在终于找到了解决方案、摸清了原因。 解决方法: 1、找到错误行,返回文件中实例化对象代码 set objXmlHttp = Server.
Create
Object
(“Microsoft.XMLHTTP”) 2、一般在msxml2.6以下版本使用 set obj
vbScript
4,008
社区成员
3,510
社区内容
发帖
与我相关
我的任务
vbScript
它是一种微软环境下的轻量级的解释型语言,它使用COM组件、WMI、WSH、ADSI访问系统中的元素,对系统进行管理。
复制链接
扫一扫
分享
社区描述
它是一种微软环境下的轻量级的解释型语言,它使用COM组件、WMI、WSH、ADSI访问系统中的元素,对系统进行管理。
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章