社区 › ASP网页编程 › ASP编程：ADO Recordset 耐久化 格局 XML 读取 保...

精灵巫婆 发表于 2015-2-3 23:38:21

ASP编程：ADO Recordset 耐久化 格局 XML 读取 保...

asp，你就只能等着微软给你解决，它不乐意你就只好悲催。而且asp跑在windows服务器上，windows服务器跟linux比起来简直弱爆了！ado|xml   <!-- METADATA TYPE="TypeLib" UUID="00000200-0000-0010-8000-00AA006D2EA4" -->
<%
Class DataSet
Private Recordset
Public TableName, FieldCount
Public XmlString

Private TableMap


Private Sub Class_Initialize ' 设置 Initialize 事务。
Set Recordset = Server.CreateObject("ADODB.RecordSet")
Recordset.ActiveConnection = "Provider=MSDAOSP; Data Source=Msxml2.DSOControl;"
End Sub

Private Sub Class_Terminate ' 设置 Terminate 事务。
Set Recordset = Nothing
End Sub

Function ReadXml(Name, filespec)
TableName = Name
Recordset.Open(filespec)
End Function

Function GetXml()
Call GetTableMap()
Do While not Recordset.Eof
XmlString = XmlString + GetXmlRow(Recordset.Fields)
Recordset.MoveNext()
Loop
Recordset.Close
XmlString = XmlRow(TableName, XmlString)
GetXml = XmlString

End Function

Sub GetTableMap()
IF (not Recordset.Eof) Then
FieldCount = Recordset.Fields.Count - 2
Execute("ReDim TableMap("& FieldCount &")")
For i = 0 To FieldCount
TableMap(i) = Recordset.Fields.Item(i).Name
Next
End IF
End Sub

Function GetXmlRow(Item)
Dim XmlRowString
For i = 0 To FieldCount
XmlRowString = XmlRowString + XmlField(TableMap(i), Item(i).Value)
Next
GetXmlRow = XmlRow("Row", XmlRowString)
End Function

Function XMlEncode(XmlString)
XmlString = WordStr(XmlString, "<", "<")
XmlString = WordStr(XmlString, ">", ">")
XMlEnCode = XmlString
End Function

Function XmlField(NodeName, NodeValue)
XmlField = "<"+ NodeName +">"+ XMlEncode(NodeValue) +"</"+ NodeName +">"
End Function

Function XmlRow(NodeName, NodeValue)
XmlRow = "<"+ NodeName +">"+ NodeValue +"</"+ NodeName +">"
End Function

End Class

Dim ds : Set ds = new DataSet
Call ds.ReadXml( "News", Server.MapPath("news.xml") )

Response.ContentType = "text/xml"
Response.Write(ds.GetXml())

Set ds = Nothing
%>


</p>强大的可扩展性。ASP具有强大的扩展性，可以实现与多种网络、硬件设备的连接：通过专用的通讯线路远程接入企业； 通过远程拨号服务器为远程拨号客户提供服务；通过WAP为移动电话互联网客户服务。

爱飞 发表于 2015-2-4 04:09:42

以HTML语言整合(HTML负责界面上，ASP则负责功能上)形成一个B/S(浏览器/服务器)模式的网页程序。

第二个灵魂 发表于 2015-2-7 10:25:52

如何更好的使自己的东西看上去很不错等等。其实这些都不是问题的实质，我们可以在实践中不断提升自己，不断充实自己。

不帅 发表于 2015-2-21 18:32:53

不是很难但是英文要有一点基础网上的教程很少有系统的详细的去买书吧,另不用专门学习vb关于vbscript脚本在asp教材都有介绍

小女巫 发表于 2015-2-26 06:08:59

用户端的浏览器不需要提供任何别的支持，这样大提高了用户与服务器之间的交互的速度。

飘飘悠悠 发表于 2015-3-1 15:16:41

Response:从字面上讲是“响应”，因此这个是服务端向客户端发送东西的，例如Response.Write

愤怒的大鸟 发表于 2015-3-2 22:25:06

运用经典的例子。并且自己可以用他来实现一些简单的系统。如果可以对他进行进一步的修改，找出你觉得可以提高性能的地方，加上自己的设计，那就更上一个层次了，也就会真正地感到有所收获。

若相依 发表于 2015-3-9 14:22:32

不是很难但是英文要有一点基础网上的教程很少有系统的详细的去买书吧,另不用专门学习vb关于vbscript脚本在asp教材都有介绍

admin 发表于 2015-3-16 23:25:56

我们必须明确一个大方向，不要只是停留在因为学而去学,我们应有方向应有目标.

深爱那片海 发表于 2015-3-23 06:32:17

不是很难但是英文要有一点基础网上的教程很少有系统的详细的去买书吧,另不用专门学习vb关于vbscript脚本在asp教材都有介绍

再现理想 发表于 2015-4-1 18:08:45

我就感觉到ASP和一些常用的数据库编程以及软件工程方面的思想是非常重要的。我现在也在尝试自己做网页，这其中就用到了ASP，我想它的作用是可想而知的。

仓酷云 发表于 2015-4-3 20:40:11

代码的可重用性差：由于是面向结构的编程方式，并且混合html，所以可能页面原型修改一点，整个程序都需要修改，更别提代码重用了。

简单生活 发表于 2015-4-11 03:32:39

ASP（ActiveServerPages）是Microsfot公司1996年11月推出的WEB应用程序开发技术，它既不是一种程序语言，也不是一种开发工具，而是一种技术框架，不须使用微软的产品就能编写它的代码，能产生和执行动态、交互式、高效率的站占服务器的应用程序。

小妖女 发表于 2015-4-21 20:44:39

我想问如何掌握学习节奏(先学什么再学什么)最好详细点?

飘灵儿 发表于 2015-4-26 11:11:35

下面简单介绍一下我学习ASP的方法,希望对想学习ASP的朋友有所帮助...

金色的骷髅 发表于 2015-6-5 14:09:35

我认为比较好的方法是找一些比较经典的例子，每个例子比较集中一种编程思想而设计的。

冷月葬花魂 发表于 2015-6-7 20:39:20

学习ASP其实应该上升到如何学习程序设计这种境界，其实学习程序设计又是接受一种编程思想。比如ASP如何学习，你也许在以前的学习中碰到过。以下我仔细给你说几点:

因胸联盟 发表于 2015-7-2 12:28:34

从事这个行业，那么你可以学ASP语言，简单快速上手，熟练dreamweav排版，写asp代码，熟练photoshop处理图片，打好基础就行了

精灵巫婆 发表于 2015-7-7 22:17:06

我就感觉到ASP和一些常用的数据库编程以及软件工程方面的思想是非常重要的。我现在也在尝试自己做网页，这其中就用到了ASP，我想它的作用是可想而知的。

查看完整版本: ASP编程：ADO Recordset 耐久化 格局 XML 读取 保...