classEdit.asp

Upload User: gufengji9
Upload Date: 2007-04-27
Package Size: 769k
Code Size: 5k
Category: Applications
Development Platform: PHP
  1. <!--#include file="../data/CONN2.asp"-->
  2. <!--#include file="pass.asp"-->
  3. <%
  4. if uoID = 2 then Call opPass(isPass(22),0)
  5. Dim action, lcID, lcName, lcOrder, lcList, lcPro, lp()
  6. ReDim lp(4)
  7. lcID = Request.queryString("lcID")
  8. if isNull(lcID) or lcID = "" then
  9. lcID = 0
  10. else
  11. lcID = Cint(lcID)
  12. Set rs = Server.CreateObject("ADODB.RECORDSET")
  13. rs.Open"select * from ltClass where lcID = "& lcID &"",conn,1,1
  14. if not rs.eof then
  15. lcName = rs("lcName")
  16. lcOrder = rs("lcOrder")
  17. lcPro = rs("lcPro")
  18. lcList = rs("lcList")
  19. else
  20. Response.write(prtCen("数据库中无此记录!"))
  21. Response.end()
  22. end if
  23. end if 
  24. Dim i
  25. i = 1
  26. For each lcPro in split(lcPro,"|")
  27. lp(i) = lcPro
  28. i = i + 1
  29. Next
  30. if not isNumeric(lp(1)) then lp(1) = 0
  31. if not isNumeric(lp(2)) then lp(2) = 0
  32. if not isNumeric(lp(3)) then lp(3) = 0
  33. action = Request.Form("action")
  34. if action <> "" then
  35. for i = 1 to 3
  36. lcPro = lcPro  & Request.Form("lp"&i&"") & "|"
  37. next
  38. Select Case action
  39. Case "更新数据"
  40. Call actEdit()
  41. Case "添加分区"
  42. Call actAdd()
  43. end Select
  44. end if
  45. Sub actEdit()
  46. Dim ts, sql
  47. sql = "update ltClass set lcList ="& Cint(Request.Form("lcList")) &""
  48. sql = sql & ", lcOrder = "& Cint(Request.Form("lcOrder")) & ""
  49. sql = sql & ", lcName = '"& Trim(Request.Form("lcName")) &"'"
  50. sql = sql & ", lcPro = '"& lcPro &"'"
  51. sql = sql & " where lcID = "& Cint(Request.Form("lcID")) &""
  52. on Error Resume Next
  53. Set ts = conn.Execute(sql)
  54. if isObject(ts) then
  55. Response.write(prtCen("数据更新成功"))
  56. else
  57. Response.write(prtCen("数据更新失败"))
  58. end if
  59. Call rPage(2,"")
  60. Response.end()
  61. end Sub
  62. Sub actAdd()
  63. Dim ts, sql
  64. sql = "insert into ltClass(lcName, lcOrder, lcList, lcPro) Values('"& Request.Form("lcName") &"'"
  65. sql = sql & ", "& Cint(Request.Form("lcOrder")) &"" 
  66. sql = sql & ", "& Cint(Request.Form("lcList")) &"" 
  67. sql = sql & ", '"& lcPro &"')"
  68. on Error Resume Next
  69. Set ts = conn.Execute(sql)
  70. if isObject(ts) then
  71. Response.write(prtCen("数据添加成功"))
  72. else
  73. Response.write(prtCen("数据添加失败"))
  74. end if
  75. Call rPage(2,"")
  76. Response.end()
  77. End Sub %>
  78. <!--#include file="css.asp"-->
  79. <body bgcolor=<%=crs(0)%>>
  80. <table width="100%" border="0"><tr><td align="center">
  81. <form name="form1" method="post" action="">
  82. <table bgcolor=<%=crs(1)%> width="100%" border="0" cellspacing="1" cellpadding="4">
  83.           <tr bgcolor=<%=crs(2)%>> 
  84.             <td width="30%" align="right">分组名字:</td>
  85.             <td><input type="text" name="lcName" size="25" value="<%=lcName%>"></td>
  86.           </tr>
  87.           <tr bgcolor=<%=crs(2)%>> 
  88.             <td align="right">排序ID:</td>
  89.             <td><input type="text" name="lcOrder" size="12" value="<%=lcOrder%>">
  90.             整数数字
  91.             </td>
  92.           </tr>
  93.           <tr bgcolor=<%=crs(2)%>> 
  94.             <td align="right">左侧下拉菜单:</td>
  95.             <td>
  96. <input name="lp2" type="radio" value="0" <% if lp(2) = 0 then Response.write("checked")%>>默认关闭
  97. &nbsp;&nbsp;
  98. <input name="lp2" type="radio" value="1" <% if lp(2) = 1 then Response.write("checked")%>>默认打开
  99.   
  100.     </td>
  101.           </tr>
  102. <tr bgcolor=<%=crs(2)%>> 
  103. <td align="right">分类右侧版面默认:</td>
  104. <td>
  105. <input name="lp1" type="radio" value="0" <% if lp(1) = 0 then Response.write("checked")%>>关闭
  106. &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
  107. <input name="lp1" type="radio" value="1" <% if lp(1) = 1 then Response.write("checked")%>>打开
  108. </td>
  109. </tr>  
  110. <tr bgcolor=<%=crs(2)%>> 
  111. <td align="right">分类显示:</td>
  112. <td>
  113. <input name="lcList" type="radio" value="0" <% if lcList = 0 then Response.write("checked")%>>隐藏
  114. &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
  115. <input name="lcList" type="radio" value="1" <% if lcList = 1 then Response.write("checked")%>>显示
  116. </td>
  117. </tr>
  118.     <tr bgcolor=<%=crs(2)%>> 
  119.       <td width="23%" align="right">打开方式:</td>
  120.       <td width="77%">
  121. <input type="radio" name="lp3" value="0"  <% if lp(3) = 0 then Response.write("checked")%>>BBS风格
  122. &nbsp;&nbsp;&nbsp;
  123. <input type="radio" name="lp3" value="1" <% if lp(3) = 1 then Response.write("checked")%>>讨论区风格
  124. </td></tr><tr bgcolor=<%=crs(2)%>>
  125.             <td colspan="2" align="center">
  126. <% if lcID > 0 then %>
  127. <input type="hidden" name="lcID" value="<%=lcID%>">
  128.               <input type="submit" name="action" value="更新数据">
  129.  <% else %>
  130.  <input type="submit" name="action" value="添加分区">
  131.  <% end if %>
  132.   &nbsp;&nbsp;&nbsp;&nbsp;
  133.               <input type="reset" name="Submit2" value="重来"></td>
  134.           </tr>
  135.         </table>
  136.         <br>
  137.         <br>
  138.         <br>
  139.       </form></td></tr></table>
  140. <br>