afysxmjsmx.asp

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

ASP
97 行
字号 
<%@ Language=VBScript %>
<%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>
<!--


Sub cmdsx_onclick
	zssxmjs.pdid.value=5
	zssxmjs.submit 
End Sub

-->
</SCRIPT>
</HEAD>
<BODY >
<form name=zssxmjs method="post" action="azssxmjsmx.asp">
		<TABLE BORDER=1 bordercolorlight=#000000 bordercolordark=#ffffff CELLSPACING=1 CELLPADDING=1 style="HEIGHT: 20px; WIDTH: 550px">
        <tr>
          <td nowrap align="middle" ><p >小类名称</p></td>
          <td nowrap align="middle" ><p >项目名称</p></td>
          <td nowrap align="middle" ><p >数量</p></td>
          <td nowrap align="middle" ><p >单位</p></td>
          <td nowrap align="middle" ><p >金额</p></td>
     
		<%
		txtmzh=Request.Form("txtmzh")
		txtlsh=Request.Form("txtlsh")
		if trim(Request.Form("pdid"))="5" then
			sqlstr="select * from v_mzxmwjsmx where lsh='" & Request.Form("txtlsh") & "' and xmlxid='4' and mzh='"&Request.Form("txtmzh")&"' and cfzt=3 "	
			set result=conn.Execute(sqlstr)
			if not result.eof then
				result.movefirst
				i=1
				do while not result.eof
				    Response.Write "<tr><td nowrap><INPUT type=checkbox id=checkbox" & i & " name=checkbox" & i & " value=" & result("cfid") & ">"
					Response.Write result("xlmc")
					Response.Write  "</td>"
					Response.Write "<td nowrap>"
					Response.Write result("xmmc")
					Response.Write  "</td>"
					Response.Write "<td nowrap>"
					Response.Write result("sl")
					Response.Write  "</td>"
					Response.Write "<td nowrap>"
					Response.Write result("dj")
					Response.Write  "</td>"
					Response.Write "<td nowrap>"
					Response.Write result("je")
					Response.Write  "</td></tr>"
					result.movenext
					i=i+1
				loop
			end if
			Zsxi=i
			result.close
			conn.Close 
			set conn=nothing
		end if	
		'if trim(Request.Form("pdid"))="6" and len(Request.Form("txti"))>0 then
		'	'获取checkbox是否选中。
		'	str1=""
		'	for i=1 to cint(Request.Form("txti"))-1
		'		str1=str1 & Request.Form("checkbox" & i)
		'		if Request.form("checkbox"&i)<>"" then str1=str1&","
		'	next
		'	str1=left(str1,len(str1)-1)
		'	sqlstr="update mz_tcflr set cfzt=cfzt-1 where mz_tcflr.cfid in ( " & str1 & ")"
		'	conn.Execute sqlstr
		'	sqlstr="delete mz_tcflr where mz_tcflr.cfid in ( " & str1 & ")"
		'	conn.Execute sqlstr
		'end if
		%>
		</TABLE>
		<INPUT type="button" value="刷新" id=cmdsx name=cmdsx style="HEIGHT: 22px; WIDTH: 80px">
		<INPUT type="hidden" id=pdid name=pdid>
		<INPUT type="hidden" id=txtLSH name=txtlsh value="<%=txtlsh%>">
		<INPUT type="hidden" id=txtmzh name=txtmzh value="<%=txtmzh%>">
		<INPUT type="hidden" id=txti name=txti>
</BODY>
</form>
<SCRIPT LANGUAGE=vbscript>
<!--
	zssxmjs.txti.value="<%=i%>"
 -->
</SCRIPT>

</HTML>

afysxmjsmx.asp - 源码说明

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

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

⌨️ 快捷键说明

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