(ADODB.Command)对象的用法，用CASE调用的REM/DEL/UPDATE/

阿杰

1. <!--#include file="conn.asp"-->
   
2. <%set rs=server.createobject("adodb.recordset")
   
3. sql="select * from jtopic order by j_id desc"
   
4. rs.open sql,conn,1,1
   
5. %>
   
6. <script language="javascript">
   
7. function check1(i,o)
   
8. {
   
9. document.form.text2.value=i;
   
10. document.form.word2.value=o;
    
11. }
    
12. </script>
    
13. 
    
14. <form name="form" method="post" action="sort_in.asp">
    
15. <br><b>&nbsp;专题类别：</b>
    
16. <input type="hidden" name="options" value=''>
    
17. &nbsp;<select name="jtop" id="jtop" onchange="check1(document.form.jtop.options[document.form.jtop.selectedIndex].lable,document.form.jtop.options[document.form.jtop.selectedIndex].title)">
    
18. <% do while not rs.eof %>
    
19. <option value="<%=rs("j_id")%>" lable="<%=rs("j_name")%>" title="<% =rs("j_flag") %>"><%=rs("j_name")%></option>
    
20. <%
    
21. rs.movenext
    
22. loop
    
23. %></select>
    
24. <input type="submit" name="Submit" value="删 除" onclick="form.options.value='del'"><p>
    
25. &nbsp;<input type="text" name="word1" size=57 value="" maxlength="50" style="width: 369; height: 22">&nbsp;
    
26. <input name="tui1" type="radio" id="tui" value="0" checked>默认<font color=red><b>0</b></font>
    
27. <input name="tui1" type="radio" id="tui" value="1">推荐<font color=red><b>1</b></font>
    
28. <input type="submit" name="Submit1" value="添 加" onclick="form.options.value='new'">&nbsp;</p><p>
    
29. &nbsp;<input type="text" name="text2" size=57 value="" maxlength="50" style="width: 370; height: 22">
    
30. <input type="text" name="word2" size=57 value="" maxlength="50" style="width: 70; height: 23">&nbsp;
    
31. <input type="submit" name="Submit2" value="修 改" onclick="form.options.value='rename'">&nbsp; </p>
    
32. </form>　
    
33. 
    
34. +++++++++++ sort_in.asp +++++++++++++++++++++++++++++++++++
    
35. <!--#include file="conn.asp"-->
    
36. <%
    
37. dim cmdTemp
    
38. 
    
39. select case request.form("options")
    
40. case "rename"
    
41. on error resume next
    
42. Set cmdTemp = Server.CreateObject("ADODB.Command")
    
43. set rs=server.createobject("adodb.recordset")
    
44. cmdTemp.CommandText = "SELECT * FROM jtopic where j_id=" & request.form("jtop")
    
45. cmdTemp.CommandType = 1
    
46. Set cmdTemp.ActiveConnection = conn
    
47. rs.Open cmdTemp, , 1, 3
    
48. if err.Number<>0 then
    
49. err.clear
    
50. response.write " <br>数 据 库 操 作 失 败 ! "
    
51. else
    
52. rs("j_name") = request.form("text2")
    
53. rs("j_flag") = request.form("word2")
    
54. rs.Update
    
55. rs.Close
    
56. set rs=nothing
    
57. set cmdTemp=nothing
    
58. finished
    
59. end if
    
60. case "del"
    
61. Rem 删除栏目 /. 注释或标记语句：Rem 格式：Rem [注释或标记](解释：可以当作标记供跳转语句使用，也可以当作脚本

复制代码