qtlist.asp

来自「《公文签收系统完美增强版V2.0》- 政府版 网上公文发布签收管理系统 」· ASP 代码 · 共 25 行

<%
'********************************************************************************
'╔----------------------------------------------------------------------------╗
'┆                                                                            ┆
'┆                    公文签收系统完美增强版 V2.0 政府版                      ┆
'┆                                                                            ┆
'┆                            版权所有：网纪互联                              ┆
'┆                                                                            ┆
'┆                    QQ：6340269  Email：[e-mail]                      ┆
'┆                                                                            ┆
'╚----------------------------------------------------------------------------╝
on error resume next
Dim obja2dqtlist
Set obja2dqtlist = Server.CreateObject("GWQS_ZF.a2dqtlist")
if err then
response.write "<title>公文签收系统 >> 服务器没有安装组件！</title><table border=""0"" width=""100%"" height=""100%""><tr><td align=""center""><img border=""0"" src=""images/dllfalse.gif""></td></tr></table>" & vbNewLine
response.end
end if
obja2dqtlist.I_init
Set obja2dqtlist = Nothing
Sub OnTransactionAbort()
End Sub
'********************************************************************************
%>