index.asp

随着计算机技术的广泛应用,在酒店客房管理中引入计算机管理技术,成为一个值得深入研究的问题。本系统采用ASP+ACCESS作为开发环境,本文首先概要的论述了ASP的有关知识与现状。之后

<!--#include file="../inc/title.inc"-->
<% dim rndnum,verifycode
Randomize
Do While Len(rndnum)<4
num1=CStr(Chr((57-48)*rnd+48))
rndnum=rndnum&num1
loop
session("verifycode")=rndnum
%>
<style>
TD {
	FONT-SIZE: 9pt
; color: #000000
}
</style>
<table width="942" border="0" cellpadding="0" cellspacing="0">
  <!--DWLayoutTable-->
  <tr> 
    <td width="172" height="220">&nbsp;</td>
    <td width="677" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#2a9afe">
        <!--DWLayoutTable-->
        <tr> 
          <td width="294" height="90">&nbsp;</td>
          <td width="383">&nbsp;</td>
        </tr>
        <tr> 
          <td height="130" valign="top"  align="right"><img src="imgs/lonin_01.jpg" width="236" height="111"></td>
          <td valign="top"><img src="imgs/lonin_02.jpg" width="164" height="111"></td>
        </tr>
      </table></td>
    <td width="93">&nbsp;</td>
  </tr>
</table>
<table width="977" border="0" cellpadding="0" cellspacing="0">
  <!--DWLayoutTable-->
  <tr> 
    <td width="167" height="92">&nbsp;</td>
    <td width="48">&nbsp;</td>
    <td width="546" valign="top"> <form action="cekpwd.asp" method="post" name="guanli">
        <table width="100%" border="0" cellpadding="0" cellspacing="0">
          <!--DWLayoutTable-->
          <tr> 
            <td width="106" height="30">&nbsp;</td>
            <td width="124" valign="middle" align="right"><font 
                  face="Verdana, Arial, Helvetica, sans-serif"><b>用户名:</b></font></td>
            <td width="112" align="left" valign="middle"><input name="nam" type="text" size="14" maxlength="20"></td>
            <td width="204" rowspan="2" valign="middle"><input type=image height=42 
                  width=63 src="imgs/login2.gif" border=0 
                name=imageField></td>
          </tr>
          <tr> 
            <td height="33">&nbsp;</td>
            <td valign="middle" align="right"><font 
                  face="Verdana, Arial, Helvetica, sans-serif"><b>密码:</b></font></td>
            <td align="left" valign="middle"><input name="pwd" type="password" size="14" maxlength="20"></td>
          </tr>
          <tr> 
            <td height="29">&nbsp;</td>
            <td valign="middle" align="right"><font 
                  face="Verdana, Arial, Helvetica, sans-serif"><strong>验证码:</strong></font></td>
            <td colspan="2" valign="middle" align="left"><input name="verifycode" type="text" size="14" maxlength="20">
              <strong><font color="#FF0000"><span class="style1 style5"><%=session("verifycode")%></span></font></strong> 
              <input type="hidden" name="verifycode2" value="<%=session("verifycode")%>">
			</td>
          </tr>
        </table>
      </form></td>
    <td width="85">&nbsp;</td>
    <td width="131">&nbsp;</td>
  </tr>
  <tr> 
    <td height="110">&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td height="57">&nbsp;</td>
    <td colspan="3" valign="top"><font color="#FF0000">管理员分为普通和超级</font></td>
    <td>&nbsp;</td>
  </tr>
</table>
<!--#included file="../inc/copyright.inc"-->
<% 
    '提交资料时检测必填字段   
    sub imageField_OnClick 
		if guanli.nam.value="" then   
			alert "提示: 请输入用户名!"   
			guanli.nam.focus    
		else   
			if guanli.pwd.value="" then   
				alert "提示: 请输入密码!"   
				guanli.pwd.focus     
		else   
			if guanli.verifycode.value<>guanli.verifycode2.value then   
				alert "提示: 验证码错误！!"   
				guanli.pwd.focus     
															else   
																if confirm("确定提交你的资料吗?") then   
																	call imageField.submit()   
																end if   
														end if   
													end if   
							end if   
    end sub   
%>