login.asp

来自「公司通讯录 Jaddress 1.0」· ASP 代码 · 共 68 行

<!--#include file="top.htm"-->
<%response.buffer=true%>
<!--#include file="db.asp"-->
<%
if request("vote")="voteok" then
 Set rs= Server.CreateObject("ADODB.Recordset")
	sql="select * from manager"
rs.open sql,Conn,1,1
	rs.movefirst 
	if rs("password")=request("password") then
		session("password")=rs("password")
		response.redirect "addnew.asp"
	else
		msg="口令错误"
	end if
end if
%>
<script language="JavaScript">
<!--
function OnOK(form)
{
 if (form("password").value=="")
 {
  alert("请输入口令");
  form("password").focus();
  return false;  
  }

return true;
}
-->
</script>
  <table border="0" width="100%" cellspacing="0" cellpadding="0">
    <tr>
      <td width="25%" valign="top"><table width="100%" bordercolorlight="#000000" border="1" bordercolordark="#FFFFFF">
<%Set rsd = Server.CreateObject("ADODB.Recordset")
    sql="Select * From cp Order By id"
rsd.open sql,Conn,3,3
do while not rsd.eof
%>
    <tr>
      <td width="100%" class="coolButton" height="30" valign="middle"><a href=default.asp?id=<%=rsd("id")%> target=_self title=<%=rsd("comp")%>详细情况><%=rsd("comp")%></a></td>
    </tr>
    <%rsd.MoveNext
Loop%>
            </table></td>
      <td width="75%"><div align="center">管 理 登 录<br></div>  
<table width="554" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr align="center" valign="middle"> 
    <td>
      <form name="form1" method="post" action="login.asp" target=_self onSubmit="return OnOK(form1);">
        口令 
        <input type="hidden" name="vote" value="voteok">
        <input type="password" name="password" size="20" maxlength="20">
        <input type="submit" name="Submit" value="确认"><br>
        <font color="#FF0000"><%=msg%> </font> 
      </form>
<script language="JavaScript">
<!--
  form1("password").focus();
-->
</script>
    </td>
  </tr>
</table></td>
    </tr>
  </table>
<P ALIGN=CENTER>