您的位置：首页 > 其它

一个ini类代替缓存使用

2005-06-14 19:50 363 查看

把下面的代码保存为INI.asp即可运行：
1

<%
2

'Power By Tim
3

'文件摘要：INI类
4

'文件版本：3.0
5

'文本创建日期：2:17 2004-12-14
6

'================= 属性说明 ================
7

'INI.OpenFile = 文件路径（使用虚拟路径需在外部定义）
8

'INI.CodeSet = 编码设置，默认为 GB2312
9

'INI.IsTrue = 检测文件是否正常（存在）
10

'================ 方法说明 =================
11

'IsGroup(组名) 检测组是否存在
12

'IsNode(组名,节点名) 检测节点是否存在
13

'GetGroup(组名) 读取组信息
14

'CountGroup() 统计组数量
15

'ReadNode(组名,节点名) 读取节点数据
16

'WriteGroup(组名) 创建组
17

'WriteNode(组,节点,节点数据) 插入/更新节点数据
18

'DeleteGroup(组名) 删除组
19

'DeleteNode(组名,节点名) 删除节点
20

'Save() 保存文件
21

'Close() 清除内部数据（释放）
22

'===============================================
23

Class INI_Class
27

'===============================================
28

Private Stream '// Stream 对象
29

Private FilePath '// 文件路径
30

Public Content '// 文件数据
31

Public IsTrue '// 文件是否存在
32

Public IsAnsi '// 记录是否二进制
33

Public CodeSet '// 数据编码
34

'================================================
35

'// 初始化
37

Private Sub Class_Initialize()
38

Set Stream = Server.CreateObject("ADODB.Stream")
39

Stream.Mode = 3
40

Stream.Type = 2
41

CodeSet = "gb2312"
42

IsAnsi = True
43

IsTrue = True
44

End Sub
45

'// 二进制流转换为字符串
48

Private Function Bytes2bStr(bStr)
49

if Lenb(bStr)=0 Then
50

Bytes2bStr = ""
51

Exit Function
52

End if
53

Dim BytesStream,StringReturn
55

Set BytesStream = Server.CreateObject("ADODB.Stream")
56

With BytesStream
57

.Type = 2
58

.Open
59

.WriteText bStr
60

.Position = 0
61

.Charset = CodeSet
62

.Position = 2
63

StringReturn = .ReadText
64

.Close
65

End With
66

Bytes2bStr = StringReturn
67

Set BytesStream = Nothing
68

Set StringReturn = Nothing
69

End Function
70

'// 设置文件路径
73

Property Let OpenFile(INIFilePath)
74

FilePath = INIFilePath
75

Stream.Open
76

On Error Resume Next
77

Stream.LoadFromFile(FilePath)
78

'// 文件不存在时返回给 IsTrue
79

if Err.Number<>0 Then
80

IsTrue = False
81

Err.Clear
82

End if
83

Content = Stream.ReadText(Stream.Size)
84

if Not IsAnsi Then Content=Bytes2bStr(Content)
85

End Property
86

'// 检测组是否存在[参数:组名]
89

Public Function IsGroup(GroupName)
90

if Instr(Content,"["&GroupName&"]")>0 Then
91

IsGroup = True
92

Else
93

IsGroup = False
94

End if
95

End Function
96

'// 读取组信息[参数:组名]
99

Public Function GetGroup(GroupName)
100

Dim TempGroup
101

if Not IsGroup(GroupName) Then Exit Function
102

'// 开始寻找头部截取
103

TempGroup = Mid(Content,Instr(Content,"["&GroupName&"]"),Len(Content))
104

'// 剔除尾部
105

if Instr(TempGroup,VbCrlf&"[")>0 Then TempGroup=Left(TempGroup,Instr(TempGroup,VbCrlf&"[")-1)
106

if Right(TempGroup,1)<>Chr(10) Then TempGroup=TempGroup&VbCrlf
107

GetGroup = TempGroup
108

End Function
109

110

111

'// 检测节点是否存在[参数:组名,节点名]
112

Public Function IsNode(GroupName,NodeName)
113

if Instr(GetGroup(GroupName),NodeName&"=") Then
114

IsNode = True
115

Else
116

IsNode = False
117

End if
118

End Function
119

120

121

'// 创建组[参数:组名]
122

Public Sub WriteGroup(GroupName)
123

if Not IsGroup(GroupName) And GroupName<>"" Then
124

Content = Content & "[" & GroupName & "]" & VbCrlf
125

End if
126

End Sub
127

128

129

'// 读取节点数据[参数:组名,节点名]
130

Public Function ReadNode(GroupName,NodeName)
131

if Not IsNode(GroupName,NodeName) Then Exit Function
132

Dim TempContent
133

'// 取组信息
134

TempContent = GetGroup(GroupName)
135

'// 取当前节点数据
136

TempContent = Right(TempContent,Len(TempContent)-Instr(TempContent,NodeName&"=")+1)
137

TempContent = Replace(Left(TempContent,Instr(TempContent,VbCrlf)-1),NodeName&"=","")
138

ReadNode = ReplaceData(TempContent,0)
139

End Function
140

141

142

'// 写入节点数据[参数:组名,节点名,节点数据]
143

Public Sub WriteNode(GroupName,NodeName,NodeData)
144

'// 组不存在时写入组
145

if Not IsGroup(GroupName) Then WriteGroup(GroupName)
146

147

'// 寻找位置插入数据
148

'/// 获取组
149

Dim TempGroup : TempGroup = GetGroup(GroupName)
150

151

'/// 在组尾部追加
152

Dim NewGroup
153

if IsNode(GroupName,NodeName) Then
154

NewGroup = Replace(TempGroup,NodeName&"="&ReplaceData(ReadNode(GroupName,NodeName),1),NodeName&"="&ReplaceData(NodeData,1))
155

Else
156

NewGroup = TempGroup & NodeName & "=" & ReplaceData(NodeData,1) & VbCrlf
157

End if
158

159

Content = Replace(Content,TempGroup,NewGroup)
160

End Sub
161

162

163

'// 删除组[参数:组名]
164

Public Sub DeleteGroup(GroupName)
165

Content = Replace(Content,GetGroup(GroupName),"")
166

End Sub
167

168

169

'// 删除节点[参数:组名,节点名]
170

Public Sub DeleteNode(GroupName,NodeName)
171

Dim TempGroup
172

Dim NewGroup
173

TempGroup = GetGroup(GroupName)
174

NewGroup = Replace(TempGroup,NodeName&"="&ReadNode(GroupName,NodeName)&VbCrlf,"")
175

if Right(NewGroup,1)<>Chr(10) Then NewGroup = NewGroup&VbCrlf
176

Content = Replace(Content,TempGroup,NewGroup)
177

End Sub
178

179

180

'// 替换字符[实参:替换目标,数据流向方向]
181

' 字符转换[防止关键符号出错]
182

' [ ---> {(@)}
183

' ] ---> {(#)}
184

' = ---> {($)}
185

' 回车 ---> {(1310)}
186

Public Function ReplaceData(Data_Str,IsIn)
187

if IsIn Then
188

ReplaceData = Replace(Replace(Replace(Data_Str,"[","{(@)}"),"]","{(#)}"),"=","{($)}")
189

ReplaceData = Replace(ReplaceData,Chr(13)&Chr(10),"{(1310)}")
190

Else
191

ReplaceData = Replace(Replace(Replace(Data_Str,"{(@)}","["),"{(#)}","]"),"{($)}","=")
192

ReplaceData = Replace(ReplaceData,"{(1310)}",Chr(13)&Chr(10))
193

End if
194

End Function
195

196

197

'// 保存文件数据
198

Public Sub Save()
199

With Stream
200

.Close
201

.Open
202

.WriteText Content
203

.SaveToFile FilePath,2
204

End With
205

End Sub
206

207

208

'// 关闭、释放
209

Public Sub Close()
210

Set Stream = Nothing
211

Set Content = Nothing
212

End Sub
213

214

End Class
215

216

217

Dim INI
218

Set INI = New INI_Class
219

INI.OpenFile = Server.MapPath("Config.ini")
220

'========== 这是写入ini数据 ==========
221

Call INI.WriteNode("SiteConfig","SiteName","Leadbbs极速论坛")
222

Call INI.WriteNode("SiteConfig","Mail","leadbbs@leadbbs.com")
223

INI.Save()
224

'========== 这是读取ini数据 ==========
225

Response.Write("站点名称："&INI.ReadNode("SiteConfig","SiteName"))
226

内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理

标签： ini function stream class

相关文章推荐

新的分享

章节导航