XMLHttp客户端操作数据
2006-03-31 11:58
337 查看
//-----------------客户端------------
<script language=vbscript>
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>
<body MS_POSITIONING="GridLayout">
<XML id="xmlApp">
<M_Company>
<Coid></Coid>
<EngName></EngName>
<LocalName></LocalName>
<EngAddress1></EngAddress1>
<EngAddress2></EngAddress2>
</M_Company>
</XML>
<form id="Form1" method="post" runat="server">
<TABLE class="CmTbl" dataSrc="#xmlApp" cellSpacing="1" cellPadding="2" width="100%" align="center"
border="0">
<tr>
<td>Coid</td>
<td><input dataFld="Coid" id="Coid" type="text"></td>
</tr>
<tr>
<td>EngName</td>
<td><input dataFld="EngName" id="EngName" type="text"></td>
</tr>
<tr>
<td>LocalName
</td>
<td><input dataFld="LocalName" id="LocalName" type="text"></td>
</tr>
<tr>
<td>EngAddress1
</td>
<td><input dataFld="EngAddress1" id="EngAddress1" type="text"></td>
</tr>
<tr>
<td>EngAddress2</td>
<td><input dataFld="EngAddress2" id="EngAddress2" type="text"></td>
</tr>
<TR>
<TD align="center" colSpan="2"><INPUT id="Button2" onclick="CaseAddSend()" type="button" value="增加" name="Submit" runat="server">
</TD>
</TR>
</TABLE>
//---------.cs------
if(Request.ServerVariables["REQUEST_METHOD"]== "POST")
----config.cs----
public void CaseMainAdd(XmlDocument XmlDoc)
//------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
GO
PRINT N'生成存储过程 SP_MCompanyEdit'
GO
CREATE Procedure SP_MCompanyEdit
@XmlApp nVarchar(1000), --员工信息
@Method Int --操作，1添加，2修改
WITH ENCRYPTION
AS
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
GO
GRANT EXEC ON SP_MCompanyEdit TO PUBLIC
GO
<script language=vbscript>
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>
<body MS_POSITIONING="GridLayout">
<XML id="xmlApp">
<M_Company>
<Coid></Coid>
<EngName></EngName>
<LocalName></LocalName>
<EngAddress1></EngAddress1>
<EngAddress2></EngAddress2>
</M_Company>
</XML>
<form id="Form1" method="post" runat="server">
<TABLE class="CmTbl" dataSrc="#xmlApp" cellSpacing="1" cellPadding="2" width="100%" align="center"
border="0">
<tr>
<td>Coid</td>
<td><input dataFld="Coid" id="Coid" type="text"></td>
</tr>
<tr>
<td>EngName</td>
<td><input dataFld="EngName" id="EngName" type="text"></td>
</tr>
<tr>
<td>LocalName
</td>
<td><input dataFld="LocalName" id="LocalName" type="text"></td>
</tr>
<tr>
<td>EngAddress1
</td>
<td><input dataFld="EngAddress1" id="EngAddress1" type="text"></td>
</tr>
<tr>
<td>EngAddress2</td>
<td><input dataFld="EngAddress2" id="EngAddress2" type="text"></td>
</tr>
<TR>
<TD align="center" colSpan="2"><INPUT id="Button2" onclick="CaseAddSend()" type="button" value="增加" name="Submit" runat="server">
</TD>
</TR>
</TABLE>
//---------.cs------
if(Request.ServerVariables["REQUEST_METHOD"]== "POST")
----config.cs----
public void CaseMainAdd(XmlDocument XmlDoc)
//------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
GO
PRINT N'生成存储过程 SP_MCompanyEdit'
GO
CREATE Procedure SP_MCompanyEdit
@XmlApp nVarchar(1000), --员工信息
@Method Int --操作，1添加，2修改
WITH ENCRYPTION
AS
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
GO
GRANT EXEC ON SP_MCompanyEdit TO PUBLIC
GO
内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理 
相关文章推荐
- mysql客户端的导出数据库表和数据库数据等相关操作
- QT 之 TCP/IP 服务器和客户端（三）（数据流出流入操作版本）
- Android 对Android客户端与服务端传递的Json数据进行加密、解密操作
- Zookeeper命令行操作(常用命令；客户端连接；查看znode路径；创建节点；获取znode数据，查看节点内容，设置节点内容，删除节点；监听znode事件；telnet连接zookeeper)
- 安卓：ContentProvider之服务端提供接口，客户端通过接口对数据库中的数据进行操作
- 关于DBGrid，禁止在插入/修改操作状态下移动光标到其他行时，数据自动修改（非客户端）！
- TCP数据传输（四）：上传文件操作（将客户端的文件发送到服务器）
- 2018-08-18期 Hbase客户端API操作（ 插入数据）
- Winform DataTable 客户端操作数据
- 六周一次课（11月20日） 12.1 安装客户端 12.2 数据库连接 12.3 mysql事务 12.4 mysql操作数据
- ASP.NET MVC WebApi 返回数据类型序列化控制（json,xml) 用javascript在客户端删除某一个cookie键值对 input点击链接另一个页面，各种操作。 C# 往线程里传参数的方法总结 TCP/IP 协议 用C#+Selenium+ChromeDriver 生成我的咕咚跑步路线地图 (转)值得学习百度开源70+项目
- 使用客户端的命令操作HDFS中的数据
- 在ASP.NET 2.0中操作数据之二十二：为删除数据添加客户端确认
- Winform DataTable 客户端操作数据
- Zookeeper客户端基本操作java实现——创建连接、创建节点、添加修改节点内容、获取子节点、获取节点数据、删除节点
- 在ASP.NET 2.0中操作数据之二十二：为删除数据添加客户端确认
- 2018-08-21期 Hbase客户端API操作（数据查询，get方式）
- javascript实现客户端用户操作Excel文档数据导出
- sybase数据操作客户端