📄 anewmbyy2.asp
字号:
<%@ Language=VBScript %>
<!-- #include file="../../ggmk.asp"-->
<%
dim conn,rs,ye
ye=0
set conn=server.CreateObject("adodb.connection")
set rs=server.CreateObject("adodb.recordset")
conn.Open application("sconn")
ye=Request.Form("hdye")
if ye="" then ye=0
%>
<HTML>
<HEAD>
<META name=VI60_defaultClientScript content=VBScript>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<title>讯捷医院信息管理系统-模板应用-<%=session("yhm")%></title>
<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>
<!--
//-->
</SCRIPT>
<SCRIPT ID=clientEventHandlersVBS LANGUAGE=vbscript>
<!--
Sub chkall_onclick
dim sCFID
dim intMBLX
frmaMB.cmbMBLX.value =frmaMB.cmbMBMC.value
intMBLX=cint(frmaMB.cmbMBMC.options(frmaMB.cmbMBMC.selectedIndex).title)'cint(frmaMB.hdLRZT.value)'
if frmaMB.chkall.checked then
if cint(intMBLX)=1 then
for each sCFID in mx.frmaXYMBMX.chk
sCFID.checked =true
next
elseif cint(intMBLX)=2 then
for each sCFID in mx.frmaZYMBMX.chk
sCFID.checked =true
next
elseif cint(intMBLX)=3 then
for each sCFID in mx.frmaXMMBMX.chk
sCFID.checked =true
next
end if
frmaMB.chkall.value="全部"
else
if cint(intMBLX)=1 then
for each sCFID in mx.frmaXYMBMX.chk
sCFID.checked =false
next
elseif cint(intMBLX)=2 then
for each sCFID in mx.frmaZYMBMX.chk
sCFID.checked =false
next
elseif cint(intMBLX)=3 then
for each sCFID in mx.frmaXMMBMX.chk
sCFID.checked =false
next
end if
frmaMB.chkall.value="全不部"
end if
End Sub
Sub txtSL_onchange
frmaMB.txtJE.value =formatcurrency(cdbl(frmaMB.txtDJ.value)*cdbl(frmaMB.txtSL.value),2)
frmaMB.txtDJ.value =formatcurrency(frmaMB.txtDJ.value,3)
End Sub
Sub btnQX_onclick
xmxg.style.visibility="hidden"
End Sub
Sub btnFH_onclick
parent.window.mbdiv.style.visibility ="hidden"
parent.frmJSMX.form1.txtlsh.value=parent.form1.txtlsh.value
parent.frmJSMX.form1.pdid.value=5
parent.frmJSMX.form1.submit
' if frmaMB.hdLRZT.value="1" then
' frmaMB.action="aZYYZXYMX.asp"
' else
' if frmaMB.hdLRZT.value ="2" then
' frmaMB.action ="aZYYZZYMX.asp"
' else
' frmaMB.action="aZYYZXMMX.asp"
' end if
'end if
'frmaMB.hdPD.value="CX"
'frmaMB.submit
End Sub
Sub cmbMBMC_onchange
' if frmaMB.cmbMBMC.value =0 then exit sub
if frmaMB.cmbMBMC.value="0" then
frmaMB.chkall.disabled=true
exit sub
end if
'-------------------
frmaMB.chkall.disabled=false
'-----------------
' msgbox frmaMB.cmbMBMC.options(frmaMB.cmbMBMC.selectedIndex).title
' exit sub
dim intMBLX
frmaMB.cmbMBLX.value=frmaMB.cmbMBMC.value
intMBLX=cInt(frmaMB.cmbMBMC.options(frmaMB.cmbMBMC.selectedIndex).title)'cint(frmaMB.hdLRZT.value) '
if (intMBLX=1) then
document.all.mx.src="aXYMBMX.asp?hdmbid="+frmaMB.cmbMBMC.value
elseif (intMBLX=2) then
document.all.mx.src="aZYMBMX.asp?hdmbid="+frmaMB.cmbMBMC.value
else
document.all.mx.src="aXMMBMX.asp?hdmbid="+frmaMB.cmbMBMC.value
end if
End Sub
Sub btnYY_onclick
dim intMBLX
frmaMB.cmbMBLX.value =frmaMB.cmbMBMC.value
intMBLX=cint(frmaMB.cmbMBMC.options(frmaMB.cmbMBMC.selectedIndex).title)'cint(frmaMB.hdLRZT.value)'
IF isnull(trim(frmaMB.cmbMBMC.value)) THEN frmaMB.cmbMBMC.value=0
IF NOT ISNUMERIC(frmaMB.cmbMBMC.value) THEN
MSGBOX "请输入整数!"
exit sub
END IF
if (intMBLX=1) then
' if (frmaMB.rdCZ.checked) then mx.frmaXYMBMX.hdYZLX.value=frmaMB.rdCZ.value
'if (frmaMB.rdDZ.checked) then mx.frmaXYMBMX.hdYZLX.value=frmaMB.rdDZ.value
mx.frmaXYMBMX.hdLSH.value=frmaMB.hdLSH.value
mx.frmaXYMBMX.hdKZYS.value=frmaMB.cmbKZYS.value
mx.frmaXYMBMX.hdPD.value="app"
mx.frmaXYMBMX.hdmbid.value=frmaMB.cmbMBMC.value
mx.frmaXYMBMX.hdye.value=frmaMB.hdye.value
mx.frmaXYMBMX.submit
else
if (intMBLX=2) then
' if (frmaMB.rdCZ.checked) then mx.frmaZYMBMX.hdYZLX.value=frmaMB.rdCZ.value
' if (frmaMB.rdDZ.checked) then mx.frmaZYMBMX.hdYZLX.value=frmaMB.rdDZ.value
mx.frmaZYMBMX.hdLSH.value=frmaMB.hdLSH.value
mx.frmaZYMBMX.hdKZYS.value=frmaMB.cmbKZYS.value
mx.frmaZYMBMX.hdts.value=clng(frmaMB.txtts.value)
mx.frmaZYMBMX.hdPD.value="app"
mx.frmaZYMBMX.hdmbid.value=frmaMB.cmbMBMC.value
mx.frmaZYMBMX.hdye.value=frmaMB.hdye.value
mx.frmaZYMBMX.submit
else
'if (frmaMB.rdCZ.checked) then mx.frmaXMMBMX.hdYZLX.value=frmaMB.rdCZ.value
' if (frmaMB.rdDZ.checked) then mx.frmaXMMBMX.hdYZLX.value=frmaMB.rdDZ.value
mx.frmaXMMBMX.hdLSH.value=frmaMB.hdLSH.value
mx.frmaXMMBMX.hdKZYS.value=frmaMB.cmbKZYS.value
mx.frmaXMMBMX.hdPD.value="app"
mx.frmaXMMBMX.hdts.value=clng(frmaMB.txtts.value)
mx.frmaXMMBMX.hdmbid.value=frmaMB.cmbMBMC.value
mx.frmaXMMBMX.hdye.value=frmaMB.hdye.value
' msgbox frmaMB.hdye.value
'exit sub
mx.frmaXMMBMX.submit
end if
end if
' zsszjxm.text.value=parent.zssxmjs.txtlx.value
' zsszjxm.txtybkh.value=parent.zssxmjs.txtmzh.value
parent.frmJSMX.form1.txtlsh.value=parent.form1.txtlsh.value
parent.frmJSMX.form1.pdid.value=5
parent.frmJSMX.form1.submit
'parent.window.mbdiv.style.visibility ="hidden"
' msgbox parent.frmjsmx.zssxmjs.txtlsh.value
End Sub
-->
</SCRIPT>
</HEAD>
<BODY leftmargin=0 topmargin=0>
<form action id="frmaMB" method="post" name="frmaMB">
<input id="hdLSH" name="hdLSH" type="hidden">
<input id="hdLRZT" name="hdLRZT" type="hidden">
<input id="hdPD" name="hdPD" type="hidden">
<input id="hdXMLX" name="hdXMLX" type="hidden">
<input id="hdye" name="hdye" type="hidden" value=<%=ye%>>
<table border="1" bordercolorlight="#000000" bordercolordark="#FFFFFF" cellpadding="0" cellspacing="0" width="590" align=left>
<tr><td bgcolor="#CCE8D6" align="center">
<table align="center" border="0" cellspacing=0 cellpadding=1 width=590>
<tr>
<td width="80">模板名称:</td>
<td width="160">
<SELECT id=cmbMBMC name=cmbMBMC style="width:150"><option value=0 selected>--请选择模板名称--</option>
<% sql="select mbid,mbmc,mblx from ggzd_tyzcfmb where (ks="&session("rzks") & " or syz=" & session("yhid")& " or syz=0) and mblx in(0,1,2,3) order by mblx desc,mbid"
'sql="select mbid,mbmc,mblx from ggzd_tyzcfmb where (ks="&session("rzks") & " or syz=" & session("yhid")& " ) and mblx in(3) order by mblx desc,mbid"
rs.Open sql,conn
do until rs.EOF
Response.Write "<option value=" & cint(rs("mbid")) &" title='"&rs("mblx")&"'>" & trim(rs("mbmc")) &"</option>"
rs.MoveNext
loop
rs.Close
%></option></SELECT>
</td>
<%'if cint(Request.Form ("hdXMLX"))=2 then %>
<%if 1=1 then %>
<td width="70">数量：</td>
<td><b><INPUT type="text" style="HEIGHT: 22px;width=40;" id=txtts name=txtts value=1 ></td>
<% else %>
<td width="110"> </td>
<%end if %>
<Td width="100"><INPUT type="checkbox" id=chkall name=chkall disabled><label>全[不]选</label></td>
<td width="50"><INPUT type="button" value="应 用(Y)" id=btnYY name=btnYY></td>
<td width="20"> </td>
<td width="50"><INPUT type="button" value="关 闭(F)" id=btnFH name=btnFH></td>
<td width="50">
<SELECT id=cmbMBLX name=cmbMBLX style="width:0px;height:0px"><option value=0 selected>1</option></SELECT>
<!--<input type="hidden" id="hdmbid" name="hdmbid" value=0>-->
</td>
<td width="0"><SELECT id=cmbKZYS name=cmbKZYS style="width:0"><%
sql="select ryid,xm from ggzd_tgzry where ryid=" & session("yhid") &" order by xm"
rs.Open sql,conn
do until rs.EOF
if cint(rs("ryid"))=cint(session("yhid")) then
Response.Write "<option value="&cint( rs("ryid")) & " selected >" & trim(rs("xm")) & "</option>"
else
Response.Write "<option value="&cint( rs("ryid")) & " >" & trim(rs("xm")) & "</option>"
end if
rs.MoveNext
loop
rs.Close %></SELECT></td>
</tr>
</table>
</td></tr>
<tr><td bgcolor="#3399ff">
<iframe src="aXYMBMX.asp?hdmbid=0" id="mx" name="mx" width="590" height="280" frameborder="0" align="left"></iframe>
</td></tr></table>
</form>
<SCRIPT LANGUAGE=vbscript>
<!--
frmaMB.hdLRZT.value ="<%=Request.form("hdXMLX")%>"
frmaMB.hdLSH.value ="<%=Request.form("hdLSH")%>"
-->
</SCRIPT>
</BODY>
</HTML>
<% set rs=nothing
set conn=nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -