如何解决用Delphi5的InternetExpress建立简单的Web程序出现Document没有定义错误？

brlee 2000-07-28 11:25:00
用Delphi5的InternetExpress建立简单的Web程序出现Document没有定义错误如何解决？
下面程序在行：（var XMLBroker1_Doc = new Document(XMLBroker1_XML);）执行出错请高手指点，李维著Delphi5.X分布式多层应用电子商务篇第一个及其它示例程序编译执行就出现如此错误。


<HTML>
<HEAD>
</HEAD>
<BODY>
200 OK
<SCRIPT language=JavaScript type="text/javascript" SRC="xmldom.js"></SCRIPT>
<SCRIPT language=JavaScript type="text/javascript" SRC="xmldb.js"></SCRIPT>
<SCRIPT language=JavaScript type="text/javascript" SRC="xmldisp.js"></SCRIPT>

<FORM NAME=DataForm1>
<TABLE><TR><TD COLSPAN=2>
<TABLE><TR><TD COLSPAN=2><INPUT TYPE=BUTTON VALUE=" and <" onclick='if(xml_ready)DataGrid1_Disp.first();'>
<INPUT TYPE=BUTTON VALUE="<<" onclick='if(xml_ready)DataGrid1_Disp.pgup();'>
<INPUT TYPE=BUTTON VALUE="<" onclick='if(xml_ready)DataGrid1_Disp.up();'>
<INPUT TYPE=BUTTON VALUE=">" onclick='if(xml_ready)DataGrid1_Disp.down();'>
<INPUT TYPE=BUTTON VALUE=">>" onclick='if(xml_ready)DataGrid1_Disp.pgdown();'>
<INPUT TYPE=BUTTON VALUE="> and " onclick='if(xml_ready)DataGrid1_Disp.last();'>
<INPUT TYPE=BUTTON VALUE=" + " onclick='if(xml_ready)DataGrid1_Disp.newRow();'>
<INPUT TYPE=BUTTON VALUE=" - " onclick='if(xml_ready)DataGrid1_Disp.removeRow();'>
<INPUT TYPE=BUTTON VALUE="Undo" onclick='if(xml_ready)DataGrid1_Disp.undo();'>
<INPUT TYPE=BUTTON VALUE="Post" onclick='if(xml_ready)DataGrid1_Disp.post();'>
<INPUT TYPE=BUTTON VALUE="Apply Updates" onclick='if(xml_ready)XMLBroker1_RS.Apply(Submit_XMLBroker1, Submit_XMLBroker1.postdelta);'>
</TR></TABLE></TD>
</TR><TR><TD COLSPAN=2>
<TABLE BORDER=1><TR>
<TH>EmpNo</TH>
<TH>LastName</TH>
<TH>FirstName</TH>
<TH>PhoneExt</TH>
<TH>HireDate</TH>
<TH>Salary</TH>
<TH>*</TH>
</TR><TR><TD><DIV><INPUT TYPE=TEXT NAME="DataGrid1_EmpNo" SIZE=10 onFocus='if(xml_ready)DataGrid1_Disp.xfocus(this);' onkeydown='if(xml_ready)DataGrid1_Disp.keys(this);'></DIV></TD>
<TD><DIV><INPUT TYPE=TEXT NAME="DataGrid1_LastName" SIZE=20 onFocus='if(xml_ready)DataGrid1_Disp.xfocus(this);' onkeydown='if(xml_ready)DataGrid1_Disp.keys(this);'></DIV></TD>
<TD><DIV><INPUT TYPE=TEXT NAME="DataGrid1_FirstName" SIZE=15 onFocus='if(xml_ready)DataGrid1_Disp.xfocus(this);' onkeydown='if(xml_ready)DataGrid1_Disp.keys(this);'></DIV></TD>
<TD><DIV><INPUT TYPE=TEXT NAME="DataGrid1_PhoneExt" SIZE=4 onFocus='if(xml_ready)DataGrid1_Disp.xfocus(this);' onkeydown='if(xml_ready)DataGrid1_Disp.keys(this);'></DIV></TD>
<TD><DIV><INPUT TYPE=TEXT NAME="DataGrid1_HireDate" SIZE=18 onFocus='if(xml_ready)DataGrid1_Disp.xfocus(this);' onkeydown='if(xml_ready)DataGrid1_Disp.keys(this);'></DIV></TD>
<TD><DIV><INPUT TYPE=TEXT NAME="DataGrid1_Salary" SIZE=10 onFocus='if(xml_ready)DataGrid1_Disp.xfocus(this);' onkeydown='if(xml_ready)DataGrid1_Disp.keys(this);'></DIV></TD>
<TD><DIV><INPUT TYPE=TEXT NAME="StatusColumn" SIZE=1></DIV></TD>
</TR>
<TR><TD><DIV><INPUT TYPE=TEXT NAME="DataGrid1_EmpNo" SIZE=10 onFocus='if(xml_ready)DataGrid1_Disp.xfocus(this);' onkeydown='if(xml_ready)DataGrid1_Disp.keys(this);'></DIV></TD>
<TD><DIV><INPUT TYPE=TEXT NAME="DataGrid1_LastName" SIZE=20 onFocus='if(xml_ready)DataGrid1_Disp.xfocus(this);' onkeydown='if(xml_ready)DataGrid1_Disp.keys(this);'></DIV></TD>
<TD><DIV><INPUT TYPE=TEXT NAME="DataGrid1_FirstName" SIZE=15 onFocus='if(xml_ready)DataGrid1_Disp.xfocus(this);' onkeydown='if(xml_ready)DataGrid1_Disp.keys(this);'></DIV></TD>
<TD><DIV><INPUT TYPE=TEXT NAME="DataGrid1_PhoneExt" SIZE=4 onFocus='if(xml_ready)DataGrid1_Disp.xfocus(this);' onkeydown='if(xml_ready)DataGrid1_Disp.keys(this);'></DIV></TD>
<TD><DIV><INPUT TYPE=TEXT NAME="DataGrid1_HireDate" SIZE=18 onFocus='if(xml_ready)DataGrid1_Disp.xfocus(this);' onkeydown='if(xml_ready)DataGrid1_Disp.keys(this);'></DIV></TD>
<TD><DIV><INPUT TYPE=TEXT NAME="DataGrid1_Salary" SIZE=10 onFocus='if(xml_ready)DataGrid1_Disp.xfocus(this);' onkeydown='if(xml_ready)DataGrid1_Disp.keys(this);'></DIV></TD>
<TD><DIV><INPUT TYPE=TEXT NAME="StatusColumn" SIZE=1></DIV></TD>
</TR>
<TR><TD><DIV><INPUT TYPE=TEXT NAME="DataGrid1_EmpNo" SIZE=10 onFocus='if(xml_ready)DataGrid1_Disp.xfocus(this);' onkeydown='if(xml_ready)DataGrid1_Disp.keys(this);'></DIV></TD>
<TD><DIV><INPUT TYPE=TEXT NAME="DataGrid1_LastName" SIZE=20 onFocus='if(xml_ready)DataGrid1_Disp.xfocus(this);' onkeydown='if(xml_ready)DataGrid1_Disp.keys(this);'></DIV></TD>
<TD><DIV><INPUT TYPE=TEXT NAME="DataGrid1_FirstName" SIZE=15 onFocus='if(xml_ready)DataGrid1_Disp.xfocus(this);' onkeydown='if(xml_ready)DataGrid1_Disp.keys(this);'></DIV></TD>
<TD><DIV><INPUT TYPE=TEXT NAME="DataGrid1_PhoneExt" SIZE=4 onFocus='if(xml_ready)DataGrid1_Disp.xfocus(this);' onkeydown='if(xml_ready)DataGrid1_Disp.keys(this);'></DIV></TD>
<TD><DIV><INPUT TYPE=TEXT NAME="DataGrid1_HireDate" SIZE=18 onFocus='if(xml_ready)DataGrid1_Disp.xfocus(this);' onkeydown='if(xml_ready)DataGrid1_Disp.keys(this);'></DIV></TD>
<TD><DIV><INPUT TYPE=TEXT NAME="DataGrid1_Salary" SIZE=10 onFocus='if(xml_ready)DataGrid1_Disp.xfocus(this);' onkeydown='if(xml_ready)DataGrid1_Disp.keys(this);'></DIV></TD>
<TD><DIV><INPUT TYPE=TEXT NAME="StatusColumn" SIZE=1></DIV></TD>
</TR>
<TR><TD><DIV><INPUT TYPE=TEXT NAME="DataGrid1_EmpNo" SIZE=10 onFocus='if(xml_ready)DataGrid1_Disp.xfocus(this);' onkeydown='if(xml_ready)DataGrid1_Disp.keys(this);'></DIV></TD>
<TD><DIV><INPUT TYPE=TEXT NAME="DataGrid1_LastName" SIZE=20 onFocus='if(xml_ready)DataGrid1_Disp.xfocus(this);' onkeydown='if(xml_ready)DataGrid1_Disp.keys(this);'></DIV></TD>
<TD><DIV><INPUT TYPE=TEXT NAME="DataGrid1_FirstName" SIZE=15 onFocus='if(xml_ready)DataGrid1_Disp.xfocus(this);' onkeydown='if(xml_ready)DataGrid1_Disp.keys(this);'></DIV></TD>
<TD><DIV><INPUT TYPE=TEXT NAME="DataGrid1_PhoneExt" SIZE=4 onFocus='if(xml_ready)DataGrid1_Disp.xfocus(this);' onkeydown='if(xml_ready)DataGrid1_Disp.keys(this);'></DIV></TD>
<TD><DIV><INPUT TYPE=TEXT NAME="DataGrid1_HireDate" SIZE=18 onFocus='if(xml_ready)DataGrid1_Disp.xfocus(this);' onkeydown='if(xml_ready)DataGrid1_Disp.keys(this);'></DIV></TD>
<TD><DIV><INPUT TYPE=TEXT NAME="DataGrid1_Salary" SIZE=10 onFocus='if(xml_ready)DataGrid1_Disp.xfocus(this);' onkeydown='if(xml_ready)DataGrid1_Disp.keys(this);'></DIV></TD>
<TD><DIV><INPUT TYPE=TEXT NAME="StatusColumn" SIZE=1></DIV></TD>
</TR>
</TABLE></TD>
</TR></TABLE></FORM>
<FORM NAME=Submit_XMLBroker1 ACTION="/XMLBroker1" METHOD="POST"> <INPUT TYPE=HIDDEN NAME="XMLBROKER" VALUE="XMLBroker1">
<INPUT TYPE=HIDDEN NAME="postdelta">
<INPUT TYPE=HIDDEN NAME="PRODUCER" VALUE="MidasPageProducer1">
<INPUT TYPE=HIDDEN NAME="REDIRECT" VALUE="http://">
</FORM>
<SCRIPT language=JavaScript type="text/javascript">
var XMLBroker1_XML =
' <DATAPACKET Version="2.0"><METADATA><FIELDS><FIELD attrname="EmpNo" fieldtype="i4"/><FIELD attrname="LastName" fieldtype="string" WIDTH="20"/><FIELD attrname="FirstName" fieldtype="string" WIDTH="15"/>
<FIELD attrname="PhoneExt" fieldtype="string" WIDTH="4"/><FIELD attrname="HireDate" fieldtype="dateTime"/>
<FIELD attrname="Salary" fieldtype="r8"/></FIELDS><PARAMS LCID="1033"/></METADATA><ROWDATA>
<ROW EmpNo="2" LastName="Nelson" FirstName="Roberto" PhoneExt="250" HireDate="19881228" Salary="40000"/>
<ROW EmpNo="4" LastName="Young" FirstName="Bruce" PhoneExt="233" HireDate="19881228" Salary="55500"/>
<ROW EmpNo="5" LastName="Lambert" FirstName="Kim" PhoneExt="22" HireDate="19890206" Salary="25000"/>
<ROW EmpNo="8" LastName="Johnson" FirstName="Leslie" PhoneExt="410" HireDate="19890405" Salary="25050"/>
<ROW EmpNo="9" LastName="Forest" FirstName="Phil" PhoneExt="229" HireDate="19890417" Salary="25050"/>
<ROW EmpNo="11" LastName="Weston" FirstName="K. J." PhoneExt="34" HireDate="19900117" Salary="33292.9375"/>
<ROW EmpNo="12" LastName="Lee" FirstName="Terri" PhoneExt="256" HireDate="19900501" Salary="45332"/>
<ROW EmpNo="14" LastName="Hall" FirstName="Stewart" PhoneExt="227" HireDate="19900604" Salary="34482.625"/>
<ROW EmpNo="15" LastName="Young" FirstName="Katherine" PhoneExt="231" HireDate="19900614" Salary="24400"/>
<ROW EmpNo="20" LastName="Papadopoulos" FirstName="Chris" PhoneExt="887" HireDate="19900101" Salary="25050"/>
<ROW EmpNo="24" LastName="Fisher" FirstName="Pete" PhoneExt="888" HireDate="19900912" Salary="23040"/>
<ROW EmpNo="28" LastName="Bennet" FirstName="Ann" PhoneExt="5" HireDate="19910201" Salary="34482.8"/>
<ROW EmpNo="29" LastName="De Souza" FirstName="Roger" PhoneExt="288" HireDate="19910218" Salary="25500"/>
<ROW EmpNo="34" LastName="Baldwin" FirstName="Janet" PhoneExt="2" HireDate="19910321" Salary="23300"/>
<ROW EmpNo="36" LastName="Reeves" FirstName="Roger" PhoneExt="6" HireDate="19910425" Salary="33620"/>
<ROW EmpNo="37" LastName="Stansbury" FirstName="Willie" PhoneExt="7" HireDate="19910425" Salary="39224"/>
<ROW EmpNo="44" LastName="Phong" FirstName="Leslie" PhoneExt="216" HireDate="19910603" Salary="40350"/>
<ROW EmpNo="45" LastName="Ramanathan" FirstName="Ashok" PhoneExt="209" HireDate="19910801" Salary="33292.94"/>
<ROW EmpNo="46" LastName="Steadman" FirstName="Walter" PhoneExt="210" HireDate="19910809" Salary="19599"/>
<ROW EmpNo="52" LastName="Nordstrom" FirstName="Carol" PhoneExt="420" HireDate="19911002" Salary="4500"/>
<ROW EmpNo="61" LastName="Leung" FirstName="Luke" PhoneExt="3" HireDate="19920218" Salary="34500"/>
<ROW EmpNo="65" LastName="O'Brien" FirstName="Sue Anne" PhoneExt="877" HireDate="19920323" Salary="31275"/>
<ROW EmpNo="71" LastName="Burbank" FirstName="Jennifer M." PhoneExt="289" HireDate="19920415" Salary="45332"/>
<ROW EmpNo="72" LastName="Sutherland" FirstName="Claudia" HireDate="19920420" Salary="35699"/>
<ROW EmpNo="83" LastName="Bishop" FirstName="Dana" PhoneExt="290" HireDate="19920601" Salary="45000"/>
<ROW EmpNo="85" LastName="MacDonald" FirstName="Mary S." PhoneExt="477" HireDate="19920601" Salary="35699"/>
<ROW EmpNo="94" LastName="Williams" FirstName="Randy" PhoneExt="892" HireDate="19920808" Salary="28900"/>
<ROW EmpNo="105" LastName="Bender" FirstName="Oliver H." PhoneExt="255" HireDate="19921008" Salary="36799"/>
<ROW EmpNo="107" LastName="Cook" FirstName="Kevin" PhoneExt="894" HireDate="19930201" Salary="35500"/>
<ROW EmpNo="109" LastName="Brown" FirstName="Kelly" PhoneExt="202" HireDate="19930204" Salary="27000"/>
<ROW EmpNo="110" LastName="Ichida" FirstName="Yuki" PhoneExt="22" HireDate="19930204" Salary="25689"/>
<ROW EmpNo="113" LastName="Page" FirstName="Mary" PhoneExt="845" HireDate="19930412" Salary="48000"/>
<ROW EmpNo="114" LastName="Parker" FirstName="Bill" PhoneExt="247" HireDate="19930601" Salary="35000"/>
<ROW EmpNo="118" LastName="Yamamoto" FirstName="Takashi" PhoneExt="23" HireDate="19930701" Salary="32500"/>
<ROW EmpNo="121" LastName="Ferrari" FirstName="Roberto" PhoneExt="1" HireDate="19930712" Salary="40500"/>
<ROW EmpNo="127" LastName="Yanowski" FirstName="Michael" PhoneExt="492" HireDate="19930809" Salary="44000"/>
<ROW EmpNo="134" LastName="Glon" FirstName="Jacques" HireDate="19930823" Salary="24855"/>
<ROW EmpNo="136" LastName="Johnson" FirstName="Scott" PhoneExt="265" HireDate="19930913" Salary="30588.99"/>
<ROW EmpNo="138" LastName="Green" FirstName="T.J." PhoneExt="218" HireDate="19931101" Salary="36000"/>
<ROW EmpNo="141" LastName="Osborne" FirstName="Pierre" HireDate="19940103" Salary="35600"/>
<ROW EmpNo="144" LastName="Montgomery" FirstName="John" PhoneExt="820" HireDate="19940330" Salary="35699"/>
<ROW EmpNo="145" LastName="Guckenheimer" FirstName="Mark" PhoneExt="221" HireDate="19940502" Salary="32000"/>
</ROWDATA></DATAPACKET>';
var XMLBroker1_Doc = new Document(XMLBroker1_XML);
var XMLBroker1_RS = new xmlRowSet(XMLBroker1_Doc, null, null);
var Submit_XMLBroker1 = document.forms['Submit_XMLBroker1'];
var DataForm1 = document.forms['DataForm1'];
var DataGrid1_Names = new Array("EmpNo", "LastName", "FirstName",
"PhoneExt", "HireDate", "Salary");
var DataGrid1_IDs = new Array(DataForm1.DataGrid1_EmpNo,
DataForm1.DataGrid1_LastName, DataForm1.DataGrid1_FirstName,
DataForm1.DataGrid1_PhoneExt, DataForm1.DataGrid1_HireDate,
DataForm1.DataGrid1_Salary);
var DataGrid1_Disp = new xmlDisplay(XMLBroker1_RS, DataGrid1_IDs, DataGrid1_Names, DataForm1.StatusColumn);
xml_ready=true;
</SCRIPT>

</BODY>
</HTML>

...全文
94 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
WATTER 2001-08-02
  • 打赏
  • 举报
 回复
我在用李维的方法是碰到两个问题：
1、编写ISAPI/NSAPI形式的web应用程序，最后生成*.dll文件，在浏览器中访问该文件，正常，关闭浏览器，
在工程项目中做进一步修改，编译，这时出错，显示无法编译，存盘重新启动系统再次编译，正常，初步理解：
虽然浏览器关闭，但dll文件没有关闭，仍在运行，故无法编译，如何解决？
2、编写CGI形式的web应用程序,最后生成*.exe文件，在浏览器中访问时，下载工具(FlashJet)自动启动，
关闭下载工具后，可以看到正确结果，如何避免下载工具的自动启动？
gaochunguang 2001-06-03
  • 打赏
  • 举报
 回复
*.js文件放到当前目录
dana 2001-06-03
  • 打赏
  • 举报
 回复
你写的也够多的，IE5应该没这问题.
abitoom 2000-07-28
  • 打赏
  • 举报
 回复
你到http://www.delphibbs.com上有与你类似的问题解决。
Delphi6分布式开发
1．5 用delphi进行分布式应用程序的开发 1．5．1 delphi 6支持的分布式组件技术 1．5．2 开发midas应用 1．5．3 开发分布式web技术 第二篇 delphi 6的 comidcom／com十编程 第 2章 delphi 6的 com编程基础 ...
Delphi电子商务网站建构实务
本书是目前唯一深入讨论Delphi的HTML、JavaScript、Database、MIDAS及InternetExpress等技术的书籍，此外本书也讨论了如何结合Web应用程序实例来建构电子商务系统。只要您想了解或是开发Web应用系统和电子商务系统，...
067_《Delphi7组件与分布式应用开发》
贯穿实例深入浅出地介绍了Delphi 7支持的组件技术、VCL库的扩充的一般方法、可视组件的开发与发布、ActiveX控件技术、COM/DCOM/COM+的基本概念与原理、在Delphi 7中使用COM/DCOM/COM+、CORBA技术体系、应用CORBA、...
Delphi 6 程序员代码编写标准指南
Delphi 6 程序员代码编写标准指南 一、序言 二、通用源代码格式规则 2.1 缩格 2.2 页边空格 2.3 Begin…End 配对 2.4 代码文件中通用符号含义 三、Object Pascal 3.1 括号 3.2 保留字和关键字 3.3 过程和函数（例程...
c++ builder 电子商务网站构建实务 part1
本书共分为8章，包括开发Web应用系统前的准备工作；占有重要地位的HTML及Java Script；C++ Builder的数据库程序基本操作；C++ Builder的MIDAS技术；如何利用C++ Builder来开发CGI及ISAPI的应用程序；MIDAS技术在Web...
Delphi

5,386

社区成员

262,729

社区内容

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章