📄 proc_change.asp

📁 一个软件工程的软件质量web跟踪管理系统

💻 ASP

字号:

<%@ Language=VBScript %>
<%Response.Expires=0
Response.Buffer = False
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft FrontPage 4.0">
</HEAD>
<BODY>
<%
On Error Resume Next
cName = Trim(Request.QueryString("Name"))
cOldPassword = Trim(Request.QueryString("OldPassword"))
cNewPassword = Trim(Request.QueryString("NewPassword"))

cOldPassword = LCase(cOldPassword)
cNewPassword = LCase(cNewPassword)

Set Conn = session("AdoConnectObj")
MySql = "Select * From Sys_User Where fchrLoginName = '"+cName+"' And fchrLoginPwd = '"+cOldPassword+"'"
Set Rs = Conn.Execute(MySql)
If NOT Rs.EOF Then '表示该用户的确存在
	Set Rs = Nothing
	
	MySql = "Update Sys_User Set fchrLoginPwd = '"+cNewPassword+"'  Where fchrLoginName = '"+cName+"' And fchrLoginPwd = '"+cOldPassword+"'"
	Conn.BeginTrans
		Conn.Execute(MySql)
		
	If Err.Description = "" Then
		Conn.CommitTrans
	Else
		Conn.RollbackTrans
		cTemp = Replace(Err.description,chr(13),"\n")
		%>
		<Script Language=Javascript>
		<!--
			alert("操作失败,原因为:"+"<%=cTemp%>"+" 请联系系统管理员");
			returnValue = "Error"
		-->
		</Script>
		<%
	End If


Else '表示用户不存在
	Set Rs = Nothing
	%>
	<Script Language=Javascript>
	<!--
	alert("用户名称或者密码错误");
	returnValue = "Error"
	-->
	</Script>
	<%
End If

%>

<Script Language=VBScript>
	window.close()
</Script>

</BODY>
</HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -