📄 rename.asp

📁 多用户个人主页系统(ASP)

💻 ASP

字号:

<%
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>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -