axgmm.asp

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

ASP
141 行
字号 
<%@ Language=VBScript %>
<!-- #INCLUDE FILE="../../share\connectdb3.asp" -->
<!--#include file=../../pubfunction.asp-->

<!--#INCLUDE FILE=../../apCHECK.asp-->

<html>
<head>
<link rel="stylesheet" type="text/css" href="../../style/style.css" >
 <link rel="stylesheet" type="text/css" href="../../style/table.css" >
<meta name="VI60_defaultClientScript" content="VBScript">
<meta NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<script ID="clientEventHandlersVBS" LANGUAGE="vbscript">
<!--

Sub pswYMM_onkeypress
    IF window.event.keyCode=13 THEN
       document.frmXGMM.pswXMM.focus
    END IF
End Sub

Sub pswXMM_onkeypress
    IF window.event.keyCode=13 THEN
       document.frmXGMM.pswQRMM.focus
    END IF

End Sub

Sub pswQRMM_onkeypress
    IF window.event.keyCode=13 THEN
       document.frmXGMM.submit 
    END IF
End Sub

Sub pswQRMM_onfocus
    window.document.images("img1").style.visibility="hidden"
    window.document.images("img2").style.visibility="hidden"
    window.document.images("img3").style.visibility="visible"
End Sub

Sub pswXMM_onfocus
    window.document.images("img1").style.visibility="hidden"
    window.document.images("img2").style.visibility="visible"
    window.document.images("img3").style.visibility="hidden"
End Sub

Sub pswYMM_onfocus
    window.document.images("img1").style.visibility="visible"
    window.document.images("img2").style.visibility="hidden"
    window.document.images("img3").style.visibility="hidden"
End Sub

Sub window_onload
    document.frmXGMM.pswYMM.focus
End Sub

Sub cmdqd_onclick
    document.frmXGMM.submit 
End Sub

Sub cmdtc_onclick
    window.location="../../amain.asp"
End Sub

-->
</script>
</head>
<body background="../../images/bj.gif" >

<p>&nbsp;</p>
<p>&nbsp;</p><center>

</center>
<p>
<form action="#" id="frmXGMM" method="post" name="frmXGMM">

<center>

<table border="1" bordercolorlight=#000000 bordercolordark=#ffffff  bgcolor="<%=tableBGCOLOR%>" width="300"  CELLSPACING=0 CELLPADDING=0 >
<tr class=ListCellRow bgcolor="<%=tableHBGCOLOR%>" ><TD nowrap align=left  width=100%><img src="../../images/jk.GIF" width='24px' height='24px'>修改密码<font color="<%=tableHFONTCOLOR%>">-<%=session("yhm")%>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
<img src="../../images/qp.GIF" width='20px' height='20px' style='cursor:hand' alt='重新登录' onclick=javascript:allwindow()>&nbsp;
<img src="../../images/gb.gif" width='20px' height='20px' style='cursor:hand' alt='关闭' onclick=javascript:closewindow()>&nbsp;</td></tr>

<tr>
<td align="center">
<table border="0"   CELLSPACING=0 CELLPADDING=0 >
  
  <tr>
    <td>　原密码：<input  class="longtext1"id="pswYMM" name="pswYMM" type="password"><img border="0" height="20" name="img1" src="../../images/arrow.gif" style="VISIBILITY: hidden" width="20"></td></tr>
  <tr>
    <td>　新密码：<input  class="longtext1"id="pswXMM" name="pswXMM" type="password"><img border="0" height="20" name="img2" src="../../images/arrow.gif" style="VISIBILITY: hidden" width="20"></td></tr>
  <tr>
    <td>确认密码：<input  class="longtext1"id="pswQRMM" name="pswQRMM" type="password"><img border="0" height="20" name="img3" src="../../images/arrow.gif" style="VISIBILITY: hidden" width="20"></td></tr>
    <tr><td>&nbsp;</td></tr>
    </table></td></tr>
    
    
    <tr><td align="center" bgcolor="white">
    <table border="0"><tr><td onclick="vbscript:cmdqd_onclick"  class="buttons02" style="cursor:hand"  align="center" width="50" height="20">确　定
    </td><td width="20">&nbsp;</td><td onclick="vbscript:cmdtc_onclick"  class="buttons02" style="cursor:hand"  align="center" width="50" height="20">取　消</td></tr></table>
    </td></tr></table><center>
    <%
   if Request.ServerVariables("request_method")="POST" then
      dim rs,symm,sxmm,sqrmm,itag
      itag=0
     
      set rs=server.CreateObject ("adodb.recordset")
    
      symm=Request.Form("pswYMM")
      symm=jm(symm)
      sxmm=Request.Form("pswXMM")
      sqrmm=Request.Form("pswQRMM")
      rs.Open "select ryid from ggzd_Tgzry where ryid=" & session("yhid") & " and mm='" & symm & "'",conn
      if rs.EOF then
         Response.Write "<FONT color=red size=2>" & "你输入的原密码不正确！" & "</font> "
      elseif sxmm<>sqrmm then
         Response.Write  "<FONT color=red  size=2>" & "新密码两次输入不一致！" & "</font>"
      else
         sxmm=jm(sxmm)
         conn.Execute "update ggzd_Tgzry set mm='" & sxmm & "' where ryid=" & session("yhid")
         
         
         Response.Write "<FONT color=red  size=2>"
         Response.Write "密码修改成功！" 
       
         set rs=nothing
         set conn=nothing
         Response.end
      end if       
      set rs=nothing
      conn.close
      set conn=nothing      
   end if
   
%>
</center></form>

</body>
</html>

axgmm.asp - 源码说明

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

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

⌨️ 快捷键说明

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