XMLHttp客户端操作数据

最新推荐文章于 2021-08-10 19:15:39 发布

转载最新推荐文章于 2021-08-10 19:15:39 发布 · 70 阅读

0 ·

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/DODONG/archive/2006/03/31/363422.html

本文介绍了一个使用ASP.NET实现客户端与服务器端通过XML数据交互的案例，具体包括客户端表单数据收集、服务器端数据处理及反馈结果的返回等过程。

//-----------------客户端------------

Sub CaseAddSend()

Set xmlhttp = CreateObject("Microsoft.XMLHTTP")

xmlhttp.open "POST","Test.aspx?Type=Add",false

xmlhttp.Send xmlApp.xml '发送数据

If xmlHTTP.responseXML.SelectNodes("/Error").Length>0 Then

Msgbox xmlHTTP.responseXML.SelectSingleNode("/Error").Text

Else

Msgbox "添加成功！"

window.location.reload

End If

End Sub

</script>

<M_Company>

</M_Company>

</XML>

<TABLE class="CmTbl" dataSrc="#xmlApp" cellSpacing="1" cellPadding="2" width="100%" align="center"

border="0">

<tr>

</tr>

<tr>

<td>EngName</td>

</tr>

<tr>

<td>LocalName

</td>

</tr>

<tr>

<td>EngAddress1

</td>

</tr>

<tr>

<td>EngAddress2</td>

</tr>

<TR>

</TD>

</TR>

</TABLE>

//---------.cs------

if(Request.ServerVariables["REQUEST_METHOD"]== "POST")

{

Response.Charset="GB2312"; //页面编码格式

Response.ContentType = "text/xml";

//提交CaseUpdate

if(Request.QueryString["Type"]=="Add")

{

Config Err = new Config() ;

XmlDocument XmlDoc=new XmlDocument();

XmlDocument XmlRequest=new XmlDocument();

XmlDocument XmlResponse=new XmlDocument();

XmlRequest.Load(Request.InputStream); //提取客户端提交的xml数据

try

{

Config objSubmit = new Config();

objSubmit.CaseMainAdd(XmlRequest);

//判断错误

if(Err.ErrAllMessage=="")

{ //如果没错误返回case号

//XmlResponse.LoadXml("<?xml version=\"1.0\"?><CaseID>" + CaseID.ToString() + "</CaseID>");

}

else

{

//如果有错误返回错误信息

XmlResponse.LoadXml("<?xml version=\"1.0\"?><Error>" + Err.ErrAllMessage + "</Error>");

Err.ErrReset(); //复位错误信息

}

XmlResponse.Save(Response.OutputStream);

}

catch(Exception ex)

{

//Response.Redirect("ErrPage.aspx");

throw new ApplicationException(ex.Message);

}

finally

{

Response.End();

}

----config.cs----

public void CaseMainAdd(XmlDocument XmlDoc)

{

SqlCommand command = new SqlCommand();

command.CommandText = "SP_MCompanyEdit";

command.CommandType = CommandType.StoredProcedure;

command.Connection = Conn;

Conn.Open();

command.Parameters.Add( new SqlParameter("@XmlApp",SqlDbType.NVarChar,1000));

command.Parameters["@XmlApp"].Value = XmlDoc.InnerXml.ToString();

command.Parameters.Add( new SqlParameter("@Method",SqlDbType.Int));

command.Parameters["@Method"].Value = 2;

try

{

command.ExecuteNonQuery();

Conn.Close();

}

catch(SqlException ex)

{

throw new ApplicationException(ex.ToString());

}

//------SP_MCompanyEdit.sql-----

IF EXISTS (SELECT * FROM sysobjects WHERE type = 'P' AND name = 'SP_MCompanyEdit')

BEGIN

PRINT N'删除存储过程 SP_MCompanyEdit'

DROP Procedure SP_MCompanyEdit

END

PRINT N'生成存储过程 SP_MCompanyEdit'

/**//******************************************************************************

** 文件: SP_MCompanyEdit.SQL

** 名称: SP_MCompanyEdit

** 功能:

** 作者: dodong

** 发布: 2006-08-08

*******************************************************************************

** 返回值列表

*******************************************************************************

** 返回值: 涵义:

** ------- -----------------------------------------------------------

** 0 操作成功

*******************************************************************************

** 其它说明

*******************************************************************************

** 修订日志

*******************************************************************************

** 日期: 作者: 修订备注:

** ---------- -------- -----------------------------------------------

*******************************************************************************/

CREATE Procedure SP_MCompanyEdit

@XmlApp nVarchar(1000), --员工信息

@Method Int --操作，1添加，2修改

WITH ENCRYPTION

DECLARE @Coid Varchar(10) --ID

DECLARE @EngName Nvarchar(100) ---EngName

DECLARE @LocalName Nvarchar(100) ---LocalName

DECLARE @EngAddress1 NVARCHAR(300) ----EngAddress1

DECLARE @EngAddress2 NVARCHAR(300) ----EngAddress2

DECLARE @iXmlApp INT

/**//**************************************************************************

** 解析数据

***************************************************************************/

--解析XML文件

EXEC sp_xml_preparedocument @iXmlApp OUTPUT, @XmlApp

--获取XML中的信息

SELECT @Coid=Coid,@EngName=EngName ,@LocalName = LocalName,@EngAddress1 = EngAddress1,@EngAddress2 = EngAddress2

FROM OPENXML (@iXmlApp, '/*', 2) WITH (

Coid Varchar(10),

EngName Nvarchar(100),

LocalName Nvarchar(100),

EngAddress1 NVARCHAR(300),

EngAddress2 NVARCHAR(300)

)

/**//**************************************************************************

** 检验数据

***************************************************************************/

/**//**************************************************************************

** 查询数据

***************************************************************************/

/**//**************************************************************************

** 更新数据

***************************************************************************/

If @Method=1 --添加

Begin

--If Not Exists(Select * From M_Company Where Coid=@Coid)

--Return -1206

---SELECT * INTO #M_COMPANY FROM M_COMPANY

INSERT INTO M_Company

(

Engname,

LocalName,

EngAddress1,

EngAddress2

)

VALUES

(

@EngName,

@LocalName,

@EngAddress1,

@EngAddress2

)

End

Else If @Method=2 --修改

Begin

--判断是否存在

Update M_Company

Set

EngName=@EngName,

LocalName=@LocalName,

EngAddress1=@EngAddress1,

EngAddress2=@EngAddress2

Where

Coid = @Coid

End

--BEGIN TRAN TranQ

--ROLLBACK TRAN TranQ

--COMMIT TRAN TranQ

RETURN 0

GRANT EXEC ON SP_MCompanyEdit TO PUBLIC

转载于:https://www.cnblogs.com/DODONG/archive/2006/03/31/363422.html