amzdjcbr.asp

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

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

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


<%

   set rs=server.CreateObject ("adodb.recordset") 
   'x:mz_Tbrxx;r:mz_Tbr;s:mz_tbrls;l:mz_Tcflr
   dim imax,ssql
	ssql="select distinct mzh,lsh,xm,ghsj,syje,isnull(je,0) as je from view_mzdjsbrxx2  where  (cfzt=1 or cfzt=0) and sj>(convert(datetime,getdate(),20)-3)   and rzks='" & session("rzks") & "' order by ghsj "
	     

%>
<script language="javascript">
<!--
    function clime(i,lsh,mzh,xm,ghsj){

		if(window.document.getElementById('td'+i)==null) return ;
		var otd=window.document.getElementById('td'+i);
		if(otd==null) return ;
				
		var obj;
		obj=otd.getBoundingClientRect();
		window.mbdiv.style.posTop=obj.bottom-1 + idBody.scrollTop;
		window.mbdiv.style.posLeft=10;
			
		mbframe.form1.iLSH.value=lsh;
		mbframe.form1.iXM.value=xm;
		mbframe.form1.iMZH.value=mzh;
		mbframe.form1.cobLSH.value=ghsj;
		mbframe.form1.submit();
		window.mbdiv.style.visibility='visible';
    }
-->
</script>
<html>
<head>
<meta http-equiv="refresh" content="120">
<meta name="VI60_defaultClientScript" content="VBScript">
<link rel="stylesheet" type="text/css" href="../../style/style.css" >
<link rel="stylesheet" type="text/css" href="../../style/table.css" >
<meta NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">


</head>
<body topmargin=0 leftmargin=0 id=idBody name=idBody> 
<form action ="" method="post" name="form1" id=form1>


<table border="0" name="tbcxjg"  width=100%    cellspacing="0" cellpadding="0"  bgcolor="<%=tableBGCOLOR%>">
  <TR><TD nowrap  colspan=4>
<table align="left" bordercolorlight="#000000" bordercolordark="#ffffff" border="1" cellPadding="0" cellSpacing="0" width="100%" bgcolor=#f5f5f5 >


<%
  dim cs,m,k
  
   'set rsyf=server.CreateObject ("adodb.recordset") 
	 m=0
   rs.Open ssql,conn,3,1
	imax=rs.RecordCount 
	if imax>30 then
		cs=int(imax/6+0.9)
	else
		cs=8
	end if 
	      
   for i=1 to cs
       Response.Write "<tr>"
       for j=1 to 6
          if imax>=j+6*(i-1) then
            ' m=1
             if not rs.EOF then
                Response.Write "<td style='cursor:hand;height:45;width:80' align=center id='td"&m&"' name='td"&m&"'" 
                Response.Write " onclick=javascript:clime('"&cint(m)&"'," & rs("lsh") & ",'" & rs("mzh") & "','" & rs("xm") & "','"&replace(rs("ghsj")," ","t")&"')>"
                if cdbl(rs("syje"))<cdbl(rs("je")) then 
					Response.Write "<font color=red>" &  rs("mzh") & "<br>" & rs("xm") & "<br>欠费</font></td>"
                else
					 Response.Write "<font color=blue>" &  rs("mzh") & "<br>" & rs("xm") & "</font></td>"
                 end if
                rs.MoveNext 
                m=cint(m)+1
             end if
          else
             Response.Write "<td style='height:45;width:80'>&nbsp;</td>"
          end if
       next
       Response.Write "</tr>"
       
   next
            
%>

</table>&nbsp;
</td></tr></table>
<div id=mbdiv name=mbdiv style="visibility:hidden;LEFT: -600px; POSITION: absolute; TOP: -600px" >
 <iframe  border=0 id=mbframe name=mbframe style="width:540;height=200" src="amzdjcbrmx.asp" ></iframe>
</div>
</form>
</body>
</html>
<% set rs=nothing
   conn.Close
   set conn=nothing%>

amzdjcbr.asp - 源码说明

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

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

⌨️ 快捷键说明

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