Subversion Repositories DevTools

Rev

Rev 5506 | Rev 5671 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5506 Rev 5632
Line 15... Line 15...
15 
%>
 15 
%>
16 
<!--#include file="common/conf.asp"-->
 16 
<!--#include file="common/conf.asp"-->
17 
<!--#include file="common/globals.asp"-->
 17 
<!--#include file="common/globals.asp"-->
18 
<!--#include file="common/qstr.asp"-->
 18 
<!--#include file="common/qstr.asp"-->
19 
<!--#include file="common/common_subs.asp"-->
 19 
<!--#include file="common/common_subs.asp"-->
- 
 
 20 
<!--#include file="common/formating.asp"-->
20 
<!--#include file="_jquery_includes.asp"-->
 21 
<!--#include file="_jquery_includes.asp"-->
21 
 
 22 
 
22 
<%
 23 
<%
23 
'------------ ACCESS CONTROL ------------------
 24 
'------------ ACCESS CONTROL ------------------
24 
%>
 25 
%>
Line 53... Line 54...
53 
    set WSHShell = nothing
 54 
    set WSHShell = nothing
54 
end function
 55 
end function
55 
'----------------------------------------------
 56 
'----------------------------------------------
56 
'Returns the current database date-time
 57 
'Returns the current database date-time
57 
Function getDataBaseDateTime()
 58 
Function getDataBaseDateTime()
58 
   Dim sqry: sqry = "SELECT TO_CHAR (ora_sysdatetime, 'DD-Mon-YYYY HH24:MI:SS') FROM DUAL"
 59 
   Dim sqry: sqry = "SELECT TO_CHAR (ora_sysdatetime, 'Dy DD-Mon-YYYY HH24:MI:SS') FROM DUAL"
59 
   Dim rsTemp
 60 
   Dim rsTemp
60 
   Set rsTemp = OraDatabase.DbCreateDynaset( sqry , cint(0) )
 61 
   Set rsTemp = OraDatabase.DbCreateDynaset( sqry , cint(0) )
61 
   getDataBaseDateTime = rsTemp(0)
 62 
   getDataBaseDateTime = rsTemp(0)
62 
   rsTemp.Close()
 63 
   rsTemp.Close()
63 
   Set rsTemp = Nothing
 64 
   Set rsTemp = Nothing
64 
End Function
 65 
End Function
65 
 
 66 
 
66 
'----------------------------------------------
 67 
'----------------------------------------------
67 
Function WebServerDateTime ()
 68 
Function WebServerDateTime ()
68 
    Dim dDate : dDate = Now()
 69 
    WebServerDateTime = DisplayDateTimeSecs(Now())
69 
    Dim mName(13) :
- 
 
70 
    mName(0) =  "???"
 - 
 
71 
    mName(1) =  "Jan"
 - 
 
72 
    mName(2) =  "Feb"
 - 
 
73 
    mName(3) =  "Mar"
 - 
 
74 
    mName(4) =  "Apr"
 - 
 
75 
    mName(5) =  "May"
 - 
 
76 
    mName(6) =  "Jun"
 - 
 
77 
    mName(7) =  "Jul"
 - 
 
78 
    mName(8) =  "Aug"
 - 
 
79 
    mName(9) =  "Sep"
 - 
 
80 
    mName(10) = "Oct"
 - 
 
81 
    mName(11) = "Nov"
 - 
 
82 
    mName(12) = "Dec"
 - 
 
83 
	If IsNull(dDate) Then Exit Function
 - 
 
84 
	WebServerDateTime = Day(dDate) &"-"& mName(Month(dDate)) &"-"& Year(dDate) &" "& Right("0" & Hour(dDate), 2) & ":" & Minute(dDate) & ":" & Second(dDate)
 - 
 
85 
End Function
 70 
End Function
86 
 
 71 
 
87 
Function makeAjaxButton( text, script )
 72 
Function makeAjaxButton( text, script )
88 
    If active Then
 73 
    If active Then
89 
        makeAjaxButton = "&nbsp;&nbsp;<a id="""&script &""" href="""" class=""form_btn"" title=""" &text& """ onclick="""&script&"();return false;"">"&text&"</a>"
 74 
        makeAjaxButton = "&nbsp;&nbsp;<a id="""&script &""" href="""" class=""form_btn"" title=""" &text& """ onclick="""&script&"();return false;"">"&text&"</a>"