如何读取一个.ini文件?
来源:asp之家 发布时间:2009-11-18 20:58:00
以发布目录为例:
<OBJECT ID="agobjOraSession" RUNAT="Server" PROGID="OracleInProcServer.XOraSession" SCOPE="APPLICATION">
</OBJECT>
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Const CONST_FL_NAME = "\GetAttributeCode.ini"
Const CONST_FL_FORREADING = 1
Const CONST_DB_SECTION = "[DB_CONNECTION]"Sub Application_OnStart
On Error Resume Next
Dim objFs
Dim objTs
Dim strLineData
Dim flgSection
Dim strTempData
Application("Service") = ""
Application("User") = ""
strLineData = ""
strTempData = ""
flgSection = False
Set objFs = Server.CreateObject ("Scripting.FileSystemObject")
Set objTs = objFs.OpenTextFile(Server.MapPath(CONST_FL_NAME),CONST_FL_FORREADING,False)
If Err.Number <> 0 Then
Err.Clear
Set objTs = Nothing
Set objFs = Nothing
Exit Sub
End If
While Not objTs.AtEndOfStream
strLineData = objTs.ReadLine
If Trim(strLineData) <> "" Then
If flgSection = True And Mid(strLineData,1,1) = "[" And _
Mid(strLineData,Len(strLineData),1) = "]" Then
objTs.Close
Set objTs = Nothing
Set objFs = Nothing
Exit Sub
End If
If strLineData = CONST_DB_SECTION Then
flgSection = True
End If
If flgSection = True Then
If Mid(strLineData,1,7) = "Service" Then
strTempData = Trim(Mid(strLineData,8,Len(strLineData)-7))
If Mid(strTempData,1,1) = "=" Then
strTempData = Trim(Mid(strTempData,2,Len(strTempData)-1))
Application.Lock
Application("Service") = Mid(strTempData,2,Len(strTempData)-2)
Application.UnLock
End If
End If
If Mid(strLineData,1,4) = "User" Then
strTempData = Trim(Mid(strLineData,5,Len(strLineData)-4))
If Mid(strTempData,1,1) = "=" Then
strTempData = Trim(Mid(strTempData,2,Len(strTempData)-1))
Application.Lock
Application("User") = Mid(strTempData,2,Len(strTempData)-2)
Application.UnLock
End If
End If
End If
End If
Wend
objTs.Close
Set objTs = Nothing
Set objFs = Nothing
End Sub
</SCRIPT>
猜你喜欢
- 代码如下:CREATE FUNCTION [dbo].[udf_DaysInMonth] ( @Date DATETIME )
- 先把这个script加到你的页面里:http://code.google.com/p/doufu/source/browse/trunk/n
- 'subject 信息标题 'company 发布信息的公司名称 'cont
- 在应用系统开发初期,由于开发数据库数据比较少,对于查询SQL语句,复杂视图的编写,刚开始不会体会出SQL语句各种写法的性能优劣,但是如果将应
- 阅读上一篇:你是真正的用户体验设计者吗? Ⅲ交互系统设计者负责用户体验——不!那么什么是真正的交互呢?什么是交互式系统?你桌子上的杯子是交互
- 目录本文目标如何使用本教程正则表达式到底是什么?入门测试正则表达式元字符字符转义重复字符类反义替换分组后向引用零宽断言负向零宽断言注释贪婪与
- 请问,如何在ACCESS数据库和SQL SERVER数据库中查询?
- 每周的《午间欢乐购》和《周末疯狂购》,已经成为视觉组的固定需求。从开始接触到现在5个月的时间里,思维也和这些小小banner逐渐碰撞出火花。
- jQuery 真是一个非常伟大的 javascript library,至少在我不会写 JS 的时候第一时间接触了它,虽然还有其他很多优秀的
- 1。注意用SQL分析器可以看select出来的东西select right(convert(varchar(30),getdate(),12
- CREATE OR REPLACE PROCEDURE PROCSENDEMAIL(P_TXT &
- 在修改后的 《闲谈 Web 图片服务器》 一文中也提及了"IE 浏览器的连接数问题",这也是个有趣的话题。值得补充记录一
- 1. 确认已经安装了NT/2000和SQL Server的最新补丁程序,不用说大家应该已经安装好了,但是我觉得最好还是在这里提醒一
- 如何使用数组来显示下拉菜单?可以这样,如下:Sub DoDropDown(Arr(), strSelName, 
- 为什么是三谈为什么是三谈呢?一是因为这真的是一个被说烂的话题,二是因为太师傅在n年前就写过这篇再谈iframe自适应高度。之所以再提该问题,
- 1.ACCESS查询(query_info):select * from info where stu = name1 and age =
- 这个javascript划词搜索功能,在很多地方我们都会看到,特别是装了浏览器插件的时候,当我们用鼠标选择一段文字的时候,就会出现搜索提示,
- 指定结果集的列名AS 子句可用来更改结果集列名或为导出列指定名称。当结果集列由对表或视图中的列的引用进行定义时,结果集列的名称与所引用列的名
- Javascript 中的闭包其实很改语言中很难理解的一部分。感谢 Stuart 提供了那么棒的 PPT,它深入浅出的解释了 Javascr
- 如何在线查询本地机的文件?看看下面的例子,默认子目录与子虚拟目录为同一级别且名称一致,另我们使用了"http://intels.n