azsssbsy.asp

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

ASP
129 行
字号 

<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 txtsbmc_onkeypress
	if window.event.keyCode="13" then
		if trim(sbsyform.txtsbmc.value)="" then
			msgbox "设备名称不能为空。",vbinformation,"提示"
			sbsyform.txtsbmc.focus 
			exit sub
		end if
		sbsyform.pdid.value=1
		sbsyform.submit 	
		sbsyform.txtsbmc.focus 
	end if	
End Sub

Sub cmdok_onclick
	sbsyform.pdid.value=2
	sbsyform.submit 
End Sub

-->
</SCRIPT>
<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 fhjg(a,b) { 
       sbsyform.txtsbmc.value =a  
       sbsyform.txtsbid.value=b
	   document.all("divsbid").style.visibility="hidden";
	
}
//-->
</SCRIPT>
</HEAD>
<BODY>
<form name=sbsyform action="azsssbsy.asp" method="post">
<%
	set con=server.CreateObject("adodb.connection")
	con.Open application("sconn")
	txtsbmc=trim(Request.Form("txtsbmc"))
'	txtsbid=Request.Form("txtsbid")
	sqlstr="select sbid,sbmc from gdzc_tsbzd order by sbid"
	set result=con.Execute(sqlstr)
	if trim(Request.Form("pdid"))="1"  then   
		set rssbid=server.CreateObject("adodb.recordset")
		rssbid.maxrecords=15
		SELECT CASE CSTR(LEFT(trim(Request("txtsbmc")),1))
			CASE "P","p"
			rssbid.Open "SELECT sbid,sbdh,sbmc FROM gdzc_tsbzd WHERE PYM LIKE '"& Request("txtsbmc") &"%'",con,3
			CASE "W","w"
			rssbid.Open "SELECT sbid,sbdh,sbmc FROM gdzc_tsbzd WHERE WBM LIKE '"& Request("txtsbmc") &"%'",con,3
			CASE ELSE
			rssbid.Open "SELECT sbid,sbdh,sbmc FROM gdzc_tsbzd WHERE sbmc LIKE '"& Request("txtsbmc") &"%'",con,3
		END SELECT  
		Response.Write "<div id=divsbid style='visibility :visible'>"
		Response.Write "<table  border=1 cellspacing=0  style=' LEFT: 220px;POSITION: absolute; TOP: 110px'>" 
		Response.Write "<tr  bgcolor=#00ffff><td>"
		Response.Write "设备ID"
		Response.Write "</td><td>"
		Response.Write "设备代号"
		Response.Write "</td><td>"
		Response.Write "设备名称"
		Response.Write "</td></tr>"
	    dim sZDMC
		do while not rssbid.EOF 
		    sZDMC=replace(trim(rssbid("sbmc"))," ","")
			Response.Write "<tr language=javascript onclick=fhjg('"& sZDMC &"'," & rssbid("sbid") & ") onmouseout=mouseout(this,'#fffff0') onmouseover=mouseon(this,'#E0E0CA') bgcolor=#fffff0><td>"
			Response.Write rssbid("sbid")
			Response.Write "</td><td>"
			Response.Write rssbid("sbdh")
			Response.Write "</td><td>"
			Response.Write rssbid("sbmc")
			Response.Write "</td></tr>"
			rssbid.MoveNext 
		loop

		  Response.Write "</table>" 
		  Response.Write "</div>"

	END IF    
%>
<p><BR><p>
<p align=center>
<TABLE BORDER=1 CELLSPACING=1 CELLPADDING=1>
	<TR>
		<TD>设备名称</TD>
		<TD>
		<INPUT id=txtsbmc name=txtsbmc value="<%=trim(txtsbmc)%>" 
      style="HEIGHT: 21px; WIDTH: 205px">
		<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: 23px; WIDTH: 66px">&nbsp; 
<INPUT id=cmdexit name=cmdexit style="HEIGHT: 23px; WIDTH: 63px" type=button value=退出>
		</TD>
	</TR>
	<%
		if trim(Request.Form("pdid"))="2" then
			sqlstr="insert into ggzd_tsbsyjl values(" & session("str1") & " ,'" & Request.Form("txtsbid") & "',0)"
			con.Execute sqlstr
			con.Close
			set con=nothing
		end if
	%>
</TABLE>
</p>
<INPUT type="hidden" id=pdid name=pdid>
<P>&nbsp;</P>
</form>
</BODY>
</HTML>

azsssbsy.asp - 源码说明

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

虫虫开发者社区收录了大量与医疗信息系统相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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