amzxmtkmx.asp

来自「医院医技科室系统,可以进行医技报告的生成打印,完全的BS结构」· ASP 代码 · 共 94 行

ASP
94 行
字号 
<%@ Language=VBScript %>

<!-- #INCLUDE FILE="../../share\connectdb.asp" -->
<!--#include file=../../pubfunction.asp-->

<HTML>
<HEAD>
<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>
<FORM action="" method=POST id=form1 name=form1>
<P align=center>

<%
Response.write session("yymc")
Response.Write "<br>"
%>
<A href="vbscript:window.print" >住院项目退款统计</a><br>&nbsp;<br>
<TABLE  BORDER=0 CELLSPACING=1 CELLPADDING=1 width=100%>
	<TR>
		<TD colspan=2>

<%
set con=server.CreateObject("adodb.connection")
con.Open application("sconn")
txtksmc=Request.Form("txtksmc")
txtrq1=Request.Form("txtrq1")
txtrq2=Request.Form("txtrq2")
%>
<INPUT type="hidden" id=txtjz name=txtjz>
<INPUT  id=txtrq1 name=txtrq1 type=hidden>
<INPUT  id=txtrq2 name=txtrq2 type=hidden>
<table align="center" border="1" cellPadding="0" cellSpacing="0" width="100%"   bordercolorlight='#000000' bordercolordark='#FFFFFF'>
<tr bgcolor="<%=trBGCOLOR%>">
<td align=middle><font color="<%=tableHFONTCOLOR%>">项目名称</td>
<td align=middle><font color="<%=tableHFONTCOLOR%>">数量</TD>
<td align=middle><font color="<%=tableHFONTCOLOR%>">金额</TD>
<td align=middle><font color="<%=tableHFONTCOLOR%>">退款人</TD>
<td align=middle><font color="<%=tableHFONTCOLOR%>">退款时间</TD>
	</TR>
<%
if trim(Request.Form("txtjz"))="txtjz" then

		if len(Request.Form("txtrq1"))<>0 and len(Request.Form("txtrq2"))<>0 then
			str1=str1 & "tksj>='" & Request.Form("txtrq1") & " 00:00:00' and tksj<='" & Request.Form("txtrq2") & " 23:59:59' and"
		end if
		    str1=str1&" rzks=" &session("rzks")
		sqlstr="select * from v_mzxmtktj where tkzt in (1,2) and " & str1
		'Response.Write sqlstr
		'sqlstr="select * from ggzd_tgzry where ryid<0"
		numJE=0.00
		numsl=0.00
		set result=con.Execute(sqlstr)
			if not result.eof then
				do while not result.eof 
					Response.Write "<tr bordercolordark=#FFFFFF>"
					Response.Write "<td  >" & result("xmmc") & "</td>"
					Response.Write "<td  align=right>" & result("SL") & "</td>"
					'Response.Write "<td  align=right>" & result("DJ") & "</td>"
					Response.Write "<td  align=right>" & result("JE") & "</td>"
					'Response.Write "<td  >" & result("XM") & "</td>"
					'Response.Write "<td  >" & result("shrxm") & "</td>"
					Response.Write "<td  >" & result("xm") & "</td>"
					Response.Write "<td  >" & formatdatetime(result("TKSJ"),2) & "</td>"
					numsl=numsl+formatnumber(result("sl"),2)
					numJE=numJE+formatnumber(result("je"),2)
					result.movenext
				loop								
			end if
			result.close
%>
	<tr>
    <td nowrap  align=right>合计：</td>
    <td nowrap align=right><%=numSL%></td>
    
    <td nowrap align=right><%=formatcurrency(numJE,2,-1)%></td>
    <td nowrap colspan=6>&nbsp;</td>
<%
end if
%>
</TABLE>
<%

%>
	</td></tr>
	<tr><td align=left>制表人：<%=session("yhm") %></td><td align=right>时间:<%=now%></td></tr></table>
	
</P>
<BODY>
</HTML>

amzxmtkmx.asp - 源码说明

本页面展示了「医院医技科室系统,可以进行医技报告的生成打印,完全的BS结构」中的 amzxmtkmx.asp 源码文件，采用 ASP 编程语言编写，共 94 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与报告相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?