amzyjbgcx.asp

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

ASP
59 行
字号 
<%@ Language=VBScript %><SCRIPT LANGUAGE=vbscript>
<!--
 if "<%=session("yhid")%>"="" then 
    window.location="../../amain.asp"
end if
-->
</SCRIPT>
<HTML>
<HEAD>
<META name=VI60_defaultClientScript content=VBScript>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<LINK rel="stylesheet" type="text/css" href="../../css.css">
<SCRIPT ID=clientEventHandlersVBS LANGUAGE=vbscript>
<!--
sub cmdcx_onclick
	mzyjbgcx.submit 
end sub
-->
</SCRIPT>
</HEAD>
<BODY topmargin=0 leftmargin=0>
<form name=mzyjbgcx action="amzyjbgmx.asp" method="post">
<% 
set con=server.CreateObject("adodb.connection")
con.Open application("sconn")
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
%>

<TABLE bgcolor="cce8d6" BORDER=1 bordercolorlight=#000000 bordercolordark=#FFFFFF CELLSPACING=1 CELLPADDING=1>
	<TR >
		<TD nowrap align=center colspan=3 bgcolor="3399ff">医技报告查询</TD>
	</TR>
	<TR><TD><TABLE bgcolor="cce8d6" BORDER=0 bordercolorlight=#000000 bordercolordark=#FFFFFF CELLSPACING=1 CELLPADDING=1>
	<TR >
		<TD nowrap align=left>报告编号</td><TD nowrap align=left>
		<INPUT id=txtbgbh name=txtbgbh></TD>
		<td rowspan=2 align=center ><INPUT type="button" value="查询(F)" accesskey="F" id=cmdcx name=cmdcx style="height:26 ;width:70;" ></td>
	</TR>
	<TR>
		<TD nowrap align=left>门诊号</td><TD nowrap align=left >
		<INPUT id=txtmzh name=txtmzh></TD>
	</TR>	
	<TR>
		<TD nowrap align=left>报告日期</td><TD nowrap align=left >
		<INPUT id=txtrq1 name=txtrq1 value=<%=now%>></TD>
		<TD nowrap align=left>至
		<INPUT id=txtrq2 name=txtrq2 value=<%=now%>></TD>
	</TR>
</TABLE>

<INPUT  id=pdid TYPE="HIDDEN" name=pdid>
</form>
</BODY>
</HTML>

amzyjbgcx.asp - 源码说明

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

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

⌨️ 快捷键说明

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