求ASP删除代码和重命名文件代码
<html><head><metahttp-equiv="Content-Type"content="text/html;charset=gb2312"><title>新...
<html> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <title>新建网页 1</title> </head> <body> <p> <% dim myfileobject Set myfileobject=server.CreateObject("scripting.filesystemobject") dim myfile dim path path=Server.MapPath("upload") set myfolder=myfileobject.GetFolder(path) dim item %> </p> </div> <table width="501" border="1" align="center" bordercolor="9999cc"> <tr> <td width="53" align="center">序号</td> <td width="203" align="center">文件名</td> <td width="36" align="center">操作2</td> </tr> <% dim i i=0 for each item in myfolder.files i=i+1 %> <tr> <td align="center"><%= i %></td> <td align="center"><%= item.name %></td> <td align="center"><span class="STYLE1"><a href="delete2.asp?name1=<%= item.name %>" onclick="javascript:return confirm('确定要删除？');">删除</a></span></td> </tr> <% next %> </table> <div align="center"></div> </body> </html> 帮我下出删除的那页代码 最好的上面页面能实现重命名功能。 谢了。本人很菜的，请给完整代码.
展开
1个回答
展开全部
'建立文件 filename = year(date()) & month(date()) & day(date()) & hour(time()) & minute(time()) & second(time()) & ".txt" Set fso = Server.createobject("scripting.filesystemobject") thepath = Server.mappath(filename) Set thefile = fso.createTextfile(thepath) thefile.writeline "新建立文件" thefile.close Set fso = Nothing '删除文件 Sub DelFile(filename) Dim fo,filenamestr Set fo = Server.Createobject("Scripting.FileSystemObject") filenamestr = Server.MapPath(filename) If fo.FileExists(filenamestr) Then fo.DeleteFile filenamestr Set fo = Nothing End Sub 重命名 <% Dim fso Set fso = CreateObject("Scripting.FileSystemObject") fso.MoveFile server.mappath("tupian.jpg"),server.mappath("图片.jpg") Set fso=Nothing %>
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
