📄 actjxmjs.asp
字号:
<%@ Language=VBScript %>
<%
dim conn,rs
set conn=server.CreateObject ("adodb.connection")
conn.Open application("sconn")
if Request.Form ("ilsh")<>"" then
qmzh=Request.Form("imzh")
qxm=Request.Form("iXM")
qlsh=Request.Form("ilsh")
set rscbo=server.CreateObject ("adodb.recordset")
sqlcmd="select convert(varchar(10),sjsj,20) ghsjd,convert(varchar(8),sjsj,108) ghsjt from mz_ttjd where tjdid="&qlsh
rscbo.Open sqlcmd,conn
if not (rscbo.EOF ) then
qghsj=trim(rscbo("ghsjd"))&" "&trim(rscbo("ghsjt"))
else
qghsj="(无)"
end if
rscbo.Close
set rscbo=nothing
'显示医生
set rsys=server.CreateObject("adodb.recordset")
sqlys="select b.xm from mz_ttjd a,ggzd_tgzry b where a.kjys=b.ryid and a.tjdid="&qlsh
rsys.Open sqlys,conn
if not rsys.EOF then
qys=rsys("xm")
end if
'显示欠费和余额，如果是直接输入门诊号，就直接赋0值
else
qmzh=""
qxm=""
qlsh=""
qghsj=""
qys=""
end if
%>
<HTML>
<HEAD>
<meta http-equiv="refresh" content="180; url=aTJDSF.asp">
<META name=VI60_defaultClientScript content=VBScript>
<link href="../../hcss.htm" rel="stylesheet" type="text/css">
<script type="text/vbscript" src="../../ggmk.vbs"></script>
<script ID="clientEventHandlersVBS" LANGUAGE="vbscript">
<!--
Sub cmdJF_onclick
If MsgBox(" 确实要接收此体检单的内容吗", vbInformation + vbYesNo, "提示") = vbYES Then
thisform.iTJPS.value =1
thisform.submit
else
exit sub
end if
End Sub
Sub cmdFH_onclick
window.location ="atjxmjs.asp"
End Sub
-->
</SCRIPT>
</HEAD>
<BODY>
<FORM action="" method=post id=thisform name=thisform>
<TABLE border=0 cellPadding=0 cellSpacing=0 width=540>
<tr>
<td align=center>
<STRONG><a href="vbscript: window.print"><font size=4 color=Blue> <%=session("yymc")%></font></a></STRONG>
</td>
</tr>
<tr>
<td align=center>
<STRONG><font size=2> 体检待接收项目【接收】</font></STRONG>
</td>
</tr>
</Table>
<TABLE border=0 cellPadding=0 cellSpacing=0 width=540>
<TR>
<TD>
体检号：<INPUT id=imzh name=imzh
style="BORDER-BOTTOM-STYLE: none; BORDER-LEFT-STYLE: none; BORDER-RIGHT-STYLE: none; BORDER-TOP-STYLE: none; HEIGHT: 16px; WIDTH: 60px"
readOnly value=<%=qmzh%> >
<INPUT id=ilsh name=ilsh type=hidden value=<%=qlsh%>>
<INPUT id=ifsr name=ifsr type=hidden value=0 style="WIDTH: 0px" >
<INPUT id=iTJPS name=iTJPS type=hidden>
姓名：<INPUT id=ixm name=iXM
style="BORDER-BOTTOM-STYLE: none; BORDER-LEFT-STYLE: none; BORDER-RIGHT-STYLE: none; BORDER-TOP-STYLE: none; HEIGHT: 16px; WIDTH: 50px"
readonly value=<%=qxm%> >
开检时间: <INPUT name=hdcobLSH type=hidden style="WIDTH: 0px" >
<input id=cobLSH name=cobLSH readonly
style="BORDER-BOTTOM-STYLE: none; BORDER-LEFT-STYLE: none; BORDER-RIGHT-STYLE: none; BORDER-TOP-STYLE: none; HEIGHT: 16px; WIDTH: 150px"
value=<%=qghsj%> >
</TD>
</TR>
</TABLE>
<TABLE border=1 cellPadding=2 cellspacing=0 bordercolorlight=black bordercolordark=white style="HEIGHT: 23px; WIDTH: 540px">
<TR>
<TD align=middle >项目名称</TD>
<TD align=middle >单价</TD>
<TD align=middle >金额</TD>
</TR>
<%
if Request.Form ("ilsh")<>"" then
'显示处方内容
set rs=server.CreateObject("adodb.recordset")
dim sSQL
sSQL="select ggzd_txmbm.xmmc,mz_ttjdnr.dj,mz_ttjdnr.je from ggzd_txmbm,mz_ttjdnr where mz_ttjdnr.tjxm=ggzd_txmbm.xmid and mz_ttjdnr.tjdzt=1 and mz_ttjdnr.tjdid="&qlsh&""
rs.Open ssql,conn
hjje=0
do while not rs.EOF
Response.Write "<tr><td>"
Response.Write rs("xmmc")
Response.Write "</td>"
Response.Write "<td align=right>" & rs("dj") &"</td>"
Response.Write "<td align=right>" & formatnumber(rs("je"),2) &"</td>"
Response.Write "</tr>"
hjje=hjje+csng(rs("je"))
rs.MoveNext
loop
Response.Write "<tr><td colspan=9 align=right>共： "&formatnumber(hjje,2) & "</td>"
Response.Write "</TABLE>"
rs.Close
end if
%>
<TABLE BORDER=0 CELLSPACING=1 CELLPADDING=1 width=540 >
<td><INPUT id=cmdJF name=cmdJF type=button value="接收(J)" accesskey=J style="BACKGROUND-COLOR: transparent; BORDER-BOTTOM-STYLE: none; BORDER-LEFT-STYLE: none; BORDER-RIGHT-STYLE: none; BORDER-TOP-STYLE: none; BOTTOM: 0px; CURSOR: hand; FLOAT: right; FONT-FAMILY: ; FONT-STYLE: normal; FONT-WEIGHT: bold;background:3399ff;color:#FFFFFF"></TD>
<td><INPUT id=cmdFH name=cmdFH type=button value="返回(F)" accesskey=f style="BACKGROUND-COLOR: transparent; BORDER-BOTTOM-STYLE: none; BORDER-LEFT-STYLE: none; BORDER-RIGHT-STYLE: none; BORDER-TOP-STYLE: none; BOTTOM: 0px; CURSOR: hand; FLOAT: right; FONT-FAMILY: ; FONT-STYLE: normal; FONT-WEIGHT: bold;background:3399ff;color:#FFFFFF"></TD>
</tr>
</TABLE>
<TABLE BORDER=0 CELLSPACING=1 CELLPADDING=1 width=540 >
<TR><INPUT id=txtxmje name=txtxmje type=hidden value=<%=hjje%>>
<TD width=70 align=right>操作员：</TD>
<td><INPUT type="text" id=txtyy name=txtyy value=<%=session("yhm")%> readonly
style="BORDER-BOTTOM-STYLE: none; BORDER-LEFT-STYLE: none; BORDER-RIGHT-STYLE: none; BORDER-TOP-STYLE: none" ></td>
<TD align=right>操作时间：</TD>
<TD width=60><INPUT id=txtczy name=txtczy value=<%=date %> readonly
style="BORDER-BOTTOM-STYLE: none; BORDER-LEFT-STYLE: none; BORDER-RIGHT-STYLE: none; BORDER-TOP-STYLE: none; width:60"
></TD>
</TR>
</TABLE>
</FORM>
</BODY>
</HTML>
<%
select case Request.Form ("itjps")
case 1
ssql="update mz_ttjdnr set tjdzt=2,tjys="& SESSION("YHID") &",tjsj='"& now()&"' from mz_ttjdnr,mz_ttjd where mz_ttjdnr.tjdid =mz_ttjd.tjdid and mz_ttjd.tjdid ="&qlsh&" and mz_ttjdnr.tjdzt=1 and mz_ttjdnr.tjks="&session("ks")&""
conn.Execute ssql
Response.Redirect ("atjxmjs.asp")
end select
%>
<%
set rs=nothing
conn.Close
set conn=nothing
%> ⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -