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>