Default.asp
------------------------------------------------------------------------
<%@ Language=vbscript%>
<%option explicit%>
<!--#include file= "i_soapcall.asp"-->
<HTML>
<HEAD>
<meta name= "generator" content= "Microsoft Visual Studio 6.0" >
</HEAD>
<BODY>
<%
Dim aspnetresources
If Len (Application ("Aspnetresourcelist")) >0 then ' we have our latest
REM--Check to the 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")
%>
The content source of this page is from Internet, which doesn't represent Alibaba Cloud's opinion;
products and services mentioned on that page don't have any relationship with Alibaba Cloud. If the
content of the page makes you feel confusing, please write us an email, we will handle the problem
within 5 days after receiving your email.
If you find any instances of plagiarism from the community, please send an email to:
info-contact@alibabacloud.com
and provide relevant evidence. A staff member will contact you within 5 working days.
A Free Trial That Lets You Build Big!
Start building with 50+ products and up to 12 months usage for Elastic Compute Service
