t;, "mleft")
mwidth =                GetProfile(myini, "database", "mwidth")
Response.Write mbackcolor & "<br>"
Response.Write mforecolor & "<br>"
Response.Write mfontsize& "<br>"
Response.Write mfontname & "<br>"
Response.Write mheight & "<br>"
Response.Write mtop & "<br>"
Response.Write mleft & "<br>"
Response.Write mwidth & "<br>"

'实例2：操作ini文件中不存在的数据项
'ini 文件中写入数据，在此不用定义ini文件数据项
setProfile myini, "database2", "mbackcolor2", "-2147483643"
setProfile myini, "database2", "mforecolor2", "-2147483640"

'ini 文件中读出数据，在此不用定义ini文件数据项
mbackcolor2 = GetProfile(myini, "database2", "mbackcolor2")
mforecolor2 = GetProfile(myini, "database2", "mforecolor2")
if mbackcolor2=Empty Then        Response.Write "Null"        Else        Response.Write mbackcolor2 & "<br>"
if mforecolor2=Empty Then        Response.Write "Null"        Else        Response.Write mforecolor2 & "<br>"

'ini 文件中读出不存在的数据项
mbackcolor3 = GetProfile(myini, "database3", "mforecolor3")
if mbackcolor3=Empty Then        Response.Write "Null"        Else        Response.Write mbackcolor3 & "<br>"



%>

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