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

80酷酷网    80kuku.com

  编程作者:virtualboy

功能是读取发布目录下的一个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>



分享到
  • 微信分享
  • 新浪微博
  • QQ好友
  • QQ空间
点击: