📄 xgkl.asp

📁 OFFICE办公自动化
💻 ASP
字号:
<%@ Language=VBScript.Encode %>
<%Response.Expires=0%>
<!-- #INCLUDE FILE="..\share\connectdb.asp" -->
<html>
<%
	dim sygbh
	sygbh=session("LoginID")
	dim snc,skl
	dim rs
	set rs=server.CreateObject("adodb.recordset")
	rs.Open "select bm,kl from tbioaUser where ID=" & sygbh,conn,1,1
	if rs.EOF then
		Response.Write "意外错误"
		rs.Close
		set rs=nothing
		conn.close
		set conn=nothing
		Response.End
	end if
	snc=rs("bm")
	skl=rs("kl")
	rs.Close
	set rs=nothing
	conn.close
	set conn=nothing
%>
<head>
	<link rel="stylesheet" href="../putong_1t">
	<title>修改口令</title>
	<script LANGUAGE="vbscript">
	<!-- 
		sub dosave()
			formKL.txtnc.value=trim(formKL.txtnc.value)
			formKL.txtXKL1.value=trim(formKL.txtXKL1.value)
			formKL.txtXKL2.value=trim(formKL.txtXKL2.value)
			
			if formKL.txtNC.value="" then
				msgbox "你需要输入你的昵称",vbExclamation,"提示" 
				formKL.txtNC.focus
				exit sub
			end if
			if formKL.txtXKL1.value="" then
				msgbox "你需要输入新口令",vbExclamation,"提示" 
				formKL.txtXKL1.focus
				exit sub
			end if
			if formKL.txtXKL1.value<>formKL.txtXKL2.value then 
				msgbox "你两次输入的口令不一致",vbExclamation,"提示" 
				exit sub 
			end if 
			document.formKL.submit
		End Sub
		--> 
	</script>
</head>
<body>
<div class="TitleBar">修改口令</div>
<table align="center" width="250" class="InputFrameMain"><tr><td><table width=230 border=0 align=center cellpadding=0 cellspacing=0 style="Margin:5px 5px 5px 5px">
	<form action="kq_xgkl_save.asp" method="POST" id="formKL" name="formKL">
	<tr class=InputFrameLine>
		<td class=InputLabelCell" align="right" width="80">登录昵称&nbsp;</td>
		<td align="left" class="InputAreacell"><input type="text" name="txtNC" class="input" id="txtNC" value="<%=snc%>" size="20" maxlength="50" style="width=100%"></td>
	</tr>
	<tr class=InputFrameLine>
		<td class=InputLabelCell" align="right" width="80">原口令&nbsp;</td>
		<td align="left" class="InputAreacell"><input type="password" name="txtYKL" class="input" id="txtYKL" size="20" maxlength="25" style="width=100%"></td>
	</tr>
	<tr class=InputFrameLine>
		<td class=InputLabelCell" align="right" width="80">新口令&nbsp;</td>
		<td align="left" class="InputAreacell"><input type="password" class="input" name="txtXKL1" id="txtXKL1" size="20" maxlength="25" style="width=100%"></td>
	</tr>
	<tr class=InputFrameLine>
		<td class=InputLabelCell" align="right" width="80">确认新口令&nbsp;</td>
		<td align="left" class="InputAreacell"><input type="password" class="input" name="txtXKL2" id="txtXKL2" size="20" maxlength="25" style="width=100%"></td>
	</tr>
	<tr class=InputFrameButtonLine>
		<td align="center" colspan="4">
			<input class="button" type="button" id="bsave" name="bsave" value="确定" onclick="vbscript:doSave">
			<input type="button" class="button" value="返回"  id=bnew name=bnew onclick='vbscript:location.href="../dlh/lkoa_grzm_index.asp"'>
		</td>
	</tr>
	</form>
</table></td></tr></table>

</body>
</html>
⌨️ 快捷键说明

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