01.<%@ Language=VBScript CodePage=65001 %>
02.<%
03.Option Explicit
04.Response.CacheControl = "no-cache"
05.Response.AddHeader "Pragma", "no-cache"
06.Response.Expires = -1
07.Response.Charset="utf-8"
08.%>
09.
10.<%
11.
12. Dim g_bDebug
13. g_bDebug = False
14.
15. Sub AspDebug(strInfo)
16. If(g_bDebug) Then
17. Response.Write strInfo & "<br>"
18. End If
19. End Sub
20.
21. Call Main
22.
23.Sub Main()
24. Dim obj_as_notify
25. Dim str_out_put
26. on error resume next
27. Set obj_as_notify = Server.CreateObject("AcuAsNotify.AsNotify")
28. if(err.number = 0) then
29. str_out_put = obj_as_notify.GetConfInfo()
30. end if
31. if(err.number <> 0) then
32. response.write "0|0|0|0|0000|" & err.description
33. else
34. response.write left(str_out_put,12)
35. end if
36. set obj_as_notify = Nothing
37.End Sub
38.%>
