logininfo.asp

来自「asp开发 asp开发 asp开发 asp开发」· ASP 代码 · 共 51 行

<!-- #include file="..\auctionlib.asp" -->
<!-- #include file="admconfig.asp" -->
<%

If IsLoggedOn Then
	Call DoPageHeader
		Response.Write("<FONT FACE =" & chr(34) & sFont & chr(34) & ">")
		Response.Write("<BIG>更改系统管理密码</BIG>")
		Response.Write("<FORM METHOD=""POST"" ACTION=""chlogininfo.asp"">")
		Response.Write("<TABLE BORDER=""0"" CELLPADDING=""3"" CELLSPACING=""0"">")
		Response.Write("<TR><TD COLSPAN=""2""><CENTER><B>目前系统管理者信息</B></CENTER></TD></TR>")
		Response.Write("<TR>")
		Response.Write("<TD><SMALL>管理者名称</SMALL></TD>")
		Response.Write("<TD><INPUT TYPE=""TEXT"" Name=""OldUser""></TD>")
		Response.Write("</TR>")
		
		Response.Write("<TR>")
		Response.Write("<TD><SMALL>密码</SMALL></TD>")
		Response.Write("<TD><INPUT TYPE=""PASSWORD"" Name=""OldPass""></TD>")
		Response.Write("</TR>")
		
		Response.Write("<TR><TD COLSPAN=""2""><P><CENTER><B>目前系统管理者信息</B></CENTER></TD></TR>")
		
		Response.Write("<TR>")
		Response.Write("<TD><SMALL>新管理者名称</SMALL></TD>")
		Response.Write("<TD><INPUT TYPE=""TEXT"" Name=""NewUser""></TD>")
		Response.Write("</TR>")
		
		Response.Write("<TR>")
		Response.Write("<TD><SMALL>新密码</SMALL></TD>")
		Response.Write("<TD><INPUT TYPE=""Password"" Name=""NewPass""></TD>")
		Response.Write("</TR>")
		
		Response.Write("<TR>")
		Response.Write("<TD><SMALL>确认输入一次新密码</SMALL></TD>")
		Response.Write("<TD><INPUT TYPE=""Password"" Name=""ConfirmPass""></TD>")
		Response.Write("</TR>")
		
		Response.Write("<TR><TD COLSPAN=""2""><INPUT TYPE=""SUBMIT"" VALUE=""更改管理者信息""></TD></TR>")
		
		Response.Write("</TABLE>")
		Response.Write("</FORM>")
	Call DoPageFooter
Else
	Response.Redirect "adminlogin.asp"
End If

%>