Source code of Windows XP (NT5)
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

40 lines
866 B

  1. <%
  2. Response.Expires = 0
  3. %>
  4. <!--
  5. handle repost for attachment file for a specified bug
  6. updates links table with original name
  7. Form : org=original filemame, raid=raid filename, st=status ( filesize )
  8. -->
  9. <%
  10. f = Request.Form("org")
  11. pos = InStrRev(f,"/")
  12. if pos > 0 then
  13. f = mid(f,pos+1)
  14. end if
  15. pos = InStrRev(f,"\")
  16. if pos > 0 then
  17. f = mid(f,pos+1)
  18. end if
  19. pos = InStrRev(f,":")
  20. if pos > 0 then
  21. f = mid(f,pos+1)
  22. end if
  23. Set Conn = Server.CreateObject("ADODB.Connection")
  24. Conn.Open Session("DSN")
  25. v = "UPDATE links SET OriginalName='" & f & "' where LinkID=" & Request.Form("lid")
  26. Conn.Execute v
  27. Conn.Close
  28. %>
  29. <html>
  30. <head>
  31. <title>Attach file</title>
  32. Database updated successfully.<br>
  33. <input OnClick="window.close()" type="button" value="Close">
  34. </head>
  35. <body>
  36. </body>
  37. </html>