仓酷云

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 386|回复: 8
打印 上一主题 下一主题

[学习教程] ASP网页编程之实例练习训练ASP+XML编程(4)

[复制链接]
海妖 该用户已被删除
跳转到指定楼层
楼主
发表于 2015-1-16 22:30:35 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
想法是和程序员的想法不一样的.至于为什么.大家去想一想.跟心理学有关的5、程序首页(default.asp)

挪用响应的包括文件和大众函数,格局化XML文件,并举行显现。能够看到,页面Title是可定制的,大众的头部和尾部都做成了响应的包括文件。C_TITLE、C_XMLFILE和C_XSLFILE为大众常量,在constpub.asp文件中界说,至于它们的意义,信任读者能够很简单地分明。这里挪用了下面界说的FormatXml函数。
<%OptionExplicit
***********************************************
申明:通信录
gwd2002-11-05
***********************************************
%>
<!--#includefile="pub/funcxml.asp"-->
<!--#includefile="pub/constpub.asp"-->
<HTML>
<HEAD>
<TITLE><%=C_TITLE%></TITLE>
<METAHTTP-EQUIV="content-type"CONTENT="text/html;charset=GB2312"/>
<linkrel="stylesheet"href="contact.CSS"type="text/css">
</HEAD>
<BODY>
<!--#includefile="pub/header.asp"-->
<%=FormatXml(C_XMLFILE,C_XSLFILE)%>
<br>
<!--#includefile="pub/footer.asp"-->
</BODY>
</HTML>
  6、增加、修正和删除XML中的信息

我们晓得,在Cls_Person中已界说了响应的办法,因而,在各个文件中,只必要挪用对应的办法便可。增加信息的文件为add.asp,修正信息的文件为edit.asp,删除信息的文件为delete.asp,我们仅以add.asp文件为例举行申明。个中的CheckStrInput和CheckStrOutput函数,用来格局化用户的输出和输入字符串。
<%OptionExplicit
***********************************************
申明:37080308通信录
gwd2002-11-05
***********************************************
%>
<!--#includefile="pub/funcxml.asp"-->
<!--#includefile="pub/constpub.asp"-->
<!--#includefile="pub/funcpub.asp"-->
<!--#includefile="pub/class/clsPerson.asp"-->
<%
 DimobjXml,objPerson
 DimstrErr
 SetobjXml=Server.CreateObject("MSXML2.DOMDocument")
 SetobjPerson=NewCls_Person天生Cls_Person工具
 IfRequest.Form("btnOk")<>""Then
  IfLoadXmlDoc(objXml,C_XMLFILE,False,strErr)Then装载XML文件
   给响应的属性赋值
   objPerson.Name=CheckStrInput(Request.Form("txtName"))
   objPerson.Nick=CheckStrInput(Request.Form("txtNick"))
   objPerson.Mobile=CheckStrInput(Request.Form("txtMobile"))
   objPerson.Tel=CheckStrInput(Request.Form("txtTel"))
   objPerson.Email=CheckStrInput(Request.Form("txtEmail"))
   objPerson.QQ=CheckStrInput(Request.Form("txtQQ"))
   objPerson.Company=CheckStrInput(Request.Form("txtCompany"))
   IfNotobjPerson.AddToXml(objXml)Then挪用Cls_Person类的AddToXml办法,增加数据
    AddErrstrErr,objPerson.GetLastError
   Else
    AddErrstrErr,"增加乐成"
    Response.Write"<scriptlanguage=""javascript"">opener.location.reload();</script>"
   EndIf
  EndIf
 EndIf
 SetobjXml=Nothing
%>
<HTML>
<HEAD>
<TITLE><%=C_TITLE%></TITLE>
<METAHTTP-EQUIV="content-type"CONTENT="text/html;charset=GB2312"/>
<linkrel="stylesheet"href="contact.css"type="text/css">
<scriptlanguage="javascript">
<!--
functionCheckForm()
{
 returntrue;
}
//-->
</script>
</HEAD>
<BODY>
<%=strErr%>
<divclass="title">增加接洽信息</div>
<formname="form1"method="post"action="add.asp">
 <tablealign="center"width="100%"cellspacing="1"cellpadding="2"border="0"bgcolor="#666600">
  <trbgcolor="#ffffff">
   <tdwidth="25%"bgcolor="#e5e5e5"align="right"><b>姓名:</b></td>
   <tdwidth="75%"><inputtype="text"name="txtName"size="25"class="input"value="<%=CheckStrOutput(objPerson.Name)%>"></td>
  </tr>
  <trbgcolor="#ffffff">
   <tdbgcolor="#e5e5e5"align="right"><b>英文名:</b></td>
   <td><inputtype="text"name="txtNick"size="25"class="input"value="<%=CheckStrOutput(objPerson.Nick)%>"></td>
  </tr>
  <trbgcolor="#ffffff">
   <tdbgcolor="#e5e5e5"align="right"><b>手机:</b></td>
   <td><inputtype="text"name="txtMobile"size="25"class="input"value="<%=CheckStrOutput(objPerson.Mobile)%>"></td>
  </tr>
  <trbgcolor="#ffffff">
   <tdbgcolor="#e5e5e5"align="right"><b>德律风:</b></td>
   <td><inputtype="text"name="txtTel"size="25"class="input"value="<%=CheckStrOutput(objPerson.Tel)%>"></td>
  </tr>
  <trbgcolor="#ffffff">
   <tdbgcolor="#e5e5e5"align="right"><b>Email:</b></td>
   <td><inputtype="text"name="txtEmail"size="25"class="input"value="<%=CheckStrOutput(objPerson.Email)%>"></td>
  </tr>
  <trbgcolor="#ffffff">
   <tdbgcolor="#e5e5e5"align="right"><b>QQ:</b></td>
   <td><inputtype="text"name="txtQQ"size="25"class="input"value="<%=CheckStrOutput(objPerson.QQ)%>"></td>
  </tr>
  <trbgcolor="#ffffff">
   <tdbgcolor="#e5e5e5"align="right"><b>地点公司:</b></td>
   <td><inputtype="text"name="txtCompany"size="25"class="input"value="<%=CheckStrOutput(objPerson.Company)%>"></td>
  </tr>
 </table>
 <br>
 <divalign="center">
 <inputtype="submit"name="btnOk"value="提交">
 <inputtype="button"name="btnClose"value="封闭">
 </div>
</form>
</BODY>
</HTML>
<%
SetobjPerson=Nothing
%>
  7、总结

到此,我们的接洽信息办理程序就半途而废了。怎样,感到怎样,应当来讲仍是相称复杂的吧。固然了,这个例程另有很多能够改善的中央,我这里也只不外是举一反三,但愿读者在把握了XML编程以后,自行修正完美吧。

此例程已在我本机(WindowsServer2000、IIS5.0和IE6.0)和网长进行了测试,都可以一般运转。

 点击下载本文源代码
专业性的服务。有的ASP商提供垂直型的应用服务,针对某一特定行业提供应用服务。
谁可相欹 该用户已被删除
沙发
发表于 2015-1-19 15:51:14 | 只看该作者
交流是必要的,不管是生活还是学习我们都要试着去交流,通过交流我们可以学到很多我们自己本身所没有的知识,可以分享别人的经验甚至经历。
愤怒的大鸟 该用户已被删除
板凳
发表于 2015-1-25 07:43:09 | 只看该作者
弱类型造成潜在的出错可能:尽管弱数据类型的编程语言使用起来回方便一些,但相对于它所造成的出错几率是远远得不偿失的。
深爱那片海 该用户已被删除
地板
发表于 2015-2-2 16:38:04 | 只看该作者
掌握asp的特性而且一定要知道为什么。
5#
发表于 2015-2-8 01:46:25 | 只看该作者
我想问如何掌握学习节奏(先学什么再学什么)最好详细点?
再见西城 该用户已被删除
6#
发表于 2015-2-24 00:09:26 | 只看该作者
它可通过内置的组件实现更强大的功能,如使用A-DO可以轻松地访问数据库。
兰色精灵 该用户已被删除
7#
发表于 2015-3-7 10:26:32 | 只看该作者
完全不知道到底自己学的是什么。最后,除了教程里面说的几个例子,还是什么都不会。
第二个灵魂 该用户已被删除
8#
发表于 2015-3-14 22:53:53 | 只看该作者
我们必须明确一个大方向,不要只是停留在因为学而去学,我们应有方向应有目标.
爱飞 该用户已被删除
9#
发表于 2015-3-21 14:52:29 | 只看该作者
Response:从字面上讲是“响应”,因此这个是服务端向客户端发送东西的,例如Response.Write
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|仓酷云 鄂ICP备14007578号-2

GMT+8, 2024-12-25 01:31

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表