最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
Using SOAP from inside ASP，maybe helpful for you!
时间：2022-06-30 09:25:50 编辑：袖梨 来源：一聚教程网
default.asp
------------------------------------------------------------------------
<%@ Language=VBScript %>
<%Option Explicit%>
>
<%
Dim ASPNETResources
If len( Application("ASPNETResourceList") )>0 then 'we have our latest resources
REM -- check to see if they expired
If DateDiff("h",Now(),Application("ASPNETResourcesUpdated")) > Application("ASPNETExpires") Then
REM -- we need to update the latest resurces
ASPNETResources = GetASPNetResources()
Application.Lock
Application("ASPNETResourcesUpdated")=Now()
Application("ASPNETResourceList")=ASPNETResources
Application.UnLock
End if 'datediff...
Else 'for some reason the application level variable is empty, fill it.
ASPNETResources = GetASPNetResources()
Application.Lock
Application("ASPNETResourcesUpdated")=Now()
Application("ASPNETResourceList")=ASPNETResources
Application.UnLock
End if 'len(..
Response.Write Application("ASPNETResourceList")
%>
------------------------------------------------------------------------
<%@ Language=VBScript %>
<%Option Explicit%>
<%
Dim ASPNETResources
If len( Application("ASPNETResourceList") )>0 then 'we have our latest resources
REM -- check to see if they expired
If DateDiff("h",Now(),Application("ASPNETResourcesUpdated")) > Application("ASPNETExpires") Then
REM -- we need to update the latest resurces
ASPNETResources = GetASPNetResources()
Application.Lock
Application("ASPNETResourcesUpdated")=Now()
Application("ASPNETResourceList")=ASPNETResources
Application.UnLock
End if 'datediff...
Else 'for some reason the application level variable is empty, fill it.
ASPNETResources = GetASPNetResources()
Application.Lock
Application("ASPNETResourcesUpdated")=Now()
Application("ASPNETResourceList")=ASPNETResources
Application.UnLock
End if 'len(..
Response.Write Application("ASPNETResourceList")
%>
相关文章
- 战锤40K星际战士2游玩时长介绍说明 11-07
- 战锤40K星际战士2全部怪物攻击方式一览 11-07
- 战锤40K星际战士2部分资源安排规划分享 11-07
- 战锤40K星际战士2热熔特战玩法技巧分享 11-07
- 战锤40K星际战士2武器数据获取方法分享 11-07
- 洛克王国世界翼王怎么配队-圣羽翼王阵容搭配推荐 11-07