manage_config.asp

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

<%
'****************************************************
' Jetiben CMS Power by Jetiben.com
' Email: [e-mail]
' Web: http://www.jetiben.com/
'****************************************************
Function jtb_cms_admin_manage_run()
  dim tmpsucc, tmpfail, font_red, font_green, html_kong
  tmpsucc = itake("manage.succeed", "lng")
  tmpfail = itake("manage.failed", "lng")
  font_red = itake("global.tpl_config.font_red", "tpl")
  font_green = itake("global.tpl_config.font_green", "tpl")
  html_kong = itake("global.tpl_config.html_kong", "tpl")
  dim tmpstr, tmpary, tmpi, tmprstr
  tmpstr = get_str(request.form("sqlstrs"))
  tmpary = split(tmpstr, vbcrlf)
  for tmpi = 0 to ubound(tmpary)
    if run_sqlstr(tmpary(tmpi)) then
      tmprstr = tmprstr & tmpary(tmpi) & html_kong & replace(font_green,"{$explain}",tmpsucc) & vbcrlf
    else
      tmprstr = tmprstr & tmpary(tmpi) & html_kong & replace(font_red,"{$explain}",tmpfail) & vbcrlf
    end if
  next
  jtb_cms_admin_manage_run = encode_art(tmprstr)
End Function

Sub jtb_cms_admin_manage_form()
  Dim tmpstr, tmpastr
  tmpstr = ireplace("manage.form", "tpl")
  response.write tmpstr
End Sub

Sub jtb_cms_admin_manage()
  Call jtb_cms_admin_manage_form
End Sub
'****************************************************
' Jetiben CMS Power by Jetiben.com
' Email: [e-mail]
' Web: http://www.jetiben.com/
'****************************************************
%>