aypckpzh.asp

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

ASP

93 行

<%@ Language=VBScript %>


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

<%

set rs=server.CreateObject("adodb.recordset")%>
<HTML>

<style>
<!--
table
{    
    FONT-FAMILY:宋体;
    FONT-SIZE: 9pt
}
INPUT
{
    FONT-FAMILY:宋体;
    FONT-SIZE: 9pt
}
SELECT
{
    FONT-FAMILY:宋体;
    FONT-SIZE: 9pt
}
-->
</style>
<SCRIPT LANGUAGE=javascript>
<!--
function mouseon(src,clrOver){ 	
		src.style.cursor = 'hand'; 		
		src.bgColor = clrOver; 	
}
function mouseout(src,clrIn)  { 	
		src.style.cursor = 'default'; 
		src.bgColor = clrIn; 	
} 
function ypzd(imgobj,djid){
		for(i=window.document.images.length-1;i>=0;i--){
              if (window.document.images(i).style.visibility=="visible"){
                  window.document.images(i).style.visibility="hidden";
              }
          }
    imgobj.style.visibility="visible";
    parent.frmmx.form1.txtdjid.value=djid;
    parent.form1.txtDJID.value=djid;
    parent.frmmx.form1.submit();
}
//-->
</SCRIPT>

<HEAD>
<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>
<FORM action="" method=post id=form1 name=form1>

<TABLE  BORDER=0 CELLSPACING=0 CELLPADDING=0 bordercolordark=#ffffff bordercolorlight="<%=tableBORDERCOLORLIGHT%>" width=100%>
	<TR>
		<TD>
<TABLE BORDER=1 CELLSPACING=0 CELLPADDING=0 bordercolordark=#ffffff bordercolorlight="<%=tableBORDERCOLORLIGHT%>" width=100% id=TABLE1>
        <TBODY>
<tr bgcolor="<%=trBGCOLOR%>"><td align=middle><font color="<%=tableHFONTCOLOR%>">凭证号</td></tr>
<%
'sql="select pzh,djid from yk_tCkd where Ckdzt=0   and Ckks="&Application("xyk")&" order by djid desc "
sql="select distinct a.pzh,a.djid from yk_tckd a inner join yk_tckdnr b on a.djid=b.djid where a.ckdzt=0 and b.lyks="&session("ks")&" and a.ckks="&Application("xyk")&"  order by a.djid desc"

'Response.Write sql
rs.open sql,conn
	while not rs.EOF 
		Response.Write "<tr bordercolordark=#FFFFFF  onclick=ypzd(img"&trim(rs("djid"))&",'"&trim(rs("djid"))& "') onmouseout=mouseout(this,'#fffff0') onmouseover=mouseon(this,'#E0E0CA') bgcolor=#ffffff ><td>"
			 Response.Write "<img id=img"&rs("DJid")&" src='../../images/select.gif' style='width:8px;height:10px;visibility:hidden'>"
		Response.Write  rs("pzh")
		Response.Write "</td></tr>"
		rs.MoveNext 
	wend
  rs.Close 
  set rs=nothing

%>

</TD>
	</TR>
</TABLE></TD></TR></TBODY></TABLE>
</FORM>
</BODY>
</HTML>

aypckpzh.asp - 源码说明

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

虫虫开发者社区收录了大量与医疗信息系统相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?