教育系统应用

开发平台：

Delphi

passwd.asp：源码内容

							<%@ Language=VBScript %>
<%
	if (isempty(session("username")) or len(session("username"))=0) then
		Response.Write "您的登录已过期，请重新登录。"
		Response.End
	end if
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<link rel="stylesheet" type="text/css" href="xcss.css">
<SCRIPT LANGUAGE=javascript>
<!--
function check()
{
	if (form1.newpass.value == "")
	{
		alert("密码不能为空！");
		return false;
	}
	if (form1.newpass.value != form1.newpass1.value)
	{
		alert("两次输入的新密码不一致！");
		return false;
	}
	return true;
}
//-->
</SCRIPT>
</HEAD>
<BODY background=images/zapsmbknd.gif>
<P>
<FORM action="passwd_change.asp" method=POST id=form1 name=form1 onsubmit="return check();">
<TABLE border=0 cellPadding=1 cellSpacing=1 width="75%">
  
  <TR>
    <TD colspan=2>
<br><div class="zTitle">欢迎访问书库!</div></TD>
  <TR>
   <TR>
    <TD width="50%">用户名</TD>
    <TD><%=session("username")%></TD></TR>
  <TR>
    <TD>用户级别</TD>
    <TD><%=session("usertype")%></TD></TR>
  <TR>
    <TD colspan=2>
您可以访问级别为<%=session("usertype")%>以下的书。
</TD>
  <TR>
   <TR>
    <TD>请输入旧密码</TD>
    <TD><INPUT type="password" name=oldpass size=10></TD></TR>
   <TR>
    <TD>请输入新密码</TD>
    <TD><INPUT type="password" name=newpass size=10></TD></TR>
   <TR>
    <TD>确认一次新密码</TD>
    <TD><INPUT type="password" name=newpass1 size=10></TD></TR>
   <TR>
    <TD><INPUT type="submit" name=ok value="确定">
    <INPUT type="button" name=cancel value="取消" onclick="javascript:window.close();"></TD></TR>
</TABLE></P>
</FORM>
</BODY>
</HTML>

						