edit.asp
资源名称:1.rar [点击查看]
上传用户:ziqing_518
上传日期:2022-08-09
资源大小:446k
文件大小:1k
源码类别:

多媒体编程

开发平台:

ASP/ASPX

  1. <!--#include file="users.asp" -->
  2. <!--#include file="config.asp" -->
  3. <!--#include file="../md5.asp" -->
  4. <!--#include file="cookies.asp" -->
  5. <%
  6. end if
  7. rs.close
  8. set rs=nothing
  9. end if
  10. %>
  11. <!--#include file="function.asp" -->
  12. <!--#include file="code.asp" -->
  13. <!--#include file="first.asp" -->
  14. <!--#include file="js.asp" -->
  15. <table border=0 cellspacing=0 style='border-collapse:collapse' width=735 height=233 cellpadding=3>
  16. <tr>
  17. <td width=185 valign=top>
  18. <!--#include file="inc.asp" -->
  19. </td>
  20. <td width=550 height=233 valign=top>
  21. <script language="javascript">
  22. function submitonce(theform){
  23. //if IE 4+ or NS 6+
  24. if (document.all||document.getElementById){
  25. //screen thru every element in the form, and hunt down "submit" and "reset"
  26. for (i=0;i<theform.length;i++){
  27. var tempobj=theform.elements[i]
  28. if(tempobj.type.toLowerCase()=="submit"||tempobj.type.toLowerCase()=="reset")
  29. //disable em
  30. tempobj.disabled=true
  31. }
  32. }
  33. }
  34. </script><%
  35. select case request("post")
  36. case "edit"
  37. edit_aedit()
  38. case "save"
  39. edit_save()
  40. case "del"
  41. edit_del()
  42. case else
  43. edit_aedit()
  44. end select
  45. %></td>
  46. </tr>
  47. </table>
  48. <br><hr width=735>
  49. <center>
  50. </center>
  51. </body>
  52. </html>