📄 body_change_password.asp

📁 电子投标系统
💻 ASP
字号:
<%@ Language=VBScript%>
<%option explicit%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 FINAL//EN">
<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=ISO-8859-1">
<META NAME="Generator" CONTENT="NetObjects Fusion 4.0 Trial for Windows">
<TITLE>Change password</TITLE>
<BASE TARGET="_parent">
</HEAD>
<BODY BACKGROUND="../FunkshowBackgr.gif" LINK="#99CCCC" VLINK="#CCCC99" TEXT="#FFFFCC" TOPMARGIN=2 LEFTMARGIN=2 MARGINWIDTH=2 MARGINHEIGHT=2>
<%
Server.Execute "../ValidateUser.asp"

if Request.ServerVariables("REQUEST_METHOD")="POST" then
	Dim OldPassword,NewPassword,ConfirmPassword,LoginName
	OldPassword=Request.Form("OldPassword")
	NewPassword=Request.Form("NewPassword")
	ConfirmPassword=Request.Form("ConfirmPassword")
	LoginName=Session("LoginName")
	if NewPassword=ConfirmPassword then
		if len(NewPassword)>7 then
			Dim dbconn,dbRec,SqlString
			SqlString="Select member_login from member where member_password='"&OldPassword&"' and member_login='"&LoginName&"'"
			set dbconn=Server.CreateObject("ADODB.Connection")
			set dbRec=Server.CreateObject("ADODB.RecordSet")
			dbconn.open "BidBase","scott","tiger"
			dbRec.open SqlString,dbconn
			if Not dbRec.EOF then
				Dim SqlString2,dbRec2
				SqlString2="update member set member_password='"&NewPassword&"'where member_login='"&LoginName&"'"
				set dbRec2=Server.CreateObject("ADODB.RecordSet")
				dbRec2.open SqlString2,dbconn
				dbRec.Close
				dbconn.close 
				Response.Write "<b>Password changed succesfully</b>"
				Response.End
			else
				Response.Write "The OldPassword is incorrect"
			end if
			dbRec.close
			dbconn.close
		else
			Response.Write "<b>Password should be atleast 8 characters long</b>"
		end if
	else
		Response.Write "<b>Password could not be confirmed, Please try again</b>"
	end if
end if
%>
    <TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH=534 NOF=LY>
        <TR VALIGN=TOP ALIGN=LEFT>
            <TD WIDTH=21 HEIGHT=16><IMG SRC="../clearpixel.gif" WIDTH=21 HEIGHT=1 BORDER=0></TD>
            <TD></TD>
        </TR>
        <TR VALIGN=TOP ALIGN=LEFT>
            <TD HEIGHT=229></TD>
            <TD WIDTH=513>
                <FORM NAME="LayoutRegion6FORM" ACTION="body_change_password.asp" TARGET="body" METHOD=POST>
                    <TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 NOF="LayoutRegion6">
                        <TR VALIGN=TOP ALIGN=LEFT>
                            <TD WIDTH=101 HEIGHT=51><IMG SRC="../clearpixel.gif" WIDTH=101 HEIGHT=1 BORDER=0></TD>
                            <TD></TD>
                        </TR>
                        <TR VALIGN=TOP ALIGN=LEFT>
                            <TD></TD>
                            <TD WIDTH=289>
                                <TABLE ID="Table7" BORDER=0 CELLSPACING=3 CELLPADDING=1 WIDTH=289>
                                    <TR>
                                        <TD WIDTH=156 HEIGHT=26><P>Old Password</TD>
                                        <TD WIDTH=120><P><INPUT ID="FormsEditField41" TYPE=PASSWORD NAME="OldPassword" VALUE="" SIZE=15 MAXLENGTH=14>&nbsp;</TD>
                                    </TR>
                                    <TR>
                                        <TD WIDTH=156><P>New Password</TD>
                                        <TD WIDTH=120><P><INPUT ID="FormsEditField42" TYPE=PASSWORD NAME="NewPassword" VALUE="" SIZE=15 MAXLENGTH=14>&nbsp;</TD>
                                    </TR>
                                    <TR>
                                        <TD WIDTH=156><P>Re-enter New Password</TD>
                                        <TD WIDTH=120><P><INPUT ID="FormsEditField43" TYPE=PASSWORD NAME="ConfirmPassword" VALUE="" SIZE=15 MAXLENGTH=14>&nbsp;</TD>
                                    </TR>
                                </TABLE>
                            </TD>
                        </TR>
                    </TABLE>
                    <TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH=370 NOF="LayoutRegion6">
                        <TR VALIGN=TOP ALIGN=LEFT>
                            <TD WIDTH=291 HEIGHT=22><IMG SRC="../clearpixel.gif" WIDTH=291 HEIGHT=1 BORDER=0></TD>
                            <TD></TD>
                        </TR>
                        <TR VALIGN=TOP ALIGN=LEFT>
                            <TD HEIGHT=24></TD>
                            <TD WIDTH=79><INPUT TYPE=SUBMIT NAME="FormsButton1" VALUE="Change" ID="FormsButton2"></TD>
                        </TR>
                    </TABLE>
                </FORM>
            </TD>
        </TR>
    </TABLE>
</BODY>
</HTML>
⌨️ 快捷键说明

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