atjxmjs.asp

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

ASP
95 行
字号 
<%
 
   set conn=server.CreateObject ("adodb.connection")
   conn.Open application("sconn")
   set rs=server.CreateObject ("adodb.recordset") 
   dim imax,ssql
   
   ssql= "select  count(mz_ttjd.tjdid)  from mz_ttjd,mz_ttjdnr  where mz_ttjd.tjdid=mz_ttjdnr.tjdid and mz_ttjdnr.tjdzt=1 and mz_ttjdnr.tjks="&session("ks")&" "
        rs.Open ssql,conn
   
   imax=rs(0)
   rs.Close 
   ssql= "select distinct mz_ttjd.tjdid,mz_ttjd.tjr,mz_ttjd.tjh  from mz_ttjd,mz_ttjdnr  where mz_ttjd.tjdid=mz_ttjdnr.tjdid and mz_ttjdnr.tjdzt=1 and mz_ttjdnr.tjks="&session("ks")&" "

   
%>
<script language="javascript">
<!--
    function clime(tjdid,tjr,tjh){
       frmRQDJ.iLSH.value=tjdid;
       frmRQDJ.iXM.value=tjr;
       frmRQDJ.iMZH.value=tjh;
       frmRQDJ.submit();
    }
-->
</script>
<html>
<head>
<meta http-equiv="refresh" content="120">
<meta name="VI60_defaultClientScript" content="VBScript">
<link href="../../hcss.htm" rel="stylesheet" type="text/css">
<meta NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">


</head>
<body><center>
<form action =acTJXMJS.asp method="post" id="frmRQDJ" name="frmRQDJ">
<input type=hidden id=iLSH name=iLSH><input type=hidden id=iXM name=iXM>
<input type=hidden id=iMZH name=iMZH>
<table border="1" name="tbcxjg" bgcolor="#cce8d6" bordercolorlight="#000000" bordercolordark="#ffffff" cellpadding="4" cellspacing="0" >

<tr><td colspan="10" bgcolor="#3399ff"><font color="white">待体检病人一览
      </font></td></tr>
<%
   dim cs
   if imax>30 then
     cs=int(imax/6+0.9)
   else
      cs=5
   end if
   set rsyf=server.CreateObject ("adodb.recordset") 
   rs.Open ssql,conn
   for i=1 to cs
       Response.Write "<tr>"
       for j=1 to 6
          if not rs.EOF then
             do while not rs.EOF
             '判断在本药房是否有药
                rsyf.Open "select count(*) from mz_Ttjd,mz_ttjdnr where mz_ttjd.tjdid=mz_ttjdnr.tjdid and mz_ttjdnr.tjdzt=1 and mz_ttjdnr.tjks="&session("ks")&"",conn
                if rsyf(0)<>0 then
                   Response.Write "<td style='cursor:hand;height:85;width:80' background='../../images/wait.gif'align=center"
                   Response.Write " onclick=javascript:clime(" & rs("tjdid") & ",'" & rs("tjr") & "','" & rs("tjh") & "')>"
                   Response.Write "<font color=blue>" &  rs("tjh") & "<br>" & rs("tjr") & "</font></td>"
                   rsyf.close
               ssql= "select count(distinct tjdid)  from mz_ttjd,mz_ttjdnr  where mz_ttjd.tjdid=mz_ttjdnr.tjdid and mz_ttjdnr.tjdzt=1  and mz_ttjdnr.tjks="&session("ks")&""
       exit do
                else
                   rs.MoveNext   
                end if
                rsyf.close
             loop
             if not rs.EOF then
                rs.MoveNext 
             else
                Response.Write "<td style='height:85;width:80'>&nbsp;</td>"
             end if 
          else
             Response.Write "<td style='height:85;width:80'>&nbsp;</td>"
          end if
       next
       Response.Write "</tr>"
   next
            
%>

</table>&nbsp;

</form></P>
</body>

</html>
<% set rs=nothing
   conn.Close
   set conn=nothing
   %>

atjxmjs.asp - 源码说明

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

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

⌨️ 快捷键说明

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