原出处:http://dev.csdn.net/article/83/83166.shtm
说非数据库方式,有些托大,但在没有数据库的情况下,也算给了一个锻炼的好机会,更何况本人对有事没事就整数据库玩的方式是深恶痛绝,有些时候,在资源有限及功能简单的情况下,利用文件管理本身就能很好的实现一个系统,又何必非用数据库不可呢?
![](/Images/OutliningIndicators/None.gif)
好的,开说ASP程序,ASP程序强大的原因主要在于COM对象的扩展,所以在一阵的头脑风暴后,打起了一套组合拳:Scripting.FileSystemObject,Scripting.Dictionary以及Msxml2.DOMDocument.4.0。
![](/Images/OutliningIndicators/None.gif)
下面就以文件管理程序为例,对实现做简要说明:
![](/Images/OutliningIndicators/None.gif)
首先,是构思。
![](/Images/OutliningIndicators/None.gif)
1. 管理的数据对象是文件对象,而文件对象可以对应到XML中的某个结点
![](/Images/OutliningIndicators/None.gif)
2. 文件对象的结构,可以自行定义
![](/Images/OutliningIndicators/None.gif)
3. 文件对象的增加、删除、修改以及查询
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
XML中充分利用Xpath,实现查询比较简单,所以构思后问题主要应该归结为XML结点的增删改的问题,以及对象结构的定义。增删改不必多说,关键是对象结构的自定义(在面向对象中就是类的声明)。
![](/Images/OutliningIndicators/None.gif)
接下来,是实现。
![](/Images/OutliningIndicators/None.gif)
一是结构文件
![](/Images/OutliningIndicators/None.gif)
这里结构包括:英文名字,中文显示名,类型,显示模版(或参照),默认值等
![](/Images/OutliningIndicators/None.gif)
其实就是类似schema的东西,然后把这些结构保存在一个文件中,很多操作时就可以在循环中自动处理了,比如显示一个文件时,就可以按照这个结构来显示所有属性字段。
![](/Images/OutliningIndicators/None.gif)
如下为一个结构文件documentx.dna的示范内容:
![](/Images/OutliningIndicators/None.gif)
*/DOCS=文件
![](/Images/OutliningIndicators/None.gif)
*/DOCS/@VERSION=版本%%STRING%%[NUM].[NUM].[NUM].[NUM]%%1.0.0.0
![](/Images/OutliningIndicators/None.gif)
*/DOCS/DOC=文件
![](/Images/OutliningIndicators/None.gif)
+/DOCS/DOC/@ID=标识%%STRING%%%%=UniqueID()
![](/Images/OutliningIndicators/None.gif)
+/DOCS/DOC/@HOT=人气%%NUM%%%%0
![](/Images/OutliningIndicators/None.gif)
/DOCS/DOC/TITLE=标题
![](/Images/OutliningIndicators/None.gif)
/DOCS/DOC/DEPARTFROM=来文单位%%DICTIONARY%%department%%
![](/Images/OutliningIndicators/None.gif)
/DOCS/DOC/@DONE=是否处理完毕%%BOOL%%%%
![](/Images/OutliningIndicators/None.gif)
需要说明的是英文名称采用Xpath的方式,是为了方便XML处理。
![](/Images/OutliningIndicators/None.gif)
英文名称前加*号表示为系统字段,同时也是非文件对象的属性字段
![](/Images/OutliningIndicators/None.gif)
英文名称前加+表示该字段对用户来说是只读的,其值由系统指定。
![](/Images/OutliningIndicators/None.gif)
另外前加*或者加+号也好,也有防止误删的原因,因为*号或+号是不会显示给用户的。
![](/Images/OutliningIndicators/None.gif)
用=号分隔英文名称与其他部分,而其他部分中用%%分隔,依次为中文显示名,该项类型,显示模版(或参照),默认值。
![](/Images/OutliningIndicators/None.gif)
需要说明的是类型,如果类型为DICTIONARY的话,显示模版(或参照)或参照的为具体的DICTIONARY文件,DICTIONARY的保存形式,形同Delphi中TstringList的保存形式,用=号把关键字与值分隔:
![](/Images/OutliningIndicators/None.gif)
CS1=测试单位1
![](/Images/OutliningIndicators/None.gif)
CS2=测试单位2
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
二是利用新建一个文件,说明显示的问题
![](/Images/OutliningIndicators/None.gif)
先看示范文件:
![](/Images/OutliningIndicators/None.gif)
<% @LANGUAGE=VBSCRIPT %>
![](/Images/OutliningIndicators/None.gif)
<%
![](/Images/OutliningIndicators/None.gif)
Dim sKey, sValue, Sign, Pos, AttrID, Values, F, FName, Count
![](/Images/OutliningIndicators/None.gif)
%>
![](/Images/OutliningIndicators/None.gif)
<html>
![](/Images/OutliningIndicators/None.gif)
<head>
![](/Images/OutliningIndicators/None.gif)
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
![](/Images/OutliningIndicators/None.gif)
<meta http-equiv="Content-Language" content="zh-cn">
![](/Images/OutliningIndicators/None.gif)
</head>
![](/Images/OutliningIndicators/None.gif)
<body>
![](/Images/OutliningIndicators/None.gif)
<form method="POST" action="Documents!Save.asp">
![](/Images/OutliningIndicators/None.gif)
<table border="0" width="100%" cellpadding="0" style="border-collapse: collapse">
![](/Images/OutliningIndicators/None.gif)
<tr>
![](/Images/OutliningIndicators/None.gif)
<td bgcolor="#C0C0C0"><b>新建</b></td>
![](/Images/OutliningIndicators/None.gif)
</tr>
![](/Images/OutliningIndicators/None.gif)
<tr>
![](/Images/OutliningIndicators/None.gif)
<td>
![](/Images/OutliningIndicators/None.gif)
<table border="1" width="100%" cellspacing="0" cellpadding="0" style="border-collapse: collapse" bordercolor="#000000">
![](/Images/OutliningIndicators/None.gif)
<tr>
![](/Images/OutliningIndicators/None.gif)
<td width="10%">项</td>
![](/Images/OutliningIndicators/None.gif)
<td>值</td>
![](/Images/OutliningIndicators/None.gif)
</tr>
![](/Images/OutliningIndicators/None.gif)
<%
![](/Images/OutliningIndicators/None.gif)
'Count = 0
![](/Images/OutliningIndicators/None.gif)
'DOCUMENTX为Scripting.Dictionary对象,为documentx.dna的内容
![](/Images/OutliningIndicators/None.gif)
For Each sKey In DOCUMENTX
![](/Images/OutliningIndicators/None.gif)
Sign = Left(sKey, 1)
![](/Images/OutliningIndicators/None.gif)
If Sign<>"*" Then
![](/Images/OutliningIndicators/None.gif)
sValue = DOCUMENTX.Item(sKey)
![](/Images/OutliningIndicators/None.gif)
Values = Split(sValue & "%%%%%%", "%%")
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
Pos = InStrRev(sKey, "/")
![](/Images/OutliningIndicators/None.gif)
AttrID = Right(sKey, Len(sKey) - Pos)
![](/Images/OutliningIndicators/None.gif)
If Left(AttrID,1)="@" Then
![](/Images/OutliningIndicators/None.gif)
AttrID = Mid(AttrID, 2) & "_INLINE" '也就是说@为一般为内置属性
![](/Images/OutliningIndicators/None.gif)
End If
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
AttrID = "ATTR_" & AttrID
![](/Images/OutliningIndicators/None.gif)
%>
![](/Images/OutliningIndicators/None.gif)
<tr>
![](/Images/OutliningIndicators/None.gif)
<td width="10%"><%=Values(0)%></td>
![](/Images/OutliningIndicators/None.gif)
<td>
![](/Images/OutliningIndicators/None.gif)
<%
![](/Images/OutliningIndicators/None.gif)
If Sign="+" Then '如果为只读属性
![](/Images/OutliningIndicators/None.gif)
%>
![](/Images/OutliningIndicators/None.gif)
<input type="hidden" name="<%=AttrID %>" value="" />系统计算:<%=Values(3) %>
![](/Images/OutliningIndicators/None.gif)
<%
![](/Images/OutliningIndicators/None.gif)
Else
![](/Images/OutliningIndicators/None.gif)
'按照类型进行显示
![](/Images/OutliningIndicators/None.gif)
If Values(1)="BOOL" Then
![](/Images/OutliningIndicators/None.gif)
Response.Write "<input type=""checkbox"" name=""" & AttrID & """ value=""1"" />"
![](/Images/OutliningIndicators/None.gif)
Else
![](/Images/OutliningIndicators/None.gif)
If Values(1)="DICTIONARY" Then
![](/Images/OutliningIndicators/None.gif)
'ENVIRONMENT为Scripting.Dictionary对象
![](/Images/OutliningIndicators/None.gif)
'ENVIRONMENT.Item(“ROOT”)中存储了该程序管理的根目录
![](/Images/OutliningIndicators/None.gif)
FName = ENVIRONMENT.Item("ROOT") & "\dictionary\" & Values(2) & ".dic"
![](/Images/OutliningIndicators/None.gif)
%>
![](/Images/OutliningIndicators/None.gif)
<select name="<%=AttrID %>">
![](/Images/OutliningIndicators/None.gif)
<%
![](/Images/OutliningIndicators/None.gif)
If FSO.FileExists(FName) Then
![](/Images/OutliningIndicators/None.gif)
Set F = FSO.OpenTextFile(FName, 1, False)
![](/Images/OutliningIndicators/None.gif)
Do While Not F.AtEndOfStream
![](/Images/OutliningIndicators/None.gif)
sValue = F.ReadLine
![](/Images/OutliningIndicators/None.gif)
Pos = InStr(sValue, "=")
![](/Images/OutliningIndicators/None.gif)
If Pos>0 Then
![](/Images/OutliningIndicators/None.gif)
Response.Write "<option value=""" & Left(sValue, Pos-1) & """>" & Right(sValue, Len(sValue)-Pos) & "</option>"
![](/Images/OutliningIndicators/None.gif)
End If
![](/Images/OutliningIndicators/None.gif)
Loop
![](/Images/OutliningIndicators/None.gif)
F.Close
![](/Images/OutliningIndicators/None.gif)
End If
![](/Images/OutliningIndicators/None.gif)
%>
![](/Images/OutliningIndicators/None.gif)
</select>
![](/Images/OutliningIndicators/None.gif)
<%
![](/Images/OutliningIndicators/None.gif)
Else
![](/Images/OutliningIndicators/None.gif)
Response.Write "<input type=""textbox"" name=""" & AttrID & """ size=""30"" />"
![](/Images/OutliningIndicators/None.gif)
End If
![](/Images/OutliningIndicators/None.gif)
End If
![](/Images/OutliningIndicators/None.gif)
End If
![](/Images/OutliningIndicators/None.gif)
%>
![](/Images/OutliningIndicators/None.gif)
</td>
![](/Images/OutliningIndicators/None.gif)
</tr>
![](/Images/OutliningIndicators/None.gif)
<%
![](/Images/OutliningIndicators/None.gif)
'Count = Count + 1
![](/Images/OutliningIndicators/None.gif)
End If
![](/Images/OutliningIndicators/None.gif)
Next
![](/Images/OutliningIndicators/None.gif)
%>
![](/Images/OutliningIndicators/None.gif)
<tr>
![](/Images/OutliningIndicators/None.gif)
<td width="10%"> </td>
![](/Images/OutliningIndicators/None.gif)
<td> </td>
![](/Images/OutliningIndicators/None.gif)
</tr>
![](/Images/OutliningIndicators/None.gif)
<tr>
![](/Images/OutliningIndicators/None.gif)
<td width="10%"> </td>
![](/Images/OutliningIndicators/None.gif)
<td> </td>
![](/Images/OutliningIndicators/None.gif)
</tr>
![](/Images/OutliningIndicators/None.gif)
</table>
![](/Images/OutliningIndicators/None.gif)
</td>
![](/Images/OutliningIndicators/None.gif)
</tr>
![](/Images/OutliningIndicators/None.gif)
<tr>
![](/Images/OutliningIndicators/None.gif)
<td bgcolor="#C0C0C0" align="right" valign="middle"><input type="submit" name="btnSave" value="保存" /> <input type="button" name="btnReset" value="重输" /></td>
![](/Images/OutliningIndicators/None.gif)
</tr>
![](/Images/OutliningIndicators/None.gif)
</table>
![](/Images/OutliningIndicators/None.gif)
</form>
![](/Images/OutliningIndicators/None.gif)
</body>
![](/Images/OutliningIndicators/None.gif)
</html>
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
三是利用代码说明xml存储的实现
![](/Images/OutliningIndicators/None.gif)
<% @LANGUAGE=VBSCRIPT %>
![](/Images/OutliningIndicators/None.gif)
<!-- #include file="System.inc.asp" -->
![](/Images/OutliningIndicators/None.gif)
<!-- #include file="Document.inc.asp" -->
![](/Images/OutliningIndicators/None.gif)
<%
![](/Images/OutliningIndicators/None.gif)
'System.inc.asp中包含UniqueID()函数
![](/Images/OutliningIndicators/None.gif)
'首先,获取用户客户端提交的数据信息
![](/Images/OutliningIndicators/None.gif)
Dim PostData
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
Set PostData = Server.CreateObject("Scripting.Dictionary")
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
Dim Values, Key, Value, AttrID, Pos, Sign
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
For Each Key In DOCUMENTX
![](/Images/OutliningIndicators/None.gif)
Sign = Left(Key, 1)
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
If Sign<>"*" Then
![](/Images/OutliningIndicators/None.gif)
Value = DOCUMENTX.Item(Key)
![](/Images/OutliningIndicators/None.gif)
Values = Split(Value & "%%%%%%", "%%")
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
Pos = InStrRev(Key, "/")
![](/Images/OutliningIndicators/None.gif)
AttrID = Mid(Key, Pos + 1)
![](/Images/OutliningIndicators/None.gif)
If Left(AttrID,1)="@" Then
![](/Images/OutliningIndicators/None.gif)
AttrID = Mid(AttrID, 2) & "_INLINE" '也就是说@为一般为内置属性
![](/Images/OutliningIndicators/None.gif)
End If
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
AttrID = "ATTR_" & AttrID
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
If Sign="+" Then
![](/Images/OutliningIndicators/None.gif)
Key = Mid(Key, 2)
![](/Images/OutliningIndicators/None.gif)
End If
![](/Images/OutliningIndicators/None.gif)
'If Sign="+" Then '系统属性
![](/Images/OutliningIndicators/None.gif)
'End If
![](/Images/OutliningIndicators/None.gif)
PostData.Item(Key) = Request.Form(AttrID) '取得用户提交的数据
![](/Images/OutliningIndicators/None.gif)
End If
![](/Images/OutliningIndicators/None.gif)
Next
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
'下面是把PostData中的数据存储到XML中去
![](/Images/OutliningIndicators/None.gif)
Dim oXml
![](/Images/OutliningIndicators/None.gif)
Set oXml = Server.CreateObject("Msxml2.DOMDocument.4.0")
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
Dim TimeSpec, ZoneID, DocID, FName, FPath
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
'计算该文档属于的区域
![](/Images/OutliningIndicators/None.gif)
'注意:创建新文档与修改原有文档的计算方式不同,这里只做了创建的处理
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
'新建文档的处理
![](/Images/OutliningIndicators/None.gif)
TimeSpec = Now
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
'ZoneID为YYYYMM形式
![](/Images/OutliningIndicators/None.gif)
ZoneID = Right ("20" & Year(TimeSpec), 4) & Right("0" & Month(TimeSpec), 2)
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
FPath = ENVIRONMENT.Item("ROOT")
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
If Not FSO.FileExists(FPath & "\data\" & ZoneID & ".dat") Then
![](/Images/OutliningIndicators/None.gif)
If Not FSO.FileExists(FPath & "\etc\blank.dat") Then
![](/Images/OutliningIndicators/None.gif)
Application("*FAIL") = "系统配置不正确,空白数据模版文件未找到!"
![](/Images/OutliningIndicators/None.gif)
Set oXml = Nothing
![](/Images/OutliningIndicators/None.gif)
Set PostData = Nothing
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
Response.Redirect "Fail.asp"
![](/Images/OutliningIndicators/None.gif)
End If
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
FSO.CopyFile FPath & "\etc\blank.dat", FPath & "\data\" & ZoneID & ".dat"
![](/Images/OutliningIndicators/None.gif)
End If
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
oXml.load FPath & "\data\" & ZoneID & ".dat"
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
'由于这里处理的是新建的情况,所以指定新的DocumentID
![](/Images/OutliningIndicators/None.gif)
PostData.Item("/DOCS/DOC/@ID") = UniqueID()
![](/Images/OutliningIndicators/None.gif)
PostData.Item("/DOCS/DOC/@HOT") = "0"
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
DocumentSaveToXml PostData, oXml
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
oXml.save FPath & "\data\" & ZoneID & ".dat"
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
Set oXml = Nothing
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
Set PostData = Nothing
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
Response.Write "OK!"
![](/Images/OutliningIndicators/None.gif)
%>
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
DocumentSaveToXml函数在Document.inc.asp中
![](/Images/OutliningIndicators/None.gif)
<%
![](/Images/OutliningIndicators/None.gif)
'DocumentSaveToXml
![](/Images/OutliningIndicators/None.gif)
'目的:把Dict中的数据导入到指定的Xml对象中去
![](/Images/OutliningIndicators/None.gif)
'说明:如果Dict中指定ID的数据已经存在于Xml中,则替换原有数据
![](/Images/OutliningIndicators/None.gif)
Function DocumentSaveToXml(ByRef Dict, ByRef oXml)
![](/Images/OutliningIndicators/None.gif)
DocumentSaveToXml = False
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
If Dict Is Nothing Or oXml Is Nothing Then
![](/Images/OutliningIndicators/None.gif)
Exit Function
![](/Images/OutliningIndicators/None.gif)
End If
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
Dim oXmlRoot, oXmlNode, oXmlSubNode
![](/Images/OutliningIndicators/None.gif)
Set oXmlRoot = oXml.documentElement
![](/Images/OutliningIndicators/None.gif)
Set oXmlNode = oXml.createElement("DOC")
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
Dim Key, Value
![](/Images/OutliningIndicators/None.gif)
Dim Pos, AttrID, DocID
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
For Each Key In Dict
![](/Images/OutliningIndicators/None.gif)
Value = Dict.Item(Key)
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
'根据Key
![](/Images/OutliningIndicators/None.gif)
Pos = InStrRev(Key, "/")
![](/Images/OutliningIndicators/None.gif)
AttrID = Mid(Key, Pos + 1)
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
If Left(AttrID, 1)="@" Then '如果是属性
![](/Images/OutliningIndicators/None.gif)
oXmlNode.setAttribute Mid(AttrID, 2), Value
![](/Images/OutliningIndicators/None.gif)
Else
![](/Images/OutliningIndicators/None.gif)
Set oXmlSubNode = oXml.createElement(AttrID)
![](/Images/OutliningIndicators/None.gif)
oXmlSubNode.text = Value
![](/Images/OutliningIndicators/None.gif)
oXmlNode.appendChild oXmlSubNode
![](/Images/OutliningIndicators/None.gif)
End If
![](/Images/OutliningIndicators/None.gif)
Next
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
'别忘了,这里的ID属性定义,在documentx.dna中前面加上了+号
![](/Images/OutliningIndicators/None.gif)
'也正是这些加*或者加+号属性结构不可以删的原因
![](/Images/OutliningIndicators/None.gif)
DocID = oXmlNode.getAttribute("ID")
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
Set oXmlSubNode = oXml.selectSingleNode("/DOCS/DOC[@ID=""" & DocID & """]")
![](/Images/OutliningIndicators/None.gif)
If oXmlSubNode Is Nothing Then
![](/Images/OutliningIndicators/None.gif)
oXmlRoot.appendChild oXmlNode
![](/Images/OutliningIndicators/None.gif)
Else
![](/Images/OutliningIndicators/None.gif)
oXmlRoot.replaceChild oXmlNode, oXmlSubNode
![](/Images/OutliningIndicators/None.gif)
End If
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
DocumentSaveToXml = True
![](/Images/OutliningIndicators/None.gif)
End Function
![](/Images/OutliningIndicators/None.gif)
%>
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)