p;           Response.Write("错误的参数或参数个数！！！")
        End if
        Set FSO=Nothing
End IF
%>

&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&用做系统设置％％％％％％％％％％％％％％％％％
iniProFile.asp
<%
Rem =================================================================
Rem = 函数文件:Function.asp
Rem = 测试文件:IniProFile.asp
Rem = 说明:setProfile写入INI文件函数，GetProfile读INI文件函数
Rem = Revision:1.01 Beta
Rem = 作者:熊氏英雄（cexo255）
Rem = Date:2005/04/22 02:00:00
Rem = QQ:30133499
Rem = MySite:net/">Http://www.Relaxlife.net
Rem = 测试地址:net/2005/relaxlife/blogview.asp?logID=157">http://www.relaxlife.net/2005/relaxlife/blogview.asp?logID=157
Rem = 下载地址:net/2005/relaxlife/blogview.asp?logID=157">http://www.relaxlife.net/2005/relaxlife/blogview.asp?logID=157
Rem = QQ群：4341998
Rem = 适用:和Delphi操作INI文件一样简单，最好是用在统计访问量，读写速度非常的快。
Rem = 下版本预计改进:不能删除数据项和修改数据项，对数据的操作很全。
Rem =================================================================
%>


<!--#include file="Function.asp" -->
<%
myini = "me.ini"
'实例1：操作ini文件中存在的数据项
'先定义ini文件中的数据项如下：
'[database]
'mbackcolor=-2147483643
'mforecolor=-2147483640
'mfontsize=14
'mfontname=宋体
'mheight=6450
'mleft=2310
'mtop=3195
'mwidth=10425
'ini 文件中写入数据
setProfile myini, "database", "mbackcolor", "-2147483643"
setProfile myini, "database", "mforecolor", "-2147483640"
setProfile myini, "database", "mfontsize", 14
setProfile myini, "database", "mfontname", "宋体"
setProfile myini, "database", "mheight", 6450
setProfile myini, "database", "mleft", 2310
setProfile myini, "database", "mtop", 3195
setProfile myini, "database", "mwidth", 10425

'ini 文件中读出数据并显示
mbackcolor =         GetProfile(myini, "database", "mbackcolor")
mforecolor =         GetProfile(myini, "database", "mforecolor")
mfontsize =         GetProfile(myini, "database", "mfontsize")
mfontname =         GetProfile(myini, "database", "mfontname")
mheight =                 GetProfile(myini, "database", "mheight")
mtop =                         GetProfile(myini, "database", "mtop")
mleft =                 GetProfile(myini, "database&quo

上一页  [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] 下一页