📄 azsspsjg.asp
字号:
<!-- #INCLUDE FILE="../../share\connectdb.asp" -->
<!--#include file=../../pubfunction.asp-->
<HTML>
<HEAD>
<Title>皮试结果选择</title>
<META name=VI60_defaultClientScript content=JavaScript>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<link rel="stylesheet" type="text/css" href="../../style/style.css" >
<link rel="stylesheet" type="text/css" href="../../style/table.css" >
<SCRIPT ID=clientEventHandlersJS LANGUAGE=javascript>
<!--
function cmdOk_onclick() {
if(window.form1.selps.value=='')
{
window.alert('请选择皮试结果!!');
return;
}
var obj = new Object();
obj.type="OK"
obj.txtps=form1.selps.value;
window.returnValue=obj;
window.close();
}
function cmdquit_onclick() {
window.close();
}
function window_onload() {
var obj = new Object();
obj.type=""
window.returnValue = obj;
form1.selps.focus();
}
//-->
</SCRIPT>
</HEAD>
<BODY LANGUAGE=javascript onload="return window_onload()">
<form name=form1 id=form1 action="" method="post">
<TABLE border=0 align=center cellspacing="0" cellpadding="0" width=100% bordercolorlight=#000000 bordercolordark=#ffffff >
<TR><td nowrap>
皮试结果<SELECT id=selps name=selps style='width=100px'> <OPTION value='' >-请选择-</OPTION>
<% set rs=server.CreateObject("adodb.recordset") rs.Open "select psid,psmc from ggzd_tps order by psdh ",conn,3,1 do while not rs.EOF Response.Write "<option value="&rs("psid")&">"&rs("psmc")&"</option>"
rs.MoveNext loop rs.Close set rs=nothing conn.close set conn=nothing
%> </SELECT></td></tr>
<tr><td height=10px></td></tr>
<tr><td align=center>
<INPUT type="button" value="确定(O)" accesskey="O" id=cmdOk name=cmdOk class=buttons02 LANGUAGE=javascript onclick="return cmdOk_onclick()">
<INPUT type="button" value="返回(Q)" accesskey="Q" id=cmdquit name=cmdquit class=buttons02 LANGUAGE=javascript onclick="return cmdquit_onclick()">
</td>
</table>
</form>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -