最新下载
热门教程
- 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")
%>
相关文章
- GitHub Copilot响应慢排查：代理设置与缓存清理要点 06-16
- GitHub Copilot实用插件：功能对比、配置限制与使用场景说明 06-16
- 植物大战僵尸2如何应对海底执政官僵尸 06-16
- 冲鸭表情包下载 - 可爱卡通动态图免费获取 06-16
- Cursor设计场景用法：界面原型、组件库与代码生成配置说明 06-16
- 2026年Cursor使用场景与权限设置说明 06-16