acdnybr.asp
来自「医院医技科室系统,可以进行医技报告的生成打印,完全的BS结构」· ASP 代码 · 共 176 行
ASP
176 行
<%@ Language=VBScript %>
<!-- #INCLUDE FILE="../../share\connectdb.asp" -->
<!--#include file=../../pubfunction.asp-->
<%
dim rs,syff
syff=Request.Form("hdsyff")
if trim(syff)="" then syff="0"
if Request.ServerVariables("request_method")="POST" then
qmzh=Request.Form("imzh")
qxm=Request.Form("iXM")
qlsh=Request.Form("ilsh")
set rscbo=server.CreateObject ("adodb.recordset")
sqlcmd="select convert(varchar(10),ghsj,20) ghsjd,convert(varchar(8),ghsj,108) ghsjt from mz_tbrls where lsh="&qlsh
rscbo.Open sqlcmd,conn
if not (rscbo.EOF ) then
qghsj=trim(rscbo("ghsjd"))&" "&trim(rscbo("ghsjt"))
else
qghsj="(无)"
end if
rscbo.Close
set rscbo=nothing
else
qmzh=""
qxm=""
qlsh=""
qghsj=""
qys=""
qye=""
qqf=""
end if
%>
<HTML>
<HEAD>
<meta http-equiv="refresh" content="180; url=aDNYBR.asp">
<META name=VI60_defaultClientScript content=VBScript>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<link rel="stylesheet" type="text/css" href="../../style/style.css" >
<link rel="stylesheet" type="text/css" href="../../style/table.css" >
<script language="javascript">
<!--
function backthis(){
// mbframe.thisform.iLSH.value=lsh;
//mbframe.thisform.iXM.value=xm;
//mbframe.thisform.iMZH.value=mzh;
//mbframe.thisform.submit();
//window.alert("ok");
window.parent.mbdiv.style.visibility='hidden';
}
-->
</script>
</HEAD>
<BODY topmargin=0 leftmargin=0>
<FORM action="" method=post id=thisform name=thisform>
<input type=hidden id=iLSH name=iLSH>
<input type=hidden id=iXM name=iXM>
<input type=hidden id=iMZH name=iMZH>
<INPUT id=text name=text type=hidden >
<INPUT id=shdLSH name=shdLSH type=hidden value=0 >
<INPUT id=ifsr name=ifsr type=hidden value=0 >
<INPUT name=hdsyff id=hdsyff type=hidden >
<TABLE border=0 cellPadding=0 cellSpacing=0 width=100>
<tr>
<td align=center>
<STRONG><a href="vbscript: window.print"><font size=4 color=Blue> <%=session("yymc")%></font></a></STRONG>
</td><td onclick="backthis()" width="40" style="cursor:hand"><font color=blue>[<U>×</U>]</font></td>
</tr>
<tr>
<td align=center colspan=2>
<STRONG><font size=2> 发药单【待】</font></STRONG>
</td>
</tr>
<TR><TD colspan=2>
<TABLE border=0 cellPadding=0 cellSpacing=0 width=100%>
<TR>
<TD>
门诊号：<INPUT id=txtmzh name=txtmzh class=transparenttext style=" HEIGHT: 16px; WIDTH: 60px" readOnly value='<%=qmzh%>' >
姓名：<INPUT id=txtXM name=txtXM class=transparenttext style=" HEIGHT: 16px; WIDTH: 50px" readonly value='<%=qxm%>' >
挂号时间:
<input id=cobLSH name=cobLSH readonly class=transparenttext style=" HEIGHT: 16px; WIDTH: 150px" value='<%=qghsj%>' >
</TD>
</TR>
</TABLE>
</td></tr><TR><TD colspan=2>
<TABLE border=1 cellPadding=2 cellspacing=0 bordercolorlight=black bordercolordark=white style="HEIGHT: 23px; WIDTH: 100%">
<TR>
<TD align=middle >药品名称</TD>
<TD align=middle >次数量</TD>
<TD align=middle >日次数</TD>
<TD align=middle >天数</TD>
<TD align=middle >使用方法</TD>
<TD align=middle >总剂量</TD>
<TD align=middle >合计金额</TD>
</TR>
<%
if Request.ServerVariables("request_method")="POST" then
'显示处方内容
set rs=server.CreateObject("adodb.recordset")
dim sSQL
sSQL="select a.fz,a.je ,f.ypspm,f.lsj,a.dj,f.GG,a.csl csl,y.xm xm, "&_
" RCSMC,a.ts,c.SYFFMC,convert(varchar(10),cast(a.sl as numeric))+'('+g.DWMC+')' sl "&_
"from mz_tcflr a, ggzd_trcs b, yk_tsyff c, yk_typbm f, YK_tYPDW g ,ggzd_tgzry y,mz_tbrls l "&_
"where l.lsh=a.lsh and y.ryid=l.ys and a.BH=f.YPID and f.dw1=g.DWID and a.rcs=b.rcsid and a.syff=c.syffid "&_
" and a.cfzt in (0,1,4,5) and a.rzks="&session("sxks") &" and syff in ("&syff&") and XMLX<4 and a.lsh="&qLSH &" order by a.fz"
rs.Open ssql,conn
hjje=0
xm=0
do while not rs.EOF
if rs.Fields ("fz")<>"" then
sFZ="("& rs.Fields ("fz")&")"
else
sFZ=""
end if
Response.Write "<tr><td>"
Response.Write sFZ& rs("YPSPM") & "[" & rs("GG") &"]"
Response.Write "</td>"
Response.Write "<td align=right>" & rs("csl") & "</td>"
Response.Write "<td align=left>" & rs("RCSMC") & "</td>"
Response.Write "<td align=right>" & rs("ts") & "</td>"
Response.Write "<td align=left>" & rs("SYFFMC") & "</td>"
Response.Write "<td align=right>" & rs("sl") &"</td>"
Response.Write "<td align=right>" & rs("je") &"</td>"
Response.Write "</tr>"
hjje=hjje+csng(rs("je"))
xm= rs("xm")
rs.MoveNext
loop
Response.Write "<tr><td colspan=9 align=right>共："&formatnumber(hjje,2) & "</td>"
Response.Write "</TABLE>"
rs.Close
end if
%>
</td></tr><TR><TD colspan=2>
<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 width=100% >
<TR>
<TD width=80 nowrap align=right>操作员：</TD>
<td width=80 nowrap ><INPUT type="text" id=txtyy name=txtyy value=<%=session("yhm")%> readonly class=transparenttext2 style=" width:80" ></td>
<TD width=80 nowrap align=right>医生：</TD>
<td width=70 nowrap ><INPUT type="text" id=txtyy name=txtyy value=<%=xm%> readonly class=transparenttext2 style=" width:80" ></td>
<TD width=80 nowrap align=right>操作时间：</TD>
<TD width=70 nowrap ><INPUT id=txtczy name=txtczy value=<%=date %> readonly class=transparenttext2 style=" width:80" ></TD>
</TR>
</TABLE></td></tr></table>
</FORM>
</BODY>
</HTML>
<%
set rs=nothing
conn.Close
set conn=nothing
%>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?