`
fordream
  • 浏览: 63403 次
  • 性别: Icon_minigender_1
  • 来自: 深圳
社区版块
存档分类
最新评论

ASP嵌套VB代码读取ini配置文件

阅读更多

要求:  
能够读取按照  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)
%>

 


 

分享到:
评论

相关推荐

    asp+DLL读取INI文件

    在本场景中,我们讨论的是如何使用VB6编写的DLL(动态链接库)与ASP结合,来读取INI配置文件的内容。INI文件是早期Windows系统中常用的文本格式配置文件,用于存储应用程序的设置和配置数据。 首先,让我们了解一下...

    vb读写ini文件 说明文档

    本文将详细介绍如何使用VB来读取和写入INI文件,并提供具体的代码实现。 #### 二、基础知识 ##### 2.1 INI文件简介 INI文件是一种简单的文本文件格式,通常用于存储配置信息。它由一系列的节(section)组成,每个...

    asp.net读写ini文件最简单的代码

    标题中的“asp.net读写ini文件最简单的代码”指的是使用ASP.NET编写代码来读取和写入INI文件的方法。INI文件通常包含键值对,用于存储应用程序的设置或配置信息。在ASP.NET中,没有内置的库直接处理INI文件,所以...

    读取ini文件的两种方式

    在ASP.NET应用中,这两种方法都可以用于读取ini文件。选择哪种方式取决于你的具体需求,如是否需要兼容旧代码、性能要求或者对代码可读性的考虑。 在实际项目中,可能还需要考虑错误处理、文件锁定、并发访问等问题...

    asp.net读写ini文件

    一、ASP.NET读取INI文件 读取INI文件主要是通过文件流(FileStream)和文本读取器(StreamReader)来实现的。首先,需要打开文件,然后逐行读取内容,解析每一行以找到特定的键值对。 1. 使用`File.OpenText`方法...

    ASP读写INI文件

    在ASP中,处理配置文件如.INI文件是常见的需求,主要用于存储和读取应用程序的设置或配置信息。这里我们将详细探讨如何使用ASP来读写.INI文件,以及如何利用提供的函数实现这一功能。 首先,`RWIniFile.inc` 文件很...

    ASP.NET 2.0 读取配置文件

    在描述中提到的"ASP.NET 2.0 读取配置文件[INI]",虽然通常ASP.NET使用XML格式的Web.config文件,但这里指的是读取传统的INI文件,这是一种简单文本格式的配置文件,广泛应用于早期的Windows系统和某些跨平台的应用...

    ASP.NET VB代码网上书店(教学资料).rar

    ASP.NET VB代码网上书店系统是一种基于微软的ASP.NET框架,使用Visual Basic (VB) 编程语言开发的在线图书销售平台。这个教学资料提供了一整套实现网上书店功能的源代码,对于学习ASP.NET和VB的开发者来说,是极其...

    asp(vb) 版本的聊天室语言代码

    VB代码将被嵌入到ASP页面中,用于处理逻辑和数据操作。 1. **用户界面**:首先,我们需要创建HTML表单让用户输入用户名和密码进行登录。登录表单通常包含两个文本输入框和一个提交按钮,所有这些都可以通过VB代码...

    ASP.NET+VB.NET 上传文件

    在ASP.NET和VB.NET环境中,实现文件上传功能是常见的需求,尤其在用户注册或信息提交时,用户可能需要上传个人照片、简历等文件。本文将详细介绍如何利用ASP.NET和VB.NET来创建一个简单的文件上传系统。 首先,我们...

    C# WinForms写ini配置文件

    传统的文本配置文件格式,如INI文件,因其简单易用,成为很多开发者的选择。本篇文章将详细讲解如何在C# WinForms项目中创建、读取和修改INI配置文件。 首先,了解INI文件的基本结构。INI文件是一种纯文本格式,...

    ASP技术常遇问题解答-如何读取一个.ini文件?.zip

    这篇文档"ASP技术常遇问题解答-如何读取一个.ini文件?.doc"应该提供了关于如何在ASP中读取.ini文件的详细步骤和解决方案。 1. **打开.ini文件**:在ASP中,我们不能直接像操作文本文件那样打开.ini文件,因为ASP...

    C#中读写INI配置文件的方法

    传统的配置文件ini已有被xml文件逐步代替的趋势,但对于简单的配置,ini文件还是有用武之地的。ini文件其实就是一个文本文件,它有固定的格式,节Section的名字用[]括起来,然后换行说明key的值: [section] key=...

    PHP读写INI文件

    在PHP编程中,INI文件是一种常见的配置文件格式,它以易于阅读和编辑的文本形式存储数据,常用于存储应用程序的设置或配置信息。本篇将深入探讨如何使用PHP读写INI文件,以及如何通过此类操作实现类似ASP ...

    VB上传本地文件到服务器

    首先,VB中的文件上传通常与Web Forms或ASP.NET相关联,虽然这里提到的是VB,但可能指的是VBScript或者VB6,因为这些版本也支持文件上传功能。VBScript通常用于ActiveX控件或Classic ASP页面,而VB6则用于桌面应用...

    C#VB代码转换器

    在这种情况下,`C#&lt;----&gt;VB代码转换器`就显得非常实用。这个工具允许用户将C#代码转换为VB.NET代码,反之亦然,极大地提高了开发效率。 C#是微软公司推出的一种面向对象的、现代的编程语言,广泛应用于Windows桌面...

    配置文本文件读取封装

    在IT行业中,文本文件读取是一项基础且重要的任务,尤其在处理配置文件时。配置文件通常包含了一系列设置或参数,用于控制程序的行为。本话题主要关注如何封装一个工具类,以便于批量处理这些文本配置文件,特别是...

    IIS伪静态rewrite组件及httpd.ini配置文件

    httpd.ini文件是用于配置IIS Rewrite组件的主要文件,类似于Apache服务器中的.htaccess文件。虽然IIS默认使用web.config文件来存储配置信息,但在某些情况下,如在IIS Express或非IIS主进程中运行的应用程序,httpd....

    asp代码加密工具(附vb6源码)

    在描述中提到的“asp代码加密工具”是基于VB6编写的,其目的是对ASP源代码进行加密,以增加代码的安全性。加密后,原始的ASP代码将被转化为不可读的形式,这有助于防止代码被轻易地查看和复制。但是,值得注意的是,...

Global site tag (gtag.js) - Google Analytics