manage_config.asp

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

        Call jtb_cms_admin_msg(itake("global.lng_public.add_succeed", "lng"), tbackurl, 1)
      End If
    ElseIf tmode = 2 Then
      trecipients2 = format_checkbox(trecipients2)
      If check_null(trecipients2) Or Not cidary(trecipients2) Then
        Call jtb_cms_admin_msg(itake("global.lng_public.add_failed", "lng"), tbackurl, 1)
      Else
        Dim tdatabase, tidfield, tfpre
        tdatabase = cndatabase(ngenre, "0")
        tidfield = cnidfield(ngenre, "0")
        tfpre = cnfpre(ngenre, "0")
        Dim trs, tsqlstr
        tsqlstr = "select * from " & tdatabase & " where " & cfnames(tfpre, "utype") & " in (" & trecipients2 & ")"
        Set trs = conn.Execute(tsqlstr)
        Set rs = server.CreateObject("adodb.recordset")
        sqlstr = "select * from " & ndatabase
        rs.open sqlstr, conn, 1, 3
        Do While Not trs.EOF
          rs.addnew
          rs(cfname("topic")) = ttopic
          rs(cfname("content")) = tcontents
          rs(cfname("read")) = tread
          rs(cfname("time")) = ttime
          rs(cfname("len")) = Len(tcontents)
          rs(cfname("addresser")) = taddresser
          rs(cfname("recipients")) = trs(cfnames(tfpre, "username"))
          rs.update
          trs.movenext
          loop
        rs.close
        Set rs = nothing
        Set trs = Nothing
      End If
      Call jtb_cms_admin_msg(itake("global.lng_public.add_succeed", "lng"), tbackurl, 1)
    Else
      Call jtb_cms_admin_msg(itake("global.lng_public.add_failed", "lng"), tbackurl, 1)
    End If
  End Sub

  Public Sub manage_editdisp()
    Dim tid, tbackurl
    tid = get_num(request.querystring("id"), 0)
    tbackurl = get_safecode(request.querystring("backurl"))
    Set rs = server.CreateObject("adodb.recordset")
    sqlstr = "select * from " & ndatabase & " where " & nidfield & "=" & tid
    rs.open sqlstr, conn, 1, 3
    If Not rs.EOF Then
      rs(cfname("topic")) = left_intercept(htmlencode(request.Form("topic")), 50)
      rs(cfname("addresser")) = left_intercept(htmlencode(request.Form("addresser")), 50)
      rs(cfname("recipients")) = left_intercept(htmlencode(request.Form("recipients")), 50)
      rs(cfname("content")) = left_intercept(htmlencode(request.Form("content")), 1000)
      rs(cfname("time")) = get_date(request.Form("name"))
      rs(cfname("read")) = get_num(request.Form("read"), 0)
      rs.Update
      Call jtb_cms_admin_msg(itake("global.lng_public.edit_succeed", "lng"), tbackurl, 1)
    Else
      Call jtb_cms_admin_msg(itake("global.lng_public.not_exist", "lng"), tbackurl, 0)
    End If
    rs.Close
    Set rs = Nothing
  End Sub

  Private Sub Class_Terminate()
  End Sub
End Class

Class manage_passport_friend

  Private Sub Class_Initialize()
    ncontrol = "select,delete"
    nsearch = "username,id"
    ndatabase = cndatabase(ngenre, "friend")
    nidfield = cnidfield(ngenre, "friend")
    nfpre = cnfpre(ngenre, "friend")
  End Sub

  Public Function manage_navigation()
    Dim tmpstr
    tmpstr = ireplace("friend.navigation", "tpl")
    manage_navigation = tmpstr
  End Function

  Public Sub manage_list()
    Dim search_field, search_keyword
    search_field = get_safecode(request.querystring("field"))
    search_keyword = get_safecode(request.querystring("keyword"))
    Dim tmpstr, tmpastr, tmprstr, tmptstr
    tmpstr = ireplace("friend.list", "tpl")
    tmpastr = ctemplate(tmpstr, "{$recurrence_ida}")
    sqlstr = "select * from " & ndatabase & " where " & nidfield & ">0"
    If search_field = "username" Then sqlstr = sqlstr & " and " & cfname("username") & " like '%" & search_keyword & "%'"
    If search_field = "id" Then sqlstr = sqlstr & " and " & nidfield & "=" & get_num(search_keyword, 0)
    sqlstr = sqlstr & " order by " & ndatabase & "." & cfname("time") & " desc"
    Dim jcutpage, jcuti
    Set jcutpage = New jtb_cutpage
    jcutpage.perpage = npagesize
    jcutpage.sqlstr = sqlstr
    jcutpage.cutpage
    Set rs = jcutpage.pagers
    Dim tmpusername, font_red
    If Not check_null(search_keyword) And search_field = "username" Then font_red = itake("global.tpl_config.font_red", "tpl")
    For jcuti = 1 To npagesize
      If Not rs.EOF Then
        tmpusername = get_str(rs(cfname("username")))
        If Not check_null(font_red) Then font_red = Replace(font_red, "{$explain}", search_keyword): tmpusername = Replace(tmpusername, search_keyword, font_red)
        tmptstr = Replace(tmpastr, "{$username}", tmpusername)
        tmptstr = Replace(tmptstr, "{$usernamestr}", urlencode(get_str(rs(cfname("username")))))
        tmptstr = Replace(tmptstr, "{$name}", get_str(rs(cfname("name"))))
        tmptstr = Replace(tmptstr, "{$time}", get_date(rs(cfname("time"))))
        tmptstr = Replace(tmptstr, "{$id}", get_num(rs(nidfield), 0))
        rs.movenext
        tmprstr = tmprstr & tmptstr
      End If
    Next
    tmpstr = Replace(tmpstr, "{$cpagestr}", jcutpage.pagestr)
    Set rs = Nothing
    Set jcutpage = Nothing
    tmpstr = Replace(tmpstr, jtbc_cinfo, tmprstr)
    response.write tmpstr
  End Sub

  Public Sub manage_add()
    Dim tmpstr
    tmpstr = ireplace("friend.add", "tpl")
    response.write tmpstr
  End Sub

  Public Sub manage_edit()
    Dim tid, tbackurl
    tid = get_num(request.querystring("id"), 0)
    tbackurl = get_safecode(request.querystring("backurl"))
    sqlstr = "select * from " & ndatabase & " where " & nidfield & "=" & tid
    Set rs = conn.Execute(sqlstr)
    If Not rs.EOF Then
      Dim tmpstr, tmpi, tmpfields, tmpfieldsvalue
      tmpstr = itake("friend.edit", "tpl")
      For tmpi = 0 To rs.fields.Count - 1
        tmpfields = rs.fields(tmpi).Name
        tmpfieldsvalue = get_str(rs(tmpfields))
        tmpstr = Replace(tmpstr, "{$" & Replace(tmpfields, nfpre, "") & "}", htmlencode(tmpfieldsvalue))
      Next
      tmpstr = Replace(tmpstr, "{$id}", get_str(rs(nidfield)))
      tmpstr = creplace(tmpstr)
      response.write tmpstr
    Else
      Call jtb_cms_admin_msg(itake("global.lng_public.not_exist", "lng"), tbackurl, 0)
    End If
    rs.Close
    Set rs = Nothing
  End Sub

  Public Sub manage_adddisp()
    Dim tbackurl: tbackurl = get_safecode(request.querystring("backurl"))
    Set rs = server.CreateObject("adodb.recordset")
    sqlstr = "select * from " & ndatabase
    rs.open sqlstr, conn, 1, 3
    rs.addnew
    rs(cfname("username")) = left_intercept(htmlencode(request.Form("username")), 50)
    rs(cfname("name")) = left_intercept(htmlencode(request.Form("name")), 50)
    rs(cfname("time")) = get_date(request.Form("time"))
    rs.Update
    Call jtb_cms_admin_msg(itake("global.lng_public.add_succeed", "lng"), tbackurl, 1)
  End Sub

  Public Sub manage_editdisp()
    Dim tid, tbackurl
    tid = get_num(request.querystring("id"), 0)
    tbackurl = get_safecode(request.querystring("backurl"))
    Set rs = server.CreateObject("adodb.recordset")
    sqlstr = "select * from " & ndatabase & " where " & nidfield & "=" & tid
    rs.open sqlstr, conn, 1, 3
    If Not rs.EOF Then
      rs(cfname("username")) = left_intercept(htmlencode(request.Form("username")), 50)
      rs(cfname("name")) = left_intercept(htmlencode(request.Form("name")), 50)
      rs(cfname("time")) = get_date(request.Form("time"))
      rs.Update
      Call jtb_cms_admin_msg(itake("global.lng_public.edit_succeed", "lng"), tbackurl, 1)
    Else
      Call jtb_cms_admin_msg(itake("global.lng_public.not_exist", "lng"), tbackurl, 0)
    End If
    rs.Close
    Set rs = Nothing
  End Sub

  Private Sub Class_Terminate()
  End Sub
End Class

Function manage_navigation(ByVal strers)
  On Error Resume Next
  Dim tcls
  Set tcls = Eval("New manage_passport_" & strers)
  If Err.Number = 0 Then
    manage_navigation = tcls.manage_navigation
  End If
  Set tcls = Nothing
End Function

Sub jtb_cms_admin_manage_add(ByVal strers)
  On Error Resume Next
  Dim tcls
  Set tcls = Eval("New manage_passport_" & strers)
  If Err.Number = 0 Then
    Call tcls.manage_add
  End If
  Set tcls = Nothing
End Sub

Sub jtb_cms_admin_manage_edit(ByVal strers)
  On Error Resume Next
  Dim tcls
  Set tcls = Eval("New manage_passport_" & strers)
  If Err.Number = 0 Then
    Call tcls.manage_edit
  End If
  Set tcls = Nothing
End Sub

Sub jtb_cms_admin_manage_list(ByVal strers)
  On Error Resume Next
  Dim tcls
  Set tcls = Eval("New manage_passport_" & strers)
  If Err.Number = 0 Then
    Call tcls.manage_list
  End If
  Set tcls = Nothing
End Sub

Sub jtb_cms_admin_manage_adddisp(strers)
  On Error Resume Next
  Dim tcls
  Set tcls = Eval("New manage_passport_" & strers)
  If Err.Number = 0 Then
    Call tcls.manage_adddisp
  End If
  Set tcls = Nothing
End Sub

Sub jtb_cms_admin_manage_editdisp(strers)
  On Error Resume Next
  Dim tcls
  Set tcls = Eval("New manage_passport_" & strers)
  If Err.Number = 0 Then
    Call tcls.manage_editdisp
  End If
  Set tcls = Nothing
End Sub

Sub jtb_cms_admin_manage_deletedisp(ByVal strers)
  On Error Resume Next
  Dim tcls
  Set tcls = Eval("New manage_passport_" & strers)
  If Err.Number = 0 Then
    Call jtb_cms_admin_deletedisp
  End If
  Set tcls = Nothing
End Sub

Sub jtb_cms_admin_manage_controldisp(ByVal strers)
  On Error Resume Next
  Dim tcls
  Set tcls = Eval("New manage_passport_" & strers)
  If Err.Number = 0 Then
    Call jtb_cms_admin_controldisp
  End If
  Set tcls = Nothing
End Sub

Sub jtb_cms_admin_manage_action()
  Select Case request.querystring("action")
    Case "add"
      Call jtb_cms_admin_manage_adddisp("user")
    Case "edit"
      Call jtb_cms_admin_manage_editdisp("user")
    Case "delete"
      Call jtb_cms_admin_manage_deletedisp("user")
    Case "control"
      Call jtb_cms_admin_manage_controldisp("user")
    Case "message_add"
      Call jtb_cms_admin_manage_adddisp("message")
    Case "message_edit"
      Call jtb_cms_admin_manage_editdisp("message")
    Case "message_delete"
      Call jtb_cms_admin_manage_deletedisp("message")
    Case "message_control"
      Call jtb_cms_admin_manage_controldisp("message")
    Case "friend_add"
      Call jtb_cms_admin_manage_adddisp("friend")
    Case "friend_edit"
      Call jtb_cms_admin_manage_editdisp("friend")
    Case "friend_delete"
      Call jtb_cms_admin_manage_deletedisp("friend")
    Case "friend_control"
      Call jtb_cms_admin_manage_controldisp("friend")
  End Select
End Sub

Call jtb_cms_admin_manage_action

Sub jtb_cms_admin_manage()
  Select Case request.querystring("type")
    Case "add"
      Call jtb_cms_admin_manage_add("user")
    Case "edit"
      Call jtb_cms_admin_manage_edit("user")
    Case "message"
      Call jtb_cms_admin_manage_list("message")
    Case "message_add"
      Call jtb_cms_admin_manage_add("message")
    Case "message_edit"
      Call jtb_cms_admin_manage_edit("message")
    Case "friend"
      Call jtb_cms_admin_manage_list("friend")
    Case "friend_add"
      Call jtb_cms_admin_manage_add("friend")
    Case "friend_edit"
      Call jtb_cms_admin_manage_edit("friend")
    Case Else
      Call jtb_cms_admin_manage_list("user")
  End Select
End Sub
'****************************************************
' Jetiben CMS Power by Jetiben.com
' Email: [e-mail]
' Web: http://www.jetiben.com/
'****************************************************
%>