开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > .net编程 > 查看源码
bumen_add.asp
资源名称：ASP.RAR　[点击查看]
上传用户：xhjd888
上传日期：2022-07-20
资源大小：203k
文件大小：3k
源码类别：

.net编程

开发平台：

Visual Basic

bumen_add.asp：源码内容
  2. <!--#include file="../add/ocdb/ocdb.asp"-->
  4. <%
  5. response.buffer=true
  7. '设定子程序
  8. select case Request("action")
  9. case "add"
  10. call add()
  11. case "edit"
  12. call edit()
  13. case "del"
  14. call del()
  15. end select
  17. '设定填加信息子程序
  18. sub add()
  19. addsub=request("csubname")
  20. set rs=conn.execute("select top 1 id from class order by id desc")
  21. if rs.eof then
  22. id=0
  23. else
  24. id=rs("id")
  25. end if
  26. rs.close
  27. sql="select * from class"
  28. set rs=server.createobject("adodb.recordset")
  29. rs.open sql,conn,1,3
  30. rs.addnew
  31. rs("id")=id+1
  32. rsid=id+1
  33. rs("cname")=trim(request("cname"))
  34. if request("lanmu")="" then
  35. rs("cwar")=0
  36. rs("cone")="NULL"
  37. rs("csub")=rsid
  38. rs("lmcd")=rsid
  39. rs("endclass")=0
  40. else
  41. sql1="select * from class where id="&request("lanmu")&""
  42. set rs1=server.createobject("adodb.recordset")
  43. rs1.open sql1,conn,1,3
  44. rs("id")=rsid
  45. rs("csub")=rs1("csub")
  46. rs("cwar")=rs1("cwar")+1
  47. rs("cone")=rs1("id")
  48. rs("lmcd")=rs1("lmcd")&"."&rsid
  49. rs("endclass")=0
  50. rs1("endclass")=1
  51. rs1.update
  52. rs1.close
  53. set rs1=nothing
  54. end if
  55. rs("cdate")=sj
  56. rs.update
  57. rs.close
  58. set rs=nothing
  59. '记录history
  60. logsys("添加栏目")
  61. conn.close
  62. set conn=nothing
  63. response.write"<script>alert('部门添加完成！返回部门添加');window.location='bumen.asp'</script>"
  64. response.end()
  65. end sub
  67. '设定修改信息子程序
  68. sub edit()
  69. set rs=server.createobject("ADODB.recordset") 
  70. rs.Open "SELECT * FROM class where id="&request("id"),conn,1,3 
  71. rs("cname")=trim(request("cname"))
  72. if request("csubname")="0" then
  73. rs("cwar")=0
  74. rs("cone")="NULL"
  75. set xx=conn.execute("select top 1 csub from class order by csub desc")
  76. if xx.eof or xx.bof or rs(0)="" then
  77. rs("csub")=1
  78. else
  79. rs("csub")=(xx(0)+1)
  80. end if
  81. set xx=nothing
  82. else
  83. set xx=conn.execute("select csub from class where cname='"&request("csubname")&"'")
  84. rs("csub")=xx(0)
  85. set xx=nothing
  86. rs("cwar")=1
  87. rs("cone")=(request("csubname"))
  88. end if
  90. if request("cuser")="0" then
  91. rs("cuser")=admin
  92. else
  93. rs("cuser")=(request("cuser"))
  94. end if
  95. if request("cinput")="" then
  96. rs("cinput")=admin
  97. else
  98. rs("cinput")=trim(request("cinput"))
  99. end if
  100. if request("caccount")<>"" then
  101. rs("caccount")=request("caccount")
  102. end if
  103. rs.update
  104. rs.close
  105. '记录history
  106. logsys("修改栏目")
  107. conn.close
  108. set conn=nothing
  109. response.redirect "class_edit.asp"
  110. end sub
  112. '设定删除子程序
  113. sub del()
  114. dim id,sql,cname
  115. id=request("id")
  116. cwar=request("cwar")
  117. cname=request("cname")
  118. if cwar = "0" then
  119. sql="delete * from class where trim(Cstr(ID))='"&id&"'"
  120. conn.execute(sql)
  121. sql="delete * from class where trim(Cstr(cone))='"&cname&"'"
  122. conn.execute(sql)
  123. else
  124. sql="delete * from class where trim(Cstr(ID))='"&id&"'"
  125. conn.execute(sql)
  126. end if
  127. '记录history
  128. logsys("删除栏目")
  129. Conn.Close
  130. Set Conn=Nothing
  131. response.redirect "class_edit.asp"
  132. end sub
  133. %>