Asp中关于Global.asa文件的编程(三)

来源:岁月联盟 编辑:zhu 时间:2003-07-04
功能是读取发布目录下的一个ini文件

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>