⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 amzsbsy.asp

📁 医院医技科室系统,可以进行医技报告的生成打印,完全的BS结构
💻 ASP
字号:
🔍 

<HTML>
<HEAD><title>设备使用</title>
<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 cmdok_onclick
'	IF sbsyform.txtsbmc.value="" then
'		msgbox "没有设备。",vbinformation,"提示"
'		exit sub
'	end if
	sbsyform.pdid.value=2
	sbsyform.submit
	parent.divxmjs.style.visibility="visible"
	parent.divzjfz.style.visibility="hidden"
	parent.divsbsy.style.visibility="hidden"
	parent.framname1.xmjsform.SUBMIT


End Sub

sub cmdquit_onclick
	parent.divxmjs.style.visibility="visible"
	parent.divzjfz.style.visibility="hidden"
	parent.divsbsy.style.visibility="hidden"
end sub	

sub select1_onchange
	sbsyform.txtsbid.value=sbsyform.select1.value 
end sub

-->
</SCRIPT>
</HEAD>
<BODY>
<form name=sbsyform action="amzsbsy.asp" method="post">
<%'on error resume next%>
<%
	set con=server.CreateObject("adodb.connection")
	con.Open application("sconn")
	txtsbid=trim(Request.Form("txtsbid"))
%>
<p><BR><p>
<p align=center>
<TABLE border=1  bgcolor="#cce8d6"  bordercolorlight=#000000 bordercolordark=#ffffff >
	<TR>
		<TD>设备名称</TD>
		<TD>
		<SELECT id=select1 name=select1 style="HEIGHT: 20px; WIDTH: 205px">		<option value="">-请选择-<option>
		<%	
		sqlstr="select sbid,sbmc from gdzc_tsbzd where rzksid='" & session("rzks") & "' order by sbid"
		set result=con.Execute(sqlstr)
		if not result.eof then
			if trim(txtsbid)="" then
				txtsbid=len(txtsbid)
			end if
			do while not result.eof				if result("sbid")=cint(txtsbid) then
					Response.Write "<OPTION value=" & result("sbid") & " selected>"&result("sbmc") & "</OPTION>"				else
					Response.Write "<OPTION value=" & result("sbid") & ">"&result("sbmc") & "</OPTION>"				end if
				result.movenext
			loop
			end if	
			result.close
			set result=nothing
		%>
		</SELECT>
		<INPUT type="hidden" id=txtsbid name=txtsbid value="<%=txtsbid%>">
		</TD>
	</TR>
	<TR>
		<TD align=middle colspan=2>
			<INPUT type="button" value="确定" id=cmdok name=cmdok style="HEIGHT: 22px; WIDTH: 66px">&nbsp;&nbsp;
			<INPUT type="button" value="返回" id=cmdquit name=cmdquit style="HEIGHT: 22px; WIDTH: 66px">
		</TD>
	</TR>
	<%
		if trim(Request.Form("pdid"))="2" and trim(Request.Form("txtcfid"))<>"" then
			sqlstr="select * from ggzd_tsbsyjl where cfid='" & Request.Form("txtcfid") & "'"
			set result=con.Execute(sqlstr)
			if not result.eof then
				sta="0"
			end if
		end if
		if sta<>"0" then
			if trim(Request.Form("pdid"))="2" and trim(Request.Form("txtcfid"))<>"" then
				sqlstr="insert into ggzd_tsbsyjl values('" & Request.form("txtcfid") & "' ,'" & Request.Form("txtsbid") & "',0)"
				con.Execute sqlstr
				con.Close
				set con=nothing
			end if
		end if
	%>
</TABLE>
</p>
<INPUT type="hidden" id=pdid name=pdid>
<INPUT type="hidden" id=txtcfid name=txtcfid value="<%=txtcfid%>">
</form>
</BODY>
</HTML>

⌨️ 快捷键说明

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