config.asp

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

<%
ngenre = "support"
nsort = "payment"
ncontrol = "select,delete"
Call jtb_cms_init("child")
nhead = get_str(get_value(ngenre & "." & nsort & ".nhead"))
nfoot = get_str(get_value(ngenre & "." & nsort & ".nfoot"))
npagesize = get_num(get_value(ngenre & ".npagesize"), 0)
ndatabase = get_str(get_value(ngenre & "." & nsort & ".ndatabase"))
nidfield = get_str(get_value(ngenre & "." & nsort & ".nidfield"))
nfpre = get_str(get_value(ngenre & "." & nsort & ".nfpre"))
ntitle = itake("module.channel_title","lng")
If check_null(nhead) Then nhead = default_head
If check_null(nfoot) Then nfoot = default_foot

Sub update_support_payment_information(ByVal strorderid, ByVal strpayorderid, ByVal strgenre, ByVal strpayid, ByVal strpaymoney)
  Dim trs, tsqlstr
  tsqlstr = "select * from " & ndatabase
  Set trs = server.CreateObject("adodb.recordset")
  trs.open tsqlstr, conn, 1, 3
  trs.addnew
  trs(cfname("orderid")) = get_str(strorderid)
  trs(cfname("payorderid")) = get_str(strpayorderid)
  trs(cfname("genre")) = get_str(strgenre)
  trs(cfname("payid")) = get_num(strpayid, 0)
  trs(cfname("paymoney")) = get_num(strpaymoney, 0)
  trs(cfname("time")) = Now()
  trs.update
  Set trs = Nothing
End Sub
%>