default.asp

来自「一个软件工程的软件质量web跟踪管理系统」· ASP 代码 · 共 73 行

ASP

73 行

<%@ Language=VBScript %>
<%Response.Expires=0
Response.Buffer = False
%>
<Script Language=VBScript>
<!--
Sub Submit()
	If cName.value = "" Then
		MsgBox "用户名称不能为空",48,"输入错误"
		cName.focus()
		Exit Sub
	End If
	
	If NOT CheckInput(cName) Then
		MsgBox "用户名称不能有空格、单双引号以及大于小于符号",48,"输入错误"
		cName.focus()
		Exit Sub
	End If
	
	If NOT CheckInput(OldPassword) Then
		MsgBox "用户旧密码不允许有空格、单双友好以及大于小于符号",48,"输入错误"
		OldPassword.focus()
		Exit Sub
	End If
	
	If NOT CheckInput(NewPassword) Then
		MsgBox "用户新密码不允许有空格、单双友好以及大于小于符号",48,"输入错误"
		NewPassword.focus()
		Exit Sub
	End If
	
	If ConfirmPassword.value <> NewPassword.value Then
		MsgBox "用户确认密码和新密码不相同",48,"输入错误"
		ConfirmPassword.focus()
		Exit Sub
	End If
	
	cTemp = ShowModaldialog("Proc_Change.asp?Name="+cName.value+"&OldPassword="+OldPassword.value+"&NewPassword="+NewPassword.value,"","dialogHeight:0;dialogWidth:0;help:no;resizable:no;status:no")
	
	If cTemp = "Error" Then
		Exit Sub
	Else
		MsgBox "修改成功",64,"提示信息"
	End If
	
	window.close()
End Sub

Sub Cancel()
	window.close()
End Sub

-->
</Script>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<link rel="STYLESHEET" type="text/css" href="../Css_Template/CssTable.css">
<script src="../BasicData/oper.js" type="text/javascript"></script>
<Title>用户密码修改</Title>
</HEAD>
<BODY topmargin=6>
<div align=center><center>
<table cellpadding="0" cellspacing="0" border="0" align="center" WIDTH="90%">
<tr><td>用户名称&nbsp;<input type=text class=InputText id=cName size=15 maxlength=10></td></tr>
<tr><td>旧&nbsp;密&nbsp;码&nbsp;<input type=Password class=InputText id=OldPassword size=15 maxlength=6></td></tr>
<tr><td>新&nbsp;密&nbsp;码&nbsp;<input type=Password class=InputText id=NewPassword size=15 maxlength=6></td></tr>
<tr><td>确认密码&nbsp;<input type=Password class=InputText id=ConfirmPassword size=15 maxlength=6></td></tr>
<tr><td align=right><input type=button value=确定 class=Button Onclick="Submit()">&nbsp;&nbsp;<input type=button value=退出 class=Button Onclick="Cancel()"></td></tr>
</table></center></div>
</BODY>
</HTML>

default.asp - 源码说明

本页面展示了「一个软件工程的软件质量web跟踪管理系统」中的 default.asp 源码文件，采用 ASP 编程语言编写，共 73 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

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

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?