/new/administrator/link-save.asp

https://github.com/akabeko/fusionexcel · ASP · 136 lines · 98 code · 38 blank · 0 comment · 13 complexity · 9958eb5d17850d1dd9043a9b1cd1a43d MD5 · raw file

  1. <%
  2. option explicit
  3. Response.Expires = -1
  4. Response.CharSet = "utf-8"
  5. Server.ScriptTimeout = 600
  6. Session.CodePage = 65001
  7. %>
  8. <!--#include file="../libraries.asp" -->
  9. <!--#include file="freeaspupload.asp" -->
  10. <%
  11. Dim sql, link_id, RecordSet, uploadsDirVar
  12. uploadsDirVar = Server.MapPath("/images/link/")
  13. if Session("login") = "" then
  14. Response.Redirect "login.asp"
  15. end if
  16. if Request.ServerVariables("REQUEST_METHOD") <> "POST" then
  17. Response.Redirect "link-edit.asp?id=" & Request("id") & "&action=" & Request("action") & "&error=not_supported"
  18. end if
  19. link_id = 0
  20. if Request("id") <> "" and IsNumeric(Request("id")) and CInt(Request("id")) > 0 then
  21. link_id = CInt(Request("id"))
  22. end if
  23. Call SetConnection(GetLinksDbPath())
  24. Call OpenDatabase()
  25. SaveFiles(link_id)
  26. Function SaveFiles(link_id)
  27. Dim upload, fileName, fileSize, ks, i, fileKey, sameSequence
  28. set upload = new FreeAspUpload
  29. sameSequence = False
  30. upload.save(uploadsDirVar)
  31. SaveFiles = ""
  32. ks = upload.uploadedFiles.keys
  33. if (UBound(ks) <> -1) then
  34. for each fileKey in upload.uploadedFiles.keys
  35. SaveFiles = upload.uploadedFiles.keys
  36. next
  37. else
  38. SaveFiles = ""
  39. end if
  40. if upload.Form("submit") = "Add" then
  41. sql = "SELECT * FROM links"
  42. call CreateRecordSet(RecordSet, sql)
  43. RecordSet.AddNew
  44. RecordSet.Fields("created_by") = Session("login")
  45. RecordSet.Fields("created") = Now()
  46. else
  47. sql = "SELECT * FROM links WHERE link_id = " & link_id
  48. Call CreateRecordSet(RecordSet, sql)
  49. end if
  50. if SaveFiles <> "" then
  51. RecordSet.Fields("image_url") = "/images/link/" & SaveFiles
  52. end if
  53. if RecordSet.Fields("order_index") = CInt(upload.Form("order_index")) then
  54. sameSequence = True
  55. end if
  56. RecordSet.fields("publish") = upload.Form("publish")
  57. RecordSet.fields("article_name") = upload.Form("article_name")
  58. if upload.Form("article_id") = "" then
  59. RecordSet.fields("article_id") = 0
  60. else
  61. RecordSet.fields("article_id") = upload.Form("article_id")
  62. end if
  63. if upload.Form("article_category_code") = "" then
  64. RecordSet.fields("article_category_code") = 0
  65. else
  66. RecordSet.fields("article_category_code") = upload.Form("article_category_code")
  67. end if
  68. RecordSet.fields("link_title") = upload.Form("link_title")
  69. RecordSet.fields("link_short_description") = upload.Form("link_short_description")
  70. RecordSet.fields("link_title_bm") = upload.Form("link_title_bm")
  71. RecordSet.fields("link_short_description_bm") = upload.Form("link_short_description_bm")
  72. RecordSet.fields("link_title_chi") = upload.Form("link_title_chi")
  73. RecordSet.fields("link_short_description_chi") = upload.Form("link_short_description_chi")
  74. RecordSet.Fields("external_url") = upload.Form("external_url")
  75. RecordSet.Fields("link_type") = upload.Form("link_type")
  76. RecordSet.Fields("modified_by") = Session("login")
  77. RecordSet.Fields("modified") = Now()
  78. if upload.Form("video_category_code") = "" then
  79. RecordSet.Fields("video_category_code") = 0
  80. else
  81. RecordSet.Fields("video_category_code") = upload.Form("video_category_code")
  82. end if
  83. RecordSet.fields("order_index") = upload.Form("order_index")
  84. RecordSet.UPDATE
  85. link_id = RecordSet("link_id")
  86. Dim OrderRecordSet
  87. sql = "SELECT COUNT(1) AS 'counter' FROM links WHERE order_index = " & upload.Form("order_index") & " AND NOT (link_id = " & link_id & ")"
  88. call CreateRecordSet(OrderRecordSet, sql)
  89. if OrderRecordSet.Fields("'counter'") > 0 then
  90. sql = "UPDATE links SET order_index = order_index + 1 WHERE order_index >= " & Upload.Form("order_index") & " AND NOT (link_id = " & link_id & ")"
  91. call ExecuteQuery(sql)
  92. end if
  93. RecordSet.Close
  94. call CloseRecordSet(RecordSet)
  95. call ReindexLinksData(upload.Form("link_type"), upload.Form("video_category_code"))
  96. Response.Redirect("link-edit.asp?action=edit&id=" & link_id)
  97. End Function
  98. %>