📄 afysxmwjsmx.asp
字号:
<%@ Language=VBScript %>
<%Response.Buffer = True
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
if session("YHID")="" THEN server.transfer "../../amain.asp"%>
<%
set conn=server.CreateObject("adodb.connection")
conn.Open application("sconn")
%>
<HTML>
<HEAD>
<META name=VI60_defaultClientScript content=VBScript>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<LINK rel="stylesheet" type="text/css" href="../../css.css">
<SCRIPT ID=clientEventHandlersVBS LANGUAGE=vbscript>
<!--
-->
</SCRIPT>
</HEAD>
<BODY>
<form name=zssxmwjs method="post" action=azssxmwjsmx.asp>
<TABLE BORDER=1 CELLSPACING=1 CELLPADDING=1 bordercolorlight=#000000 bordercolordark=#ffffff style="HEIGHT: 20px; WIDTH: 555px">
<TR >
<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>
<TD align=middle>单价</TD>
<TD align=middle>金额</TD>
</TR>
<%
txtlsh=Request.Form("txtlsh")
txtmzh=Request.Form("txtmzh")
pdid=Request.Form("pdid")
if trim(Request.Form("pdid"))="1" then
sqlstr="select cfid,ypspm,gg,fzmc,sl,psmc,csl,rcs,ts,syffid,syffmc,dj,je from v_zssjs where lsh='" & txtlsh & "' " 'v_ykbrzssmx
set result=conn.Execute(sqlstr)
i=1
if not result.eof then
do while not result.eof
Response.Write "<tr>"
Response.Write "<td nowrap align=left><INPUT type=checkbox id=checkbox" & i & " name=checkbox" & i & " value=" & result("cfid") & ">"
Response.Write result("ypspm") &" </td>"
Response.Write "<td nowrap align=center>"& result("gg") &" </td>"
Response.Write "<td nowrap align=center>"&result("fzmc")&" </td>"
Response.Write "<td nowrap align=center>"&result("sl")&" </td>"
Response.Write "<td nowrap align=center>"&result("psmc")&" </td>"
Response.Write "<td nowrap align=center>"&result("csl")&" </td>"
Response.Write "<td nowrap align=center>"&result("rcs")&" </td>"
Response.Write "<td nowrap align=center>"&result("ts")&" </td>"
Response.Write "<td nowrap align=center>"&result("syffmc")&" </td>"
Response.Write "<td nowrap align=center>"&result("dj")&" </td>"
Response.Write "<td nowrap align=center>"&result("je")&" </td>"
result.movenext
i=i+1
loop
else
i=0
'写没卡病人的select语句
end if
else
i=0
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.zssxmjs.hdPD.value=" & i%>
-->
</SCRIPT>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -