📄 abcbg.asp
字号:
<%@ Language=VBScript %>
<!--#include file=../../ggmk.asp-->
<!--#include file=../../aickcz.asp-->
<!--#include file=../../ap2cmb.asp-->
<%
dim conn,rs,czzt,blh,kzt1,xm,xb,csrq,lsh,ksmc,bgid,kh,BGR,CSTS,pz,BGRQ
set conn=server.CreateObject ("adodb.connection")
conn.Open application("sconn")
set rs=server.CreateObject ("adodb.recordset")
czzt=Request.Form("txtZT")
bgid=Request.Form("txtbgid")
if bgid="" then bgid=0
lsh=Request.Form("txtLSH")
kh=Request.Form("txtKH")
BGR=Request.Form("txtBGR")
BGRQ=Request.Form("txtBGRQ")
if BGR="" then BGR=session("yhm")
if lsh="" then lsh=0
if BGRQ="" then BGRQ=now
if trim(czzt)="DK" then
sql="select blh,kzt from ggzd_tk where kdh='"&Request.Form("txtKH")&"'"
rs.Open sql,conn,3,1
blh=""
kzt1=0
czzt=""
do until rs.EOF
blh=rs("blh")
kzt1=rs("kzt")
rs.MoveNext
loop
rs.Close
if trim(blh)="" then
czzt="brsck"
elseif trim(blh)="0" then
czzt="ckmycs"
end if
if cint(kzt1)=1 then
czzt="gkygs"
elseif cint(kzt1)=2 then
czzt="gkzf"
end if
if trim(czzt)="" then
sql="select top 1 a.xm,a.xb,a.csrq,b.lsh,c.ksmc from mz_tbrxx a inner join mz_tbrls b on a.blh=b.blh "
sql=sql&" inner join ggzd_tks c on b.ghks=c.ksid where a.blh="&blh&" order by b.lsh desc"
' Response.Write sql
rs.Open sql,conn,3,1
do until rs.EOF
xm=rs("xm")
xb=rs("xb")
csrq=computage(rs("csrq"))
lsh=rs("lsh")
ksmc=rs("ksmc")
rs.MoveNext
loop
rs.Close
end if
sql="select BGID, LSH,GZYB,GC,GYYH,YXJ,GLGD,MJMLI,DZGK,DRC,NB,BH,NL,DRK,BZ,BGRQ,CSTS,BGR,PZ from YJBG_tBCBG where lsh="&lsh
rs.Open sql,conn,1,1
if not rs.EOF then
bgid=rs("BGID")
GZYH=rs("GZYB")
GC=rs("gc")
GYYH=rs("gyyh")
YXJ=rs("yxj")
GLGD=rs("glgd")
MJMLI=rs("MJMLI")
DZGK=rs("DZGK")
DRC=rs("drC")
NB=rs("nb")
BH=rs("bh")
NL=rs("nl")
DRK=rs("DRK")
BZ=rs("bz")
BGRQ=rs("bgrq")
CSTS=rs("CSTS")
BGR=rs("BGR")
PZ=rs("pz")
end if
rs.Close
end if
if trim(czzt)="BC" then
if cint(bgid)=0 then
sql="insert into YJBG_tBCBG(LSH,GZYB,GC,GYYH,YXJ,GLGD,MJMLI,DZGK,DRC,NB,BH,NL,DRK,BZ,BGRQ,CSTS,BGR,pz) values('"&Request.Form("txtlsh")&"','"&Request.Form("txtGZYH")
sql=sql&"','"&Request.Form("txtgc")&"', '"&Request.Form("txtgyyh")&"','"&Request.Form("txtyxj")&"','"&Request.Form("txtglgd")&"','"&Request.Form("txtMJMLI")&"','"&Request.Form("txtdzgk")&"','"&Request.Form("txtdrc")&"','"&Request.Form("txtnb")&"','"
sql=sql&Request.Form("txtbh")&"','"&Request.Form("txtnl")&"','"&Request.Form("txtdrk")&"','"&Request.Form("txtbz")&"','"&Request.Form("txtBGRQ")&"','"&Request.Form("txtCSTS")&"','"&Request.Form("txtBGR")&"','"&Request.Form("txtPZ")&"')"
conn.Execute sql
else
sql="update YJBG_tBCBG SET GZYB='"&Request.Form("txtGZYH")
sql=sql&"',GC='"&Request.Form("txtgc")&"',GYYH='"&Request.Form("txtgyyh")&"',YXJ='"&Request.Form("txtyxj")&"',GLGD='"&Request.Form("txtglgd")&"',MJMLI='"&Request.Form("txtMJMLI")&"',DZGK='"&Request.Form("txtdzgk")&"',DRC='"&Request.Form("txtdrc")&"',NB='"&Request.Form("txtnb")&"',BH='"
sql=sql&Request.Form("txtbh")&"',NL='"&Request.Form("txtnl")&"',DRK='"&Request.Form("txtdrk")&"',BZ='"&Request.Form("txtbz")&"',CSTS='"&Request.Form("txtCSTS")&"',pz='"&Request.Form("txtPZ")&"' WHERE BGID="&BGID
'Response.Write SQL
conn.execute sql
BGID=0
end if
'if conn.Errors<>0 then
end if
%>
<HTML>
<HEAD>
<META name=VI60_defaultClientScript content=VBScript>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<SCRIPT ID=clientEventHandlersVBS LANGUAGE=vbscript>
<!--
Sub btnDK_onclick
dim strKH
if cint(form1.txtbgid.value)>0 then
if msgbox("您是否要保存您修改的信息!",vbinformation+vbokcancel,"鑫捷迅提示")=vbok then
btnbc_onclick
end if
end if
strKH=dickhm("<%=yyxx%>")
if strKH="" then strKH="CC"
if trim(strKH)="CC" then exit sub
window.form1.txtKH.value=strKH
window.form1.txtZT.value="DK"
window.form1.submit
End Sub
Sub window_onload
if trim("<%=czzt%>")="brsck" then msgbox "系统不认识此卡",vbinformation,"鑫捷迅提示"
if trim("<%=czzt%>")="ckmycs" then msgbox "此卡没有出售",vbinformation,"鑫捷迅提示"
if trim("<%=czzt%>")="gkygs" then msgbox "此卡已挂失",vbinformation,"鑫捷迅提示"
if trim("<%=czzt%>")="gkzf" then msgbox "此卡已作废",vbinformation,"鑫捷迅提示"
End Sub
Sub btnBC_onclick
if form1.txtkh.value="" then
msgbox"请你先读卡",vbinformation,"鑫捷迅提示"
form1.btnDK.focus
exit sub
end if
if window.form1.txtGZYH.value<>"" then
if not isnumeric(window.form1.txtGZYH.value) then
msgbox "必须输入数字",vbinformation,"鑫捷迅提示"
window.form1.txtGZYH.focus
exit sub
end if
end if
if window.form1.txtGC.value<>"" then
if not isnumeric(window.form1.txtGC.value) then
msgbox "必须输入数字",vbinformation,"鑫捷迅提示"
window.form1.txtGC.focus
exit sub
end if
end if
if window.form1.txtGYYH.value<>"" then
if not isnumeric(window.form1.txtGYYH.value) then
msgbox "必须输入数字",vbinformation,"鑫捷迅提示"
window.form1.txtGYYH.focus
exit sub
end if
end if
if window.form1.txtYXJ.value<>"" then
if not isnumeric(window.form1.txtYXJ.value) then
msgbox "必须输入数字",vbinformation,"鑫捷迅提示"
window.form1.txtYXJ.focus
exit sub
end if
end if
if window.form1.txtMJMLI.value<>"" then
if not isnumeric(window.form1.txtMJMLI.value) then
msgbox "必须输入数字",vbinformation,"鑫捷迅提示"
window.form1.txtMJMLI.focus
exit sub
end if
end if
'-------
if window.form1.txtDRC.value<>"" then
if not isnumeric(window.form1.txtDRC.value) then
msgbox "必须输入数字",vbinformation,"鑫捷迅提示"
window.form1.txtDRC.focus
exit sub
end if
end if
if window.form1.txtDRK.value<>"" then
if not isnumeric(window.form1.txtDRK.value) then
msgbox "必须输入数字",vbinformation,"鑫捷迅提示"
window.form1.txtDRK.focus
exit sub
end if
end if
'------------------
if window.form1.txtDZGK.value<>"" then
if not isnumeric(window.form1.txtDZGK.value) then
msgbox "必须输入数字",vbinformation,"鑫捷迅提示"
window.form1.txtDZGK.focus
exit sub
end if
end if
if window.form1.txtBH.value<>"" then
if not isnumeric(window.form1.txtBH.value) then
msgbox "必须输入数字",vbinformation,"鑫捷迅提示"
window.form1.txtBH.focus
exit sub
end if
end if
window.form1.txtZT.value="BC"
window.form1.submit
End Sub
-->
</SCRIPT>
</HEAD>
<body topmargin=0 leftmargin=0 >
<form action ="" id="form1" name="form1" method="post" >
<input id="txtKH" name="txtKH" type="hidden" value="<%=kh%>">
<input id="txtZT" name="txtZT" type="hidden">
<input id="txtbgid" name="txtbgid" type="hidden" value="<%=bgid%>">
<table border="1" bordercolorlight="#000000" bordercolordark="#ffffff" cellpadding="0" cellspacing="0" width="450" align="left">
<tr>
<td bgcolor="#3399ff" align="middle"><font color="red">黑白B超超声实时显像报告单</font></td>
</tr>
<tr><td bgcolor="#cce8d6">
<table align="center" border="0" cellPadding="0" cellSpacing="0" width="100%">
<tr>
<td nowrap>姓 名:<INPUT id=txtXM name=txtXM style="BORDER-RIGHT: 0px; BORDER-TOP: 0px; BORDER-LEFT: 0px; WIDTH: 55px; BACKGROUND-COLOR: #cce8d6" value="<%=xm%>" READONLY></td>
<td nowrap> 性 别:<INPUT id=txtXB name=txtXB style="BORDER-RIGHT: 0px; BORDER-TOP: 0px; BORDER-LEFT: 0px; WIDTH: 55px; BACKGROUND-COLOR: #cce8d6"
value="<%=xb%>" READONLY > </td>
<td nowrap>年 龄:<INPUT id=txtCSRQ name=txtCSRQ style="BORDER-RIGHT: 0px; BORDER-TOP: 0px; BORDER-LEFT: 0px; WIDTH: 55px; BACKGROUND-COLOR: #cce8d6"
value="<%=csrq%>" READONLY > </td>
<td nowrap>科 别:<INPUT id=txtKB name=txtKB style="BORDER-RIGHT: 0px; BORDER-TOP: 0px; BORDER-LEFT: 0px; WIDTH: 55px; BACKGROUND-COLOR: #cce8d6"
value="<%=ksmc%>" READONLY ></td>
<td nowrap>流水号:<INPUT id=txtLSH name=txtLSH style="BORDER-RIGHT: 0px; BORDER-TOP: 0px; BORDER-LEFT: 0px; WIDTH: 55px; BACKGROUND-COLOR: #cce8d6"
value="<%=lsh%>" READONLY ></td></tr>
</table></td></tr>
<tr><td>
<table bgcolor="#cce8d6" border="0" bordercolorlight="#000000" bordercolordark="#ffffff" cellpadding="0" cellspacing="0" width="100%" align="center">
<tr >
<td nowrap> 肝左叶厚：</td>
<td nowrap><input id="txtGZYH" name="txtGZYH" style="WIDTH: 55px; HEIGHT: 22px" value="<%=gzyh%>" >CM</td><td width='5'> </td>
<td nowrap >肝左 叶长:</td>
<td nowrap><input id="txtgc" name="txtgc" style="WIDTH: 55px; HEIGHT: 22px" VALUE="<%=GC%>">CM</td><td width='5'> </td>
<td nowrap >肝右叶厚:</td>
<td nowrap><input id="txtgyyh" name="txtgyyh" style="WIDTH: 55px; HEIGHT: 22px" value="<%=gyyh%>" >CM</td><td width='5'> </td>
<td nowrap>右斜径:</td>
<td nowrap><input id="txtyxj" name="txtyxj" style="WIDTH: 55px; HEIGHT: 22px" value="<%=yxj%>" >CM</td><TR>
<td nowrap >肝内光点:</td>
<td nowrap><input id="txtglgd" name="txtglgd" style="WIDTH: 55px; HEIGHT: 22px" value="<%=glgd%>" ></td><td width='5'> </td>
<td nowrap >门静脉内径:</td>
<td nowrap><input id="txtMJMLI" name="txtMJMLI" style="WIDTH: 55px; HEIGHT: 22px" value="<%=MJMLI%>" >CM</td><td width='5'> </td>
<td nowrap >胆总管宽:</td>
<td nowrap><input id="txtDZGK" name="txtDZGK" style="WIDTH: 55px; HEIGHT: 22px" value="<%=DZGK%>" >CM</td><td width='5'> </td>
<td nowrap >胆囊长:</td>
<td nowrap><input id="txtdrc" name="txtdrc" style="WIDTH: 55px; HEIGHT: 22px" value="<%=DRC%>" >CM</td></TR>
<TR>
<td nowrap >胆 囊 宽:</td>
<td nowrap><input id="txtdrk" name="txtdrk" style="WIDTH: 55px; HEIGHT: 22px" value="<%=DRK%>" >CM</td><td width='5'> </td>
<td >囊 壁:</td>
<td nowrap><input id="txtnb" name="txtnb" style="WIDTH: 55px; HEIGHT: 22px" value="<%=nb%>" ></td><td width='5'> </td>
<td nowrap >壁 厚:</td>
<td nowrap><input id="txtbh" name="txtbh" style="WIDTH: 55px; HEIGHT: 22px" value="<%=bh%>" >CM</td><td width='5'> </td>
<td nowrap >囊 内:</td>
<td nowrap><input id="txtlnl" name="txtnl" style="WIDTH: 55px; HEIGHT: 22px" value="<%=NL%>" ></td>
<TR>
<td nowrap colspan=1>脾 脏:</TD><TD COLSPAN=6><input id="txtPZ" name="txtPZ" style="WIDTH: 250px; HEIGHT: 22px" value="<%=pz%>" ></td> <td nowrap colspan=4 align=right><input type="button" id="btnDK" name="btnDK" value="读卡(D)" accesskey=d style="BACKGROUND-COLOR: royalblue">
<input type="button" id="btnBC" name="btnBC" value="保存(B)" accesskey=b style="BACKGROUND-COLOR: royalblue"></td>
</TR>
<tr>
<td colspan=11><TEXTAREA id=txtbz style="WIDTH: 100%; HEIGHT: 230px; bgcolor: white" name=txtbz ><%=bz%></TEXTAREA></td>
</tr>
<tr>
<td colspan=11 nowrap>超声提示:<input id=txtCSTS style="WIDTH: 30%; HEIGHT: 22 " name=txtCSTS VALUE="<%=CSTS%>">
报告人:<INPUT id=txtBGR name=txtBGR style="BORDER-RIGHT: 0px; BORDER-TOP: 0px; BORDER-LEFT: 0px; WIDTH: 55px; BACKGROUND-COLOR: #cce8d6" VALUE="<%=BGR%>" READONLY>
报告时间:<INPUT id=txtBGRQ name=txtBGRQ style="BORDER-RIGHT: 0px; BORDER-TOP: 0px; BORDER-LEFT: 0px; WIDTH: 105px; BACKGROUND-COLOR: #cce8d6" VALUE="<%=BGRQ%>" READONLY></td>
</tr>
</table>
</td></tr>
</table>
</form>
</body>
</HTML>
<%
set rs=nothing
conn.Close
set conn=nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -