ASP中非数据库实现数据对象的定义及处理

最新推荐文章于 2024-07-19 17:59:24 发布
最新推荐文章于 2024-07-19 17:59:24 发布
阅读量2.8k 收藏
点赞数
分类专栏： Web开发 文章标签： 数据库 asp dictionary vbscript xml input
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/dtdn/article/details/630366
版权

 

说非数据库方式，有些托大，但在没有数据库的情况下，也算给了一个锻炼的好机会，更何况本人对有事没事就整数据库玩的方式是深恶痛绝，有些时候，在资源有限及功能简单的情况下，利用文件管理本身就能很好的实现一个系统，又何必非用数据库不可呢？

好的，开说ASP程序，ASP程序强大的原因主要在于COM对象的扩展，所以在一阵的头脑风暴后，打起了一套组合拳：Scripting.FileSystemObject，Scripting.Dictionary以及Msxml2.DOMDocument.4.0。

下面就以文件管理程序为例，对实现做简要说明：

首先，是构思。

1. 管理的数据对象是文件对象，而文件对象可以对应到XML中的某个结点

2. 文件对象的结构，可以自行定义

3. 文件对象的增加、删除、修改以及查询

 

       XML中充分利用Xpath，实现查询比较简单，所以构思后问题主要应该归结为XML结点的增删改的问题，以及对象结构的定义。增删改不必多说，关键是对象结构的自定义（在面向对象中就是类的声明）。

接下来，是实现。

一是结构文件

这里结构包括：英文名字，中文显示名，类型，显示模版（或参照），默认值等

其实就是类似schema的东西，然后把这些结构保存在一个文件中，很多操作时就可以在循环中自动处理了，比如显示一个文件时，就可以按照这个结构来显示所有属性字段。

如下为一个结构文件documentx.dna的示范内容：

*/DOCS=文件

*/DOCS/@VERSION=版本%%STRING%%[NUM].[NUM].[NUM].[NUM]%% 1.0.0 .0

*/DOCS/DOC=文件

+/DOCS/DOC/@ID=标识%%STRING%%%%=UniqueID()

+/DOCS/DOC/@HOT=人气%%NUM%%%%0

/DOCS/DOC/TITLE=标题

/DOCS/DOC/DEPARTFROM=来文单位%%DICTIONARY%%department%%

/DOCS/DOC/@DONE=是否处理完毕%%BOOL%%%%

需要说明的是英文名称采用Xpath的方式，是为了方便XML处理。

英文名称前加*号表示为系统字段，同时也是非文件对象的属性字段

英文名称前加+表示该字段对用户来说是只读的，其值由系统指定。

另外前加*或者加+号也好，也有防止误删的原因，因为*号或+号是不会显示给用户的。

用=号分隔英文名称与其他部分，而其他部分中用%%分隔，依次为中文显示名，该项类型，显示模版（或参照），默认值。

需要说明的是类型，如果类型为DICTIONARY的话，显示模版（或参照）或参照的为具体的DICTIONARY文件，DICTIONARY的保存形式，形同Delphi中TstringList的保存形式，用=号把关键字与值分隔：

CS1=测试单位1

CS2=测试单位2

 

二是利用新建一个文件，说明显示的问题

先看示范文件：

<% @LANGUAGE=VBSCRIPT %>

<%

Dim sKey, sValue, Sign, Pos, AttrID, Values, F, FName, Count

%>

<html>

<head>

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

<meta http-equiv="Content-Language" content="zh-cn">

</head>

<body>

<form method="POST" action="Documents!Save.asp">

<table border="0" width="100%" cellpadding="0" style="border-collapse: collapse">

       <tr>

              <td bgcolor="#C 0C 0C 0"><b>新建</b></td>

       </tr>

       <tr>

              <td>

              <table border="1" width="100%" cellspacing="0" cellpadding="0" style="border-collapse: collapse" bordercolor="#000000">

                     <tr>

                            <td width="10%">项</td>

                            <td>值</td>

                     </tr>

<%

'Count = 0

'DOCUMENTX为Scripting.Dictionary对象，为documentx.dna的内容

For Each sKey In DOCUMENTX       

  Sign = Left(sKey, 1)

  If Sign<>"*" Then

    sValue = DOCUMENTX.Item(sKey)

    Values = Split (sValue & "%%%%%%", "%%")

   

    Pos = InStrRev(sKey, "/")

    AttrID = Right(sKey, Len(sKey) - Pos)

    If Left(AttrID,1)="@" Then

      AttrID = Mid(AttrID, 2) & "_INLINE"     '也就是说@为一般为内置属性

    End If

   

    AttrID = "ATTR_" & AttrID

%>

                     <tr>

                            <td width="10%"><%=Values(0)%></td>

                            <td>

<%

    If Sign="+" Then    '如果为只读属性

%>

<input type="hidden" name="<%=AttrID %>" value="" />系统计算：<%=Values(3) %>

<%

Else

  '按照类型进行显示

      If Values(1)="BOOL" Then

        Response.Write "<input type=""checkbox"" name=""" & AttrID & """ value=""1"" />"

      Else

        If Values(1)="DICTIONARY" Then

          'ENVIRONMENT为Scripting.Dictionary对象

'ENVIRONMENT.Item(“ROOT”)中存储了该程序管理的根目录

          FName = ENVIRONMENT.Item("ROOT") & "/dictionary/" & Values(2) & ".dic"

%>

          <select name="<%=AttrID %>">

<%

          If FSO.FileExists(FName) Then

            Set F = FSO.OpenTextFile(FName, 1, False)

            Do While Not F.AtEndOfStream

              sValue = F.ReadLine

              Pos = InStr(sValue, "=")

              If Pos>0 Then

                Response.Write "<option value=""" & Left(sValue, Pos-1) & """>" & Right(sValue, Len(sValue)-Pos) & "</option>"

              End If

            Loop

            F.Close

          End If

%>

          </select>

<%

        Else

          Response.Write "<input type=""textbox"" name=""" & AttrID & """ size=""30"" />"

        End If

      End If

    End If

%>

                            </td>

                     </tr>

<%

    'Count = Count + 1

  End If

Next

%>

                     <tr>

                            <td width="10%">　</td>

                            <td>　</td>

                     </tr>

                     <tr>

                            <td width="10%">　</td>

                            <td>　</td>

                     </tr>

              </table>

              </td>

       </tr>

       <tr>

              <td bgcolor="#C 0C 0C 0" align="right" valign="middle"><input type="submit" name="btnSave" value="保存" /> <input type="button" name="btnReset" value="重输" /></td>

       </tr>

</table>

</form>

</body>

</html>

 

三是利用代码说明xml存储的实现

<% @LANGUAGE=VBSCRIPT %>

<!-- #include file="System.inc.asp" -->

<!-- #include file="Document.inc.asp" -->

<%

'System.inc.asp中包含UniqueID()函数

'首先，获取用户客户端提交的数据信息

Dim PostData

 

Set PostData = Server.CreateObject("Scripting.Dictionary")

 

Dim Values, Key, Value, AttrID, Pos, Sign

 

For Each Key In DOCUMENTX

  Sign = Left(Key, 1)

 

  If Sign<>"*" Then

    Value = DOCUMENTX.Item(Key)

    Values = Split (Value & "%%%%%%", "%%")

   

    Pos = InStrRev(Key, "/")

    AttrID = Mid(Key, Pos + 1)

    If Left(AttrID,1)="@" Then

      AttrID = Mid(AttrID, 2) & "_INLINE"     '也就是说@为一般为内置属性

    End If

   

    AttrID = "ATTR_" & AttrID

 

    If Sign="+" Then

      Key = Mid(Key, 2)

    End If

    'If Sign="+" Then    '系统属性

    'End If

    PostData.Item(Key) = Request.Form(AttrID)   '取得用户提交的数据

  End If

Next

 

'下面是把PostData中的数据存储到XML中去

Dim oXml

Set oXml = Server.CreateObject("Msxml2.DOMDocument.4.0")

 

Dim TimeSpec, ZoneID, DocID, FName, FPath

 

'计算该文档属于的区域

'注意：创建新文档与修改原有文档的计算方式不同，这里只做了创建的处理

 

'新建文档的处理

TimeSpec = Now

 

'ZoneID为YYYYMM形式

ZoneID = Right ("20" & Year(TimeSpec), 4) & Right("0" & Month(TimeSpec), 2)

 

FPath = ENVIRONMENT.Item("ROOT")

 

If Not FSO.FileExists(FPath & "/data/" & ZoneID & ".dat") Then

  If Not FSO.FileExists(FPath & "/etc/blank.dat") Then

    Application("*FAIL") = "系统配置不正确，空白数据模版文件未找到！"

    Set oXml = Nothing

    Set PostData = Nothing

   

    Response.Redirect "Fail.asp"

  End If

 

  FSO.CopyFile FPath & "/etc/blank.dat", FPath & "/data/" & ZoneID & ".dat"

End If

 

oXml.load FPath & "/data/" & ZoneID & ".dat"

 

'由于这里处理的是新建的情况，所以指定新的DocumentID

PostData.Item("/DOCS/DOC/@ID") = UniqueID()

PostData.Item("/DOCS/DOC/@HOT") = "0"

 

DocumentSaveToXml PostData, oXml

 

oXml.save FPath & "/data/" & ZoneID & ".dat"

 

Set oXml = Nothing

 

Set PostData = Nothing

 

Response.Write "OK!"

%>

 

DocumentSaveToXml函数在Document.inc.asp中

<%

'DocumentSaveToXml

'目的：把Dict中的数据导入到指定的Xml对象中去

'说明：如果Dict中指定ID的数据已经存在于Xml中，则替换原有数据

Function DocumentSaveToXml(ByRef Dict, ByRef oXml)

  DocumentSaveToXml = False

 

  If Dict Is Nothing Or oXml Is Nothing Then

    Exit Function

  End If

 

  Dim oXmlRoot, oXmlNode, oXmlSubNode

  Set oXmlRoot = oXml.documentElement

  Set oXmlNode = oXml.createElement("DOC")

 

  Dim Key, Value

  Dim Pos, AttrID, DocID

 

  For Each Key In Dict

    Value = Dict.Item(Key)

   

    '根据Key

    Pos = InStrRev(Key, "/")

    AttrID = Mid(Key, Pos + 1)

   

    If Left(AttrID, 1)="@" Then   '如果是属性

      oXmlNode.setAttribute Mid(AttrID, 2), Value

    Else

      Set oXmlSubNode = oXml.createElement(AttrID)

      oXmlSubNode.text = Value

      oXmlNode.appendChild oXmlSubNode

    End If

  Next

 

  '别忘了，这里的ID属性定义，在documentx.dna中前面加上了+号

  '也正是这些加*或者加+号属性结构不可以删的原因

  DocID = oXmlNode.getAttribute("ID")

 

  Set oXmlSubNode = oXml.selectSingleNode("/DOCS/DOC[@ID=""" & DocID & """]")

  If oXmlSubNode Is Nothing Then

    oXmlRoot.appendChild oXmlNode

  Else

    oXmlRoot.replaceChild oXmlNode, oXmlSubNode

  End If

 

  DocumentSaveToXml = True

End Function

%>

 

dtdn
关注
专栏目录
Java给实体类字段加注解_Spring 注解实体类中非数据库字段属性
weixin_29290259的博客
02-27 5552
iis 使用 LocalDB 报错：provider&colon; SQL Network Interfaces&comma; error&colon; 50在使用asp.net core读取localdb数据库时,报以下错误: 在与 SQL Server 建立连接时出现与网络相关的或特定于实例的错误.未找到或无法访问服务器.请验证实例名称是否正确并且 S ...视觉机器学...
html一次请求数据然后分页,Ajax读取数据之分页显示篇实现代码
weixin_42185419的博客
06-05 554
我觉得还是有必要把我的ajax分页呈现给大家．我先讲一下这个ajax分页的实现核心，然后我们再看实例效果．所谓的ajax分页与传统的数据分页，在服务端的代码基本上是一样的．我们主要做的是使用ajax在不刷新的情况下，将请求的页码，和每页要显示的条数发送给服务端的处理网页．大家点击这个网址就可以看到要请求的数据："ajax_page.asp?action=read&pagecount=3 &...
利用ASP实现事务处理的方法
08-14 1216
在开发Web应用时，无一例外地需要访问数据库，以完成对数据的查询、插入、更新、删除等操作。受应用逻辑的影响，有时需要将多条数据库操作指令组成一个工作单元（事务）。在数据库中，所谓事务是指一组逻辑操作单元，它使数据从一种状态变换到另一种状态。为确保数据库中数据的一致性，应当用离散的成组的逻辑单元操作数据：当它全部完成时，数据的一致性可以保持；而当单元中的一部分操作失败时，整个事务会被全部忽略，所有从
聊聊数据库中的关键字——字段、属性、列、元组、记录、表、主键、外键
热门推荐
程金鹏（程利鹏）
05-16 8万+
学完数据库，我们对SQL SERVER 2008中的部分关键字有了大概的了解，下面我来总结一下几个比较重要的关键字：字段、属性、列、记录（元组）、表、主键、外键。 字段：某一个事物的一个特征，或者说是属性 在我们学vb时，总是用到控件的各种属性，比如name属性、captain属性、width属性等属性。类似，在这里的某一个字段就是对“员工“控件中的属性。 记录（元组）：事物特征
数据对象映射模式(及对象的相关属性和数据库表中的字段一一对应)
weixin_34402408的博客
04-21 1901
<?phpdefine("BASDIR",__DIR__);include BASDIR."/Phpclass/Loader.php";spl_autoload_register("\\Phpclass\\Loader::autoload_rege");$user = new \Phpclass\User(1);var_dump($user->id,$user->usernam...
【.NET全栈】ASP.NET开发Web应用——ADO.NET数据访问技术
最新发布
JosieBook
07-19 1179
接下来介绍数据库驱动的ASP.NET应用程序。大多数Web应用程序都是基于数据库。比如电子商务平台，各大监控平台。数据库具有强大、灵活的后端管理与存储数据的能力ADO.NET则是应用程序和数据库之间的数据访问层，ASP.NET通过ADO.NET来操作数据库。ADO.NET本身也是基于多层架构设计，除了应用于普通的应用程序中，在分布式系统开发中，同样具有强大的功能。认识ADO.NET数据访问技术连接数据库与数据库进行交互管理内存中的数据。
ajax怎么付分页数据,Ajax读取数据之分页显示篇实现代码
weixin_35067976的博客
08-05 513
我觉得还是有必要把我的ajax分页呈现给大家．我先讲一下这个ajax分页的实现核心，然后我们再看实例效果．所谓的ajax分页与传统的数据分页，在服务端的代码基本上是一样的．我们主要做的是使用ajax在不刷新的情况下，将请求的页码，和每页要显示的条数发送给服务端的处理网页．大家点击这个网址就可以看到要请求的数据："ajax_page.asp?action=read&pagecount=3 &...
【面试】ASP.NET Core+Redis+Mysql面试题&答案
在这里你大概率会有所收获，欢迎指错||纠正||建议||水评+点赞&&评论&&关注&&转发
08-09 4582
.NET Core 1.如何在ASP.NET Core中激活Session功能 2.什么是中间件 3.Applicationbuilder的Use和Run方法有什么区别 4.如何使taghelper在元素这一层上失效 5.何为ASP.NET Core 6.ASP.NET Core中AOP的支持有哪些 7.ASP.NET Core Filter的注册方式有哪些 8.ASP.NET Core Filter 如何支持依赖注入 9.ASP.NET Core如何读取配置文件的内容 10.ASP.NET Core有哪些
ASP.NET基于WEB的工作计划流程管理系统的设计与实现(源代码+论文).zip
04-08
这个系统不仅是一个实用工具，也展示了ASP.NET如何应用于企业级Web应用开发，对于学习ASP.NET、数据库管理（通常与ASP.NET结合使用如SQL Server）以及工作流程自动化的人来说，这是一个宝贵的资源。同时，附带的论文...
使用ASP.NET实现与echarts的实时数据通信
在本章中，我们将介绍ASP.NET和echarts，并解释实时数据通信的意义和应用场景。 ## 1.1 ASP.NET和echarts的介绍 ASP.NET是一种用于构建Web应用程序的开发框架，由Microsoft开发和维护。它提供了许多功能强大且易于...
ASP.NET Core中的数据访问与存储
在ASP.NET Core中，数据访问是指通过代码与数据库或其他数据存储系统进行交互的过程。数据访问通常包括数据的读取、更新、删除等操作。在本章节中，我们将介绍数据访问的基本概念，包括数据库驱动程序、数据访问层等...
GraphChain：基于区块链的分布式数据库，具有明确语义和链接RDF图的特性
11710GraphChain - 具有明确语义和链接RDF图的分布式数据库 �0米雷克∙索佩克MakoLab S.A.Łódź，波兰索佩克@makolab . com0普热梅斯瓦夫∙格拉茨基研发团队，DCLublin MakoLabS.A.，波兰卢布林普热梅斯...
WinXP的IIS中解决FileSystemObject不能写入已有文件或删除文件提示没有权限的问题时学到的两个知识点
dtdn的专栏
02-14 3890
　　利用WinXP的IIS时，发现利用FileSystemObject总是不能写入一个已有的文件，而且也不能删除某个文件，提示——没有权限。　　尝试了各种设置，但总不切根本，花掉两天时间，利用Google总算找到了解决方案，也算获得了两点关于WinXP的知识点：　　1、WinXP中所有的目录都是只读属性的，取消后只是取消目录下文件的只读属性，而目录的只读不在具备其只读含义。（http://
XMLHTTP开发Web 客户端
dtdn的专栏
04-25 2752
　　关键字：XMLHTTP，XML，Web客户端，C#，ASP　　所有的知识都不是最新的知识点，关键是达到自己的设计目的。　　某些时候，我们可能需要客户端做点什么以简化复杂的脚本处理，比如加密之类的等。　　不管用什么样的客户端，首先我们应该确定我们遵守的协议，或者说如何设置或获取我的数据。这里，我们的服务器端为IIS5的ASP程序，所以我们首先遵守的是HTTP协议，然后在HTTP协议上
利用XSLT来换XML的根
dtdn的专栏
04-13 2472
　　写程序需要换XML的根，感觉很不便，于是写了一个函数，大致思路及实现如下：　　首先觉得利用XSLT还能过滤一些东西，然后再发送回客户端，所以决定采用XSLT　　然后就是尝试写一个换根的XSL，如下http://www.w3.org/1999/XSL/Transform">                大致意思是，解析一个XML中的所有结点及属性，如果非根就直接拷贝，否
ASP.NET与SQL数据库实现图片上传与处理
"基于ASP.NET和Sql数据库的图片处理技术" 在Web开发中，图片处理是一项基本但至...这篇文章详细阐述了如何利用ASP.NET和SQL数据库协同工作，实现一个完整的图片处理系统，对于.NET开发者来说，是一个实用的技术指南。
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值