payonline.asp

一本关于大学的书

<!--#include file="../Conn.asp"-->
<%
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.Execute
If Err Then
    Response.Write "错 误 号：" & Err.Number & "<BR>"
    Response.Write "错误描述：" & Err.Description & "<BR>"
    Response.Write "错误来源：" & Err.Source & "<BR>"
    Err.Clear
End If
Set PE_PayOnline = Nothing
%>