dy.asp

来自「《公文签收系统》- 采用ASP+ACCESS开发的一套具有方便、快速、安全、高效」· ASP 代码 · 共 25 行

<%
'********************************************************************************
'╔----------------------------------------------------------------------------╗
'┆                                                                            ┆
'┆                               公文签收系统                                 ┆
'┆                                                                            ┆
'┆                            版权所有：网纪互联                              ┆
'┆                                                                            ┆
'┆                    QQ：6340269  Email：[e-mail]                      ┆
'┆                                                                            ┆
'╚----------------------------------------------------------------------------╝
on error resume next
Dim obja2ddy
Set obja2ddy = Server.CreateObject("GWQS_ZF.a2ddy")
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
obja2ddy.I_init
Set obja2ddy = Nothing
Sub OnTransactionAbort()
End Sub
'********************************************************************************
%>