在线支付结果

<% Call CloseConn On Error Resume Next Dim PE_PayOnline Set PE_PayOnline = Server.CreateObject("PE_EShop6.PayOnline") If Err Then Err.Clear Response.Write "对不起，你的服务器没有安装动易组件（PE_EShop6.dll），所以不能使用动易系统。请和你的空间商联系以安装动易组件。" Response.End End If PE_PayOnline.iConnStr = ConnStr PE_PayOnline.iSystemDatabaseType = SystemDatabaseType Call PE_PayOnline.ShowPayResult If Err Then Response.Write "错 误 号：" & Err.Number & "
" Response.Write "错误描述：" & Err.Description & "
" Response.Write "错误来源：" & Err.Source & "
" Err.Clear End If Set PE_PayOnline = Nothing %>