amzxmjscxmx.asp
来自「医院医技科室系统,可以进行医技报告的生成打印,完全的BS结构」· ASP 代码 · 共 94 行
ASP
94 行
<!-- #INCLUDE FILE="../../share\connectdb.asp" -->
<!--#include file=../../pubfunction.asp-->
<HTML>
<HEAD>
<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" >
</HEAD>
<BODY TOPMARGIN=0 LEFTMARGIN=0>
<form name=xmjsmx method="post" action="amzxmjscxmx.asp">
<table border=0 width=100%>
<tr><td colspan=2 align=center><font size=2><b><a href="javascript:window.print()"><%=session("yymc")%></a></b></font><td></tr>
<tr><td colspan=2 align=center><font size=2><b>门诊项目接收查询</b></font><td></tr>
<tr><td colspan=2>
<TABLE center BORDER=1 bordercolorlight=#000000 bordercolordark=#ffffff CELLSPACING=1 CELLPADDING=1 width=100%>
<tr bgcolor="<%=trBGCOLOR%>">
<td align=middle><font color="<%=tableHFONTCOLOR%>">患者</TD>
<td align=middle><font color="<%=tableHFONTCOLOR%>">门诊号</TD>
<td align=middle><font color="<%=tableHFONTCOLOR%>">项目名称</TD>
<td align=middle><font color="<%=tableHFONTCOLOR%>">数量</TD>
<td align=middle><font color="<%=tableHFONTCOLOR%>">金额</TD>
<td align=middle><font color="<%=tableHFONTCOLOR%>">医师</TD>
<td align=middle><font color="<%=tableHFONTCOLOR%>">处方时间</TD>
<td align=middle><font color="<%=tableHFONTCOLOR%>">接收时间</TD>
<td align=middle><font color="<%=tableHFONTCOLOR%>">接收人</TD>
</TR>
<%
if Request.Form("itj")="cx" then
dim sumje,rzks
sumje=0
set con=server.CreateObject("adodb.connection")
con.Open application("sconn")
set result=server.CreateObject("adodb.recordset")
if cint(session("rzks"))=31 or cint(session("rzks"))=75 then
rzks="(31,75)"
else
rzks="("&session("rzks")&")"
end if
sqlstr="select xm,mzh,xmmc,sl,je,ys,sj,jssj,jsrxm,'1' as paixu from vyjksmzxmcx where rzks in "& rzks& Request.Form("strcon") & " order by paixu desc"
'Response.Write Request.Form("strcon1")
'Response.Write sqlstr
result.Open sqlstr,con
do while not result.eof
Response.Write "<TR bordercolordark=#FFFFFF>"
Response.Write "<TD nowrap align=center>"& result("xm")&"</TD>"
Response.Write "<TD nowrap align=center> "& result("mzh")&"</TD>"
Response.Write "<TD nowrap align=center>"& result("xmmc")&"</TD>"
Response.Write "<TD nowrap align=center>"& result("sl")&"</TD>"
Response.Write "<TD nowrap align=center>"& result("je")&"</TD>"
'Response.Write "<TD nowrap align=center>"& result("ytsl")&"</TD>"
'Response.Write "<TD nowrap align=center>"& result("ytje")&"</TD>"
Response.Write "<TD nowrap align=center> "& result("ys")&"</TD>"
Response.Write "<TD nowrap align=center>"& result("sj")&"</TD>"
Response.Write "<TD nowrap align=center> "& result("jssj")&"</TD>"
Response.Write "<TD nowrap align=center> "& result("jsrxm")&"</TD>"
Response.Write "</TR>"
sumje=cdbl(sumje)+cdbl(result("je"))
'sumytje=cdbl(sumytje)+cdbl(result("ytje"))
sumsl=cdbl(sumsl)+cdbl(result("sl"))
result.movenext
loop
sumje=sumje
result.close
Response.Write "<tr><td>合计：</td><td nowrap colspan=3 align=right>" & formatnumber(sumsl,2,-1)&"</td>"
Response.Write "<td nowrap colspan=10>" & formatcurrency(sumje,2,-1)&"</td></tr>"
set result=nothing
set con=nothing
end if
%>
</TABLE>
</td></tr>
<tr><td>制表人:<input type="text" style="BACKGROUND-COLOR: transparent; BORDER-BOTTOM:1px solid; BORDER-LEFT-STYLE: none; BORDER-RIGHT-STYLE:
none; BORDER-TOP-STYLE: none; HEIGHT: 15px; WIDTH: 60px" readonly id=txtzbr name=txtzbr value=<% =session("yhm") %> >
</td><td align=right>
制表时间:<input type="text" style="BACKGROUND-COLOR: transparent; BORDER-BOTTOM:1px solid; BORDER-LEFT-STYLE: none; BORDER-RIGHT-STYLE:
none; BORDER-TOP-STYLE: none; HEIGHT: 15px; WIDTH: 70px" readonly id=txtzbsj name=txtzbsj value=<% =now %> >
</td></tr></table>
</P>
<INPUT type="hidden" id=itj name=itj>
<INPUT type="hidden" id=strcon name=strcon>
<input type="hidden" id=strcon2 name=strcon1>
</form>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?