要求:
能够读取按照 INI文件的Section和Key来读出相应的Value。
比如一个配置文件
mail.ini
---------------------------------
[MailInfo]
user=123
pwd=321
server=smtp.163.com
---------------------------------
主体程序(方法) :
inifile.asp
-----------------------------------------------
<%
set IniFileDictionary = CreateObject("Scripting.Dictionary")
Sub IniFileLoad(ByVal FilSpc)
IniFileDictionary.RemoveAll
FilSpc = lcase(FilSpc)
if left(FilSpc, 1) = "p" then
'Physical path
PhyPth = mid(FilSpc, instr(FilSpc, "=") + 1)
else
'Virtual path
PhyPth = Server.MapPath(mid(FilSpc, instr(FilSpc, "=") + 1))
end if
set FilSys = CreateObject("Scripting.FileSystemObject")
set IniFil = FilSys.OpenTextFile(PhyPth, 1)
do while not IniFil.AtEndOfStream
StrBuf = IniFil.ReadLine
if StrBuf <> "" then
'There is data on this line
if left(StrBuf, 1) <> ";" then
'It's not a comment
if left(StrBuf, 1) = "[" then
'It's a section header
HdrBuf = mid(StrBuf, 2, len(StrBuf) - 2)
else
'It's a value
StrPtr = instr(StrBuf, "=")
AltBuf = lcase(HdrBuf & " |" & left(StrBuf, StrPtr - 1))
do while IniFileDictionary.Exists(AltBuf)
AltBuf = AltBuf & "_"
loop
IniFileDictionary.Add AltBuf, mid(StrBuf, StrPtr + 1)
end if
end if
end if
loop
IniFil.Close
set IniFil = nothing
set FilSys = nothing
End Sub
Function IniFileValue(ByVal ValSpc)
dim ifarray
StrPtr = instr(ValSpc, " |")
ValSpc = lcase(ValSpc)
if StrPtr = 0 then
'They want the whole section
StrBuf = ""
StrPtr = len(ValSpc) + 3
ValSpc = ValSpc + " |"
ifarray = IniFileDictionary.Keys
for i = 0 to IniFileDictionary.Count - 1
if left(ifarray(i), StrPtr) = ValSpc then
'This is from the section
if StrBuf <> "" then
StrBuf = StrBuf & "~"
end if
StrBuf = StrBuf & ifarray(i) & "=" & IniFileDictionary(ifarray(i))
end if
next
else
'They want a specific value
StrBuf = IniFileDictionary(ValSpc)
end if
IniFileValue = StrBuf
End Function
Function Chr(section,key)
char1=IniFileValue(section)
SearchString =char1
SearchChar = key
MyPos=Instr(1,SearchString,SearchChar,1)
'char2=section+key
char1=mid(char1,MyPos+len(key)+1,len(char1)-MyPos+1)
SearchString =char1
SearchChar = "~"
MyPos=Instr(1,SearchString,SearchChar,1)
if MyPos<>0 then
char1=mid(char1,1,MyPos-1)
else
char1=mid(char1,1)
end if
Chr = char1
End Function
%>
如何使用?
-----------------------------------------------
<!--#include file="inifile.asp"-->
<%
'virtual:表示服务器路径 Physical:表示物理路径 mail.ini : 配置文件名称
call IniFileLoad("virtual=mail.ini")
'MailInfo:节点名称 server: 配置文件中的KEY
serverStr = Chr("MailInfo","server")
Response.Write("<br/>serverStr:"&serverStr)
%>
分享到:
相关推荐
在本场景中,我们讨论的是如何使用VB6编写的DLL(动态链接库)与ASP结合,来读取INI配置文件的内容。INI文件是早期Windows系统中常用的文本格式配置文件,用于存储应用程序的设置和配置数据。 首先,让我们了解一下...
本文将详细介绍如何使用VB来读取和写入INI文件,并提供具体的代码实现。 #### 二、基础知识 ##### 2.1 INI文件简介 INI文件是一种简单的文本文件格式,通常用于存储配置信息。它由一系列的节(section)组成,每个...
标题中的“asp.net读写ini文件最简单的代码”指的是使用ASP.NET编写代码来读取和写入INI文件的方法。INI文件通常包含键值对,用于存储应用程序的设置或配置信息。在ASP.NET中,没有内置的库直接处理INI文件,所以...
在ASP.NET应用中,这两种方法都可以用于读取ini文件。选择哪种方式取决于你的具体需求,如是否需要兼容旧代码、性能要求或者对代码可读性的考虑。 在实际项目中,可能还需要考虑错误处理、文件锁定、并发访问等问题...
一、ASP.NET读取INI文件 读取INI文件主要是通过文件流(FileStream)和文本读取器(StreamReader)来实现的。首先,需要打开文件,然后逐行读取内容,解析每一行以找到特定的键值对。 1. 使用`File.OpenText`方法...
在ASP中,处理配置文件如.INI文件是常见的需求,主要用于存储和读取应用程序的设置或配置信息。这里我们将详细探讨如何使用ASP来读写.INI文件,以及如何利用提供的函数实现这一功能。 首先,`RWIniFile.inc` 文件很...
在描述中提到的"ASP.NET 2.0 读取配置文件[INI]",虽然通常ASP.NET使用XML格式的Web.config文件,但这里指的是读取传统的INI文件,这是一种简单文本格式的配置文件,广泛应用于早期的Windows系统和某些跨平台的应用...
ASP.NET VB代码网上书店系统是一种基于微软的ASP.NET框架,使用Visual Basic (VB) 编程语言开发的在线图书销售平台。这个教学资料提供了一整套实现网上书店功能的源代码,对于学习ASP.NET和VB的开发者来说,是极其...
VB代码将被嵌入到ASP页面中,用于处理逻辑和数据操作。 1. **用户界面**:首先,我们需要创建HTML表单让用户输入用户名和密码进行登录。登录表单通常包含两个文本输入框和一个提交按钮,所有这些都可以通过VB代码...
在ASP.NET和VB.NET环境中,实现文件上传功能是常见的需求,尤其在用户注册或信息提交时,用户可能需要上传个人照片、简历等文件。本文将详细介绍如何利用ASP.NET和VB.NET来创建一个简单的文件上传系统。 首先,我们...
传统的文本配置文件格式,如INI文件,因其简单易用,成为很多开发者的选择。本篇文章将详细讲解如何在C# WinForms项目中创建、读取和修改INI配置文件。 首先,了解INI文件的基本结构。INI文件是一种纯文本格式,...
这篇文档"ASP技术常遇问题解答-如何读取一个.ini文件?.doc"应该提供了关于如何在ASP中读取.ini文件的详细步骤和解决方案。 1. **打开.ini文件**:在ASP中,我们不能直接像操作文本文件那样打开.ini文件,因为ASP...
传统的配置文件ini已有被xml文件逐步代替的趋势,但对于简单的配置,ini文件还是有用武之地的。ini文件其实就是一个文本文件,它有固定的格式,节Section的名字用[]括起来,然后换行说明key的值: [section] key=...
在PHP编程中,INI文件是一种常见的配置文件格式,它以易于阅读和编辑的文本形式存储数据,常用于存储应用程序的设置或配置信息。本篇将深入探讨如何使用PHP读写INI文件,以及如何通过此类操作实现类似ASP ...
首先,VB中的文件上传通常与Web Forms或ASP.NET相关联,虽然这里提到的是VB,但可能指的是VBScript或者VB6,因为这些版本也支持文件上传功能。VBScript通常用于ActiveX控件或Classic ASP页面,而VB6则用于桌面应用...
在这种情况下,`C#<---->VB代码转换器`就显得非常实用。这个工具允许用户将C#代码转换为VB.NET代码,反之亦然,极大地提高了开发效率。 C#是微软公司推出的一种面向对象的、现代的编程语言,广泛应用于Windows桌面...
在IT行业中,文本文件读取是一项基础且重要的任务,尤其在处理配置文件时。配置文件通常包含了一系列设置或参数,用于控制程序的行为。本话题主要关注如何封装一个工具类,以便于批量处理这些文本配置文件,特别是...
httpd.ini文件是用于配置IIS Rewrite组件的主要文件,类似于Apache服务器中的.htaccess文件。虽然IIS默认使用web.config文件来存储配置信息,但在某些情况下,如在IIS Express或非IIS主进程中运行的应用程序,httpd....
在描述中提到的“asp代码加密工具”是基于VB6编写的,其目的是对ASP源代码进行加密,以增加代码的安全性。加密后,原始的ASP代码将被转化为不可读的形式,这有助于防止代码被轻易地查看和复制。但是,值得注意的是,...