一个ini类代替缓存使用

最新推荐文章于 2021-04-28 18:33:35 发布

AppleBBS

最新推荐文章于 2021-04-28 18:33:35 发布

阅读量1.6k

点赞数

分类专栏： ASP 文章标签： ini function stream class

本文链接：https://blog.youkuaiyun.com/AppleBBS/article/details/394397

版权

ASP 专栏收录该内容

110 篇文章

订阅专栏

该博客给出了一段保存为INI.asp可运行的代码，定义了INI类。介绍了其属性如文件路径、编码设置等，以及多种方法，包括检测组和节点是否存在、读取和写入组与节点数据等，还展示了ini数据的写入和读取操作示例。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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

< %
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

% >