ipay.asp

来自「JTBC网站内容管理系统是一套可扩充的网站内容管理系统」· ASP 代码 · 共 36 行

<!--#include file="ipaycls.asp"-->
<%
'****************************************************
' Jetiben CMS Power by Jetiben.com
' Email: [e-mail]
' Web: http://www.jetiben.com/
'****************************************************
Const ispayops = 1
Const ispaycls = 1
Dim payobj, payid

Function ipay_form(ByVal stramount)
  If ispayops = 0 Then Exit Function
  Select Case ispaycls
    Case 1
      Set payobj = New chinabank
      ipay_form = payobj.ipay_form(stramount)
      Set payobj = Nothing
  End Select
End Function

Function ipay_receive()
  If ispayops = 0 Then Exit Function
  Select Case ispaycls
    Case 1
      Set payobj = New chinabank
      ipay_receive = payobj.ipay_receive
      Set payobj = Nothing
  End Select
End function
'****************************************************
' Jetiben CMS Power by Jetiben.com
' Email: [e-mail]
' Web: http://www.jetiben.com/
'****************************************************
%>