📄 azssxmypmx1.asp
字号:
<!-- #INCLUDE FILE="../../share\connectdb.asp" -->
<!--#include file=../../pubfunction.asp-->
<HTML>
<HEAD>
<META name=VI60_defaultClientScript content=VBScript>
<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" >
</HEAD>
<BODY TOPMARGIN=0 LEFTMARGIN=0>
<form name=zssxmwjs method="post" action=azssxmYPMX.asp>
<TABLE BORDER=1 CELLSPACING=0 CELLPADDING=0 bordercolorlight=#000000 bordercolordark=#ffffff style="HEIGHT: 20px; WIDTH: 575px">
<tr bgcolor="<%=trBGCOLOR%>" bordercolorlight='#000000' bordercolordark='#ffffff' >
<TD align=middle>药品</TD>
<TD align=middle>数量</TD>
<TD align=middle>皮试</TD>
<TD align=middle>次数量</TD>
<TD align=middle>日数量</TD>
<TD align=middle>天数</TD>
<TD align=middle>使用方法</TD>
<TD align=middle>单价</TD>
<TD align=middle>金额</TD>
</TR>
<%
txtlsh=Request.Form("txtlsh")
txtmzh=Request.Form("txtmzh")
pdid=Request.Form("pdid")
i=0
'if trim(Request.Form("pdid"))="1" then
sqlstr="SELECT a.RZKS, a.XMLX, a.CFID, a.CSL, a.TS, a.DJ, a.SL, a.JE, a.CFZT, a.LSH, c.YPSPM,b.SYFFMC, e.PSMC, c.GG, b.SYFFID, a.PS, a.FZ AS fzmc, d.RCSMC AS rcs, a.YSZT " & _
" FROM YK_tSYFF b INNER JOIN MZ_tCFLR a ON b.SYFFID = a.SYFF INNER JOIN YK_tYPBM c ON a.BH = c.YPID INNER JOIN GGZD_tRCS d ON a.RCS = d.RCSID LEFT OUTER JOIN GGZD_tPS e ON a.PS = e.PSID where a.lsh='" & txtlsh & "' and a.sfbc=1 and a.sl-a.ytsl>0 ORDER BY LSH,FZMC" 'v_ykbrzssmx
'sqlstr1="SELECT a.RZKS, a.XMLX, a.CFID, a.CSL, a.TS, a.DJ, a.SL, a.JE, a.CFZT, a.LSH,"
' sqlstr1=sqlstr1&"c.xmmc as YPSPM,'' as SYFFMC, '' as PSMC, 1 as GG, a.syff, a.PS, a.FZ AS fzmc, 1 AS rcs, "
'sqlstr1=sqlstr1&" a.YSZT FROM MZ_tCFLR a INNER JOIN ggzd_txmbm c ON a.BH = c.xmid where"
' sqlstr1=sqlstr1&" a.xmlx>3 and a.lsh='" & txtlsh & "' and a.sfbc=1 and a.sl-a.ytsl>0 "
' sqlstr=sqlstr&" union all "&sqlstr1&" ORDER BY LSH,FZMC"
'Response.Write sqlstr
set RS=conn.Execute(sqlstr)
i=1
if not RS.eof then
do while not RS.eof
Response.Write "<tr bordercolorlight='#000000' bordercolordark='#ffffff'>"
Response.Write "<td nowrap align=left><INPUT type=checkbox id=checkbox" & i & " name=checkbox" & i & " value=" & RS("cfid") & ","& RS("ps") & ">"
if isnull(rs("fzmc")) or len(RS("fzmc"))=0 then
fzmc="0"
else
fzmc= RS("fzmc")
end if
Response.Write "(" & fzmc & ")" & RS("ypspm") & "[" & RS("gg") & "]" & "</td>"
Response.Write "<td nowrap align=right>"&RS("sl")&"</td>"
if RS("psmc")="+" then
Response.Write "<td nowrap align=center><font color=red>("&RS("psmc")&")</td>"
else
if RS("psmc")="-" then
Response.Write "<td nowrap align=center>("&RS("psmc")&")</td>"
else
Response.Write "<td nowrap align=center>"&RS("psmc")&" </td>"
end if
end if
Response.Write "<td nowrap align=center>"&RS("csl") & "</td>"
Response.Write "<td nowrap align=center>"&RS("rcs")&"</td>"
Response.Write "<td nowrap align=center>"&RS("ts")&"</td>"
Response.Write "<td nowrap align=center>"&RS("syffmc")&"</td>"
'Response.Write "<td nowrap align=center>"&RS("yszt")&" </td>"
Response.Write "<td nowrap align=right>"&formatnumber(RS("dj"),2,-1)&"</td>"
Response.Write "<td nowrap align=right>"&formatnumber(RS("je"),2,-1)&"</td>"
RS.movenext
i=i+1
loop
else
i=0
'写没卡病人的select语句
end if
'else
'end if
%>
</table>
<INPUT type="hidden" id=txtlsh name=txtlsh value="<%=txtlsh%>">
<INPUT type="hidden" id=txtmzh name=txtmzh value="<%=txtmzh%>">
<INPUT type="hidden" id=pdid name=pdid value="<%=pdid%>">
</form>
</BODY>
<SCRIPT LANGUAGE=vbscript>
<!--
'zssxmwjs.txtps.value="<%=i%>"
<%response.write "parent.form1.hdpd.value=" & i%>
-->
</SCRIPT>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -