module_config.asp

JTBC网站内容管理系统是一套可扩充的网站内容管理系统

<%
'****************************************************
' Jetiben CMS Power by Jetiben.com
' Email: [e-mail]
' Web: http://www.jetiben.com/
'****************************************************
Dim turs: turs = nurs
If check_null(turs) Then turs = "about"

Function module_data_side()
  Dim font_red: font_red = itake("global.tpl_config.font_red", "tpl")
  Dim tmpstr, tmpastr
  tmpstr = ireplace("module.data_side", "tpl")
  tmpastr = ctemplate(tmpstr, "{$recurrence_ida}")
  Dim tmpary, tmprstr
  tmpary = get_xinfo_ary("module.all", "sel")
  If IsArray(tmpary) Then
    Dim tmpi, tmptstr
    Dim tstra, tstrb
    For tmpi = 0 To UBound(tmpary)
      tstra = tmpary(tmpi, 0)
      tstrb = tmpary(tmpi, 1)
      If Not tstra = "channel_title" Then
        If tstra = turs Then tstrb = Replace(font_red, "{$explain}", tstrb)
        tmptstr = Replace(tmpastr, "{$topic}", tstrb)
        tmptstr = Replace(tmptstr, "{$ahref}", "?" & tstra)
      End If
      tmprstr = tmprstr & tmptstr
    Next
  End If
  tmpstr = Replace(tmpstr, jtbc_cinfo, tmprstr)
  module_data_side = tmpstr
End Function

Function module_data_detail()
  Dim ttopic, tcontent
  ttopic = itake("module." & turs, "lng")
  If check_null(ttopic) Then Exit Function
  Call cntitle(ttopic)
  tcontent = itake("data." & turs, "lng")
  Dim tmpstr
  tmpstr = ireplace("module.data_detail", "tpl")
  tmpstr = Replace(tmpstr, "{$topic}", ttopic)
  tmpstr = Replace(tmpstr, "{$content}", encode_art(tcontent))
  module_data_detail = tmpstr
End Function

Function jtb_cms_module()
  Dim tmpstr: tmpstr = ireplace("module.detail", "tpl")
  jtb_cms_module = tmpstr
End Function
'****************************************************
' Jetiben CMS Power by Jetiben.com
' Email: [e-mail]
' Web: http://www.jetiben.com/
'****************************************************
%>