amzksgzlcx.asp

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

ASP
87 行
字号 

<%@ Language=VBScript %>

<!-- #INCLUDE FILE="../../share\connectdb3.asp" -->
<!--#include file=../../pubfunction.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


%>
<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.hdGZRY.value=frmaYZ.cmbGZRY.value
  mx.frmaYZ.hdRQ1.value=frmaYZ.txtRQ1.value
  mx.frmaYZ.hdRQ2.value=frmaYZ.txtRQ2.value
  mx.frmaYZ.submit
End Sub
-->
</script>
</head>
<body leftmargin=0 topmargin=0>
<form action="aMZKSGZLCX.asp" 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%>">
<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="0" cellPadding="0" cellSpacing="0" width="100%">
  
  
  <tr>
    <td nowrap>工作人员&nbsp;
      <SELECT id=cmbGZRY name=cmbGZRY style="width:100">
        <OPTION selected value=-1>全科</OPTION>
	    <%
	    if cint(session("rzks"))=31 or cint(session("rzks"))=75 then
		   rzks="(31,75"&","&session("ks")&")"
		else
		   rzks="("&session("rzks")&","&session("ks")&")"
		end if
	    rstocmb("select ryid,xm from ggzd_tgzry,ggzd_tks where ggzd_tgzry.rzks=ggzd_tks.ksid and rzks in " &rzks &" order by ggzd_tgzry.rybm")%>
      </SELECT>
    </td>
    <td nowrap>查询日期:<INPUT style="width:100px" class="longtext1"  type="text" id=txtRQ1 name=txtRQ1 value="<%=date-1%>">至:<INPUT  style="width:100px"  class="longtext1" type="text" id=txtRQ2 name=txtRQ2 value="<%=date-1%>"></td>
    <td nowrap><INPUT  class="buttons02" type="button" value="查询(C)" id=btnCX name=btnCX accesskey=C></td>
  </tr>
</table>
</td></tr>

<TR  height='100%'><TD nowrap  colspan=4  height='100%'> 
  <iframe src="aMZKSGZLCXMX.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
%>

amzksgzlcx.asp - 源码说明

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

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

⌨️ 快捷键说明

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