最新下载
热门教程
- 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")
%>
相关文章
- 风暴奇侠矿物探测仪怎么用-详细用法介绍 05-15
- Trezor钱包app下载软件 05-15
- 小狐狸电子钱包手机下载 05-15
- 小狐狸钱包网址手机版下载 05-15
- 小狐狸钱包下载app安卓版 05-15
- Dogecoin钱包官方版 05-15