<%@ Language=VBScript CodePage=65001 %>
<%
Option Explicit
Response.CacheControl = "no-cache"
Response.AddHeader "Pragma", "no-cache"
Response.Expires = -1
Response.Charset="utf-8"
%>
<%
Dim g_bDebug
g_bDebug = False
Sub AspDebug(strInfo)
If(g_bDebug) Then
Response.Write strInfo & "<br>"
End If
End Sub
Call Main
Sub Main()
Dim obj_as_notify
Dim str_out_put
on error resume next
Set obj_as_notify = Server.CreateObject("AcuAsNotify.AsNotify")
if(err.number = 0) then
str_out_put = obj_as_notify.GetConfInfo()
end if
if(err.number <> 0) then
response.write "0|0|0|0|0000|" & err.description
else
response.write left(str_out_put,12)
end if
set obj_as_notify = Nothing
End Sub
%>