编程论坛
400万+工程师在用
华为|鸿蒙开发者日
直播报名
400万+工程师在用
华为|鸿蒙开发者日
直播报名

电子发烧友网工程师

17年用户 16436经验值
擅长:可编程逻辑 MEMS/传感技术 测量仪表 模拟技术 控制/MCU RF/无线
私信 关注

CancelUpdate 方法范例 (VBScript)

2009-1-8 10:32

<p><font face="Verdana">CancelUpdate 方法范例 (VBScript)</font></p><font face="Verdana">
<p><br/>要测试本范例,请将此代码剪切并粘贴到标准 HTML 文档的 &lt;Body&gt;&lt;/Body&gt; 标记之间,然后将其命名为 ADCapi6.asp。ASP 脚本将标识用户服务器。</p>
<p>&lt;Center&gt;<br/>&lt;H2&gt;RDS API Code Examples&lt;/H2&gt;<br/>&lt;HR&gt;<br/>&lt;H3&gt;Remote Data Service SubmitChanges and CancelUpdate Methods&lt;/H3&gt;</p>
<p>&lt;!-- RDS.DataControl with parameters set at design time --&gt;<br/>&lt;OBJECT classid="clsid:BD96C556-65A3-11D0-983A-00C04FC29E33"<br/>&nbsp;&nbsp;&nbsp; ID=RDS HEIGHT=1 WIDTH=1&gt;<br/>&nbsp;&nbsp;&nbsp; &lt;PARAM NAME="SQL" VALUE="Select * from Employee"&gt;<br/>&nbsp;&nbsp;&nbsp; &lt;PARAM NAME="SERVER" VALUE="http://&lt;%=Request.ServerVariables("SERVER_NAME")%&gt;"&gt;<br/>&nbsp;&nbsp;&nbsp; &lt;PARAM NAME="CONNECT" VALUE="Provider=SQLOLEDB;User Id=rdsdemo;Password=rdsdemo;Initial Catalog=AddrBookDB"&gt;<br/>&lt;/OBJECT&gt;</p>
<p>&lt;TABLE DATASRC="#ADC"&gt;<br/>&lt;THEAD&gt;<br/>&lt;TR ID="ColHeaders"&gt;<br/>&nbsp;&nbsp;&nbsp; &lt;TH&gt;ID&lt;/TH&gt;<br/>&nbsp;&nbsp;&nbsp; &lt;TH&gt;FName&lt;/TH&gt;<br/>&nbsp;&nbsp;&nbsp; &lt;TH&gt;LName&lt;/TH&gt;<br/>&nbsp;&nbsp;&nbsp; &lt;TH&gt;Name&lt;/TH&gt;<br/>&nbsp;&nbsp;&nbsp; &lt;TH&gt;Title&lt;/TH&gt;<br/>&nbsp;&nbsp;&nbsp; &lt;TH&gt;Type&lt;/TH&gt;<br/>&nbsp;&nbsp;&nbsp; &lt;TH&gt;Email&lt;/TH&gt;<br/>&nbsp;&nbsp;&nbsp; &lt;TH&gt;MgrEmail&lt;/TH&gt;<br/>&nbsp;&nbsp;&nbsp; &lt;TH&gt;Bldg&lt;/TH&gt;<br/>&nbsp;&nbsp;&nbsp; &lt;TH&gt;Rm&lt;/TH&gt;<br/>&nbsp;&nbsp;&nbsp; &lt;TH&gt;Phone&lt;/TH&gt;<br/>&lt;/TR&gt;<br/>&lt;/THEAD&gt;</p>
<p>&lt;TBODY&gt;<br/>&lt;TR&gt;<br/>&nbsp;&nbsp;&nbsp; &lt;TD&gt; &lt;INPUT DATAFLD="ID" size=4&gt; &lt;/TD&gt;<br/>&nbsp;&nbsp;&nbsp; &lt;TD&gt; &lt;INPUT DATAFLD="FirstName" size=10&gt; &lt;/TD&gt;<br/>&nbsp;&nbsp;&nbsp; &lt;TD&gt; &lt;INPUT DATAFLD="LastName" size=10&gt; &lt;/TD&gt;<br/>&nbsp;&nbsp;&nbsp; &lt;TD&gt; &lt;INPUT DATAFLD="Name" size=15&gt; &lt;/TD&gt;<br/>&nbsp;&nbsp;&nbsp; &lt;TD&gt; &lt;INPUT DATAFLD="Title" size=20&gt; &lt;/TD&gt;<br/>&nbsp;&nbsp;&nbsp; &lt;TD&gt; &lt;INPUT DATAFLD="Type" size=10&gt; &lt;/TD&gt;<br/>&nbsp;&nbsp;&nbsp; &lt;TD&gt; &lt;INPUT DATAFLD="Email" size=10&gt; &lt;/TD&gt;<br/>&nbsp;&nbsp;&nbsp; &lt;TD&gt; &lt;INPUT DATAFLD="ManagerEmail" size=10&gt; &lt;/TD&gt;<br/>&nbsp;&nbsp;&nbsp; &lt;TD&gt; &lt;INPUT DATAFLD="Building" size=3&gt; &lt;/TD&gt;<br/>&nbsp;&nbsp;&nbsp; &lt;TD&gt; &lt;INPUT DATAFLD="Room" size=5&gt; &lt;/TD&gt;<br/>&nbsp;&nbsp;&nbsp; &lt;TD&gt; &lt;INPUT DATAFLD="Phone" size=8&gt; &lt;/TD&gt;<br/>&lt;/TR&gt;<br/>&lt;/TBODY&gt;<br/>&lt;/TABLE&gt;</p>
<p><br/>&lt;HR&gt;<br/>&lt;INPUT TYPE=BUTTON NAME="SubmitChange" VALUE="Submit Changes"&gt;&lt;INPUT TYPE=BUTTON NAME="CancelChange" VALUE="Cancel Update"&gt;&lt;BR&gt;<br/>&lt;H4&gt;Add a new person or alter a current entry on the grid. Move off that Row. &lt;BR&gt;<br/>Submit the Changes to your DBMS or cancel the updates. &lt;/H4&gt;<br/>&lt;/Center&gt;<br/>&lt;Script Language="VBScript"&gt;<br/>&lt;!--<br/>' Set parameters of RDS.DataControl at Run Time<br/>Sub SubmitChange_OnClick<br/>&nbsp;&nbsp;&nbsp; RDS.SubmitChanges&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp; RDS.Refresh<br/>End Sub</p>
<p>Sub CancelUpdate_OnClick<br/>&nbsp;&nbsp;&nbsp; RDS.CancelUpdate<br/>End Sub<br/>--&gt;<br/>&lt;/Script&gt;</p>
<p></font>&nbsp;</p>

回帖(1)

jcf

2009-2-1 22:34:09
ddddddddddddd!

更多回帖

打开APP