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

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

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

开发平台：

DOS

Material.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="css/init.js"></SCRIPT>
  10. <style type="text/css">
  11. <!--
  12. td {  font-family: "宋体"; font-size: 9pt}
  13. body {  font-family: "宋体"; font-size: 9pt}
  14. select {  font-family: "宋体"; font-size: 9pt}
  15. A {text-decoration: none; color: #336699; font-family: "宋体"; font-size: 9pt}
  16. A:hover {text-decoration: underline; color: #FF0000; font-family: "宋体"; font-size: 9pt} 
  17. -->
  18. </style>
  19. <SCRIPT LANGUAGE=javascript>
  20. <!--
  22. function SelectAll() {
  23. for (var i=0;i<document.selform.selBigClass.length;i++) {
  24. var e=document.selform.selBigClass[i];
  25. e.checked=!e.checked;
  26. }
  27. }
  28. //-->
  29. </script>
  30. </HEAD>
  31. <BODY topMargin=0 rightMargin=0 leftMargin=0>       
  32. <!--#include file="top.asp"--><% dim sql,rs
  34.   select case request("action")
  35.   case "add"
  36.        call SaveAdd()
  37.   case "modify"
  38.        call SaveModify()
  39.   case "del"
  40.        call delCate()
  41.   case "edit"
  42.        isEdit=True
  43.        call myform(isEdit)
  44.   case else
  45.        isEdit=False
  46.        call myform(isEdit) 
  47.   end select
  49.   
  50.   sub SaveAdd   
  51. set rs=server.createobject("adodb.recordset") 
  52. sql="select * from Material where class='"&trim(request.Form("class"))&"' and pinming='"&trim(request.Form("pinming"))&"' and guige='"&trim(request.Form("guige"))&"'"
  53. rs.open sql,conn,1,3
  54. if not rs.eof then
  55. response.Write "<script language=javascript>alert('对不起，你现在添加的材料名称已经存在！');</script>"
  56. response.write "<meta http-equiv=""refresh"" content=""0;url=Material.asp"">"
  57. response.end
  58. else
  59. rs.addnew
  60. rs("class") = trim(request.Form("class"))
  61. rs("code") = trim(request.Form("code"))
  62. rs("pinming") = trim(request.Form("pinming"))
  63. rs("guige") = trim(request.Form("guige"))
  64. rs("Unit") = trim(request.Form("Unit"))
  65. rs("price") = request.Form("price")
  66. rs("baojing_num") = request.Form("baojing_num")
  67. rs.update
  68. response.Write "<script language=javascript>alert('添加成功！');</script>"
  69. response.write "<meta http-equiv=""refresh"" content=""0;url=Material.asp"">"
  70. response.end
  71. end if
  72. rs.close
  73. set rs=nothing
  74. end sub
  76.  
  77. sub SaveModify   
  78. set rs=server.createobject("adodb.recordset") 
  79. sql="select * from Material where id="&request.Form("id")
  80. rs.open sql,conn,1,3
  81. rs("class") = trim(request.Form("class"))
  82. rs("code") = trim(request.Form("code"))
  83. rs("pinming") = trim(request.Form("pinming"))
  84. rs("guige") = trim(request.Form("guige"))
  85. rs("Unit") = trim(request.Form("Unit"))
  86. rs("price") = trim(request.Form("price"))
  87. rs("baojing_num") = request.Form("baojing_num")
  88. rs.update
  89. rs.close
  90. set rs=nothing
  91. response.Write "<script language=javascript>alert('修改成功！');</script>"
  92. response.write "<meta http-equiv=""refresh"" content=""0;url=Material.asp"">"
  93. response.end
  94. end sub   
  95.  
  96.   sub delCate()
  97.         conn.execute("delete from Material where id in ("&Request.Form("selBigClass")&")")
  98. response.Write "<script language=javascript>alert('删除成功！');</script>"
  99. response.write "<meta http-equiv=""refresh"" content=""0;url=Material.asp"">"
  100. response.end
  101.   end sub
  102.   %> <% sub myform(isEdit) %>    
  103. <TABLE width=98% align=center border="1" cellspacing="0" bordercolor="#D6D3CE">
  104.   <TBODY> 
  105.   <TR> 
  106.     <td align="center" valign="top"><%if oskey="supper" or oskey="admin" then%> 
  107. <fieldset style="width:98%"><legend>
  108. <%
  109.     set rs=server.createobject("adodb.recordset")
  110.    if isedit then
  111.    rs.open "select * from Material where id=" & request("id"),conn,1,1
  112.        response.write "编辑材料信息"
  113.    else
  114.        response.write "添加材料信息"
  115.    end if %></legend>
  116.         <table width="100%" border="0" cellpadding="0" cellspacing="0" bordercolor="#D4D0C8">
  117.           <tr class="but"> 
  118. <td width="10%" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">编 号</td>
  119. <td width="10%" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">类  别</td>
  120.             <td width="30%" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">配件名称</td>
  121. <td width="30%" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">车 型</td>
  122. <td width="10%" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">计量单位</td>
  123. <td width="20%" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">采购单价</td>
  124. <td width="20%" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">报警数量</td>
  125.           </tr>
  126.   <form name="reg" method="post" action="Material.asp">
  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 align="center"><input name="code" type="text"  size="25" value='<% if isedit then
  130.                                                          response.write rs("code")
  131.   end if %>'></td>
  132. <td height="18" align="center">
  133. <select name="class" size="1">
  134. <%
  135.        set rs2=server.createobject("adodb.recordset")
  136.    rs2.open "select * from class",conn,1,1
  137.    if not rs2.eof then
  138.    do while not rs2.eof
  139.    classnumber=rs2("classnumber")
  140.    %>
  141.    <option value="<%=rs2("classnumber")%>" <% if isedit then
  142.    if classnumber=rs("class") then%> selected="selected"<%end if %><%end if %>><%=rs2("classnumber")%></option>
  143.    
  144. <%
  145. rs2.movenext
  146. loop
  147. end if
  148. rs2.close
  149. set rs2=nothing
  150. %></select></td>
  151.             <td align="center"><input name="pinming" type="text"  size="25" value='<% if isedit then
  152.                                                          response.write rs("pinming")
  153.   end if %>'></td>
  154.             <td align="center"><input name="guige" type="text"  size="25" value='<% if isedit then
  155.                                                          response.write rs("guige")
  156.   end if %>'></td>
  157. <td align="center">
  158. <select name="Unit" size="1">
  159. <%
  160. set rs0=server.CreateObject("ADODB.RecordSet") 
  161. rs0.Source="select* from Unit"
  162. rs0.Open rs0.Source,conn,1,1
  163. if not rs0.EOF then
  164. do while not rs0.eof
  165. %>
  167. <option <% if isedit then
  168. if rs("Unit")=rs0("Unit") then
  169. %> selected="selected"<%end if%><%end if%>><%=rs0("Unit")%></option>
  170. <%
  171. rs0.movenext
  172. loop
  173. end  if
  174. rs0.close
  175. set rs0=nothing
  176. %>
  178. </select>
  179. </td>
  180. <td align="center"><input name="price" type="text"  size="10" value='<% if isedit then
  181.                                                          response.write rs("price")
  182.   end if %>'></td>
  183.          <td align="center"><input name="baojing_num" type="text"  size="10" value='<% if isedit then
  184.                                                          response.write rs("baojing_num")
  185.   end if %>'></td>
  186.   </tr>
  187.   <tr> 
  188.             
  189. <td align="center" colspan="8" height="25"><input type="submit"  value="<% if isedit then
  190.                                                          response.write "编辑"
  191.  else
  192.  response.write "添加"
  193.   end if %>"> </td>
  194.           </tr></form>
  195.   
  196.            </table>
  197.         </fieldset><%end if%>
  198.       <TABLE cellSpacing=1 cellPadding=0 width="100%" border=0 >
  199.         <TR>
  200.           <TD height="25" align="center">配 件 列 表</TD>
  201.               </TR>
  202.             </TABLE>
  203. <form action="Material.asp" method="post" name="selform" >
  204.   <table width="100%"  border="1" cellpadding="0" cellspacing="0" bordercolor="#D4D0C8" align="center">
  205.     <tr> 
  206.       
  207.       <td width="100%" align="center" valign="top">
  208.   <fieldset style="width:95%">
  209.         <table width="100%" border="0" cellpadding="0" cellspacing="0" bordercolor="#D4D0C8">
  210.           <tr class="but"> 
  211. <td width="10%" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">编 号</td>
  212. <td width="10%" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">类  别</td>
  213.             <td width="30%" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">配件名称</td>
  214. <td width="20%" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">车 型</td>
  215. <td width="20%" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">计量单位</td>
  216. <td width="10%" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">采购单价</td>
  217. <td width="10%" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">报警数量</td>
  218.             <td width="10%" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">操 作</td>
  219.           </tr>
  220.  <%
  221. PageShowSize = 10            '每页显示多少个页
  222. MyPageSize   = 20          '每页显示多少条
  223. If Not IsNumeric(Request("page")) Or IsEmpty(Request("page")) Or Request("page") <=0 Then
  224. MyPage=1
  225. Else
  226. MyPage=Int(Abs(Request("page")))
  227. End if
  228. set rs=server.CreateObject("ADODB.RecordSet")
  229. search=request("search")
  230. if search<>"" then
  231. class1=request("class")
  232. keyword=request("keyword")
  233. rs.Source="select* from Material where class like '%"&class1&"%' and pinming like '%"&keyword&"%' order by id desc"
  234. else
  235. rs.Source="select* from Material order by id desc"
  236. end if
  237. rs.Open rs.Source,conn,1,1
  238. if not rs.EOF then
  239. rs.PageSize     = MyPageSize
  240. MaxPages         = rs.PageCount
  241. rs.absolutepage = MyPage
  242. total            = rs.RecordCount
  243. for i=1 to rs.PageSize
  244. if not rs.EOF then
  245. %>
  246. <tr <%if i mod 2 =0 then%> bgcolor="#CCCCCC"<%end if%>><td height="18" align="center"><%=rs("code")%></td>
  247. <td height="18" align="center"><%=rs("class")%></td>
  248. <td height="18">&nbsp;&nbsp;<a href="Material.asp?id=<%=rs("ID")%>&action=edit"><%=rs("pinming")%></a></td>
  249. <td height="18">&nbsp;&nbsp;<%=rs("guige")%></td>
  250. <td height="18" align="center"><%=rs("Unit")%><%if rs("Unit")="" then%>&nbsp;<%end if%></td>
  251. <td height="18">&nbsp;&nbsp;<%=FormatCurrency(rs("price"),2)%></td>
  252. <td height="18">&nbsp;&nbsp;<%=rs("baojing_num")%></td>
  253. <td height="18" align="center"><input name="selBigClass" type="checkbox" id="selBigClass" value="<%=rs("ID")%>"></td>
  254. </tr>
  255. <%
  256. rs.MoveNext
  257. end if
  258. next
  259. end if
  261. %>
  262. <tr><td align="right" colspan="10" height="22" class="but">
  263. 共 <%=total%> 条，当前第 <%=Mypage%>/<%=Maxpages%> 
  264.             页，每页 <%=MyPageSize%> 条 
  265.             <%
  266. if search<>"" then
  267. url="Material.asp?class="&class1&"&keyword="&keyword&"&search=search&"
  268. else
  269.             url="Material.asp?"
  270. end if
  271. PageNextSize=int((MyPage-1)/PageShowSize)+1
  272. Pagetpage=int((total-1)/rs.PageSize)+1
  274. if PageNextSize >1 then
  275. PagePrev=PageShowSize*(PageNextSize-1)
  276. Response.write "<a class=black href='" & Url & "page=" & PagePrev & "' title='上" & PageShowSize & "页'>上一翻页</a> "
  277. Response.write "<a class=black href='" & Url & "page=1' title='第1页'>页首</a> "
  278. end if
  279. if MyPage-1 > 0 then
  280. Prev_Page = MyPage - 1
  281. Response.write "<a class=black href='" & Url & "page=" & Prev_Page & "' title='第" & Prev_Page & "页'>上一页</a> "
  282. end if
  284. if Maxpages>=PageNextSize*PageShowSize then
  285. PageSizeShow = PageShowSize
  286. Else
  287. PageSizeShow = Maxpages-PageShowSize*(PageNextSize-1)
  288. End if
  289. If PageSizeShow < 1 Then PageSizeShow = 1
  290. for PageCounterSize=1 to PageSizeShow
  291. PageLink = (PageCounterSize+PageNextSize*PageShowSize)-PageShowSize
  292. if PageLink <> MyPage Then
  293. Response.write "<a class=black href='" & Url & "page=" & PageLink & "'>[" & PageLink & "]</a> "
  294. else
  295. Response.Write "<B>["& PageLink &"]</B> "
  296. end if
  297. If PageLink = MaxPages Then Exit for
  298. Next
  300. if Mypage+1 <=Pagetpage  then
  301. Next_Page = MyPage + 1
  302. Response.write "<a class=black href='" & Url & "page=" & Next_Page & "' title='第" & Next_Page & "页'>下一页</A>"
  303. end if
  305. if MaxPages > PageShowSize*PageNextSize then
  306. PageNext = PageShowSize * PageNextSize + 1
  307. Response.write " <A class=black href='" & Url & "page=" & Pagetpage & "' title='第"& Pagetpage &"页'>页尾</A>"
  308. Response.write " <a class=black href='" & Url & "page=" & PageNext & "' title='下" & PageShowSize & "页'>下一翻页</a>"
  309. End if
  310. rs.Close
  311. set rs=nothing
  312. %>
  313. &nbsp;&nbsp;&nbsp;&nbsp;<%if oskey="supper" or oskey="admin" then%>
  314.         <input type="checkbox" name="checkbox" value="checkbox" onClick="javascript:SelectAll()"> 选择/反选
  315.               <input onClick="{if(confirm('此操作将删除该信息！nn确定要执行此项操作吗？')){this.document.selform.submit();return true;}return false;}" type=submit value=删除 name=action2> 
  316.               <input type="Hidden" name="action" value='del'><%end if%></td></tr>
  317.         </table>
  318. </fieldset>
  319.   
  320. </td>
  321.     </tr>
  322.     <tr> 
  323.       <td height="50" colspan="3" align="center">
  324.         
  326.         </td>
  327.     </tr>
  328.   </table>
  329. </form><br>
  330. <fieldset style="width:80%"><legend>配件信息搜索</legend>
  331.         <table width="90%" border="0" cellpadding="0" cellspacing="0" bordercolor="#D4D0C8">
  332.          
  333.   <form name="search" method="post" action="Material.asp">
  334.   <tr><input name="search" type="hidden" value="search">
  335.             <td height="18" align="center" width="20%">
  336. <select name="class" size="1">
  337. <option value="">所有分类</option>
  338. <%
  339.        set rs2=server.createobject("adodb.recordset")
  340.    rs2.open "select * from class",conn,1,1
  341.    if not rs2.eof then
  342.    do while not rs2.eof
  343.    classnumber=rs2("classnumber")
  344.    %>
  345.    <option value="<%=rs2("classnumber")%>"><%=rs2("classnumber")%></option>
  346. <%
  347. rs2.movenext
  348. loop
  349. end if
  350. rs2.close
  351. set rs2=nothing
  352. %></select></td>
  353.             <td align="center" width="50%">配件名称关键字： 
  354.               <input name="keyword" type="text"  size="25"></td>
  355.                       
  356. <td align="center" width="30%" ><input type="submit"  value="查 找"> </td>
  357.           </tr></form>
  358.   
  359.            </table>
  360.         </fieldset>
  361. </TD>
  362.               </TR>
  363.           </table>
  364.           
  365.       <table width="100%" border="0" cellspacing="0" cellpadding="4">
  366.       
  367.       </table>
  368.   </TBODY>
  369. </TABLE>
  370. <%end sub%>
  371. <P>
  372. <TABLE cellSpacing=0 cellPadding=0 width="100%" align=center border=0>
  373.   <TBODY>
  374.   <TR vAlign=center>
  375.     <TD align=middle width="100%"><!--#include file="footer.htm"--></TD>
  376.   </TR></TBODY></TABLE></P></BODY></HTML>