📄 amzyjbgdy.asp
字号:
<%
%>
<%
set conn=server.CreateObject("adodb.connection")
conn.Open application("sconn")
%>
<!--#include file=../../ggmk.asp-->
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<%
sqlstr=Request.QueryString("sql")
set result=conn.Execute(sqlstr)
if not result.eof then
Response.Write result("cfid")
end if
result.close
conn.Close
set conn=nothing
%>
<P align=center>
<%
Response.write session("yymc")
Response.Write session("ksmc")
Response.Write "报告单"
Response.Write "<br>"
%>
</p>
<p align=left></p>
<p align=center>
<TABLE WIDTH=96% BORDER=1 CELLSPACING=1 CELLPADDING=1>
<TR>
<TD width=140>病者姓名:和关请</TD>
<TD width=70>性别:</TD>
<TD width=70>年龄:</TD>
<TD width=270>检验日期:</TD>
</TR>
<TR>
<TD width=140>门 诊 号:00000000</TD>
<%'<TD colspan=2 >病房号:</TD>%>
<TD colspan=3>检验项目:</TD>
</TR>
<TR>
<TD colspan=4>负责医师:</TD>
</TR>
<TR>
<TD colspan=4 align=center><%=session("ksmc")%>诊断:</TD>
<TD></TD>
<TD></TD>
<TD></TD>
</TR>
<TR>
<TD></TD>
<TD></TD>
<TD></TD>
<TD></TD>
</TR>
<TR>
<TD></TD>
<TD></TD>
<TD></TD>
<TD></TD>
</TR>
</TABLE>
</P>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -