aksxmcxmx.asp

来自「医院医技科室系统,可以进行医技报告的生成打印,完全的BS结构」· ASP 代码 · 共 108 行

ASP
108 行
字号 
<%@ Language=VBScript %>

<!-- #INCLUDE FILE="../../share\connectdb.asp" -->
<!--#include file=../../pubfunction.asp-->

 <%
dim rs

set rs=server.CreateObject("adodb.recordset") 

 

 
if Request.Form("hdPD")="CX" then
  IF Request.Form ("txtXMMC")="" THEN
		SSQL=" SELECT KSMC,XMLXMC,XLMC,XMMC,DJ,DW FROM GGZD_TXMBM A,GGZD_TXMLX B,GGZD_TXMXLBM C,GGZD_TKS D WHERE A.RZKS=D.KSID AND A.XMLXID=B.XMLXID AND A.XLID=C.XLID AND  A.SFSC=0  "
	if Request.Form("cmbKS")<>"-1" then   SSQL=SSQL & " and A.RZKS=" & Request.Form("cmbKS")
	if Request.Form("cmbXMLX")<>"0" then SSQL=SSQL & " and A.XMLXID=" & Request.Form("cmbXMLX")  
	if Request.Form("cmbXLID")<>"0" then SSQL=SSQL & " and A.XLID=" & Request.Form("cmbXLID")  
	SSQL =SSQL & " ORDER BY D.KSDH,A.XMLXID,A.XLID,A.XMID " 
  ELSE 
 		SSQL=" SELECT KSMC,XMLXMC,XLMC,XMMC,DJ,DW FROM GGZD_TXMBM A,GGZD_TXMLX B,GGZD_TXMXLBM C,GGZD_TKS D WHERE A.RZKS=D.KSID AND A.XMLXID=B.XMLXID AND A.XLID=C.XLID AND  A.SFSC=0  "
	 SSQL=SSQL & " and ( A.XMMC LIKE '%" & Request.Form("txtXMMC") & "%'  OR  A.PYM LIKE 'P" & Request.Form("txtXMMC") & "%'    OR  A.WBM LIKE 'W" & Request.Form("txtXMMC") & "%')"   
	SSQL =SSQL & " ORDER BY D.KSDH,A.XMLXID,A.XLID,A.XMID "  
  END IF
  
  
  
else
  SSQL=" SELECT * FROM GGZD_TGZRY WHERE  1=0 "
end if
'Response.Write SSQL  & Request.Form("txtXMMC")
rs.Open SSQL,conn

%>
<style>
<!--
table
{    
    FONT-FAMILY:宋体;
    FONT-SIZE: 9pt
}
INPUT
{
    FONT-FAMILY:宋体;
    FONT-SIZE: 9pt
}
SELECT
{
    FONT-FAMILY:宋体;
    FONT-SIZE: 9pt
}

-->

</style>


<HTML>
<HEAD><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" >
</HEAD>
<BODY topmargin=0 leftmargin=0>
<table border="0" cellPadding="0" cellSpacing="0" width="100%">
<tr>
	 <TD  align=center><FONT size=4><a href="vbscript:window.print"> 科室收费项目明细</a></FONT>
	<td width="40" align="right">
</table>
<form action="" id="frmaYZ" method="post" name="frmaYZ">
<INPUT type="hidden" id=hdPD name=hdPD>
<INPUT type="hidden" id=cmbKS name=cmbKS>
<INPUT type="hidden" id=cmbXLID name=cmbXLID>
<INPUT type="hidden" id=cmbXMLX name=cmbXMLX>
<INPUT type="hidden" id=hdRQ1 name=hdRQ1>
<INPUT type="hidden" id=hdRQ2 name=hdRQ2>
<INPUT type="hidden" id=txtXMMC name=txtXMMC>


<table align="center" border="1" cellPadding="0" cellSpacing="0" width="100%"   bordercolorlight='#000000' bordercolordark='#FFFFFF'>
 <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>
  </tr>
  <%do while not rs.EOF%>
  <tr bgcolor=#ffffff>
    <td nowrap><%=rs("KSMC")%></td>
    <td nowrap><%=rs("xmlxmc")%></td>
    <td nowrap><%=rs("xlmc")%></td>
    <td ><%=rs("xmmc")%></td>
    <td nowrap><%=rs("dw")%></td>
    <td nowrap align=right><%=formatNUMBER(rs("DJ"),2,-1)%></td>

  </tr>
  <% rs.MoveNext 
  loop%>

</table>
</form>
</BODY>
</HTML>

aksxmcxmx.asp - 源码说明

本页面展示了「医院医技科室系统,可以进行医技报告的生成打印,完全的BS结构」中的 aksxmcxmx.asp 源码文件，采用 ASP 编程语言编写，共 108 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与报告相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?