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

源码开发语言/平台
当前位置：首页 > 源码/资料 > Internet/网络编程 > WEB源码(ASP,PHP,...) > 查看源码
department.asp
资源名称：4s.rar　[点击查看]
上传用户：apresys
上传日期：2021-03-30
资源大小：813k
文件大小：8k
源码类别：

WEB源码(ASP,PHP,...)

开发平台：

DOS

department.asp：源码内容
  1. <!--#include file="conn.asp"-->
  2. <!--#include file="checkuser.asp"-->
  3. <html>
  4. <head>
  5. <title>∷汽车4S店配件仓储管理系统:.</title>
  6. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  7. <link href="css/main.css" rel="stylesheet" type="text/css">
  8. <SCRIPT language=javascript  src="js/selectcity.js"></script>
  9. <script language="JavaScript" src="js/validate.js" type="text/JavaScript"></script>
  10. <script language="JavaScript" src="js/type.js"></script>
  11. <SCRIPT language=javascript src="css/init.js"></SCRIPT>
  13. <style type="text/css">
  14. <!--
  15. td {  font-family: "宋体"; font-size: 9pt}
  16. body {  font-family: "宋体"; font-size: 9pt}
  17. select {  font-family: "宋体"; font-size: 9pt}
  18. A {text-decoration: none; color: #336699; font-family: "宋体"; font-size: 9pt}
  19. A:hover {text-decoration: underline; color: #FF0000; font-family: "宋体"; font-size: 9pt} 
  20. -->
  21. </style>
  22. <SCRIPT LANGUAGE=javascript>
  23. <!--
  24. function Juge(myform)
  25. {
  27. if (myform.depname.value == "")
  28. {
  29. alert("名称不能为空！");
  30. myform.depname.focus();
  31. return (false);
  32. }
  34. }
  37. function SelectAll() {
  38. for (var i=0;i<document.selform.selBigClass.length;i++) {
  39. var e=document.selform.selBigClass[i];
  40. e.checked=!e.checked;
  41. }
  42. }
  43. //-->
  44. </script>
  45. </HEAD>
  46. <BODY topMargin=0 rightMargin=0 leftMargin=0>       
  47. <!--#include file="top.asp"--><% dim sql,rs
  49.   select case request("action")
  50.   case "add"
  51.        call SaveAdd()
  52.   case "modify"
  53.        call SaveModify()
  54.   case "del"
  55.        call delCate()
  56.   case "edit"
  57.        isEdit=True
  58.        call myform(isEdit)
  59.   case else
  60.        isEdit=False
  61.        call myform(isEdit) 
  62.   end select
  64.   
  65.   sub SaveAdd   
  66. set rs=server.createobject("adodb.recordset") 
  67. sql="select * from department"
  68. rs.open sql,conn,1,3
  69. rs.addnew
  70. rs("depname") = trim(request.Form("depname"))
  71. rs("depnumber") = trim(request.Form("depnumber"))
  72. rs.update
  73. rs.close
  74. set rs=nothing
  75. response.Write "<script language=javascript>alert('添加成功！');</script>"
  76. response.write "<meta http-equiv=""refresh"" content=""0;url=department.asp"">"
  77. response.end
  78. rs.close
  79. set rs=nothing
  80. end sub
  82.  
  83. sub SaveModify   
  84. set rs=server.createobject("adodb.recordset") 
  85. sql="select * from department where id="&request.Form("id")
  86. rs.open sql,conn,1,3
  87. rs("depnumber") = trim(request.Form("depnumber"))
  88. rs("depname") = trim(request.Form("depname"))
  89. rs.update
  90. rs.close
  91. set rs=nothing
  92. response.Write "<script language=javascript>alert('修改成功！');</script>"
  93. response.write "<meta http-equiv=""refresh"" content=""0;url=department.asp"">"
  94. response.end
  95. rs.close
  96. set rs=nothing
  97. end sub   
  98.  
  99.   sub delCate()
  100.         conn.execute("delete from department where id in ("&Request.Form("selBigClass")&")")
  101. response.Write "<script language=javascript>alert('删除成功！');</script>"
  102. response.write "<meta http-equiv=""refresh"" content=""0;url=department.asp"">"
  103. response.end
  104.   end sub
  105.   %> <% sub myform(isEdit) %>    
  106. <TABLE width=98% align=center border="1" cellspacing="0" bordercolor="#D6D3CE">
  107.   <TBODY> 
  108.   <TR> 
  109.     <td align="center" valign="top"><%if oskey="supper" or oskey="admin" then%> 
  110. <fieldset style="width:98%"><legend>
  111. <%
  112.     set rs=server.createobject("adodb.recordset")
  113.    if isedit then
  114.    rs.open "select * from department where id=" & request("id"),conn,1,1
  115.        response.write "编辑部门"
  116.    else
  117.        response.write "添加部门"
  118.    end if %></legend>
  119.         <table width="100%" border="0" cellpadding="0" cellspacing="0" bordercolor="#D4D0C8">
  120.           <tr class="but"> 
  121. <td width="20%" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">部门名称</td>
  122.             <td width="30%" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">部门编号</td>
  123. <td width="50%" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'" colspan="2">&nbsp;</td>
  125.           </tr>
  126.   <form name="myform" method="post" action="department.asp" onSubmit="return Juge(this)" >
  127.   <tr> <input type="Hidden" name="action" value='<% If isedit then%>modify<% Else %>add<% End If %>'> 
  128.   <% If isedit then%><input type="Hidden" name="id" value="<%=rs("id")%>"> <% End If %>
  129.             <td height="18" align="center"><input name="depname" type="text"  size="10"  value='<% if isedit then
  130.                                                          response.write rs("depname")
  131.   end if %>'></td>
  132.             <td><input name="depnumber" type="text"  size="25" value='<% if isedit then
  133.                                                          response.write rs("depnumber")
  134.   end if %>'></td>
  135. <td></td>
  136. <td width="148"><input type="submit" class="button" value="<% if isedit then
  137.                                                          response.write "编辑"
  138.  else
  139.  response.write "添加"
  140.   end if %>"> </td>
  141.           </tr>
  142.   </form>
  143.   
  144.            </table>
  145.         </fieldset>
  146.       <TABLE cellSpacing=1 cellPadding=0 width="100%" border=0 >
  147.         <TR>
  148.           <TD height="25" align="center">类 别 列 表</TD>
  149.               </TR>
  150.             </TABLE>
  151. <form action="department.asp" method="post" name="selform" >
  152.   <table width="100%"  border="1" cellpadding="0" cellspacing="0" bordercolor="#D4D0C8" align="center">
  153.     <tr> 
  154.       
  155.       <td width="100%" align="center" valign="top">
  156.   <fieldset style="width:95%">
  157.         <table width="100%" border="0" cellpadding="0" cellspacing="0" bordercolor="#D4D0C8">
  158.           <tr class="but"> 
  159. <td width="20%" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">部门名称</td>
  160.             <td width="40%" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">部门编号</td>
  161.             <td width="5%" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">操 作</td>
  162.           </tr>
  163.  <%
  164. set rs=server.CreateObject("ADODB.RecordSet") 
  165. rs.Source="select* from department"
  166. rs.Open rs.Source,conn,1,1
  167. if not rs.EOF then
  168. do while not rs.eof
  169. %>
  170. <tr><td height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'"><a href="department.Asp?id=<%=rs("ID")%>&action=edit"><%=rs("depname")%></a></td>
  171. <td height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'"><%=rs("depnumber")%><%if rs("depnumber")="" then%>&nbsp;<%end if%></td>
  172. <td height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'"><input name="selBigClass" type="checkbox" id="selBigClass" value="<%=rs("ID")%>"></td>
  173. </tr>
  174. <%
  175. rs.movenext
  176. loop
  177. end if
  178. rs.close
  179. set rs=nothing
  180. %>
  181. <tr><td align="right" colspan="10" height="22"><%if oskey="supper" or oskey="admin" then%> 
  182.         <input type="checkbox" name="checkbox" value="checkbox" onClick="javascript:SelectAll()"> 选择/反选
  183.               <input onClick="{if(confirm('此操作将删除该信息！nn确定要执行此项操作吗？')){this.document.selform.submit();return true;}return false;}" type=submit value=删除 name=action2> 
  184.               <input type="Hidden" name="action" value='del'><%end if%></td></tr>
  185.         </table>
  186. </fieldset>
  187.   <%end if%>
  188. </td>
  189.     </tr>
  190.     <tr> 
  191.       <td height="50" colspan="3" align="center">
  192.         
  194.         </td>
  195.     </tr>
  196.   </table>
  197. </form>
  198. </TD>
  199.               </TR>
  200.           </table>
  201.           
  202.       <table width="100%" border="0" cellspacing="0" cellpadding="4">
  203.       
  204.       </table>
  205.   </TBODY>
  206. </TABLE>
  207. <%end sub%>
  208. <P>
  209. <TABLE cellSpacing=0 cellPadding=0 width="100%" align=center border=0>
  210.   <TBODY>
  211.   <TR vAlign=center>
  212.     <TD align=middle width="100%"><!--#include file="footer.htm"--></TD>
  213.   </TR></TBODY></TABLE></P></BODY></HTML>