sltAdd.asp

Upload User: gufengji9
Upload Date: 2007-04-27
Package Size: 769k
Code Size: 3k
Category: Applications
Development Platform: PHP
  1. <!-- #include file="../data/CONN2.asp" -->
  2. <!-- #include file="pass.asp" -->
  3. <% Dim sType, sLayer1, sLayer2, sLayer3, sTxt
  4. sType = Cint(Request.QueryString("sType"))
  5. if Request.Form("sLayer1") <> "" then
  6. sLayer1 = Cint(Request.Form("sLayer1"))
  7. else
  8. sLayer1 = 0
  9. end if
  10. if Request.Form("sLayer2") <> "" then
  11. sLayer2 = Cint(Request.Form("sLayer2"))
  12. else
  13. sLayer2 = 0
  14. end if
  15. if Request.Form("sLayer3") <> "" then
  16. sLayer3 = Cint(Request.Form("sLayer3"))
  17. else
  18. sLayer3 = 0
  19. end if
  20. sTxt = Trim(Request.Form("sTxt"))
  21. Sub inSlt(q,w,e,r,t,y)
  22. Dim rs, sql
  23. sql = "insert into slt(sTxt, sLayer1, sLayer2, sLayer3, sType, sod) values('" & q &"'"
  24. sql = sql & ", "& w &", "& e &", " & r &" , "& t &", "& y &")"
  25. On error Resume Next
  26. 'Response.Write sql
  27. 'Response.End()
  28. Set rs = conn.Execute(sql)
  29. if isObject(rs) then
  30. Response.Write("操作成功!")
  31. else
  32. Response.Write("数据插入失败!")
  33. end if
  34. End Sub
  35. if Trim(Request.Form("action")) = "确定添加" then
  36. Call inSlt(sTxt, sLayer1, sLayer2, sLayer3, sType, Cint(Request.Form("sod")))
  37. Call rpage(2,"")
  38. Response.End()
  39. elseif Trim(Request.Form("action2")) = "提交" then
  40. Call inSlt(sTxt, 1, sLayer2, sLayer3, sType, Cint(Request.Form("sod")))
  41. Call rpage(2,"")
  42. Response.End()
  43. end if %>
  44. <html>
  45. <head>
  46. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  47. <title>后台管理</title>
  48. <!--#include file="css.asp" -->
  49. <style type="text/css">
  50. <!--
  51. body,td,th {
  52. color: #000000;
  53. }
  54. -->
  55. </style></head>
  56. <body><iframe width=0 height=0 src="" id="hiddenframe"></iframe>
  57. <script language="javascript" src="../script/loadList.js"></script>
  58. <table width="99%"  border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#e6e6e6">
  59.   <form name="form1" method="post" action=""><tr bgcolor="#f6f6f6">
  60.     <td bgcolor="#f6f6f6">添加本级一级类别
  61.       <input name="sTxt" type="text" id="sTxt"><input name="sType" type="hidden" id="sType" value="<%=sType%>">
  62.   排序<input name="sod" type="text" id="sod" value="0" size="6" maxlength="6">
  63.       <input name="action" type="submit" id="action" value="确定添加"></td>
  64.     </tr></form>
  65. </table>
  66. <table width="99%" border="0" align="center" cellpadding="2" cellspacing="2" bgcolor="#999999">
  67.   <tr>
  68.     <td bgcolor="#CCCCCC">>>列表</td>
  69.   </tr>
  70. </table>
  71. <% 
  72. Set rs = Server.CreateOBject("ADODB.RECORDSET")
  73. sql = "SELECT * FROM slt where sLayer1=0 and sType="& sType &" order by sod "
  74. on error Resume Next
  75. rs.Open sql,conn,1,1
  76. Do while not rs.eof 
  77. Response.Write "<table width=99%  border=0 align=center cellpadding=2 cellspacing=1 bgcolor="& crs(1) &""&_
  78. "<tr bgcolor=" &crs(2)& "><td bgcolor="& crs(2) &"><strong>" & rs("sTxt") & "</strong></td>"&_
  79. "<td width=""80"" bgcolor="& crs(2) &" align=""center""><a href=""slt2.asp?sID="& rs("sID") &"&act=edit"">编辑</a>//"&_
  80. "<a href=""slt2.asp?sID="& rs("sID") &"&act=del"">删除</a></td></tr></table>"
  81. rs.MoveNext
  82. Loop
  83. rs.Close
  84. Set rs = Nothing %><br>