aksxmcx.asp

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

ASP

129 行

<%@ Language=VBScript %>

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

<!--#INCLUDE FILE="../../ap2CMB.asp"-->
<%
'将表中的字段值添入到COMBOBOX中
function rstocmb(str)
  set rstmp=server.CreateObject("ADODB.RECORDSET")
  rstmp.Open str,conn
  do while not rstmp.EOF    
    Response.Write "<OPTION value=" & rstmp(0).Value &">"
    Response.Write rstmp(1).Value
    Response.Write "</OPTION>" & chr(10)
    rstmp.MoveNext 
  loop 
  rstmp.Close 
  set rstmp=nothing  
end function



ssql1="select xlid as col1,xlmc as col2,XMLXID as col3 from ggzd_txmxlbm where sfsc=0 order by xlid desc "  
   ssql=array(ssql1)
   arrname="arrcs"
   CHANGECMB ssql,1,arrname    
  

%>
<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="author" Content="gsh;mail:shihuaguo@sina.com">
<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 ID="clientEventHandlersVBS" LANGUAGE="vbscript">
<!--
Sub btnCX_onclick
  mx.frmaYZ.hdPD.value="CX"
  mx.frmaYZ.cmbKS.value=frmaYZ.cmbKS.value
  mx.frmaYZ.cmbXLID.value=frmaYZ.cmbXLID.value
  'mx.frmaYZ.hdRQ1.value=frmaYZ.txtRQ1.value
  'mx.frmaYZ.hdRQ2.value=frmaYZ.txtRQ2.value
  mx.frmaYZ.cmbXMLX.value=frmaYZ.cmbXMLX.value
  mx.frmaYZ.txtXMMC.value=TRIM(frmaYZ.txtXMMC.value)  
  
  
  mx.frmaYZ.submit
End Sub
-->
</script>
</head>
<body leftmargin=0 topmargin=0>
<form action="" id="frmaYZ" method="post" name="frmaYZ">
<INPUT type="hidden" id=hdPD name=hdPD>


<table width='<%=session("screen_width")%>'  height='<%=session("screen_height")%>' border=0 cellspacing="0" cellpadding="0"  bgcolor="<%=tableBGCOLOR%>" bordercolorlight=#000000 bordercolordark=#ffffff>
<tr class=ListCellRow bgcolor="<%=tableHBGCOLOR%>" ><TD nowrap align=left  width=100%><img src="../../images/jk.GIF" width='24px' height='24px'>科室收费项目明细<font color="<%=tableHFONTCOLOR%>">-<%=session("yhm")%></td><TD nowrap width="10%">&nbsp;</td>
<TD nowrap  width=25px align=right nowrap valign=center><img src="../../images/qp.GIF" width='20px' height='20px' style='cursor:hand' alt='重新登录' onclick=javascript:allwindow()>&nbsp;</td>
<TD nowrap  width=25px align=right nowrap valign=center><img src="../../images/gb.gif" width='20px' height='20px' style='cursor:hand' alt='关闭' onclick=javascript:closewindow()>&nbsp;</td></tr>
 <TR><TD nowrap  colspan=4>
<table align="left" border="1" cellPadding="0" cellSpacing="0" width="100%"  bordercolorlight=#000000 bordercolordark=#ffffff>
  
  
  <tr>
    <td nowrap >科室名称
      <SELECT id=cmbKS name=cmbKS style="width:100">
        <OPTION selected value=-1>--请选--</OPTION>
	    <%rstocmb("select distinct ksid,ksmc,ksdh from ggzd_tks a,ggzd_txmbm b where b.rzks=a.ksid order by ksdh")%>
      </SELECT>
    </td>
    <td nowrap  >项目类型
      <SELECT id=cmbXMLX name=cmbXMLX style="width:100"  onchange="fillSelectFromArray(this.form.cmbXLID,this,arrcs[0]);">
        <OPTION selected value=0>--请选--</OPTION>
	    <%rstocmb("select distinct a.xMlXid,xMlXmc,xmlxdH from ggzd_txmlx a,ggzd_txmbm b where b.xmlxid=a.xmlxid  order by a.xmlxdH,a.xmlxid,xmlxmc")%>
      </SELECT>
    </td>
    <td nowrap   >项目小类
      <SELECT id=cmbXLID name=cmbXLID style="width:100">
        <OPTION selected value=0>--请选--</OPTION>
	    <%rstocmb("select distinct a.xlid,xlmc from ggzd_txmxlbm a,ggzd_txmbm b where b.xlid=a.xlid  order by a.xlid,xlmc")%>
      </SELECT>
    </td>
   </tr>
   
   
     <tr>   
     <td nowrap colspan=2 >请输入项目名称或代码：<INPUT  width=200   class="longtext1" type="input"  id=txtXMMC name=txtXMMC ></td>
    <td nowrap><INPUT  class="buttons02" type="button" value="查询(C)" id=btnCX name=btnCX accesskey=C style="cursor:hand"></td>
  </tr>
</table>
</td></tr>

<TR  height='100%'><TD nowrap  colspan=4  height='100%'>
  <iframe src="aKSxmCXMX.asp" id="mx" name="mx" width="100%" height="100%" frameborder="1" align="left"></iframe>
</td></tr>
</table>
</form>
</body>
</html>
<%
conn.Close
set conn=nothing
%>

aksxmcx.asp - 源码说明

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

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

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?