Using SOAP from inside ASP，maybe helpful for you!

作者：简简单单 2008-01-12

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")
%>

上一个：ASP漏洞分析和解决方法(1) 下一个：asp编写的加密和解密类

Using SOAP from inside ASP，maybe helpful for you!

相关文章

精彩推荐