Asp中关于Global.asa文件的编程（三）-ASP教程,ASP技巧

精彩推荐

分类最新教程

分类热点教程

Asp中关于Global.asa文件的编程（三）

作者：未知

日期：2003-07-04

人气：

投稿：Andy.m(转贴)

来源：未知

字体：大中小

收藏：加入浏览器收藏

以下正文：

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

相关文章：