fk.asp

一个学校的医务管理

<!--#include file="conn1.asp"-->
<%
'-----------------  设计思路  ----------------
'    将数据库中的helthy表中
'    的未付药物拷贝到已付药物中，
'    将未付金额加到已付金额上；
'------------------------------------------------
  sid=request("id")
  sql="select * from helthy where sid='"& sid &"'"
  set rs=conn.execute (sql)
     if rs("yfname")<>"" then 
		yw=rs("yfname")&","&rs("wfname")
	else
	   yw=rs("wfname")
	 end if
		if right(yw,1)="," then
		yw=mid(yw,1,len(yw)-1)
		end if
	  if rs("wf")<>" " then
		yf=cint(rs("yf"))+cint(rs("wf"))
	  else
		yf=rs("yf")
	  end if 
	  sql="update helthy set yfname='"& yw &"',wfname=' ',yf='"& yf &"',wf=' ' where sid='"& sid &"'"
	  conn.execute sql
	  response.Redirect "sill.asp"
%>