amzyjbgmx.asp

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

ASP
132 行
字号 
<%@ Language=VBScript %><%
%>
<HTML>
<HEAD>
<META name=VI60_defaultClientScript content=JavaScript>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<LINK rel="stylesheet" type="text/css" href="../../css.css">
<SCRIPT ID=clientEventHandlersVBS LANGUAGE=vbscript>
<!--

sub cmdfh_onclick
	window.navigate("amzyjbgcx.asp")
end sub
function a()
	fh.style.visibility ="hidden"
	window.print
	fh.style.visibility ="visible"
	exit function
end function
-->
</SCRIPT>

</HEAD>
<BODY topmargin=0 leftmargin=0>
<form name=mzyjbgmx method="post" action=amzyjbgmx.asp>
<table border=0 style="HEIGHT: 25px; WIDTH: 500px">
<tr><td colspan=2 align=center><font size=2><b><%=session("yymc")%></a></b></font><td></tr>
<tr><td colspan=2 align=center><font size=2><b><a href="javascript:window.print()">门诊医技报告查询结果</b></font><td></tr>

<%
set con=server.CreateObject("adodb.connection")
con.Open application("sconn")
txtrq1=Request.Form("txtrq1")
txtrq2=Request.Form("txtrq2")
sqlstr="select ksmc from ggzd_tks where ksid='" & session("rzks") & "'"
set result=con.Execute(sqlstr)
if not result.eof then
	txtksmc=result("ksmc")
end if
result.close
%>
<tr><td colspan=2>
	科室:<input type="text" style="BACKGROUND-COLOR: transparent; BORDER-BOTTOM:1px solid; BORDER-LEFT-STYLE: none; BORDER-RIGHT-STYLE:
			 none; BORDER-TOP-STYLE: none; HEIGHT: 15px; WIDTH: 60px" readonly id=txtksmc1 name=text1 value=<% =txtksmc %> >
	起始时间:<input type="text" style="BACKGROUND-COLOR: transparent; BORDER-BOTTOM:1px solid; BORDER-LEFT-STYLE: none; BORDER-RIGHT-STYLE:
			 none; BORDER-TOP-STYLE: none; HEIGHT: 15px; WIDTH: 60px" readonly id=txtrq11 name=text1 value=<%=txtrq1%> >
	终止时间:<input type="text" style="BACKGROUND-COLOR: transparent; BORDER-BOTTOM:1px solid; BORDER-LEFT-STYLE: none; BORDER-RIGHT-STYLE: 
			none; BORDER-TOP-STYLE: none; HEIGHT: 15px; WIDTH: 60px" readonly id=txtrq21 name=text2 value=<% =txtRQ2%> >

<%
	if len(Request.Form("txtbgbh"))<>0 then
		str="and bh='" & trim(Request.Form("txtbgbh")) & "'"
	else 
		str=""	
	end if
	if len(Request.Form("txtrq1"))<>0 then
		str= str & "and sj>='" & trim(Request.Form("txtrq1"))&" 00:00:00'"
	else
		str= str &""
	end if	
	if len(Request.Form("txtrq2"))<>0 then
		str= str & " and sj<='" & trim(Request.Form("txtrq2")) & " 23:59:59'"
	else
		str=str & " "
	end if	
	sqlstr="select ksmc,ysxm,bh,brxm,zdmc,dj,sj,bgnr from v_yjbg  where rzks='" & session("rzks") & "'"& str & " order by ksmc,sj,ysxm,brxm"
	set result=con.Execute(sqlstr)
	if not result.eof then
		result.movefirst
		i=0		
		do while not result.eof
		    Response.Write "<TABLE BORDER=1 bordercolorlight=#000000 bordercolordark=#FFFFFF CELLSPACING=1 CELLPADDING=1 style='HEIGHT: 25px; WIDTH: 480px'>"
		    Response.Write "<tr bordercolordark=#FFFFFF><td nowrap align=left>"
		    Response.Write "<TABLE BORDER=0 bordercolorlight=#000000 bordercolordark=#FFFFFF CELLSPACING=1 CELLPADDING=1 style='HEIGHT: 25px; WIDTH: 480px'>"
            Response.Write "<tr bordercolordark=#FFFFFF><td nowrap align=left>"
			Response.Write "科室名称:"&result("ksmc")&"&nbsp"
			Response.Write  "</td>"
			Response.Write "<td nowrap>"
			Response.Write "医生姓名:"&result("ysxm")&"&nbsp"
			Response.Write  "</td>"
			Response.Write "<td nowrap>"
			Response.Write "报告编号:"&result("bh")&"&nbsp"
			Response.Write  "</td>"
			Response.Write "<td nowrap>"
			Response.Write "病人姓名:"&result("brxm")&"&nbsp"
			Response.Write  "</td></tr><tr>"
			Response.Write "<td nowrap>"
			Response.Write "临床诊断:"&result("zdmc")&"&nbsp"
			Response.Write  "</td>"
			Response.Write "<td nowrap>"
			Response.Write "等&nbsp;&nbsp;&nbsp;&nbsp;级:"&result("dj")&"&nbsp"
			Response.Write  "</td>"
			Response.Write "<td nowrap>"
			Response.Write "报告时间:"&result("sj")&"&nbsp"
			Response.Write  "</td>"
			Response.Write "</tr></TABLE></td></tr><tr><td>"
			Response.Write "<TABLE BORDER=0 bordercolorlight=#000000 bordercolordark=#FFFFFF CELLSPACING=1 CELLPADDING=1 style=' WIDTH: 480px'>"
            Response.Write "<tr bordercolordark=#FFFFFF><td nowrap align=left>报告内容:</td></tr><tr>"
            Response.Write "<td align=top>" &result("bgnr")
			Response.Write  "&nbsp;</td>"
			Response.Write "</tr></TABLE>"
			
			Response.Write "</td></tr></TABLE>"
			result.movenext
		loop
	end if
	result.close
	set result=nothing

%>

<%
sqlstr="select xm from ggzd_tgzry where ryid='" & session("yhid") & "'"
set result=con.Execute(sqlstr)
if not result.eof then
	txtzbr=result("xm")
end if
result.close
con.Close
set con=nothing
%>
<div id=fh>
<table BORDER=0 bordercolorlight=#000fff bordercolordark=#FFFFFF CELLSPACING=0 CELLPADDING=0 style="HEIGHT: 25px; WIDTH: 580px">
<tr><td align=center><INPUT type="button" value="返回" id=cmdfh name=cmdfh style="HEIGHT: 20px; WIDTH: 80px"></td></tr>
</table>
</div>
<INPUT type="hidden" id=pdid name=pdid>
<INPUT type="hidden" id=txtksmc name=txtksmc value="<%=txtksmc%>">
</form>
</BODY>
</HTML>

amzyjbgmx.asp - 源码说明

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

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

⌨️ 快捷键说明

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