
<%
tp=request("tp")
sfi=request("sfi")
nfi=request("nfi")
if tp=1 then
Set fs = Server.CreateObject("Scripting.FileSystemObject")
SFile = Server.MapPath(""&sfi&"")
NFile = Server.MapPath(""&nfi&"")
on Error Resume Next
fs.MoveFile SFile, NFile
If Err.Number = 53 Then
 Response.Write File & "文件不存在！"
Elseif Err.Number = 58 Then
 Response.Write File & "文件已存在！"
Elseif Err.Number <> 0 Then
 Response.Write "未知错误，错误编码：" & Err.Number
Else
 Response.Write "成功重命名文件！"
 End If
end if
%>
<!--#include file="conn.asp"-->
<!--#include file="admin.asp"-->
<%call head
call saycardd("改数据库名")
%><%
call xlanlj("sjgm.asp?sid="&sid&"&amp;saytk="&saytk&"")

response.Write"<br/>当前数据库地址:<input name=""sfi"" value="""&saytkcomshuju&"""/>*"
response.Write"<br/>新数据库地址:<input name=""nfi"" value="""&saytkcomshuju&".mdb""/>*<br/>"
if saytk>1 then
call xltjlj("tp","1")
call xlanlj1("确定")
end if

call head1%>

