interface_config.asp

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

<%
'****************************************************
' Jetiben CMS Power by Jetiben.com
' Email: [e-mail]
' Web: http://www.jetiben.com/
'****************************************************
Response.Expires = 0
Response.CacheControl = "no-cache"
Response.AddHeader "Pragma", "no-cache"

Sub jtb_cms_interface_login()
  Dim tmpstr
  If check_null(nusername) Then
    tmpstr = ireplace("global.tpl_user.jslogin_login", "tpl")
    response.write tmpstr
  Else
    Dim tmessage: tmessage = itake("global.lng_user.message", "lng")
    Dim font_red: font_red = itake("global.tpl_config.font_red", "tpl")
    font_red = Replace(font_red, "{$explain}", count_user_message(nusername))
    tmessage = replace(tmessage, "[]", "[" & font_red & "]")
    tmpstr = ireplace("global.tpl_user.jslogin_logined", "tpl")
    tmpstr = replace(tmpstr, "{$message}", tmessage)
    response.write tmpstr
  End If
End Sub

Sub jtb_cms_interface_nlogin()
  response.cookies("user")("uname") = get_str(request.querystring("username"))
  response.cookies("user")("pword") = md5(get_str(request.querystring("password")), "2")
  If check_userlogin Then
    response.write "ok"
  Else
    response.write "error"
  End If
End Sub

Sub jtb_cms_interface_check_username()
  Dim tusername: tusername = get_safecode(request.querystring("username"))
  If check_isuser(tusername) = 0 Then
    response.write "0"
  Else
    response.write "1"
  End If
End Sub

Sub jtb_cms_interface
  Select Case request.querystring("type")
    Case "login"
      Call jtb_cms_interface_login
    Case "nlogin"
      Call jtb_cms_interface_nlogin
    Case "check_username"
      Call jtb_cms_interface_check_username
  End select
End Sub
'****************************************************
' Jetiben CMS Power by Jetiben.com
' Email: [e-mail]
' Web: http://www.jetiben.com/
'****************************************************
%>