新客网WWW.XKER.COM:致力做中国最专业的网络学院!
学院: 操作系统 - 网络应用 - 服务器 - 网络安全 - 工具软件 - 办公软件 - Web开发 - 数据库 - 网页设计 - 图形图像 - 媒体动画 - 硬件学堂 - 存储频道 - QQ专区
您的位置:首页 > 软件开发 > Web开发 > Asp教程 > 正文:Asp中关于Global.asa文件的编程(三)

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

新客网 XKER.COM 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>

收藏】 【评论】 【推荐】 【投稿】 【打印】 【关闭
发表评论
要记得去论坛讨论,点击注册新会员匿名评论
评论内容:不能超过250字,需审核后才会公布,请自觉遵守互联网相关政策法规。
阅读排行
随机推荐
实用信息推荐