📄 azssxmwjsmx.asp
字号:
<!-- #INCLUDE FILE="../../share\connectdb.asp" -->
<!--#include file=../../pubfunction.asp-->
<%
dim rs, ips,itxtsjss,zdmc,mzh,sql
qlsh=""
qghsj=""
qys=""
qye=0
qqf=""
ixmfy=""
izyfy=""
iQFJE=""
ips=""
sflxmc=""
qlsh=Request.Form("txtLSH")
if trim(qlsh)="" then qlsh=Request.QueryString("lsh")
if trim(qlsh)="" then qlsh=0
mzh=Request.QueryString("mzh")
'显示医生
dim syje,ybsyje,HZYLSYJE
syje=0
YBSYJE=0
HZYLSYJE=0
set rs=server.CreateObject("adodb.recordset")
%>
<HTML>
<HEAD>
<SCRIPT LANGUAGE=javascript>
<!--
function funallsel()
{
var obj,i;
obj=document.all.item('chk');
if(obj==null) return;
if(obj.length==null)
{
obj.checked=true;
return;
}
for(i=0;i<obj.length;i++)
{
if(obj(i)!=null)
obj(i).checked=true;
}
}
//-->
</SCRIPT>
<META name=VI60_defaultClientScript content=VBScript>
<META NAME="GENERATOR" Content="Microsoft FrontPage 4.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 action="" method=POST id=form1 name=form1>
<INPUT type="hidden" id=txtlsh name=txtlsh value="<%=qlsh%>">
<INPUT type="hidden" id=txtmzh name=txtmzh value="<%=mzh%>">
<TABLE BORDER=1 bordercolorlight=#000000 bordercolordark=#ffffff CELLSPACING=0 CELLPADDING=0 style="HEIGHT: 20px; WIDTH:100%">
<tr bgcolor="<%=trBGCOLOR%>" bordercolorlight=#000000 bordercolordark=#ffffff>
<td nowrap align="middle" nowrap style='cursor:hand' LANGUAGE=javascript onclick=funallsel()><font color=blue>全选</font> <font color="<%=tableHFONTCOLOR%>">项目名称</font></td>
<td nowrap align="middle" nowrap><font color="<%=tableHFONTCOLOR%>">单位</font></td>
<td nowrap align="middle" nowrap><font color="<%=tableHFONTCOLOR%>">数量</font></td>
<td nowrap align="middle" nowrap><font color="<%=tableHFONTCOLOR%>">单价</font></td>
<td nowrap align="middle" nowrap><font color="<%=tableHFONTCOLOR%>">金额</font></td>
<%
sqlstr="select cfid,xmmc,dw,sl-ytsl as sl,dj,je-ytje as je from view_mzxmwjsmx where lsh='" & qlsh & "' and cfzt in(1,0) AND (RZKS=0 OR RZKS =" & SESSION("RZKS") & ")"
' Response.Write sqlstr
rs.Open sqlstr,conn,3,1
i=1
do while not RS.eof
Response.Write "<tr><td nowrap><INPUT type=checkbox id=chk name=chk value='"& RS("cfid")&"'>"
Response.Write RS("xmmc")&"</td><td align=center nowrap>"
Response.Write RS("dw")&"</td><td align=right nowrap>"
Response.Write RS("sl")& "</td><td align=right nowrap>"
Response.Write formatnumber(RS("dj"),2,-1)&"</td><td align=right nowrap>"
Response.Write formatnumber(RS("je"),2,-1)&"</td></tr>"
RS.movenext
i=i+1
loop
Zsxi=i
RS.close
conn.Close
set conn=nothing
%>
</TABLE>
</form>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -