www.gusucode.com > 共享世纪内容管理系统 2.1 build 080704 全站开源版 > admin/mdb_rename.asp

    <%Admin="SysMdbRC"%>
<!--#include file="check.asp"-->
<html>
<head>
<meta HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<title>管理中心 - 共享世纪新闻文章管理系统</title>
<link rel="stylesheet" href="admin.css" type="text/css">
</head>
<body>
<div align="center">
  <center>
<%
'==========================================
'
'  晓宇听幽新闻文章管理系统 2004
'
'  主页地址:http://www.xoYu.com
'
'==========================================
'程序名称:晓宇听幽新闻文章管理系统
'英文名称:xoYu News 2004 Professional
'程序创建时间:2003-7-10
'程序完成时间:2003-9-11
'最后修改时间:2003-10-10
'==========================================
if request("type")="save" then
if request("mdb")="info" then
mdb="mdb_path_info_name.asp"
elseif request("mdb")="user" then
mdb="mdb_path_user_name.asp"
elseif request("mdb")="vote" then
mdb="mdb_path_vote_name.asp"
elseif request("mdb")="ad" then
mdb="mdb_path_ad_name.asp"
elseif request("mdb")="down" then
mdb="mdb_path_down_name.asp"
end if
xoYuStudioMDBname=request("xoYuStudioMDBname")
xoYuStudioMDBnameNew=request("xoYuStudioMDBnameNew")
if xoYuStudioMDBnameNew="" then
  xoYuStudioMsg="错误:文件名不能为空."
end if
if xoYuStudioMDBname=xoYuStudioMDBnameNew then
  xoYuStudioMsg="错误:文件名相同."
end if
if xoYuStudioMsg="" then
Set fs=Server.CreateObject("Scripting.FileSystemObject")
fs.CopyFile Server.MapPath("data\"&xoYuStudioMDBname&".asp"),Server.MapPath("data\"&xoYuStudioMDBnameNew&".asp")
Set TS1 = fs.CreateTextFile(Server.MapPath(""&mdb&""), True) 
TS1.write "<"&chr(37)&"MDBname="&chr(34)&xoYuStudioMDBnameNew&chr(34)&chr(37)&">"
Set TS1 = Nothing
fs.DeleteFile Server.MapPath("data\"&xoYuStudioMDBname&".asp"),True
Set fs=nothing
response.write("<script>alert('成功:已经成功数据库文件名("&xoYuStudioMDBname&".asp)改为("&xoYuStudioMDBnameNew&".asp)!');history.go(-1)</script>")
response.end
end if%>
<table width="280" border="0" cellspacing="1" cellpadding="3"  align=center class="tableBorder">
  <tr>
    <td width="100%" class=forumrow>·<%=xoYuStudioMsg%> 时间:<%=Now()%></td>
  </tr>
</table>
<%end if%>
<table width="280" border="0" cellspacing="1" cellpadding="3"  align=center class="tableBorder">
    <tr>
      <th width="100%"><b>修改数据库文件名</b></th>
    </tr>
    <tr>
      <td width="100%" class=forumrow>      
      <font class=forumrow>·操作前最好先备份数据库!</font></td>
    </tr>
    <tr>
      <td width="100%" class=forumHeaderBackgroundAlternate>      
      <b>文章数据库</b></td>
    </tr>
    <tr>
    <!--#include file="mdb_path_info_name.asp"-->
    <form action="./mdb_rename.asp?type=save&mdb=info&xoYuStudioMDBname=<%=MDBname%>" method="post">
      <td width="100%" class=forumrow>      
      <p align="center">      
      <input name="xoYuStudioMDBnameNew" value="<%=MDBname%>" size="20" style="border-style: solid; border-width: 1">.asp
      <input name="b1" type="submit" value="确认修改"></p>
     </td>
     </form>
    </tr>
    <tr>
      <td width="100%" class=forumHeaderBackgroundAlternate>      
      <b>用户数据库</b></td>
    </tr>
    <tr>
    <!--#include file="mdb_path_user_name.asp"-->
    <form action="./mdb_rename.asp?type=save&mdb=user&xoYuStudioMDBname=<%=MDBname%>" method="post">
      <td width="100%" class=forumrow>      
      <p align="center">      
      <input name="xoYuStudioMDBnameNew" value="<%=MDBname%>" size="20" style="border-style: solid; border-width: 1">.asp
      <input name="b1" type="submit" value="确认修改"></p>
     </td>
     </form>
    </tr>
        <tr>
      <td width="100%" class=forumHeaderBackgroundAlternate>      
      <b>投票数据库</b></td>
    </tr>
    <tr>
    <!--#include file="mdb_path_vote_name.asp"-->
    <form action="./mdb_rename.asp?type=save&mdb=vote&xoYuStudioMDBname=<%=MDBname%>" method="post">
      <td width="100%" class=forumrow>      
      <p align="center">      
      <input name="xoYuStudioMDBnameNew" value="<%=MDBname%>" size="20" style="border-style: solid; border-width: 1">.asp
      <input name="b1" type="submit" value="确认修改"></p>
     </td>
     </form>
    </tr>
        <tr>
      <td width="100%" class=forumHeaderBackgroundAlternate>      
      <b>广告数据库</b></td>
    </tr>
    <tr>
    <!--#include file="mdb_path_ad_name.asp"-->
    <form action="./mdb_rename.asp?type=save&mdb=ad&xoYuStudioMDBname=<%=MDBname%>" method="post">
      <td width="100%" class=forumrow>      
      <p align="center">      
      <input name="xoYuStudioMDBnameNew" value="<%=MDBname%>" size="20" style="border-style: solid; border-width: 1">.asp
      <input name="b1" type="submit" value="确认修改"></p>
     </td>
     </form>
    </tr>
	<tr>
      <td width="100%" class=forumHeaderBackgroundAlternate>      
      <b>下载数据库</b></td>
    </tr>
    <tr>
    <!--#include file="mdb_path_down_name.asp"-->
    <form action="./mdb_rename.asp?type=save&mdb=down&xoYuStudioMDBname=<%=MDBname%>" method="post">
      <td width="100%" class=forumrow>      
      <p align="center">      
      <input name="xoYuStudioMDBnameNew" value="<%=MDBname%>" size="20" style="border-style: solid; border-width: 1">.asp
      <input name="b1" type="submit" value="确认修改"></p>
     </td>
     </form>
    </tr>
    </table>
  </center>
</div>
</body>
</html>