把下面的代码保存为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
24
25
26
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
36
'// 初始化
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
46
47
'// 二进制流转换为字符串
48
Private Function Bytes2bStr(bStr)
49
if Lenb(bStr)=0 Then
50
Bytes2bStr = ""
51
Exit Function
52
End if
53
54
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
71
72
'// 设置文件路径
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
87
88
'// 检测组是否存在[参数:组名]
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
97
98
'// 读取组信息[参数:组名]
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
%>
免责声明：本文为网络用户发布，其观点仅代表作者个人观点，与本站无关，本站仅提供信息存储服务。文中陈述内容未经本站证实，其真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。
