📄 amztxmup.asp
字号:
<%@ Language=VBScript %>
<% if session("yhid")="" then Response.Redirect "../../index.htm"
'对于取医嘱的SQL语句，还要加上另外一些条件，取Application里面的项目类型
set conn=server.CreateObject ("adodb.connection")
conn.Open application("sconn")
%>
<HTML>
<HEAD>
<META name=VI60_defaultClientScript content=VBScript>
<script type="text/vbscript" src="../../ggmk.vbs"></script>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<style>
<!--
table
{
FONT-FAMILY:宋体;
FONT-SIZE: 10pt
}
INPUT
{
FONT-FAMILY:宋体;
FONT-SIZE: 9pt
}
SELECT
{
FONT-FAMILY:宋体;
FONT-SIZE: 9pt
}
-->
</style>
<SCRIPT ID=clientEventHandlersJS LANGUAGE=javascript>
<!--
function mouseon(src,clrOver){
src.style.cursor = 'hand';
src.bgColor = clrOver;
}
function mouseout(src,clrIn) {
src.style.cursor = 'default';
src.bgColor = clrIn;
}
function xg(yzid,sl,xmmc,dj,je){
parent.form1.txtxm.value=xmmc;
parent.form1.txtyzid.value=yzid;
parent.form1.txttxmsl.value=sl;
parent.form1.txtdj.value=dj;
parent.form1.txtsl.value=sl;
parent.form1.txtje.value=je;
}
//-->
</SCRIPT>
<BODY leftmargin=0 topmargin=0>
<FORM action="" method=POST id=form1 name=form1><INPUT type="hidden" id=txtlsh name=txtlsh value="<%=request("txtlsh")%>">
<table border=0 bordercolorlight=black bordercolordark=white cellspacing=0 cellpadding=0 width=595>
<tr>
<td>
<TABLE border=1 cellPadding=0 cellSpacing=0 style=" WIDTH: 575px">
<tr bgColor="#00bfff">
<td width="200" align="middle">项目名称</td>
<td width="50" align="middle">数量</td>
<td width="50" align="middle">单价</td>
<td width="60" align="middle">金额</td>
<td width="160" align="middle">处方时间</td>
</TR>
<%
if request("txtlsh")<>"" then
sLSH=Request("txtlsh")
dim sSQL
sSQL="select * from VIEW_MZCF where xmlx not in (7,8) and (rzks="&session("rzks")&") and lsh="&sLSH & " and yzid not in (select cfid from yb_tcf where djlsh0 is not null and lsh=" & slsh & ")"
'Response.Write sSQL
set rs=server.CreateObject("adodb.recordset")
rs.Open ssql,conn
do while not rs.EOF
'if cint(rs("fpydy"))=0 then
Response.Write "<tr language=javascript onmouseout=mouseout(this,'#FFFFFF') onmouseover=mouseon(this,'#fa8072') onclick=xg(" & rs("yzid") & "," & cdbl(rs("SL")) & ",'"& trim(rs("xmmc")) &"','"& rs("DJ") &"',"& rs("je") &") ><td width=200>"
'else
' Response.Write "<tr bgcolor='ffff00' language=javascript onmouseout=mouseout(this,'#ffff00') onmouseover=mouseon(this,'#fa8072') onclick=xg(" & rs("yzid") & "," & cdbl(rs("SL")) & ",'"& trim(rs("xmmc")) &"','"& rs("DJ") &"',"& rs("je") &") ><td width=200>"
'end if
Response.Write rs("xmmc") & "</td>"
Response.Write "<td align=right width=50>" & rs("SL") & "</td>"
Response.Write "<td align=right width=50>" & rs("DJ") & "</td>"
Response.Write "<td align=right width=60>" & formatnumber(rs("JE"),2,-1) & "</td>"
Response.Write "<td align=right width=160>" & rs("SJ") & "</td>"
Response.Write "</tr>"
rs.MoveNext
loop
rs.Close
end if
%>
</TABLE>
</td>
</tr>
</table>
</FORM>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -