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

源码开发语言/平台
当前位置：首页 > 源码/资料 > 行业应用 > 企业管理 > 查看源码
56770_editproduct.asp
资源名称：56770yaopin.rar　[点击查看]
上传用户：feitengda
上传日期：2022-07-20
资源大小：73k
文件大小：6k
源码类别：

企业管理

开发平台：

ASP/ASPX

56770_editproduct.asp：源码内容
  1. <!--#include file="conn.asp"-->
  2. <%
  3. call admintop()
  4. if session("admin_name")="" then
  5. adminflag()
  6. else
  7. dim action, s_id,s_paixu
  8. s_id=cint(request("s_id"))
  9. action=request("action")
  11. select case action
  13. '----------------------------------------
  14. case "edit"
  15. set rs=server.CreateObject("adodb.recordset")
  16. rs.open "select * from 56770_product where p_id=" &s_id, conn, 1, 3
  17. rs("p_name")=trim(request("p_name"))
  18. rs("p_bianma")=trim(request("p_bianma"))
  19. rs("p_sort")=trim(request("p_sort"))
  20. rs("p_chandi")=trim(request("p_chandi"))
  21. rs("p_guige")=trim(request("p_guige"))
  22. rs("p_danwei")=trim(request("p_danwei"))
  23. rs("p_price")=trim(request("p_price"))
  24. rs("p_pfprice")=trim(request("p_pfprice"))
  25. rs("p_cbprice")=trim(request("p_cbprice"))
  26. rs("p_count")=trim(request("p_count"))
  27. rs("p_yaochang")=trim(request("p_yaochang"))
  28. rs("p_jinhuoshang")=trim(request("p_jinhuoshang"))
  29. rs.update
  30. rs.close
  31. response.Redirect request("backurl")
  32. response.end
  33. set rs=nothing
  34. end select
  35. %>
  36. <table border="0" cellspacing="1" cellpadding="0" height="0" align=center width="98%" bgcolor="#183789">
  37.   <tr>
  38.   <td>
  39.    <table border="0" cellspacing="1" cellpadding="4" bgcolor="#FFFFFF" align="center" width="100%">
  40.   <tr>
  41.  <td height=15  align=center colspan=17 class=classtop>药品管理</td>
  42. </tr>
  43. <%set rs=server.CreateObject("adodb.recordset")
  44. rs.open "select * from 56770_product where p_id=" &s_id, conn, 1, 3
  45. dim i
  46. i=rs.recordcount%>
  47. <%if rs.eof and rs.bof then
  48. response.write "还没有数据，请添加！"
  49. else
  50. %>
  51. <form name="form1" method="post" action="56770_editproduct.asp?action=edit&s_id=<%=rs("p_id")%>">
  52. <tr class="classtd">
  53. <td  height="25" width="20%" align="center" class="classtd">药品类别名:</td><td>
  54. <select name="p_sort1" onChange="(document.form1.p_sort.value=this.options[this.selectedIndex].value)">
  55. <%set rsa=server.CreateObject("adodb.recordset")
  56. rsa.open "select * from 56770_sort order by s_paixu desc", conn, 1, 1
  57. if rsa.eof and rsa.bof then
  58. response.write "还没有数据，请添加！"
  59. else
  60.         do while not rsa.eof
  61. %>
  62. <option value="<%=rsa("s_name")%>"><%=rsa("s_name")%></option>
  63. <%
  64. rsa.movenext
  65. loop
  66. end if
  67. rsa.close
  68. set rsa=nothing%>
  69. </select>
  70. <input type=text name="p_sort" value="<%=rs("p_sort")%>" size="20">
  71. </td>
  72. </tr>
  74. <tr class="classtd">
  75. <td height="25" align="center" class="classtd">药品名:</td><td><input type=text name=p_name value="<%=rs("p_name")%>" size="50"></td>
  76. </tr>
  77. <tr class="classtd">
  78. <td height="25" align="center" class="classtd">药品编码:</td><td><input type=text name=p_bianma value=<%=rs("p_bianma")%>></td>
  79. </tr>
  80. <tr class="classtd">
  81. <td height="25" align="center" colspan=2>药品总数:<input type=text name="p_count" value="<%=rs("p_count")%>" onkeyup="value=value.replace(/[^d.]/g,'');" size="3">
  82. 药品零售价:<input type=text name="p_price" value="<%=rs("p_price")%>" onkeyup="value=value.replace(/[^d.]/g,'');" size="3">
  83. 药品批发价:<input type=text name="p_pfprice" value="<%=rs("p_pfprice")%>" onkeyup="value=value.replace(/[^d.]/g,'');" size="3">
  84. 药品进价:<input type=text name="p_cbprice" value="<%=rs("p_cbprice")%>" onkeyup="value=value.replace(/[^d.]/g,'');" size="3">
  85. </td>
  86. </tr>
  89. <tr class="classtd">
  90. <td height="25" align="center" class="classtd">药品单位:</td><td>
  91. <select name="p_danwei1" onChange="(document.form1.p_danwei.value=this.options[this.selectedIndex].value)">
  92. <option value="箱">箱</option>
  93. <option value="盒">盒</option>
  94. <option value="瓶">瓶</option>
  95. <option value="支">支</option>
  96. <option value="粒">粒</option>
  97. <option value="丸">丸</option>
  98. </select>
  99. <input type=text name="p_danwei" value="<%=rs("p_danwei")%>" size="20"></td>
  100. </tr>
  101. <tr class="classtd">
  102. <td height="25" align="center" class="classtd">药品规格:</td><td>
  103. <select name="p_guige1" onChange="(document.form1.p_guige.value=this.options[this.selectedIndex].value)">
  104. <%set rsa=server.CreateObject("adodb.recordset")
  105. rsa.open "select * from 56770_guige order by g_paixu desc", conn, 1, 1
  106. if rsa.eof and rsa.bof then
  107. response.write "还没有数据，请添加！"
  108. else
  109.         do while not rsa.eof
  110. %>
  111. <option value="<%=rsa("g_name")%>"><%=rsa("g_name")%></option>
  112. <%rsa.movenext
  113. loop
  114. end if
  115. rsa.close
  116. set rsa=nothing%>
  117. </select>
  118. <input type=text name="p_guige" value="<%=rs("p_guige")%>" size="20">
  119.  </td>
  120. </tr>
  121. <tr class="classtd">
  122. <td height="25" align="center" class="classtd">药品产地:</td><td>
  123. <select name="p_chandi1" onChange="(document.form1.p_chandi.value=this.options[this.selectedIndex].value)">
  124. <%set rsa=server.CreateObject("adodb.recordset")
  125. rsa.open "select * from 56770_chandi order by c_paixu desc", conn, 1, 1
  126. if rsa.eof and rsa.bof then
  127. response.write "还没有数据，请添加！"
  128. else
  129.         do while not rsa.eof
  130. %>
  131. <option value="<%=rsa("c_name")%>"><%=rsa("c_name")%></option>
  132. <%rsa.movenext
  133. loop
  134. end if
  135. rsa.close
  136. set rsa=nothing%>
  137. </select>
  138. <input type=text name="p_chandi" value="<%=rs("p_chandi")%>" size="20">
  139. </td>
  140. </tr>
  142. <tr class="classtd">
  143. <td height="25" align="center" class="classtd">药品药厂:</td><td>
  145. <select name="p_yaochang1" onChange="(document.form1.p_yaochang.value=this.options[this.selectedIndex].value)">
  146. <%set rsa=server.CreateObject("adodb.recordset")
  147. rsa.open "select * from 56770_yaochang order by y_paixu desc", conn, 1, 1
  148. if rsa.eof and rsa.bof then
  149. response.write "还没有数据，请添加！"
  150. else
  151.         do while not rsa.eof
  152. %>
  153. <option value="<%=rsa("y_name")%>"><%=rsa("y_name")%></option>
  154. <%rsa.movenext
  155. loop
  156. end if
  157. rsa.close
  158. set rsa=nothing%>
  159. </select>
  160. <input type=text name="p_yaochang" value="<%=rs("p_yaochang")%>" size="50">
  161. </td>
  162. </tr>
  163. <tr class="classtd">
  164. <td height="25" align="center" class="classtd">进货商:</td><td>
  165. <select name="p_jinhuoshang1" onChange="(document.form1.p_jinhuoshang.value=this.options[this.selectedIndex].value)">
  166. <%set rsa=server.CreateObject("adodb.recordset")
  167. rsa.open "select * from 56770_jinhuoshang order by j_paixu desc", conn, 1, 1
  168. if rsa.eof and rsa.bof then
  169. response.write "还没有数据，请添加！"
  170. else
  171.         do while not rsa.eof
  172. %>
  173. <option value="<%=rsa("j_name")%>"><%=rsa("j_name")%></option>
  174. <%rsa.movenext
  175. loop
  176. end if
  177. rsa.close
  178. set rsa=nothing%>
  179. </select>
  180. <input type=text name="p_jinhuoshang" value="<%=rs("p_jinhuoshang")%>" size="50">
  181. </td>
  182. </tr>
  185. <tr class="classtd">
  186. <td class="classtd" align="center" colspan="2">
  187. <input type="submit" name="Submit" value="修 改">
  188. <input type="hidden" name="backurl" value="<%=request.servervariables("HTTP_REFERER")%>">
  189. </td>
  190. </form>
  191. </tr>
  192. <%
  193. end if
  194. rs.close
  195. set rs=nothing%>
  197. </table>
  198. </td>
  199. </tr>
  200. </table>
  201. <%end if%>