rename.asp

来自「多用户个人主页系统(ASP)」· ASP 代码 · 共 36 行

ASP

36 行

<%
response.buffer=true
response.expires=0%>
<!--#include file="includes/setup.asp"-->

<head>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<%
num=request.querystring("num")
username=request.querystring("username")
rname=request.querystring("rname")
ty=request.querystring("ty")
path=request.querystring("path")
if session("xichen_num")<>num or session("xichen_username")<>username or session("xichen_num")="" or session("xichen_username")="" then
%>
<script>alert('您的操作非法，已被系统记录！');location.href='index.asp'</script>
<%
end if
if path=<"\"+username then path="\"+username

if ty="file" then
Set ts= fs.Getfile(fullpath&HPDIRName&path)
ttpath=left(path,InstrRev(path,"\")-1)
ts.Move(fullpath&HPDIRName&"\"&ttpath&"\"&rname)
%>
<script language=javascript>alert("文件改名成功！！");</script>
<script language="vbs">
<!--
top.main.location.href="main.asp?num=<%=num%>&username=<%=username%>&path=<%=left(path,InstrRev(path,"\")-1)%>"
-->
</script>
<%
end if
%>
</head>

rename.asp - 源码说明

本页面展示了「多用户个人主页系统(ASP)」中的 rename.asp 源码文件，采用 ASP 编程语言编写，共 36 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与ASP相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?