amzxmjscx.asp
来自「医院医技科室系统,可以进行医技报告的生成打印,完全的BS结构」· ASP 代码 · 共 162 行
ASP
162 行
<!-- #INCLUDE FILE="../../share\connectdb3.asp" -->
<!--#include file=../../pubfunction.asp-->
<HTML>
<HEAD>
<META name=VI60_defaultClientScript content=VBScript><title>门诊项目接收查询</title>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<link rel="stylesheet" type="text/css" href="../../style/style.css" >
<link rel="stylesheet" type="text/css" href="../../style/table.css" >
<SCRIPT ID=clientEventHandlersVBS LANGUAGE=vbscript>
<!--
Sub cmdcx_onclick
dim str,str1
if isdate(mzxmjscx.txtcfsj1.value) then
str=" and sj>='"&mzxmjscx.txtcfsj1.value&" 00:00:00'"
str1=" and sksj>='"&mzxmjscx.txtcfsj1.value&" 00:00:00'"
end if
if isdate(mzxmjscx.txtcfsj2.value) then
str=str & " and sj<='"&mzxmjscx.txtcfsj2.value&" 23:59:59'"
str1=str1 &" and sj<='"&mzxmjscx.txtcfsj2.value&" 23:59:59'"
end if
if mzxmjscx.chkjs.checked=true then
if isdate(mzxmjscx.txtjssj1.value) then
str=str & " and cfzt>2 and jssj>='"&mzxmjscx.txtjssj1.value&" 00:00:00'"
str1=str1 & " and cfzt>2 and jssj>='"&mzxmjscx.txtjssj1.value&" 00:00:00'"
end if
if isdate(mzxmjscx.txtjssj2.value) then
str=str & " and cfzt>2 and jssj<='"&mzxmjscx.txtjssj2.value&" 23:59:59'"
str1=str1 & " and cfzt>2 and jssj<='"&mzxmjscx.txtjssj2.value&" 23:59:59'"
end if
if mzxmjscx.txtjsr.value<>"-1" then
str=str & " and jsr="&mzxmjscx.txtjsr.value
str1=str1 & " and jsr="&mzxmjscx.txtjsr.value
end if
end if
if mzxmjscx.chksf.checked=true then
str=str & " and cfzt>0 "
str1=str1 & " and cszt=2"
else
str=str & " and cfzt=0 "
str1=str1& " and cszt=0 "
end if
if mzxmjscx.chkjs.checked=true then
str=str & " and jssj is not null"'cfzt in (3,7) "
str1=str1 & " and jssj is not null"
else
str=str & " and jssj is null"' not in (3,7) "
str1=str1 &" and jssj is null"
end if
if mzxmjscx.chktxm.checked=true then
str=str & " and ytsl>0 "
str1=str1 & " and sl<0 "
end if
framname.xmjsmx.strcon.value=str
framname.xmjsmx.strcon1.value=str1
framname.xmjsmx.itj.value="cx"
window.framname.xmjsmx.submit
End Sub
Sub chkjs_onclick
if mzxmjscx.chkjs.checked =true then
mzxmjscx.txtjsr.disabled=false
mzxmjscx.txtjssj1.disabled=false
mzxmjscx.txtjssj2.disabled=false
else
mzxmjscx.txtjsr.disabled=true
mzxmjscx.txtjssj1.disabled=true
mzxmjscx.txtjssj2.disabled=true
end if
End Sub
-->
</SCRIPT>
</HEAD>
<BODY topmargin=0 leftmargin=0>
<form name=mzxmjscx method="post" action="amzxmjscx.asp">
<%
dim str1
set con=server.CreateObject("adodb.connection")
con.Open application("sconn")
txtksmc=Request.form("txtksmc")
sqlstr="select ksmc from ggzd_tks where ksid='" & trim(session("rzks")) & "'"
set result=con.Execute(sqlstr)
if not result.eof then
txtksmc=result("ksmc")
end if
result.close
set result=nothing
%>
<table width='100%' height='100%' border=0 cellspacing="0" cellpadding="0" bgcolor="<%=tableBGCOLOR%>">
<TR><TD nowrap colspan=4>
<table align="left" border="0" cellPadding="0" cellSpacing="0" width="100%">
<tr>
<TD nowrap >科室名称<INPUT class="longtext1" id=txtksmc name=txtksmc style="HEIGHT: 20px; WIDTH: 107px" value=<%=txtksmc%> readonly></TD>
<TD nowrap >处方时间<INPUT class="longtext1" id=txtcfsj1 name=txtcfsj1 style="HEIGHT: 20px; WIDTH: 100px" ></TD>
<TD nowrap >至<INPUT class="longtext1" id=txtcfsj2 name=txtcfsj2 style="HEIGHT: 20px; WIDTH: 100px" ></TD>
<td></td>
</TR>
<TR>
<TD nowrap><INPUT type="checkbox" id=chksf name=chksf value=1 checked>已经收费</TD>
<TD nowrap><INPUT type="checkbox" id=chkjs name=chkjs value=2 checked>已经接收</TD>
<TD nowrap ><INPUT type="checkbox" id=chktxm name=chktxm value=3 >已退项目</TD>
<td><INPUT class="buttons02" type="button" value="查询(C)" accesskey="C" id=cmdcx name=cmdcx style="HEIGHT: 22px; WIDTH: 68px"></TD>
</TR>
<TR>
<TD nowrap align=left >接收人<select id=txtjsr name=txtjsr style="HEIGHT: 20px; WIDTH:100px">
<!--<option value=-1>--全部--</option>-->
<%
dim rzks
if cint(session("rzks"))=31 or cint(session("rzks"))=75 then
rzks="(31,75)"
else
rzks="("&session("rzks")&")"
end if
'31 换药室
'75 注射室
set rs=con.Execute("select ryid,xm from ggzd_Tgzry where rzks in"&rzks)
do while not rs.eof
if rs("ryid")=session("yhid") then
Response.Write "<option value="&rs("ryid")&" selected>"&rs("xm")&"</option>"
else
' Response.Write "<option value="&rs("ryid")&">"&rs("xm")&"</option>"
end if
rs.movenext
loop
%>
</select>
<TD nowrap align=left>接收时间<INPUT class="longtext1" id=txtjssj1 name=txtjssj1 style="HEIGHT: 20px; WIDTH: 100px" value="<%=date%>"></TD>
<TD nowrap align=left>至<INPUT class="longtext1" id=txtjssj2 name=txtjssj2 style="HEIGHT: 20px; WIDTH: 100px" value="<%=date%>"></TD>
</TR></table></td></tr>
<TR height='100%'><TD nowrap colspan=4 height='100%'>
<iframe id=framname height=100% width=100% name=framname frameborder=1 noresize src="amzxmjscxmx.asp">
</iframe>
</TD>
</TR>
</TABLE>
</TD></TR>
</TABLE>
</form>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?