UrlReWriter 使用经验小结

11:16 | 评论 (4)

.Net平台下开发中文语音应用程序

.Net平台下开发中文语音应用程序

---

摘要：

语音是人类最自然的交互方式，也是现阶段软件用户界面发展的最高目标。微软公司一直积极推动语音技术的发展，并且公布了语音开发平台Speech SDK帮助开发人员实现语音应用。

随着.net技术深入人心，越来越多的程序员开始转到.net平台上进行开发。然而，在新发布的.net speech SDK里面并没有对中文语音进行支持，目前支持中文的Speech SDK最高版本为Windows平台下的SAPI 5.1()，本文介绍如何在.net平台下利用SAPI5.1开发中文语音应用程序。

---

目录：

1. SAPI.51 SDK浅析以及安装

2. 导入COM对象到.Net

3. 用C#开发中文TTS应用程序示例

4. 结论

5. 参考文献

---

1． SAPI.51 SDK浅析以及安装

SAPI SDK是微软公司免费提供的语音应用开发工具包，这个SDK中包含了语音应用设计接口（SAPI）、微软的连续语音识别引擎（MCSR）以及微软的语音合成（TTS）引擎等等。目前的5.1版本一共可以支持3种语言的识别 (英语，汉语和日语)以及2种语言的合成（英语和汉语）。SAPI中还包括对于低层控制和高度适应性的直接语音管理、训练向导、事件、语法编译、资源、语音识别(SR)管理以及TTS管理等强大的设计接口。其结构如图(1)：

图(1)

语音引擎则通过DDI层（设备驱动接口）和SAPI(SpeechAPI)进行交互，应用程序通过API层和SAPI通信。通过使用这些API，用户可以快速开发在语音识别或语音合成方面应用程序。

SAPI5.1 SDK可以从微软网站下载：http://www.microsoft.com/speech/download/sdk51/ 需要安装程序的有Speech SDK 5.1（68M）和5.1 Language Pack （81.5M）。

---

2． 导入COM对象到.Net

SAPI5.1的基于Windows平台的，通过COM接口进行调用。在.Net平台下要应用SAPI5.1，我们可以利用.Net Framework自带的强大工具TlbImp.exe来把SAPI SDK的COM对象导入到.Net中。TlbImp.exe产生一个管制的包装类，管理客户端可以使用它。包装类管理实际的COM对象的参考数。当包装类当作收集的垃圾时，包装类释放掉它包装的COM对象。当然，你也可以在VS.NET环境中通过从项目参考对话框选择COM对象，实现COM对象的导入，这个过程也是通过TlbImp.exe来完成的。

下面演示如何导入SAPI的COM对象：

D:\Program Files\Common Files\Microsoft Shared\Speech>Tlbimp sapi.dll /out: DotNetSpeech.dll

在安转SDK以后，可以在D:\Program Files\Common Files\Microsoft Shared\Speech\目录下面找到SAPI.dll，这里面定义了SAPI的COM对象，用Tlbimp.exe工具将该dll转换成.net平台下的Assembly---DotNetSpeech.dll，转换的过程会提示不少的警告(warning)，但这部影响我们的开发，可以忽略。最后，我们可以用ildasm查看DotnetSpeech.dll里面的对象。

---

3． 用C#开发中文TTS应用程序示例

下面通过一个实例来介绍如何利用C# 进行开发语音应用程序，开发环境为：

操作系统： Windows 2000 中文版+ SP3

.Net Framework: 1.0.3705（英文版）

Visual Studio.Net 7.0.9466（英文版）

首先，新建一个C#的Windows Application工程SpeechApp，在开发环境的右边的解决方案管理器(Solution Explorer)中，添加DotNetSpeech对象库。右键点击"Reference"(参考)，选择"Add Reference"（添加参考），在弹出的文件选择对话框中找到刚才生成的DotNetSpeech.dll。

图(2)

打开Form1.cs代码文件,在代码开头添加名字空间（注意大小写）。

using DotNetSpeech;

这样就实现了SAPI SDK的导入，下面我们就可以开始编写应用代码了。本示例演示如何把文本通过喇叭朗读出来以及把文本转化成语音信号（Wave声音文件），程序界面如图(3)：

//朗读
private void buttonSynthesis_Click(object sender, System.EventArgs e)
{
	try
{
		SpeechVoiceSpeakFlags SpFlags = SpeechVoiceSpeakFlags.SVSFlagsAsync;
		SpVoice Voice = new SpVoice();	
		Voice.Speak(this.textBoxText.Text, SpFlags);
	}
	catch(Exception er)
	{
MessageBox.Show("An Error Occured!","SpeechApp", MessageBoxButtons.OK, MessageBoxIcon.Error);
	}
}
//生成声音文件(Wav)
private void buttonTTStoWave_Click(object sender, System.EventArgs e)
{
	try
{
		SpeechVoiceSpeakFlags SpFlags = SpeechVoiceSpeakFlags.SVSFlagsAsync;
		SpVoice Voice = new SpVoice();	
		SaveFileDialog sfd = new SaveFileDialog();
		sfd.Filter = "All files (*.*)|*.*|wav files (*.wav)|*.wav";
		sfd.Title = "Save to a wave file";
		sfd.FilterIndex = 2;
		sfd.RestoreDirectory = true;
		if (sfd.ShowDialog()== DialogResult.OK) 
		{
			SpeechStreamFileMode SpFileMode = SpeechStreamFileMode.SSFMCreateForWrite;
			SpFileStream SpFileStream = new SpFileStream();
			SpFileStream.Open(sfd.FileName, SpFileMode, false);
			Voice.AudioOutputStream = SpFileStream;
			Voice.Speak(txtSpeakText.Text, SpFlags);
			Voice.WaitUntilDone(Timeout.Infinite);
		     SpFileStream.Close();
		}
	}
	catch(Exception er)
	{
MessageBox.Show("An Error Occured!","SpeechApp", MessageBoxButtons.OK, MessageBoxIcon.Error);
	}
}

接下来,还要去控制面板配置Speech SDK引擎当前所处理语言。打开"控制面板"，打开"语音"配置项目，可以看到在这里我们可以指定当前可以对何种语言进行识别或者合成，还可以配置相关的硬件设备以及控制语速。（如图4）

在"文字-语音转换"的"语音选择"组合框中选择简体中文(Microsoft Simplified Chinese)。这样就可以合成汉语文字了。

回到VS.Net，F5编译运行刚才的应用程序，在文本框里输入汉字，戴上耳机，点击"朗读"按钮，开始体验新一代的智能人机界面吧，呵呵：）

---

4． 结论

微软为语音人机界面提供了强大的平台，.net环境更使这种开发方便快捷。赶快去下载SAPI5.1 SDK，让你的应用程序"绘声绘色"，体现Nature UI，Let’s GO!!!

---

5． 参考文献

[1] Speech SDK自带的说明文档(SAPI.chm)

[2] MSDN (msdn.microsoft.com)

---

作者：陈本峰

---

版权声明

凡在本网站发表的文章，作者必须保证是原创文章；如果不是原创文章，由此带来的版权纠纷由作者自己承担。微软有义务对本站点发表的文章进行审核，但您需要考虑这些文章的使用风险。本站点仅提供一个用户相互交换技术信息和学习的园地，并不对来自社区用户的技术文章承担任何风险。

10:53 | 评论 (0)

ComponentArt WebUI 2006.1 for ASP.NET 2.0 破解成功！！

无聊在网上瞎逛看到一套爆强的东西

http://www.componentart.com/

看看价格好贵阿

还是自己破解掉算了

哈哈哈哈

10:54 | 评论 (8)

一个功能齐全的DataGrid分页例子

下面的这个例子提供了DataGrid的分页功能。aspx代码和Cohe Behind代码分别如下，注意更改数据录连接字符串。结果如下：

C#版本 例子

DataGridPaging.aspx

DataGridPaging.aspx.cs

VB.NET版本

DataGridPaging.aspx

DataGridPaging.aspx.vb

方法2：完全后代码写法：例子

DataGridPaging2.aspx

DataGridPaging2.aspx.cs

17:46 | 评论 (0)

把Excel文件中的数据读入到DataGrid中

使用Excel文件做为DataGrid的数据源是非常简单的，一旦数据被装载进来，就可以把数据再保存进SQL Server或XML中。我们只需要简单地使用OLE DB Provider 来访问Excel文件，然后返回DataSet即可。
下面是要显示的Excel数据contact.xls：

只需要指定Excel路径，并用[]选择一个工作表即可。

<%@ Page Language="C#" Debug="true" %>
<%@ Import Namespace="System.Data"%>
<%@ Import Namespace="System.Data.OleDb"%>

<script runat="server">

private DataSet CreateDataSource(){
string strConn;
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" +
"Data Source=C:\\Inetpub\\wwwroot\\contacts.xls;"+
"Extended Properties=Excel 8.0;";
OleDbConnection conn = new OleDbConnection(strConn);
OleDbDataAdapter myCommand = new OleDbDataAdapter("SELECT * FROM [ContactList$]", strConn);
DataSet myDataSet = new DataSet();
myCommand.Fill(myDataSet);
return myDataSet;
}


public void Page_Load(Object sender, EventArgs e){
if (!IsPostBack) {
mygrid.DataSource = CreateDataSource();
mygrid.DataBind();
}

}


</script>


<center>
<form runat="server">
<asp:datagrid runat="server" AutoGenerateColumns="false"
width="500" id="mygrid">

<HeaderStyle BorderColor="White" BackColor="black"
ForeColor="White"
Font-Bold="True"
Font-Name="Arial"
Font-Size="9" HorizontalAlign="Center"/>

<ItemStyle   BorderColor=""
BackColor="#FFFFF0"
ForeColor="Black"
Font-Name="Arial"
Font-Size="8"
Font-Bold="False" HorizontalAlign="Center"/>

<Columns>

<asp:BoundColumn HeaderText="姓名" ReadOnly="true" DataField="姓名"/>
<asp:BoundColumn HeaderText="性别" ReadOnly="true" DataField="性别"/>
<asp:BoundColumn HeaderText="Email" ReadOnly="true" DataField="地址"/>
</Columns>

</asp:datagrid>
</form>

17:45 | 评论 (0)

通过Web Services上传和下载文件

随着Internet技术的发展和跨平台需求的日益增加，Web Services的应用越来越广，我们不但需要通过Web Services传递字符串信息，而且需要传递二进制文件信息。下面，我们就分别介绍如何通过Web Services从服务器下载文件到客户端和从客户端通过Web Services上载文件到服务器。

一：通过Web Services显示和下载文件

我们这里建立的Web Services的名称为GetBinaryFile，提供两个公共方法：分别是GetImage()和GetImageType()，前者返回二进制文件字节数组，后者返回文件类型，其中，GetImage()方法有一个参数，用来在客户端选择要显示或下载的文件名字。这里我们所显示和下载的文件可以不在虚拟目录下，采用这个方法的好处是：可以根据权限对文件进行显示和下载控制，从下面的方法我们可以看出，实际的文件位置并没有在虚拟目录下，因此可以更好地对文件进行权限控制，这在对安全性有比较高的情况下特别有用。这个功能在以前的ASP程序中可以用Stream对象实现。为了方便读者进行测试，这里列出了全部的源代码，并在源代码里进行介绍和注释。

首先，建立GetBinaryFile.asmx文件：

我们可以在VS.NET里新建一个C#的aspxWebCS工程，然后“添加新项”，选择“Web服务”，并设定文件名为：GetBinaryFile.asmx，在“查看代码”中输入以下代码，即：GetBinaryFile.asmx.cs：

一旦我们创建了上面的asmx文件，进行编译后，我们就可以编写客户端的代码来进行调用这个Web Services了。

我们先“添加Web引用”，输入：http://localhost/aspxWebCS/GetBinaryFile.asmx。下面，我们编写显示文件的中间文件：GetBinaryFileShow.aspx，这里，我们只需要在后代码里编写代码即可，GetBinaryFileShow.aspx.cs文件内容如下：

最后，我们就编写最终的浏览页面：GetBinaryFile.aspx，这个文件很简单，只需要aspx文件即可，内容如下：

二：通过Web Services上载文件

向服务器上载文件可能有许多种方法，在利用Web Services上载文件的方法中，下面的这个方法应该是最简单的了。我们仍象前面的例子那样，首先建立Upload.asmx文件，其Upload.asmx.cs内容如下，里面已经做了注释：

要上载文件，必须提供一个表单，来供用户进行文件的选择，下面我们就建立这样一个页面Upload.aspx，用来提供文件上载：

我们要进行处理的是在后代码里面，下面详细的介绍，Upload.aspx.cs：

最后，需要注意的是：在保存文件时，您应该确保指定文件的完整路径（例如，"C:\MyFiles\Picture.jpg"），并确保为 ASP.NET 使用的帐户提供要存储文件的目录的写权限。上载大文件时，可使用 元素的 maxRequestLength 属性来增加文件大小的最大允许值，例如：

其中：maxRequestLength：指示 ASP.NET 支持的HTTP方式上载的最大字节数。该限制可用于防止因用户将大量文件传递到该服务器而导致的拒绝服务攻击。指定的大小以 KB 为单位。默认值为 4096 KB (4 MB)。executionTimeout：指示在被 ASP.NET 自动关闭前，允许执行请求的最大秒数。在当文件超出指定的大小时，如果浏览器中会产生 DNS 错误或者出现服务不可得到的情况，也请修改以上的配置，把配置数加大。

另外，上载大文件时，还可能会收到以下错误信息：

如果遇到此错误信息，请增加应用程序的 Web.config 文件的 元素中 memoryLimit 属性的值。例如：

我在自己的机器上测试，可以上传50M以上的文件。以上代码在Windows XP + .NET 1.0 + VS.NET2002下测试通过。

17:41 | 评论 (1)

把图象文件转换成XML格式文件

利用.NET 框架下的FromBase64String和ToBase64String方法可以很容易地实现图象文件和XML文件的互换。这样可以轻易解决以XML格式保存图片的问题。代码如下：

17:41 | 评论 (0)

一个不需要CDO和IIS发送邮件的例子

下面的例子是转载国外的，可以实现不使用CDO和IIS发送邮件。说明：本例子没有经过测试，原地址在：
http://www.dotnetforums.net/t81508.html

VB.NET:

Imports System
Imports System.Text
Imports System.Windows.Forms
Public Class cSMTP
    Private m_sSender As String
    Private m_sUser As String
    Private m_sSenderName As String
    Private m_sRecipient As String
    Private m_sRecipientName As String
    Private m_sServer As String
    Private m_iPort As Integer
    Private m_sSubject As String
    Private m_sBody As String

    Private m_iTimeOut As Integer
    Private m_colCC As Collection
    Private m_colCC_OK As Collection

    Private Structure TRecipient
        Dim strEMail As String
        Dim strName As String
        Dim bBlind As Boolean
    End Structure

    Private tcpClient As System.Net.Sockets.TcpClient
    Private networkStream As System.Net.Sockets.NetworkStream

    Public Property Timeout() As Integer
        Get
            Timeout = m_iTimeOut
        End Get
        Set(ByVal Value As Integer)
            m_iTimeOut = Value
        End Set
    End Property

    Public Property User() As String
        Get
            User = m_sUser
        End Get
        Set(ByVal s As String)
            m_sUser = s
        End Set
    End Property

    Public Property Subject() As String
        Get
            Subject = m_sSubject
        End Get
        Set(ByVal s As String)
            m_sSubject = s
        End Set
    End Property

    Public Property Body() As String
        Get
            Body = m_sBody
        End Get
        Set(ByVal s As String)
            m_sBody = s
        End Set
    End Property

    Public Property Sender() As String
        Get
            Sender = m_sSender
        End Get
        Set(ByVal s As String)
            m_sSender = s
        End Set
    End Property

    Public Property SenderName() As String
        Get
            SenderName = m_sSenderName
        End Get
        Set(ByVal s As String)
            m_sSenderName = s
        End Set
    End Property

    Public Property Recipient() As String
        Get
            Recipient = m_sRecipient
        End Get
        Set(ByVal s As String)
            m_sRecipient = s
        End Set
    End Property

    Public Property RecipientName() As String
        Get
            RecipientName = m_sRecipientName
        End Get
        Set(ByVal s As String)
            m_sRecipientName = s
        End Set
    End Property

    Public Property Server() As String
        Get
            Server = m_sServer
        End Get
        Set(ByVal s As String)
            m_sServer = s
        End Set
    End Property

    Public Property Port() As Integer
        Get
            Port = m_iPort
        End Get
        Set(ByVal i As Integer)
            m_iPort = i
        End Set
    End Property

    Private Sub Init()
        m_sBody = ""
        m_sSubject = ""
        m_sSender = ""
        m_sSenderName = ""
        m_sRecipient = ""
        m_sRecipientName = ""
        m_sServer = ""
        m_iPort = -1
        m_iTimeOut = 30

        CloseCon()
        tcpClient = New System.Net.Sockets.TcpClient

        m_colCC = New Collection
        m_colCC_OK = New Collection
    End Sub

    Private Function ExtendedASCIIEncode(ByVal strMsg As String, ByRef arrByte() As Byte) As Boolean
        Dim i As Integer

        Try
            ReDim arrByte(strMsg.Length - 1)
            For i = 0 To strMsg.Length - 1
                arrByte(i) = CByte(Asc(strMsg.Substring(i, 1)))
            Next i

            ExtendedASCIIEncode = True
        Catch ex As Exception
            If i > 0 Then
                ReDim Preserve arrByte(i - 1)
            End If
            ExtendedASCIIEncode = False
        End Try
    End Function

    Private Sub SendText(ByVal strMsg As String)
        Dim sendBytes As [Byte]()

        If Not ExtendedASCIIEncode(strMsg, sendBytes) Then
            Err.Raise(vbObjectError + 1, "SendText", "Error en el Byte-Array!")
            Exit Sub
        End If

        networkStream.Write(sendBytes, 0, sendBytes.Length)
    End Sub

    Private Function GetResponse() As String
        Dim Start As Double
        Dim Tmr As Double
        Dim bytes() As Byte

        Start = Now.TimeOfDay.TotalSeconds

        ReDim bytes(tcpClient.ReceiveBufferSize)

        While Not networkStream.DataAvailable

            Tmr = Now.TimeOfDay.TotalSeconds - Start

            Application.DoEvents()

            If Tmr > m_iTimeOut Then
                GetResponse = "TIMEOUT!"
                Exit Function
            End If
        End While

        If networkStream.DataAvailable Then
            networkStream.Read(bytes, 0, CInt(tcpClient.ReceiveBufferSize))
            GetResponse = Encoding.ASCII.GetString(bytes)
        Else
            GetResponse = "TIMEOUT!"
        End If
    End Function

    Private Sub CloseCon()
        If Not tcpClient Is Nothing Then
            tcpClient.Close()
        End If
        tcpClient = Nothing
    End Sub

    Public Sub New()
        Init()
    End Sub

    Public Sub Dispose()
        On Error Resume Next
        CloseCon()
        If Not m_colCC Is Nothing Then
            While m_colCC.Count > 0
                m_colCC.Remove(1)
            End While
        End If
        If Not m_colCC_OK Is Nothing Then
            While m_colCC_OK.Count > 0
                m_colCC_OK.Remove(1)
            End While
        End If

        m_colCC = Nothing
        m_colCC_OK = Nothing
    End Sub

    Public Sub Clear()
        Init()
    End Sub

    Public Function Add_cc(ByVal strCC_EMail As String) As Boolean
        Dim objCC As TRecipient
        Try
            objCC = New TRecipient
            objCC.strEMail = strCC_EMail
            objCC.strName = ""
            objCC.bBlind = False

            m_colCC.Add(objCC)

            objCC = Nothing
            Add_cc = True
        Catch
            Add_cc = False
            objCC = Nothing
        End Try
    End Function

    Public Function Add_cc(ByVal strCC_EMail As String, ByVal strCC_Name As String) As Boolean
        Dim objCC As TRecipient
        Try
            objCC = New TRecipient
            objCC.strEMail = strCC_EMail
            objCC.strName = strCC_Name
            objCC.bBlind = False

            m_colCC.Add(objCC)

            objCC = Nothing
            Add_cc = True
        Catch
            Add_cc = False
            objCC = Nothing
        End Try
    End Function

    Public Function Add_Bcc(ByVal strCC_EMail As String) As Boolean
        Dim objCC As TRecipient
        Try
            objCC = New TRecipient
            objCC.strEMail = strCC_EMail
            objCC.strName = ""
            objCC.bBlind = True

            m_colCC.Add(objCC)

            objCC = Nothing
            Add_Bcc = True
        Catch
            Add_Bcc = False
            objCC = Nothing
        End Try
    End Function

    Public Function Add_Bcc(ByVal strCC_EMail As String, ByVal strCC_Name As String) As Boolean
        Dim objCC As TRecipient
        Try
            objCC = New TRecipient
            objCC.strEMail = strCC_EMail
            objCC.strName = strCC_Name
            objCC.bBlind = True

            m_colCC.Add(objCC)

            objCC = Nothing
            Add_Bcc = True
        Catch
            Add_Bcc = False
            objCC = Nothing
        End Try
    End Function

    Public Function Send() As String
        Dim sResponseCode As String
        Dim sResponse As String
        Dim strMsg As String
        Dim sRegister As String
        Dim iCnt As Long
        Dim s As String
        Dim sTmp As String
        Dim bOK As Boolean
        Dim objCC As TRecipient

        Try
            Send = "OK"

            If m_sServer = "" Or m_iPort < 0 Then
                Send = "Tiene que inicializar el puerto del servidor para poder enviar mensajes"
                Exit Function
            End If

            tcpClient.Connect(m_sServer, m_iPort)
            networkStream = tcpClient.GetStream()

            sResponse = GetResponse()
            sResponseCode = Left(sResponse, 3)
            If sResponseCode <> "220" Then
                CloseCon()
                Send = sResponse
                Exit Function
            End If

            SendText("HELO " & m_sServer & vbCrLf)

            sResponse = GetResponse()
            sResponseCode = Left(sResponse, 3)
            If sResponseCode <> "250" Then
                CloseCon()
                Send = sResponse
                Exit Function
            End If

            If m_sUser = "" Then
                m_sUser = m_sSender
            End If
            SendText("MAIL FROM: " & m_sUser & vbCrLf)

            sResponse = GetResponse()
            sResponseCode = Left(sResponse, 3)
            If sResponseCode <> "250" Then
                CloseCon()
                Send = sResponse
                Exit Function
            End If

            SendText("RCPT TO: " & m_sRecipient & vbCrLf)

            sResponse = GetResponse()
            sResponseCode = Left(sResponse, 3)
            If sResponseCode <> "250" Then
                CloseCon()
                Send = sResponse
                Exit Function
            End If

            For Each objCC In m_colCC
                SendText("RCPT TO: " & objCC.strEMail & vbCrLf)

                sResponse = GetResponse()
                sResponseCode = Left(sResponse, 3)
                Select Case sResponseCode
                    Case "550"
                        '// Nada
                    Case "250"
                        m_colCC_OK.Add(objCC)
                    Case Else
                        CloseCon()
                        Send = sResponse
                        Exit Function
                End Select
            Next

            SendText("DATA" & vbCrLf)

            sResponse = GetResponse()
            sResponseCode = Left(sResponse, 3)
            If sResponseCode <> "354" Then
                CloseCon()
                Send = sResponse
                Exit Function
            End If

            strMsg = "Date: "
            strMsg = strMsg & Format(Now, "ddd, d. MMM yyyy ")
            strMsg = strMsg & Format(Now, "Long Time")
            SendText(strMsg & vbCrLf)

            If m_sRecipientName <> "" Then
                SendText("To: " & m_sRecipientName & " <" & m_sRecipient & ">" & vbCrLf)
            Else
                SendText("To: " & m_sRecipient & vbCrLf)
            End If

            If iCnt < 0 Then
                SendText("Cc: office@ngs.at" & vbCrLf)
            End If

            For Each objCC In m_colCC_OK
                If Not objCC.bBlind Then
                    If objCC.strName <> "" Then
                        SendText("Cc: " & objCC.strName & " <" & objCC.strEMail & ">" & vbCrLf)
                    Else
                        SendText("Cc: " & objCC.strEMail & vbCrLf)
                    End If
                End If
            Next

            If m_sSenderName <> "" Then
                SendText("From: " & m_sSenderName & " <" & m_sSender & ">" & vbCrLf)
            Else
                SendText("From: " & m_sSender & vbCrLf)
            End If

            SendText("Reply To: " & m_sSender & vbCrLf)
            SendText("Subject: " & m_sSubject & vbCrLf)
            SendText(vbCrLf & m_sBody & vbCrLf)
            SendText("." & vbCrLf)

            sResponse = GetResponse()

            SendText("QUIT" & vbCrLf)
            CloseCon()
        Catch ex As Exception
            Send = ex.ToString
        End Try
    End Function
End Class

'Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'    Dim xx As SMTPSend.cSMTP = New SMTPSend.cSMTP()
'    Dim yy As String

'    xx.Sender = "rsandoval@ceo-system.com"
'    xx.SenderName = "Rodrigo Sandoval"
'    xx.Server = "ceo-system.com"
'    xx.Subject = "Test"
'    xx.Body = "Test Test Test Test Test"
'    xx.Recipient = "rodrigo_sandoval_v@msn.com"
'    xx.RecipientName = "RSV"
'    xx.Port = 25

'    yy = xx.Send()
'    MsgBox(yy)
'End Sub

17:41 | 评论 (1)

DataGrid输出到Excel并进行格式化处理

在我们把DataGrid上的数据导入到Excel的时候，如果遇到比较长的数字字符串，比如身份证号码，就会在Excel里当成数字看待，并转换成科学计数法的格式，造成数据的丢失，下面这个方法就解决了这个问题，并示例如何进行其它的格式化。

查看例子

OutPutExcel.aspx

OutPutExcel.aspx.cs

17:38 | 评论 (0)

在.NET中利用XMLHTTP下载文件

利用XMLHTTP下载文件，和以前的方法一样，先添加引用－COM－Microsoft Xml 3.0，然后在代码开始处写：

下面就是主要的代码：

17:37 | 评论 (0)

很久没有技术性文章了，今天转发几个

17:36 | 评论 (0)

凯越车提车要领

18:44 | 评论 (0)

做蛋糕咯

21:23 | 评论 (1)

车子又坏了，修了一把

打火打不着了，换了个马达

顺便换掉了水箱

另外把坏掉的大灯修好了。

21:21 | 评论 (0)

今天在杨浦大桥上目睹一起车祸现场。

12:32 | 评论 (4)

将20块钱包月在W800上进行到底

12:09 | 评论 (1)

20块钱包月用K750连电脑上网方法

14:40 | 评论 (0)

重装机器，安装SQL Server 2000失败，找到一片文章恢复成功！

如何手动删除 SQL Server 2000 默认实例、命名实例或虚拟实例

本页

	概要
		删除 Microsoft SQL Server 2000 前应考虑的事项
		删除 SQL Server 的步骤
		删除 SQL Server 的特定实例
		删除 SQL Server 的所有已知实例
		删除 SQL Server 的默认实例
		删除 SQL Server 的命名实例
		如何包含全文检索删除
		重新安装 SQL Server 前删除临时文件夹中的内容
	参考
	这篇文章中的信息适用于:

概要

本文中的步骤介绍如何为重新安装 SQL Server 程序的系统做准备工作。

删除 Microsoft SQL Server 2000 的正确方法（Microsoft 建议采用的方法）是，使用 Microsoft SQL Server 2000 安装程序中的卸载选项。不过，如果安装失败，可能无法使用卸载选项。如果无法使用卸载选项，则在尝试重新安装 SQL Server 程序前，必须将系统恢复到一个干净、稳定的安装点。

注意：Microsoft SQL Server 2000（64 位）安装程序使用 Windows 安装程序，将 SQL Server 功能的安装完全集成到一个功能树中。最小和典型安装模式已不再采用。默认情况下，安装程序显示功能树，并选定所有可用的功能。管理员可通过选择功能树中的项目和更改安装路径来自定义安装。有关更多信息，请参阅 SQL Server 2000（64 位）文档。

回到顶端

删除 Microsoft SQL Server 2000 前应考虑的事项

重要警告：您可能希望按照当前的状态保存某些数据库。您可能还希望保存对默认数据库所做的更改。如果遇到以上任何一种情况，则在按照本文中的步骤进行操作前，应确保留有已知完好的数据备份，或将所有数据和日志文件复制到 MSSQL 文件夹之外的其他文件夹中，因为在下面的操作中您必须删除 MSSQL 文件夹。

必须保存的文件包括由 Microsoft SQL Server 2000 安装的以下数据库文件：

•	Distmdl.*
•	Master.*
•	Mastlog.*
•	Model.*
•	Modellog.*
•	Msdbdata.*
•	Msdblog.*
•	Northwnd.*（可选安装）
•	Pubs.*
•	Pubs_log.*
•	Tempdb.*
•	Templog.*

警告：如果安装的 SQL Server 还与 Microsoft SQL Server Reporting Services 一起使用，请确保还保存或重命名了以下文件夹和子文件夹：

•	Default path\Reporting Services
•	Default path\MSSQL\Reporting Services
•	Default path\SQL Server Instance name\Reporting Services
•	Default path\80\Tools\Report Designer

注意：Default path 指的是 %ProgramFiles%\Microsoft SQL Server

Microsoft 还建议：

•	对于配置为群集系统的 Microsoft SQL Server 2000，应确保没有任何其他群集资源与要删除的 Microsoft SQL Server 2000 存在依赖关系。 有关其他信息，请单击下面的文章编号，以查看 Microsoft 知识库中相应的文章： 835185 (http://support.microsoft.com/kb/835185/) SQL Server 中的故障转移群集资源依存关系
•	停止 Microsoft SQL Server 2000，因为活动连接可能会导致卸载过程无法成功完成。
•	关闭其他节点上的所有 Microsoft SQL Server 2000 客户机或管理工具。
•	使用 Microsoft SQL Server 2000 服务帐户或具有等效权限的帐户（也就是 Local Administrator 组的成员帐户）登录到服务器。如果将 SQL Server 配置为群集系统，则您使用的帐户在所有群集节点上都必须是 Local Administrators 组的成员。

回到顶端

删除 SQL Server 的步骤

重要说明：本文包含有关修改注册表的信息。修改注册表之前，一定要先进行备份，并且一定要知道在发生问题时如何还原注册表。有关如何备份、还原和编辑注册表的信息，请单击下面的文章编号，以查看 Microsoft 知识库中相应的文章：

256986 (http://support.microsoft.com/kb/256986/) Microsoft Windows 注册表说明

警告：注册表编辑器使用不当可能导致严重问题，可能需要重新安装操作系统。Microsoft 不能保证您可以解决因注册表编辑器使用不当而导致的问题。使用注册表编辑器需要您自担风险。
根据您的特定环境，您可以采用以下的一个或多个步骤。

成功删除了 SQL Server 后，您不需要再继续执行此列表中的其余步骤。

1.	对于虚拟服务器，请使用安装光盘上的 Microsoft SQL Server 2000 安装程序，然后单击“卸载”选项。SQL Server 联机手册中的“How to uninstall an existing installation of SQL Server (Setup)”（如何卸载现有的 SQL Server 安装（安装程序））主题对此进行了说明。
2.	对于非群集（独立）实例，可以执行步骤 1，也可打开控制面板中的添加/删除程序小程序。
3.	在控制面板中，打开添加/删除程序小程序。
4.	运行 Regedt32，然后找到以下注册表项： HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall 在 Uninstall 项下，找到要删除的 Microsoft SQL Server 2000 实例的产品代码。 在任务栏上，单击开始，然后单击运行。在运行对话框中，复制并粘贴以下命令，或自己键入以下命令： C:\WINNT\IsUninst.exe -f"C:\Program Files\Microsoft SQL Server\MSSQL$Server1\Uninst.is" -c"C:\Program Files\Microsoft SQL Server\MSSQL$Server1\sqlsun.dll" -Mssql.miff i=I1 如果上述步骤无效，则可以按照 删除 SQL Server 的所有已知实例 一节中的步骤手动删除 Microsoft SQL Server 2000。 注意：此时并不是要完全删除 SQL Server 2000。执行这些步骤是为了将系统恢复到可以成功进行安装的状态，这样，您就可以在安装完成后再将恢复的 Microsoft SQL Server 2000 安装删除。
5.	找到安装的 Data 文件夹，如果需要保存这些数据，则重命名该文件夹。否则，请删除 Data 文件夹。Microsoft 建议保留 Data 文件夹，这就相当于保留了 MDF 和 LDF 格式的数据库平面文件备份。如果重命名 Data 文件夹，只要您在重新安装时使用相同的名称、路径和 IP 地址，就可以将现有数据恢复到与使 SQL Server 脱机时完全相同的状态和条件。

注意：如果这是 SQL Server 2000 的群集实例，请为群集中的每个节点重复执行这些步骤。

回到顶端

删除 SQL Server 的特定实例

若要删除 SQL Server 的特定实例，请按照下列步骤操作：

1.	找到并删除 %drive%:\Program Files\Microsoft SQL Server\MSSQL\Binn 文件夹，其中 %drive% 是要删除的 SQL Server 实例的位置。
2.	找到以下注册表项： • HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\MSSQLServer 注意：如果要删除默认实例，则必须删除除 Client 项以外的所有项。 • HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Microsoft SQL Server 必须使用 Regedt32.exe 来编辑要删除的实例的 InstalledInstances 值。默认实例的显示名称为 MSSQLSERVER，而命名实例的显示名称则为给该实例指定的名称。 注意：不能使用 Regedit.exe 编辑该值；您必须使用 Regedt32.exe。

注意：如果这是 SQL Server 2000 的群集实例，请为群集中的每个节点重复执行这些步骤。

回到顶端

删除 SQL Server 的所有已知实例

若要删除 SQL Server 的所有已知实例，请按照下列步骤操作：

1.	找到并删除 %drive%:\Program Files\Microsoft SQL Server\MSSQL\Binn 文件夹。
2.	找到并删除以下注册表项： • HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\MSSQLServer • HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Microsoft SQL Server
3.	找到并删除以下注册表项： • HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\MSSQLServer • HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\SQLSERVERAGENT • HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\MSSQLServerADHelper
4.	步骤 3 中的三个注册表项对应于 Microsoft SQL Server 2000 的默认实例。命名实例对应的注册表项与步骤 3 中列出的注册表项类似，但后面带有 $instance_name，因为 instance_name 是为特定实例指定的名称。找到要删除的实例所对应的注册表项后，选择并删除它们。 • HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\MSSQLServer$InstanceName • HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\SQLSERVERAGENT$InstanceName • HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\MSSQLServerADHelper
5.	如果将要删除的 SQL Server 实例配置为群集系统，请删除群集管理器中该实例的所有群集资源。 注意：仅删除 SQL Server 资源。
6.	重新安装 Microsoft SQL Server 2000 并使用相同的名称和 IP 地址。
7.	运行安装程序并使用卸载选项，消除由于安装失败而遗留的任何配置问题或错误。

注意：如果这是 SQL Server 2000 的群集实例，请为群集中的每个节点重复执行这些步骤。

回到顶端

删除 SQL Server 的默认实例

若要删除 SQL Server 的默认实例，请找到并删除以下注册表项：

•	HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Search
•	HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\MSSQLServer
•	HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\SQLSERVERAGENT

回到顶端

删除 SQL Server 的命名实例

若要删除 SQL Server 的命名实例，请按照下列步骤操作：

1.	找到并删除某个命名实例对应的以下注册表项，其中 InstanceName 是要删除的实例的名称。 • HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\MSSQLServer$InstanceName • HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\SQLSERVERAGENT$InstanceName
2.	如果将要删除的 SQL Server 实例配置为群集系统，请删除群集管理器中该 SQL Server 实例的所有群集资源。 注意：仅删除 SQL Server 资源。
3.	重新安装 Microsoft SQL Server 2000 并使用相同的名称和 IP 地址。
4.	运行安装程序并使用卸载选项，消除由于安装失败而遗留的任何配置问题或错误。

注意：如果这是 SQL Server 2000 的群集实例，请为群集中的每个节点重复执行这些步骤。

回到顶端

如何包含全文检索删除

若要包含全文检索删除，请按照下列步骤操作：

1.	删除以下注册表项。只有在使用 删除 SQL Server 的所有已知实例 一节中的步骤时，才应使用本节中的步骤： • HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\MSSCNTRS • HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\MSSEARCH • HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\MSSGATHERER • HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\MSSGTHRSVC • HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\MSSINDEX 注意：如果删除这些注册表项，就会禁用 Microsoft Search 服务 (MSSearch)。如果以下应用程序在同一台计算机上运行，此操作可能会对它们产生影响： • Microsoft Exchange Server • Microsoft SharePoint Portal Server • Microsoft Site Server • Microsoft Commerce Server • Microsoft Small Business Server
2.	如果将要删除的 SQL Server 实例配置为群集系统，请删除群集管理器中该 SQL Server 实例的所有群集资源。 注意：仅删除 SQL Server 资源。
3.	重新安装 Microsoft SQL Server 2000 并使用相同的名称和 IP 地址。

如果不删除 MSSearch，重新安装 SQL Server 2000 时可能会出现以下错误信息：

[sqlclusterSetup.cpp:464]:2 (0x2):The system cannot find the file specified.Problem in the resource name SQL Server Fulltext.

[clushelp.cpp:1238]:5007 (0x138f):The cluster resource could not be found.

[sqlclusterSetup.cpp:1059]:5007 (0x138f):The cluster resource could not be found.

如果出现这些错误信息，请重新启动服务器，按步骤操作将 MSSearch 删除，然后再次尝试进行安装。

注意：由于此前未完成删除过程，因此如果您担心能否在以后删除实例，可以执行以下步骤来验证是否解决了可能会导致此问题再次出现的所有问题。如果只是想确认此特定删除已完成，则不必执行这一步骤，因为该步骤只是检查自动删除过程是否有效。运行 SQL Server 安装程序，并使用“卸载”选项立即验证删除过程，而不是等到必须具备此功能时再进行验证。如果此步骤失败，则必须继续进行检查，确定导致失败的原因，并解决该问题。

运行安装程序，然后使用卸载选项，确认没有由于删除失败而遗留的配置问题或错误。

注意：在某些情况下，可能不会删除文件夹 %drive%:"\Program Files\Microsoft SQL Server\80，此时您必须手动将其删除。

在安装 SQL Server 2000 时，可能会出现以下错误信息：

A previous program installation created pending file operations on the installation machine.You must restart the computer before running setup

如果出现此错误信息，请重新启动服务器，然后再次尝试进行安装。如果在重新启动服务器后，再次出现该错误信息，那么您要删除的文件可能处于只读状态。

请按照下列步骤操作，检查这些文件是否处于只读状态：

1.	找到以下注册表项： HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\PendingFileRenameOperations
2.	记下文件名。
3.	确保这些文件未设置只读属性。
4.	再次重新启动服务器。

回到顶端

重新安装 SQL Server 前删除临时文件夹中的内容

将临时文件夹中的内容全部删除，这里的临时文件夹既包括 System Temp 文件夹，也包括安装用户的 Temp 文件夹。要确定用户临时文件夹的位置，请在命令提示符下输入以下命令：

C:\Documents and Settings\username>set t

结果应当包含以下内容：

TEMP=C:\DOCUME~1\username\LOCALS~1\Temp
TMP=C:\DOCUME~1\username\LOCALS~1\Temp

还可能会列出其他项。典型路径如下：

C:\Documents and Settings\username\Local Settings\Temp

System Temp 的典型路径为 %systemroot%\temp

回到顶端

参考

如果仍出现未完成文件操作错误信息，请参见 Microsoft 知识库中的以下文章：

312995 (http://support.microsoft.com/kb/312995/) SQL Server 2000 安装失败并给出“...previous program installation...”错误信息

回到顶端

回到顶端

关键字：	kbhowtomaster KB290991

回到顶端

20:35 | 评论 (0)

发动机过热的应急方法

提醒广大车主：如果在普通公路上发动机出现了过热，应该尽快地降低车速，把汽车驶到树阴下，或驶到相对比较凉快的地方，把汽车停下来。打开发动机罩盖，让发动机怠速运转，等待发动机温度逐渐恢复正常。在发动机水温恢复正常之后，将发动机熄火。然后再等待一段时间，直到发动机的水温充分地下降了之后，再检查发动机的冷却水量。这时发动机的冷却水量大都严重不足。按照规定量把冷却水补足之后，再检查一下冷却系统，确认没有其他故障之后，可以启动发动机，继续行驶。
　　　　
　　如果在高速公路上出现了发动机过热，必须立刻把暖风全部打开并打开车窗，这时车厢内将热得像蒸笼一样。由于有暖风帮助冷却水散热，能使冷却水温大幅度地下降。这样可以持续开车，就近找到高速公路的出口，把汽车驶到安全的场所停下来。接下来，只要按照上述的方法，使发动机的温度降下来就行。

18:50 | 评论 (0)

关于索爱T618通话清单的独特技巧

　　第二步，选择任意一个号码然后更多->拨叫前编辑。

　　第三步，用C删掉所有的数字，然后按住0直到出现+的符号，呼叫。 　

　　手机此时开始呼叫，然后过一会自动断开。此时，如果一切都对在清单的最下面将会有一条空白记录。

这样做产生的改变：

　　1. 呼叫清单的第一个号码不再是默认的最后一个打出电话而是最后一个电话（打进，打出或未接）。

　　2. 如果接到几个同一号码的来电，会都显示出来而不是只显示最后一个。

　　如果想要去掉这一功能，只需删掉最后一条空白记录就行了。

18:24 | 评论 (0)