ASP FSO Data Backup program

<% @LANGUAGE = "VBSCRIPT" codepage= "936"%>
<! DOCTYPE HTML PUBLIC "-//W3C//DTD XHTML 1.0 transitional//en" "Http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd ">
<!--#include file= "conn/conn.asp"-->
<%call Check ()%>
<meta http-equiv= "Content-type" content= "text/html; charset=gb2312 "/>
<title> nine-day Web Admin system:: Database Backup::</title>
<style type= "Text/css" >
<!--
Body {
Background-color: #F4FFD2;
margin-left:5px;
margin-top:15px;
margin-right:5px;
margin-bottom:10px;
}
html{
font-size:12px;
Scrollbar-face-color: #99cc66;
Scrollbar-arrow-color: #000000;
Scrollbar-track-color: #F4FFD2;
Scrollbar-3dlight-color: #FFFFFF;
Scrollbar-highlight-color: #fcfcfc;
Scrollbar-shadow-color: #99cc00;
Scrollbar-darkshadow-color: #99cc66;
}
Input{background-color: #FFFFFF;
Border-color: #333333;
border:1px;
Font-style:normal;
}


. title {
font-size:18px; COLOR: #010000; Font-family: "Bold"
}
a:hover {
COLOR: #f18b01; Font-family:verdana, Arial, Helvetica, Sans-serif; Text-decoration:none
}
TD {
font-size:9pt; COLOR: #666666; Word-break:break-all; line-height:170%; Text-decoration:none
}
White
COLOR: #ffffff
}
. Company {
font-size:12px; COLOR: #2b2b2b; line-height:22px; Font-family:verdana, Arial, Helvetica, Sans-serif
}
. dot {
font-size:12px; COLOR: #aeaeae; Font-family:verdana, Arial, Helvetica, Sans-serif
}
. News {
font-size:12px; COLOR: #515151; Font-family:verdana, Arial, Helvetica, Sans-serif; Text-decoration:none
}
. Word {
font-size:12px; COLOR: #6f6f6f; line-height:18px; Font-family:verdana, Arial, Helvetica, Sans-serif; Text-decoration:none
}
. caption_dark {
Font-weight:bold; font-size:12px; COLOR: #000000; Font-family:verdana, Arial, Helvetica, Sans-serif; Text-decoration:none
}
. caption_simple {
Font-weight:bold; font-size:12px; COLOR: #ffffff; Font-family:verdana, Arial, Helvetica, Sans-serif; Text-decoration:none
}
. button {
font-size:12px; COLOR: #666666; Text-decoration:none
}
. Date {
font-size:10px; COLOR: #acacac; Font-family:verdana, Arial, Helvetica, Sans-serif
}
. Doman {
Font-weight:normal; font-size:12px; COLOR: #0a52af; Font-family:arial, Helvetica, Sans-serif; Text-decoration:none
}
. form {
Border-right: #e0e0e0 1px solid; Border-top: #e0e0e0 1px solid; font-size:12px; Border-left: #e0e0e0 1px solid; COLOR: #333333; Border-bottom: #e0e0e0 1px solid; Font-family:verdana, Arial, Helvetica, Sans-serif; Background-color: #f7f7f7
}
. Web_button {
Font-weight:bold; font-size:12px; COLOR: #616e43; Text-decoration:none
}
. bbs_user {
Font-weight:bold; font-size:12px; COLOR: #ff6600; Font-family:verdana, Arial, Helvetica, Sans-serif; Text-decoration:none
}
. bbs_user_simple {
font-size:12px; COLOR: #575757; Font-family:verdana, Arial, Helvetica, Sans-serif; Text-decoration:none
}
. menu {
font-size:12px; COLOR: #e4e4e4; Text-decoration:none
}
. copright {
font-size:12px; COLOR: #333333; Font-family:verdana, Arial, Helvetica, Sans-serif
}
. Bt_word {
font-size:12px; COLOR: #333333; line-height:18px; Font-family:verdana, Arial, Helvetica, Sans-serif; Text-decoration:none
}
. list {
font-size:12px; COLOR: #424242; Font-family: "??"; Text-decoration:none
}
. list_class {
font-size:12px; COLOR: #808080; Font-family: "???"; Text-decoration:none
}
. page {
font-size:12px; COLOR: #000000; Text-decoration:none
}
. bbs_bt {
Font-weight:bold; font-size:12px; COLOR: #000000; Text-decoration:none
}
. bbs_bt_simple {
Font-weight:normal; font-size:12px; COLOR: #545454; Text-decoration:none
}
. Bbs_list_word {
font-size:12px; COLOR: #171717; Font-family:verdana, Arial, Helvetica, Sans-serif
}
. case {
font-size:12px; COLOR: #5a5e61; line-height:18px; Font-family:verdana, Arial, Helvetica, Sans-serif; Text-decoration:none
}
. date_simple {
font-size:10px; COLOR: #666666; Font-family:verdana, Arial, Helvetica, Sans-serif
}
. product_bt {
Font-weight:bold; font-size:12px; COLOR: #333333; line-height:16px; Font-family:verdana, Arial, Helvetica, Sans-serif; Text-decoration:none
}
. prodcut {
font-size:12px; COLOR: #505050; line-height:16px; Font-family:verdana, Arial, Helvetica, Sans-serif; Text-decoration:none
}
. Form2 {
Border-right: #989898 1px solid; Border-top: #989898 1px solid; font-size:12px; Border-left: #989898 1px solid; COLOR: #333333; Border-bottom: #989898 1px solid; Font-family:verdana, Arial, Helvetica, Sans-serif; Background-color: #f6f6f6
}
. button3 {
font-size:12px; COLOR: #7b7b7b; Font-family:verdana, Arial, Helvetica, Sans-serif; Text-decoration:none
}
. bt1 {
Font-weight:bold; font-size:12px; COLOR: #717171
}
. bt_line {
font-size:14px; COLOR: #547db2; Font-family:verdana, Arial, Helvetica, Sans-serif
}
. bt2 {
Font-weight:bold; font-size:12px; COLOR: #ff9501; Font-family:verdana, Arial, Helvetica, Sans-serif
}
A.nav:link {
font-size:12px; COLOR: #ffffff; Text-decoration:none
}
a.nav:visited {
font-size:12px; COLOR: #ffffff; Text-decoration:none
}
A.nav:hover {
font-size:12px; COLOR: #ffff00; Text-decoration:none
}
<font face= "Verdana, Arial, Helvetica, Sans-serif" >
. Sb{color: #000000; Font-size:13px;text-decoration:none}
A.sb:visited{color: #6699FF; font-size:13}
A.sb:link{color: #3399CC; font-size:13px}
. tomg {color: #666666; font-size:12px; Text-decoration:none}
A.tomg:link {color: #666666; Text-decoration:none}
a.tomg:visited {color: #666666; Text-decoration:none}
a.tomg:hover {color: #FF3300; Font-size:14px;text-decoration:none}
font-size:12px {color: #333333; Text-decoration:none}
a.00:hover {color: #FF6666; Text-decoration:underline}
A.00:link {color: #666666; Text-decoration:none}
a.00:visited {color: #000000; Text-decoration:none}
A.bb:link {color: #666666; Text-decoration:none;cursor:hand;font-weight:bold}
a.bb:visited {color: #666666; Text-decoration:none;cursor:hand;font-weight:bold}
a.bb:hover {color: #CC0000; Text-decoration:underline;cursor:hand;font-weight:bold}
. Cc{color: #FFFFFF; Font-size:12px;text-decoration:none}
. tomg1 {color: #000000; font-size:12px;letter-spacing:1.5; Word-spacing:1;line-height:2;text-decoration:none}
A.tomg1:link {color: #000000; Text-decoration:none}
a.tomg1:visited {color: #000000; Text-decoration:none}
a.tomg1:hover {color: #99CC33; Text-decoration:none}
. style1 {color: #000000}
. style2 {
Color: #FF0000;
Font-weight:bold;
}

-->
</style>

<body>
<table width= "98%" border= "0" align= "center" cellpadding= "0" cellspacing= "1" bgcolor= "#99CC00" >
<form name= "Form1" Id= "Form1" method= "Post" action= "Copy.asp?action=1" ><tr>
&LT;TD height= "bgcolor=" "#FFFFFF" ><table width= "100%" height= "100%" border= "0" cellpadding= "0" cellspacing= " 1 ">
<tr>
&LT;TD height= "colspan=" "2" align= "center" background= "afterimage/line2.jpg" class= "PRODUCT_BT":: Database initialization:: </td>
</tr>
<tr>
&LT;TD height= "colspan=" 2 "background=" Afterimage/titleline.gif ">&nbsp;</td>
</tr>
<tr>
&LT;TD width= "18%" height= "align=" "Center" bgcolor= "#F9F9F9" ><span class= "Style1" > Backup Data path:
</span></td>
&LT;TD width= "82%" bgcolor= "#F9F9F9" ><input name= "Start" type= "text" id= "Start" value= "Bak/<%=replace" ( Replace (CStr (now ()), "", "#"), ":", "-"%>.mdb "size="/> </td>
</tr>
<tr>
&LT;TD height= align= "center" bgcolor= "#EEEEEE" ><span class= "style1" >&nbsp; default database path:</span> </td>
&LT;TD height= "bgcolor=" #EEEEEE "><input name=" index "type=" text "id=" index "value=" datasource/#%#@!& Amp;210&amp;^%$#@$@$.mdb "Size="/>
&nbsp;
<input type= "Submit" name= "Submit" value= "Backup Database"/></td>
</tr>
<tr>
&LT;TD height= "colspan=" 2 "bgcolor=" #F3F3F3 ">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <span class= "style2" >&nbsp; database backup with the date of the day as the file name, if the file already exists the system automatically replaces the new file with the original file, if no system will automatically create the file. The user can also define the file name himself. </ Span></td>
</tr>
<tr>
&LT;TD height= "colspan=" 2 "bgcolor=" #F3F3F3 ">&nbsp; </td>
</tr>
</table></td>
</tr></form>
<%
Dim action,start,index1
Start=request. Form ("Start")
Index1=request. Form ("index")
Action=request. QueryString ("Action")

If Action=1 Then
Call Admin ()
Call Startdata (START,INDEX1)
End If
Sub Startdata (start_d,index_d)
Call F_s_o ()
On Error Resume Next
Set Copy_file=fi.getfile (server. MapPath (INDEX1))
Copy_file.copy server. MapPath (Start)
If Err=0 Then
Response. Write ("<script language= ' JavaScript" >alert (' database backup succeeded! '); History.back ();</script> ")
Else
Response. Write ("<script language= ' JavaScript ' >alert (' database backup failed! '); History.back ();</script> ")
End If
End Sub
%>
</table><br/>
<br/>

</body>