savemodname.asp

医药进销存管理系统 全代码 很详细 可惜没有数据库 可供参考

<!--#include file="../include/conn.asp"-->
<script language="javascript">
   function chkfields(){
   if(document.form1.yName.value==''){
     alert("请填写药品名称");
	 form1.yName.focus();
	 return false;
   }
   if(document.form1.Mode.value==''){
     alert("请填写药品单位！");
	 form1.Mode.focus();
	 return false;
   }
   if(document.form1.Mode1.value==''){
     alert("请填写药品规格！");
	 form1.Mode1.focus();
	 return false;
   }
   if(document.form1.Price.value==''){
     alert("请填写药品单价！");
	 form1.Price.focus();
	 return false;
   }
      if(document.form1.elements.value==''){
     alert("请填写药品成份！");
	 form1.elements.focus();
	 return false;
   }
   if(document.form1.usesize.value==''){
     alert("请填写药品用法用量！");
	 form1.usesize.focus();
	 return false;
   }
   if(document.form1.fortill.value==''){
     alert("请填写药品适应症！");
	 form1.fortill.focus();
	 return false;
   }
   if(document.form1.medbook.value==''){
     alert("请填写药品详细说明！");
	 form1.medbook.focus();
	 return false;
   }
return true;                     
   }
</script>
<%
If Session("flag")<>1 Then
  Response.Write "<script language=javascript>window.history.back();</script>"
  Response.End()
End If
action=request.QueryString("action")
Id=request.QueryString("Id")
set rs=conn.execute("select * from tb_MedicineName where Id="&Id)
function repstr(str)
  if not isNull(str) or len(str)>0 then
   repstr=replace(str,"<br>",chr(13))
   repstr=replace(repstr,"&nbsp;",chr(32))
   repstr=replace(repstr,"”","’")
   repstr=replace(repstr,"’","'")
  else
   repstr="没有信息"
  end if
end function
if action="mod" then
 set rs1=conn.execute("select * from tb_MedicineType")
%>
<form action="/manage/goods/savemodname1.asp?Id=<%=Id%>" method="post" name="form1" onSubmit="return chkfields();">
  <table border="0" cellpadding="4" cellspacing="1" width="350">
      <tr>
	     <td align="right">药品类别</td>
		 <td>
		     <select name="TypeId">
		         <%
				 do while not rs1.eof
				 %>
				 <option value="<%=rs1("TypeId")%>"
				   <%if rs1("TypeId")=rs("TypeId") then response.write " selected"%>><%=rs1("TypeName")%></option>
				  <%
				  rs1.movenext
				  loop
				   %>
		     </select>
		 </td>
	  </tr>
      <tr>
	     <td align="right">药品名称</td>
		 <td><input type="text" name="yName" value="<%=rs("yName")%>"></td>
	  </tr>
	  <tr>
	     <td align="right">单位：</td>
		 <td><input type="text" name="Mode" value="<%=rs("Mode")%>"></td>
	  </tr>
	  <tr>
	      <td align="right">规格：</td>
	      <td><input type="text" name="Mode1" value="<%=rs("Mode1")%>"></td>
	  </tr>
	  <tr>
	      <td align="right">单价：</td>
		  <td><input type="text" name="Price" value="<%=rs("Price")%>"></td>
	  </tr>
	  <tr>
	      <td align="right" valign="top"><div align="right">主要成份：</div></td>
		  <td><textarea name="elements" cols="30" rows="5"><%=repstr(rs("elements"))%></textarea></td>
	  </tr>
	  <tr>
	      <td align="right" valign="top"><div align="right">用法用量：</div></td>
		  <td><textarea name="usesize" cols="30" rows="4"><%=repstr(rs("usesize"))%></textarea></td>
	  </tr>
	  <tr>
	      <td align="right" valign="top"><div align="right">适应症：</div></td>
		  <td><textarea name="fortill" cols="30" rows="4"><%=repstr(rs("fortill"))%></textarea></td>
	  </tr>
	  	  <tr>
	      <td align="right" valign="top"><div align="right">详细说明：</div></td>
		  <td><textarea name="medbook" cols="30" rows="4"><%=repstr(rs("medbook"))%></textarea></td>
	  </tr>
	  <tr>
	      <td colspan="2" align="center">
		      <input type="submit" value="修 改">&nbsp;<input type="reset" value="关 闭" onClick="window.close();">
		  </td>
	  </tr>
  </table>
</form>
<%
else
  set rs1=conn.execute("delete from tb_MedicineName where Id="&Id)
%>
<script language="javascript">
   alert("删除成功！");
   setTimeout("window.close();",10);
   opener.location.reload();
</script>
<%
end if
rs.close
set rs=nothing
%>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">