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

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

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

开发平台：

DOS

Supplier.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.Supplier_name.value == "")
  28. {
  29. alert("供应商名称不能为空！");
  30. myform.Supplier_name.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 Supplier"
  68. rs.open sql,conn,1,3
  69. rs.addnew
  70. rs("Supplier_name") = trim(request.Form("Supplier_name"))
  71. rs("Contact_person") = trim(request.Form("Contact_person"))
  72. rs("Title") = trim(request.Form("Title"))
  73. rs("adr") = trim(request.Form("adr"))
  74. rs("Prov") = trim(request.Form("Prov"))
  75. rs("city") = trim(request.Form("city"))
  76. rs("zip") = trim(request.Form("zip"))
  77. rs("tel") = trim(request.Form("tel"))
  78. rs("Facsimile") = trim(request.Form("Facsimile"))
  79. rs("Condition") = trim(request.Form("Condition"))
  80. rs("email") = trim(request.Form("email"))
  81. rs("content") = trim(request.Form("content"))
  82. rs.update
  83. response.Write "<script language=javascript>alert('添加成功！');</script>"
  84. response.write "<meta http-equiv=""refresh"" content=""0;url=Supplier.asp"">"
  85. response.end
  86. rs.close
  87. set rs=nothing
  88. end sub
  90.  
  91. sub SaveModify   
  92. set rs=server.createobject("adodb.recordset") 
  93. sql="select * from Supplier where id="&request.Form("id")
  94. rs.open sql,conn,1,3
  95. rs("Supplier_name") = trim(request.Form("Supplier_name"))
  96. rs("Contact_person") = trim(request.Form("Contact_person"))
  97. rs("Title") = trim(request.Form("Title"))
  98. rs("adr") = trim(request.Form("adr"))
  99. rs("Prov") = trim(request.Form("Prov"))
  100. rs("city") = trim(request.Form("city"))
  101. rs("zip") = trim(request.Form("zip"))
  102. rs("tel") = trim(request.Form("tel"))
  103. rs("Facsimile") = trim(request.Form("Facsimile"))
  104. rs("Condition") = trim(request.Form("Condition"))
  105. rs("email") = trim(request.Form("email"))
  106. rs("content") = trim(request.Form("content"))
  107. rs.update
  108. response.Write "<script language=javascript>alert('修改成功！');</script>"
  109. response.write "<meta http-equiv=""refresh"" content=""0;url=Supplier.asp"">"
  110. response.end
  111. rs.close
  112. set rs=nothing
  113. end sub   
  114.  
  115.   sub delCate()
  116.         conn.execute("delete from Supplier where id in ("&Request.Form("selBigClass")&")")
  117. response.Write "<script language=javascript>alert('删除成功！');</script>"
  118. response.write "<meta http-equiv=""refresh"" content=""0;url=Supplier.asp"">"
  119. response.end
  120.   end sub
  121.   %> <% sub myform(isEdit) %>    
  122. <TABLE width=98% align=center border="1" cellspacing="0" bordercolor="#D6D3CE">
  123.   <TBODY> 
  124.   <TR> 
  125.     <td align="center" valign="top"> 
  126. <%if oskey="supper" or oskey="admin" then%>
  127. <fieldset style="width:98%"><legend>
  128. <%
  129.     set rs=server.createobject("adodb.recordset")
  130.    if isedit then
  131.    rs.open "select * from Supplier where id=" & request("id"),conn,1,1
  132.        response.write "编辑供应商"
  133.    else
  134.        response.write "添加供应商"
  135.    end if %></legend>
  136.         <table width="100%" border="0" cellpadding="0" cellspacing="0" bordercolor="#D4D0C8">
  137.           <tr class="but"> 
  138. <td width="10%" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">供应商名称</td>
  139.             <td width="10%" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">联系人</td>
  140. <td width="5%" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">职 称</td>
  141. <td width="20%" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">地 址</td>
  142. <td width="10%" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">电话号码</td>
  143. <td width="10%" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">传真号码</td>
  144. <td width="10%" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">付款条件</td>
  145. <td width="10%" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">电子邮件</td>
  147.           </tr>
  148.   <form name="reg" method="post" action="Supplier.asp" onSubmit="return Juge(this)" >
  149.   <tr> <input type="Hidden" name="action" value='<% If isedit then%>modify<% Else %>add<% End If %>'> 
  150.   <% If isedit then%><input type="Hidden" name="id" value="<%=rs("id")%>"> <% End If %>
  151.             <td height="18" align="center"><input name="Supplier_name" type="text"  size="10"  value='<% if isedit then
  152.                                                          response.write rs("Supplier_name")
  153.   end if %>'></td>
  154.             <td><input name="Contact_person" type="text"  size="10" value='<% if isedit then
  155.                                                          response.write rs("Contact_person")
  156.   end if %>'></td>
  157.             <td><input name="Title" type="text"  size="10" value='<% if isedit then
  158.                                                          response.write rs("Title")
  159.   end if %>'></td>
  160. <td><input name="adr" type="text"  size="25" value='<% if isedit then
  161.                                                          response.write rs("adr")
  162.   end if %>'></td>
  163. <td><input name="tel" type="text"  size="10" value='<% if isedit then
  164.                                                          response.write rs("tel")
  165.   end if %>'></td>
  166. <td><input name="Facsimile" type="text"  size="10" value='<% if isedit then
  167.                                                          response.write rs("Facsimile")
  168.   end if %>'></td>
  169. <td><input name="Condition" type="text"  size="10" value='<% if isedit then
  170.                                                          response.write rs("Condition")
  171.   end if %>'></td>
  172. <td><input name="email" type="text"  size="10" value='<% if isedit then
  173.                                                          response.write rs("email")
  174.   end if %>'></td>
  175.           </tr>
  176.   <tr class="but"> 
  177. <td width="10%" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">省  份</td>
  178.             <td width="10%" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">城  市</td>
  179. <td width="70%" colspan="6" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">备  注</td>
  180.           </tr>
  181.   <tr> 
  182.             <td height="18" align="center"><% if isedit then%><%=rs("prov")%><%end if %><select name="prov" onChange="javascript:selectcity()">
  183. <option selected>选择</option>
  184.               </select>
  185.               <script language="javascript">                       
  186.  ProvinceOptionMenu();                       
  187. </script></td>
  188.             <td><% if isedit then%><%=rs("city")%><%end if %><select name="city">
  189.                 <option selected>选择</option>
  191.               </select></td>
  192.             <td colspan="5"><textarea name="content" cols="80" rows="1"><% if isedit then
  193.                                                          response.write rs("content")
  194.   end if %></textarea></td>
  195. <td width="148"><input type="submit" class="button" value="<% if isedit then
  196.                                                          response.write "编辑"
  197.  else
  198.  response.write "添加"
  199.   end if %>"> </td>
  200.           </tr></form>
  201.   
  202.            </table>
  203.         </fieldset>
  204. <%end if%>
  205.       <TABLE cellSpacing=1 cellPadding=0 width="100%" border=0 >
  206.         <TR>
  207.           <TD height="25" align="center">供 应 商 列 表</TD>
  208.               </TR>
  209.             </TABLE>
  210. <form action="Supplier.asp" method="post" name="selform" >
  211.   <table width="100%"  border="1" cellpadding="0" cellspacing="0" bordercolor="#D4D0C8" align="center">
  212.     <tr> 
  213.       
  214.       <td width="100%" align="center" valign="top">
  215.   <fieldset style="width:95%">
  216.         <table width="100%" border="0" cellpadding="0" cellspacing="0" bordercolor="#D4D0C8">
  217.           <tr class="but"> 
  218. <td width="10%" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">供应商名称</td>
  219.             <td width="10%" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">联系人</td>
  220. <td width="5%" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">职 称</td>
  221. <td width="20%" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">地 址</td>
  222. <td width="10%" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">电话号码</td>
  223. <td width="10%" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">传真号码</td>
  224. <td width="10%" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">付款条件</td>
  225. <td width="10%" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">电子邮件</td>
  226. <td width="10%" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">备 注</td>
  227.             <td width="5%" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">操 作</td>
  228.           </tr>
  229.  <%
  230. set rs=server.CreateObject("ADODB.RecordSet") 
  231. rs.Source="select* from Supplier"
  232. rs.Open rs.Source,conn,1,1
  233. if not rs.EOF then
  234. do while not rs.eof
  235. %>
  236. <tr><td height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'"><a href="Supplier.Asp?id=<%=rs("ID")%>&action=edit"><%=rs("Supplier_name")%></a></td>
  237. <td height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'"><%=rs("Contact_person")%><%if rs("Contact_person")="" then%>&nbsp;<%end if%></td>
  238. <td height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'"><%=rs("Title")%><%if rs("Title")="" then%>&nbsp;<%end if%></td>
  239. <td height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'"><%=rs("adr")%><%if rs("adr")="" then%>&nbsp;<%end if%></td>
  240. <td height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'"><%=rs("tel")%><%if rs("tel")="" then%>&nbsp;<%end if%></td>
  241. <td height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'"><%=rs("Facsimile")%><%if rs("Facsimile")="" then%>&nbsp;<%end if%></td>
  242. <td height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'"><%=rs("Condition")%><%if rs("Condition")="" then%>&nbsp;<%end if%></td>
  243. <td height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'"><%=rs("email")%><%if rs("email")="" then%>&nbsp;<%end if%></td>
  244. <td height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'"><%=rs("content")%><%if rs("content")="" then%>&nbsp;<%end if%></td>
  245. <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>
  246. </tr>
  247. <%
  248. rs.movenext
  249. loop
  250. end if
  251. rs.close
  252. set rs=nothing
  253. %>
  254. <tr><td align="right" colspan="10" height="22"> <%if oskey="supper" or oskey="admin" then%>
  255.         <input type="checkbox" name="checkbox" value="checkbox" onClick="javascript:SelectAll()"> 选择/反选
  256.               <input onClick="{if(confirm('此操作将删除该信息！nn确定要执行此项操作吗？')){this.document.selform.submit();return true;}return false;}" type=submit value=删除 name=action2> 
  257.               <input type="Hidden" name="action" value='del'><%end if%></td></tr>
  258.         </table>
  259. </fieldset>
  260.   
  261. </td>
  262.     </tr>
  263.     <tr> 
  264.       <td height="50" colspan="3" align="center">
  265.         
  267.         </td>
  268.     </tr>
  269.   </table>
  270. </form>
  271. </TD>
  272.               </TR>
  273.           </table>
  274.           
  275.       <table width="100%" border="0" cellspacing="0" cellpadding="4">
  276.       
  277.       </table>
  278.   </TBODY>
  279. </TABLE>
  280. <%end sub%>
  281. <P>
  282. <TABLE cellSpacing=0 cellPadding=0 width="100%" align=center border=0>
  283.   <TBODY>
  284.   <TR vAlign=center>
  285.     <TD align=middle width="100%"><!--#include file="footer.htm"--></TD>
  286.   </TR></TBODY></TABLE></P></BODY></HTML>