adminrenamer.asp

asp手机wap网站源码 （英语wap1.0版）

<%Response.ContentType = "text/vnd.wap.wml; charset=iso-8859-1"%><?xml version="1.0"?><!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml"><wml>
<card id="Admin" title="Admin">
<p align="left">
<%if request("p")="" Then%>
Hi please write<br/>Current name:<br/>
<input name="eski" value=".asp" title="Current name:"/><br/>And<br/>
New name:<br/>
<input name="yeni" value=".asp" title="New name:"/><br/>
Of your admin page and<br/>
<anchor>[rename it]<go href="<%= Request.ServerVariables("SCRIPT_NAME") %>?p=do" method="post">
   	 <postfield name="eski" value="$eski"/>
     <postfield name="yeni" value="$yeni"/>
     </go></anchor><br/>
<%else
Set yenidenadver = server.CreateObject("Scripting.FileSystemObject")

if yenidenadver.FileExists(Server.MapPath(request("eski"))) then
yenidenadver.MoveFile Server.MapPath(request("eski")),Server.MapPath(request("yeni"))
response.write "File renamed to " &request("yeni")
else
response.write "Check file name. File " &request("eski")&" not found"
end if
set yenidenadver = Nothing
end if%>
 </p>
</card></wml>