kk Blog —— 通用基础


date [-d @int|str] [+%s|"+%F %T"]
netstat -ltunp
sar -n DEV 1

ASP 备份sqlserver

https://www.cnblogs.com/yechuan/articles/84208.html

只有备份

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
<HTML>
<HEAD>
	<TITLE>SQL Server 数据库的备份</TITLE>
	<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</HEAD>
<BODY>
<form method="post" name=myform>
选择操作:<INPUT TYPE="radio" NAME="act" id="act_backup" value="backup"><label for=act_backup>备份</label> 
<input type="submit" value="确定">
</form>

<%

dim sqlserver,sqlname,sqlpassword,sqlLoginTimeout,databasename,bak_file,act

sqlserver = "127.0.0.1"       'sql服务器
sqlname = "dbname"        '用户名
sqlpassword = "passwd"        '密码
sqlLoginTimeout = 15      '登陆超时
databasename = "dbname"
bak_file = Server.MapPath(".") & "\np.sql"

act = lcase(request("act"))
if databasename = "" then
	response.write "input database name"
else
	if act = "backup" then
		Set srv=Server.CreateObject("SQLDMO.SQLServer")
		srv.LoginTimeout = sqlLoginTimeout
		srv.Connect sqlserver,sqlname, sqlpassword
		Set bak = Server.CreateObject("SQLDMO.Backup")
		bak.Database=databasename
		bak.Devices=Files
		bak.Files=bak_file
		bak.SQLBackup srv
		if err.number>0 then
			response.write err.number&"<font color=red><br>"
			response.write err.description&"</font>"
		end if
		Response.write "<font color=green>备份成功!</font>"
	else
		Response.write "<font color=red>没有选择操作</font>"
	end if
end if
%>
</BODY>
</HTML>

all

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
<HTML>
<HEAD>
	<TITLE>SQL Server 数据库的备份与恢复</TITLE>
	<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</HEAD>
<BODY>

<form method="post" name=myform>
选择操作:<INPUT TYPE="radio" NAME="act" id="act_backup" value="backup"><label for=act_backup>备份</label> 
<INPUT TYPE="radio" NAME="act" id="act_restore" value="restore"><label for=act_restore>恢复</label>
<br>数据库名:<INPUT TYPE="text" NAME="databasename" value="<%=request("databasename")%>">
<br>文件路径:<INPUT TYPE="text" NAME="bak_file" value="c:\$1.bak">(备份或恢复的文件路径)<br>
<input type="submit" value="确定">
</form>

<%

dim sqlserver,sqlname,sqlpassword,sqlLoginTimeout,databasename,bak_file,act

sqlserver = "localhost"     'sql服务器
sqlname = "sa"          '用户名
sqlpassword = "sa"      '密码
sqlLoginTimeout = 15        '登陆超时
databasename = trim(request("databasename"))
bak_file = trim(request("bak_file"))
bak_file = replace(bak_file,"$1",databasename)
act = lcase(request("act"))

if databasename = "" then
	response.write "input database name"
else
	if act = "backup" then
		Set srv=Server.CreateObject("SQLDMO.SQLServer")
		srv.LoginTimeout = sqlLoginTimeout
		srv.Connect sqlserver,sqlname, sqlpassword
		Set bak = Server.CreateObject("SQLDMO.Backup")
		bak.Database=databasename
		bak.Devices=Files
		bak.Files=bak_file
		bak.SQLBackup srv
		if err.number>0 then
			response.write err.number&"<font color=red><br>"
			response.write err.description&"</font>"
		end if
		Response.write "<font color=green>备份成功!</font>"
	elseif act = "restore" then
		'恢复时要在没有使用数据库时进行!
		Set srv=Server.CreateObject("SQLDMO.SQLServer")
		srv.LoginTimeout = sqlLoginTimeout
		srv.Connect sqlserver,sqlname, sqlpassword
		Set rest=Server.CreateObject("SQLDMO.Restore")
		rest.Action=0 ' full db restore
		rest.Database=databasename
		rest.Devices=Files
		rest.Files=bak_file
		rest.ReplaceDatabase=True 'Force restore over existing database
		if err.number>0 then
			response.write err.number&"<font color=red><br>"
			response.write err.description&"</font>"
		end if
		rest.SQLRestore srv

		Response.write "<font color=green>恢复成功!</font>"
	else
		Response.write "<font color=red>没有选择操作</font>"
     end if
end if

%>
</BODY>
</HTML>

tools, sqlserver

« ASPMyAdmin web管理sqlserver phpMyAdmin web管理mysql »